testsuite/tests/parser/should_fail/readFail009.hs


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

module ShouldFail where

-- !!! Test for parse error in do/let expression

foo = do let foo = True
	     return () 
           

-- Note the let binding at the end!
-- This gave a pattern-match failure in tcStmts in ghc-4.04proto

h x = x