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