blob: fb6308ffcf807dd07974c65f658dcf6e9a05ead8 (
plain)
1
2
3
4
5
6
7
8
9
10
|
:l print031.hs
let a = MkT2 [Just (Phantom 1)]
:break f
a
f a
:step
-- ghc crashes now when the type for x is recovered
-- and unifyRTTI fails to compute a substitution
:p x
:q
|