summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/ghci/scripts/T4316.script
blob: b620aac6534e6916b9d49c34fa5c4d82aa3a378d (plain)
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"