9d200dcaa27dd010ac320441a91abff348341301
[ghc.git] / testsuite / tests / ghci.debugger / scripts / print011.script
1 -- Type reconstruction with newtypes involved
2
3 :set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
4 :l ../Test
5
6 let i = map (Just . Just) [My 1 .. My 3]
7 :p i
8 seq _t1 ()
9 :p i
10 seq _t2 ()
11 :p i
12 seq _t4 ()
13 :p i