testsuite/tests/ghc-regress/ghci.debugger/scripts/print012.script


1
2
3
4
5
6
7
8
9
10
11

:set -XGADTs -XRank2Types -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../GADT
:a ../Test
:m +Main
let o = O (id foo)
:p o
seq _t1 ()
:t _t1
:p o
seq _t4 ()
:p o