testsuite/tests/deSugar/should_run/dsrun002.hs


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

{- Tests let-expressions in do-statments -}

module Main( main ) where

foo = do
  	putStr "a"
	let x = "b" in putStr x
	putStr "c"

main = do
	 putStr "a"
	 foo
	 let x = "b" in putStrLn x