@@ -2,6 +2,7 @@
22{-# LANGUAGE UndecidableInstances #-}
33{-# LANGUAGE FlexibleInstances #-}
44{-# LANGUAGE GADTs #-}
5+{-# LANGUAGE CPP #-}
56module Control.Distributed.Process.Serializable
67 ( Serializable
78 , encodeFingerprint
@@ -15,7 +16,13 @@ module Control.Distributed.Process.Serializable
1516
1617import Data.Binary (Binary)
1718import Data.Typeable (Typeable(..))
19+
20+#if MIN_VERSION_base(4,6,0)
1821import Data.Typeable.Internal (TypeRep(TypeRep))
22+#else
23+import Data.Typeable.Internal (TypeRep(TypeRep), typeOf)
24+#endif
25+
1926import Numeric (showHex)
2027import Control.Exception (throw)
2128import GHC.Fingerprint.Type (Fingerprint(..))