blob: 3021fa719578d36ecb24fbcffdae8794e89a3274 (
plain)
1
2
3
4
5
6
7
|
==================== Parser ====================
module UnamedConstructorStrictFields where
data A = A
data B = B
data Foo = MkFoo {-# UNPACK #-} !A " Unpacked strict field" B
data Bar = {-# UNPACK #-} !A " Unpacked strict field" :%% B
|