packages feed

dynamic-state 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+4/−28 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.HashMap.Instances: instance (Eq k, Hashable k, Binary k, Binary v) => Binary (HashMap k v)

Files

dynamic-state.cabal view
@@ -1,5 +1,5 @@ name:                dynamic-state-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Optionally serializable dynamic state keyed by type description:         Optionally serializable dynamic state keyed by type license:             BSD3@@ -11,12 +11,11 @@ cabal-version:       >=1.10  library-  ghc-options:      -Wall +  ghc-options:      -Wall    exposed-modules:     Data.DynamicState     Data.DynamicState.Serializable-    Data.HashMap.Instances    build-depends:       base >=4.5 && <5
src/Data/DynamicState/Serializable.hs view
@@ -25,7 +25,6 @@   ) where  import Data.Binary-import Data.HashMap.Instances() import Data.HashMap.Strict as M import Data.ConcreteTypeRep import Data.Typeable@@ -74,8 +73,8 @@     put' $ DynamicState (M.insert (cTypeOf (undefined :: a)) (Dynamic v) dvs)  instance Binary DynamicState where-  put (DynamicState ds) = put ds-  get = DynamicState <$> get+  put (DynamicState ds) = put (M.toList ds)+  get = DynamicState . M.fromList <$> get  -- TODO: since a 'DynamicState' is now serialisable, it could potentially -- exist for a long time (days/months?). No operations are provided to remove
− src/Data/HashMap/Instances.hs
@@ -1,22 +0,0 @@-{-# OPTIONS_GHC -fno-warn-orphans #-}-{-# OPTIONS_HADDOCK show-extensions #-}---- |--- Module      :  Data.HashMap.Instances--- License     :  BSD3--- Maintainer  :  zcarterc@gmail.com--- Stability   :  experimental--- Portability :  portable------ Orphan Binary instance for HashMap--module Data.HashMap.Instances where--import Control.Applicative-import Data.HashMap.Strict as HashMap-import Data.Hashable-import Data.Binary--instance (Eq k, Hashable k, Binary k, Binary v) => Binary (HashMap.HashMap k v) where-  put x = put (HashMap.toList x)-  get = HashMap.fromList <$> get