ghc/tests/reader/should_fail/read009.hs

   1 module ShouldFail where
   2
   3 -- !!! Do-notation requires an *expression* at the end.
   4
   5 foo = do let foo = True
   6              return ()
   7
   8
   9 -- Note the let binding at the end!
  10 -- This gave a pattern-match failure in tcStmts in ghc-4.04proto
  11
  12 h x = x
  13
  14
  15