Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
87f765b2
Commit
87f765b2
authored
Jul 08, 2007
by
Ian Lynagh
Browse files
Add tests for -XRecursiveDo
parent
9d8cfd8d
Changes
6
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/parser/should_compile/all.T
View file @
87f765b2
...
...
@@ -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
,
[''])
testsuite/tests/ghc-regress/parser/should_compile/read058.hs
0 → 100644
View file @
87f765b2
{-# OPTIONS_GHC -XRecursiveDo #-}
module
Foo
where
import
Control.Monad.Fix
z
::
Maybe
[
Int
]
z
=
mdo
x
<-
return
(
1
:
x
)
return
(
take
4
x
)
testsuite/tests/ghc-regress/parser/should_compile/read059.hs
0 → 100644
View file @
87f765b2
{-# LANGUAGE RecursiveDo #-}
module
Foo
where
import
Control.Monad.Fix
z
::
Maybe
[
Int
]
z
=
mdo
x
<-
return
(
1
:
x
)
return
(
take
4
x
)
testsuite/tests/ghc-regress/parser/should_fail/all.T
View file @
87f765b2
...
...
@@ -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
,
[''])
testsuite/tests/ghc-regress/parser/should_fail/read040.hs
0 → 100644
View file @
87f765b2
module
Foo
where
import
Control.Monad.Fix
z
::
Maybe
[
Int
]
z
=
mdo
x
<-
return
(
1
:
x
)
return
(
take
4
x
)
testsuite/tests/ghc-regress/parser/should_fail/read040.stderr
0 → 100644
View file @
87f765b2
read040.hs:7:10: parse error on input `<-'
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment