dynamic-state 0.3 → 0.3.1
raw patch · 3 files changed
+12/−1 lines, 3 filesnew-uploaderPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
dynamic-state.cabal view
@@ -1,5 +1,5 @@ name: dynamic-state-version: 0.3+version: 0.3.1 synopsis: Optionally serializable dynamic state keyed by type description: Optionally serializable dynamic state keyed by type license: GPL-2
src/Data/DynamicState.hs view
@@ -1,5 +1,6 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE CPP #-} {-# OPTIONS_HADDOCK show-extensions #-} -- |@@ -25,6 +26,11 @@ -- | An extensible record, indexed by type newtype DynamicState = DynamicState { unDynamicState :: M.HashMap ConcreteTypeRep Dynamic } deriving (Typeable)++#if __GLASGOW_HASKELL__ >= 804+instance Semigroup DynamicState where+ (<>) = mappend+#endif instance Monoid DynamicState where mappend (DynamicState a) (DynamicState b) = DynamicState (mappend a b)
src/Data/DynamicState/Serializable.hs view
@@ -54,6 +54,11 @@ newtype DynamicState = DynamicState { unDynamicState :: M.HashMap ConcreteTypeRep Dynamic } deriving (Typeable) +#if __GLASGOW_HASKELL__ >= 804+instance Semigroup DynamicState where+ (<>) = mappend+#endif+ instance Monoid DynamicState where mappend (DynamicState a) (DynamicState b) = DynamicState (mappend a b) mempty = DynamicState mempty