blob: 69fbb4d2dd93b65535053df4395ef05f4a967352 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
-- Handling of unboxed fields
-- There seems to be a problem with -funbox-strict-fields
-- and interpreted code.
-- dataConRepArgTys says they are unboxed,
-- but they seem to be not.
-- So this test fails with wrong output
:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../Test
let s = S2 'a' 'b'
seq s ()
:p s
:set -funbox-strict-fields
:l
:l ../Test
let s = S2 'a' 'b'
seq s ()
:p s
:set -funbox-strict-fields -O
:l
:l ../Test
let s = S2 'a' 'b'
seq s ()
:p s
|
