[project @ 1999-07-26 16:01:51 by simonpj]

Add read009, do-notation

ghc/tests/reader/should_fail/read009.hs

+module ShouldFail where
+
+-- !!! Do-notation requires an *expression* at the end.
+
+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
+
+
+

ghc/tests/reader/should_fail/read009.stderr

+This current error message is rather unhelpful:
+
+	read009.hs:12: parse error on input `'