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


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

putStrLn "-- testing ghci multiline commands :{ .. :}"
putStrLn "-- via stdin"
:{
  let
  { f 0 = 1
  ; f 1 = w
    where { w = 2 }
  ; y = 3
  }
:}
print (f 0,f 1,y)
:{
:browse
  Data.Maybe
:}
putStrLn "-- via readFile"
:cmd readFile "ghci023.ghci"