git.iko.soy/typerep-map
on main help sign in
Unpack fields (#23)
19830e1Veronika Romashkina
internal/Data/TypeRep/CacheMap.hs+3−3
compare with main
unifiedsplit
@@ -51,9 +51,9 @@ import qualified Data.Vector.Unboxed as Unboxed
51
51
52-- | Map-like data structure that keeps types as keys.
52-- | Map-like data structure that keeps types as keys.
53data TypeRepMap (f :: k -> Type) = TypeRepMap
53data TypeRepMap (f :: k -> Type) = TypeRepMap
54− { fingerprintAs :: Unboxed.Vector Word64
54+ { fingerprintAs :: {-# UNPACK #-} !(Unboxed.Vector Word64)
55− , fingerprintBs :: Unboxed.Vector Word64
55+ , fingerprintBs :: {-# UNPACK #-} !(Unboxed.Vector Word64)
56− , anys :: V.Vector Any
56+ , anys :: {-# UNPACK #-} !(V.Vector Any)
57 }
57 }
58
58
59-- | Shows only 'Fingerprint's.
59-- | Shows only 'Fingerprint's.