git.iko.soy/distributed-process
on master help sign in
Compatibility with ghc-7.10: support new typeable
785543eAlexander Vershilov
src/Control/Distributed/Process/Serializable.hs+4
compare with master
unifiedsplit
@@ -73,7 +73,11 @@ sizeOfFingerprint = sizeOf (undefined :: Fingerprint)
73
73
74-- | The fingerprint of the typeRep of the argument
74-- | The fingerprint of the typeRep of the argument
75fingerprint :: Typeable a => a -> Fingerprint
75fingerprint :: Typeable a => a -> Fingerprint
76+#if MIN_VERSION_base(4,8,0)
77+fingerprint a = let TypeRep fp _ _ _ = typeOf a in fp
78+#else
76fingerprint a = let TypeRep fp _ _ = typeOf a in fp
79fingerprint a = let TypeRep fp _ _ = typeOf a in fp
80+#endif
77
81
78-- | Show fingerprint (for debugging purposes)
82-- | Show fingerprint (for debugging purposes)
79showFingerprint :: Fingerprint -> ShowS
83showFingerprint :: Fingerprint -> ShowS