safecopy 0.4.1 → 0.4.2

raw patch · 2 files changed

+21/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -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.4.1+Version:             0.4.2  -- A short (one-line) description of the package. Synopsis:            Binary serialization with version control.

@@ -8,6 +8,7 @@ import Data.Binary import Data.Binary.Put import Data.Binary.Get+import Control.Applicative import qualified Data.Map as Map import qualified Data.IntMap as IntMap import qualified Data.Set as Set@@ -62,6 +63,25 @@     kind = primitive     getCopy = contain $ liftM4 (,,,) safeGet safeGet safeGet safeGet     putCopy (a,b,c,d) = contain $ safePut a >> safePut b >> safePut c >> safePut d+instance (SafeCopy a, SafeCopy b, SafeCopy c, SafeCopy d, SafeCopy e) =>+         SafeCopy (a,b,c,d,e) where+    kind = primitive+    getCopy = contain $ liftM5 (,,,,) safeGet safeGet safeGet safeGet safeGet+    putCopy (a,b,c,d,e) = contain $ safePut a >> safePut b >> safePut c >> safePut d >> safePut e+instance (SafeCopy a, SafeCopy b, SafeCopy c, SafeCopy d, SafeCopy e, SafeCopy f) =>+         SafeCopy (a,b,c,d,e,f) where+    kind = primitive+    getCopy = contain $ (,,,,,) <$> safeGet <*> safeGet <*> safeGet <*> safeGet <*> safeGet <*> safeGet+    putCopy (a,b,c,d,e,f) = contain $ safePut a >> safePut b >> safePut c >> safePut d >>+                                      safePut e >> safePut f+instance (SafeCopy a, SafeCopy b, SafeCopy c, SafeCopy d, SafeCopy e, SafeCopy f, SafeCopy g) =>+         SafeCopy (a,b,c,d,e,f,g) where+    kind = primitive+    getCopy = contain $ (,,,,,,) <$> safeGet <*> safeGet <*> safeGet <*> safeGet <*>+                                     safeGet <*> safeGet <*> safeGet+    putCopy (a,b,c,d,e,f,g) = contain $ safePut a >> safePut b >> safePut c >> safePut d >>+                                        safePut e >> safePut f >> safePut g+  instance SafeCopy Int where     kind = Primitive; getCopy = contain $ get; putCopy = contain . put