ghc/tests/deSugar/should_run/dsrun002.hs

   1 {- Tests let-expressions in do-statments -}
   2
   3 module Main( main ) where
   4
   5 foo = do
   6         putStr "a"
   7         let x = "b" in putStr x
   8         putStr "c"
   9
  10 main = do
  11          putStr "a"
  12          foo
  13          let x = "b" in putStrLn x
  14