Commit 78d4de71 authored by mnislaih's avatar mnislaih

Make test print022 a bit stronger

parent b3c97960
......@@ -2,3 +2,10 @@
import GHC.Exts
data T = C Int# Word# Float# Double# Char# Int Float Double
test = C 1# 32## 1.2# 1.23## 'x'# 1 1.2 1.23
data TwoFields = TwoFields Char Int deriving Show
data T2 = C2 {-# UNPACK #-} !Int {-#UNPACK#-} !Word {-# UNPACK #-} !TwoFields deriving Show
test2 = C2 1 32 (TwoFields 'a' 3)
f x = x
\ No newline at end of file
......@@ -2,3 +2,8 @@
:l print022.hs
seq test ()
:print test
:break f
f test2
:step
:fo x
:t x
\ No newline at end of file
()
test = C 1 32 1.2 1.23 'x' 1 1.2 1.23
Breakpoint 0 activated at print022.hs:11:0-6
Stopped at print022.hs:11:0-6
_result :: t = _
Stopped at print022.hs:11:6
_result :: t = _
x :: t = _
x = C2 1 32 'a' 3
x :: T2
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment