acid-state 0.6.4 → 0.6.5

raw patch · 3 files changed

+10/−10 lines, 3 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• acid-state.cabal +1/−1
• src-unix/FileIO.hs +1/−1
• src/Data/Acid/Log.hs +8/−8

@@ -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.6.4+Version:             0.6.5  -- A short (one-line) description of the package. Synopsis:            Add ACID guarantees to any serializable Haskell data structure.

@@ -10,7 +10,7 @@                    ) import Data.Word(Word8,Word32) import Foreign(Ptr)-import Foreign.C(CInt)+import Foreign.C(CInt(..))  data FHandle = FHandle Fd 

@@ -280,14 +280,14 @@     = do logFiles <- findLogFiles identifier          let sorted = reverse $ sort logFiles              (_eventIds, files) = unzip sorted-         archives <- mapM Lazy.readFile files-         return $ worker archives-    where worker [] = Nothing-          worker (archive:archives)-              = case Archive.readEntries archive of-                  Done            -> worker archives-                  Next entry next -> Just (decode' (lastEntry entry next))-                  Fail msg        -> error msg+         worker files+    where worker [] = return Nothing+          worker (logFile:logFiles)+              = do archive <- Lazy.readFile logFile+                   case Archive.readEntries archive of+                     Done            -> worker logFiles+                     Next entry next -> return $ Just (decode' (lastEntry entry next))+                     Fail msg        -> error msg           lastEntry entry Done   = entry           lastEntry entry (Fail msg) = error msg           lastEntry _ (Next entry next) = lastEntry entry next