git.iko.soy/distributed-process
on master help sign in
Fix 7.8 Compat
efb7b23Tim Watson
distributed-process.cabal+1−1
compare with master
unifiedsplit
@@ -98,7 +98,7 @@ Library
98 if impl(ghc <= 7.4.2)
98 if impl(ghc <= 7.4.2)
99 Build-Depends: template-haskell >= 2.7 && < 2.8
99 Build-Depends: template-haskell >= 2.7 && < 2.8
100 else
100 else
101− Build-Depends: template-haskell >= 2.6 && < 2.9
101+ Build-Depends: template-haskell >= 2.6 && < 2.10
102 Exposed-modules: Control.Distributed.Process.Internal.Closure.TH
102 Exposed-modules: Control.Distributed.Process.Internal.Closure.TH
103 CPP-Options: -DTemplateHaskellSupport
103 CPP-Options: -DTemplateHaskellSupport
104
104
src/Control/Distributed/Process/Serializable.hs+7
@@ -2,6 +2,7 @@
2{-# LANGUAGE UndecidableInstances #-}
2{-# LANGUAGE UndecidableInstances #-}
3{-# LANGUAGE FlexibleInstances #-}
3{-# LANGUAGE FlexibleInstances #-}
4{-# LANGUAGE GADTs #-}
4{-# LANGUAGE GADTs #-}
5+{-# LANGUAGE CPP #-}
5module Control.Distributed.Process.Serializable
6module Control.Distributed.Process.Serializable
6 ( Serializable
7 ( Serializable
7 , encodeFingerprint
8 , encodeFingerprint
@@ -15,7 +16,13 @@ module Control.Distributed.Process.Serializable
15
16
16import Data.Binary (Binary)
17import Data.Binary (Binary)
17import Data.Typeable (Typeable(..))
18import Data.Typeable (Typeable(..))
19+
20+#if MIN_VERSION_base(4,6,0)
18import Data.Typeable.Internal (TypeRep(TypeRep))
21import Data.Typeable.Internal (TypeRep(TypeRep))
22+#else
23+import Data.Typeable.Internal (TypeRep(TypeRep), typeOf)
24+#endif
25+
19import Numeric (showHex)
26import Numeric (showHex)
20import Control.Exception (throw)
27import Control.Exception (throw)
21import GHC.Fingerprint.Type (Fingerprint(..))
28import GHC.Fingerprint.Type (Fingerprint(..))