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


1
2
3
4
5
6
7
8
9
10

-- stg_ap_rep exception after using :print with newtypes

:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../Test

let a = MkT 1
seq a ()
:p a
a
-- Bang! "internal error: stg_ap_p_ret", triggered by the evaluation of a