blob: 0fd6139bc0a0079c8fa207135013af4565d8db0e (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
-- Unboxed tuples in data constructor arguments need to be
-- handled correctly by GHC.Runtime.Heap.Inspect
:set -XUnboxedTuples -fobject-code
:l Unboxed
:p o1
:p o2
o1 `seq` ()
o2 `seq` ()
:p o1
:p o2
|