diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/typecheck/should_fail/T3613.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/typecheck/should_fail/T3613.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/T3613.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/T3613.hs deleted file mode 100644 index 9969d63707..0000000000 --- a/testsuite/tests/ghc-regress/typecheck/should_fail/T3613.hs +++ /dev/null @@ -1,19 +0,0 @@ --- c.f Trac #3613
-
-module T3613 where
-
-import Control.Monad
-
-foo :: Maybe ()
-foo = return ()
-
-bar :: IO ()
-bar = return ()
-
-fun1 = let fooThen m = foo>> m
- in fooThen (bar>> undefined)
-
-fun2 = let fooThen m = foo>> m
- in fooThen (do {bar; undefined})
-
-
|