а
data STuple a = STuple {-# UNPACK #-} !a {-# UNPACK #-} ! aSize: a a a
ЗП
data STuple a = STuple {-# UNPACK #-} !a {-# UNPACK #-} ! aMK
АХ
АХ
MK
(,) $! _ $! _ предложили)AA
AA
ЗП
data STuple = STuple {-# UNPACK #-} !Int {-# UNPACK #-} !IntMK
newtype STuple = STuple (# Int#, Int# #) сразуMK
D
AA
AA
ЗП
AA
MK