testsuite/tests/ghc-regress/ghci/scripts/T4316.script


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

:set +m
:m Control.Monad.State
flip evalStateT 11 $ do
  i <- get
  lift $ do
    putStrLn "Hello, World!"
    print i


let f = (+ 1)
in f 2


let f = "Hello, World!"

f

let f = True

case f of 
  False -> putStrLn "Failed"
  True  -> putStrLn "Pass"