@@ -51,9 +51,9 @@ import qualified Data.Vector.Unboxed as Unboxed
5151
5252-- | Map-like data structure that keeps types as keys.
5353data TypeRepMap (f :: k -> Type) = TypeRepMap
54− { fingerprintAs :: Unboxed.Vector Word64
55− , fingerprintBs :: Unboxed.Vector Word64
56− , anys :: V.Vector Any
54+ { fingerprintAs :: {-# UNPACK #-} !(Unboxed.Vector Word64)
55+ , fingerprintBs :: {-# UNPACK #-} !(Unboxed.Vector Word64)
56+ , anys :: {-# UNPACK #-} !(V.Vector Any)
5757 }
5858
5959-- | Shows only 'Fingerprint's.