safecopy 0.8.1 → 0.8.2

raw patch · 2 files changed

+16/−2 lines, 2 filesdep ~basedep ~template-haskell

Dependency ranges changed: base, template-haskell

Files

• safecopy.cabal +1/−1
• src/Data/SafeCopy/Instances.hs +15/−1

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.8.1+Version:             0.8.2  -- A short (one-line) description of the package. Synopsis:            Binary serialization with version control.

@@ -1,4 +1,4 @@-{-# LANGUAGE FlexibleContexts, UndecidableInstances #-}+{-# LANGUAGE FlexibleContexts, UndecidableInstances, CPP #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Data.SafeCopy.Instances where @@ -31,7 +31,11 @@ import           Data.Time.Clock.TAI (AbsoluteTime, taiEpoch, addAbsoluteTime, diffAbsoluteTime) import           Data.Time.LocalTime (LocalTime(..), TimeOfDay(..), TimeZone(..), ZonedTime(..)) import qualified Data.Tree as Tree+#if __GLASGOW_HASKELL__ >= 707+import           Data.Typeable hiding (Proxy)+#else import           Data.Typeable+#endif import           Data.Word import           System.Time (ClockTime(..), TimeDiff(..), CalendarTime(..), Month(..)) import qualified System.Time as OT@@ -368,8 +372,18 @@ typeName :: Typeable a => Proxy a -> String typeName proxy = show (typeOf (undefined `asProxyType` proxy)) +#if __GLASGOW_HASKELL__ < 707 typeName1 :: (Typeable1 c) => Proxy (c a) -> String typeName1 proxy = show (typeOf1 (undefined `asProxyType` proxy))  typeName2 :: (Typeable2 c) => Proxy (c a b) -> String typeName2 proxy = show (typeOf2 (undefined `asProxyType` proxy))++#else+typeName1 :: (Typeable c) => Proxy (c a) -> String+typeName1 proxy = show (typeOf1 (undefined `asProxyType` proxy))++typeName2 :: (Typeable c) => Proxy (c a b) -> String+typeName2 proxy = show (typeOf2 (undefined `asProxyType` proxy))+#endif+