Testsuite: delete Windows line endings [skip ci] (#11631)
[ghc.git] / testsuite / tests / typecheck / should_fail / T3613.hs
1 -- c.f Trac #3613
2
3 module T3613 where
4
5 import Control.Monad
6
7 foo :: Maybe ()
8 foo = return ()
9
10 bar :: IO ()
11 bar = return ()
12
13 fun1 = let fooThen m = foo>> m
14 in fooThen (bar>> undefined)
15
16 fun2 = let fooThen m = foo>> m
17 in fooThen (do {bar; undefined})
18
19