Commit 87f765b2 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add tests for -XRecursiveDo

parent 9d8cfd8d
......@@ -64,3 +64,5 @@ test('read054', normal, compile, [''])
test('read055', normal, compile, [''])
test('read056', normal, compile, [''])
test('read057', normal, compile, [''])
test('read058', normal, compile, [''])
test('read059', normal, compile, [''])
{-# OPTIONS_GHC -XRecursiveDo #-}
module Foo where
import Control.Monad.Fix
z :: Maybe [Int]
z = mdo x <- return (1:x)
return (take 4 x)
{-# LANGUAGE RecursiveDo #-}
module Foo where
import Control.Monad.Fix
z :: Maybe [Int]
z = mdo x <- return (1:x)
return (take 4 x)
......@@ -46,3 +46,4 @@ test('read036', normal, compile_fail, [''])
test('read037', normal, compile_fail, [''])
test('read038', normal, compile_fail, [''])
test('read039', normal, compile_fail, [''])
test('read040', normal, compile_fail, [''])
module Foo where
import Control.Monad.Fix
z :: Maybe [Int]
z = mdo x <- return (1:x)
return (take 4 x)
read040.hs:7:10: parse error on input `<-'
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment