acid-state 0.8.2 → 0.8.3
raw patch · 2 files changed
+3/−2 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- acid-state.cabal +1/−1
- src/Data/Acid/Local.hs +2/−1
acid-state.cabal view
@@ -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.2+Version: 0.8.3 -- A short (one-line) description of the package. Synopsis: Add ACID guarantees to any serializable Haskell data structure.
src/Data/Acid/Local.hs view
@@ -27,6 +27,7 @@ import Data.Acid.Abstract import Control.Concurrent ( newEmptyMVar, putMVar, takeMVar, MVar )+import Control.Exception ( onException ) import Control.Monad.State ( runState ) import Control.Monad ( join ) import Control.Applicative ( (<$>), (<*>) )@@ -231,7 +232,7 @@ replayEvents lock n st False -> do lock <- obtainPrefixLock lockFile- (n, st) <- loadCheckpoint+ (n, st) <- loadCheckpoint `onException` releasePrefixLock lock return $ do replayEvents lock n st where