testsuite/tests/parser/should_fail/T8501c.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Test where

baz :: IO ()
baz = mdo
    putStrLn "baz"

-- Should fail
-- baz' :: IO ()
-- baz' = mdo
--     putStrLn "baz"
--     str <- return "test"

-- Should fail (and needs better error)
-- baz' :: IO ()
-- baz' = mdo {putStrLn "baz"}