blob: 381676e0d7f35e28eb668d092c26a4cc6f6e5656 (
plain)
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 :: Integer)
seq a ()
:p a
a
-- Bang! "internal error: stg_ap_p_ret", triggered by the evaluation of a
|
