@@ -73,7 +73,11 @@ sizeOfFingerprint = sizeOf (undefined :: Fingerprint)
7373
7474-- | The fingerprint of the typeRep of the argument
7575fingerprint :: Typeable a => a -> Fingerprint
76+#if MIN_VERSION_base(4,8,0)
77+fingerprint a = let TypeRep fp _ _ _ = typeOf a in fp
78+#else
7679fingerprint a = let TypeRep fp _ _ = typeOf a in fp
80+#endif
7781
7882-- | Show fingerprint (for debugging purposes)
7983showFingerprint :: Fingerprint -> ShowS