testsuite/tests/ghc-regress/ghci/prog011/prog011.hx


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

:set +m
:m +Control.Monad.State
flip evalStateT 10 $ do
  i <- get
  lift $ print i

a <- return "Hello"
flip evalStateT 11 $ do
  i <- get
  lift $ print i
  lift $ print a

:unset +m
flip evalStateT 12 $ do

print a