Commit f78c349f authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test for pattern type sigs in do-notation

parent 53565e8f
......@@ -46,3 +46,4 @@ test('read036', normal, compile, [''])
test('read037', normal, compile, [''])
test('read038', normal, compile, [''])
test('read039', normal, compile, ['-fno-code'])
test('read040', normal, compile, [''])
{-# OPTIONS -fglasgow-exts #-}
-- A type signature on the LHS of a do-stmt was a parse
-- error in 6.4.2, but ok thereafter
module ShouldCompile where
f () = do { x :: Bool <- return True
; return x }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment