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
bafd0e28
Commit
bafd0e28
authored
Oct 13, 2007
by
mnislaih
Browse files
Test case for
#1537
parent
3c2302ae
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/rebindable/all.T
View file @
bafd0e28
...
...
@@ -14,3 +14,4 @@ test('rebindable4', normal, compile_and_run, [''])
test
('
rebindable5
',
normal
,
compile_and_run
,
[''])
test
('
rebindable6
',
normal
,
compile_and_run
,
[''])
test
('
rebindable7
',
normal
,
compile_and_run
,
[''])
test
('
rebindable8
',
expect_broken
(
1537
),
compile
,
[''])
\ No newline at end of file
testsuite/tests/ghc-regress/rebindable/rebindable8.hs
0 → 100644
View file @
bafd0e28
{-# OPTIONS -fno-implicit-prelude -fglasgow-exts #-}
-- Trac #1537
module
Foo
where
import
Prelude
hiding
(
Monad
(
..
))
class
Bind
m1
m2
m3
where
(
>>=
)
::
m1
a
->
(
a
->
m2
b
)
->
m3
b
class
Return
m
where
return
::
a
->
m
a
fail
::
String
->
m
a
instance
Bind
Maybe
[]
[]
where
Just
x
>>=
f
=
f
x
Nothing
>>=
f
=
[]
instance
Return
[]
where
return
x
=
[
x
]
fail
_
=
[]
should_compile
::
[
Int
]
should_compile
=
do
a
<-
Just
1
[
a
]
\ No newline at end of file
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