ez-couch 0.4.2 → 0.4.3

raw patch · 2 files changed

+8/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ez-couch.cabal +1/−1
• src/EZCouch/Sweeper.hs +7/−4

@@ -1,5 +1,5 @@ name:               ez-couch-version:            0.4.2+version:            0.4.3 cabal-version:      >=1.8 build-type:         Simple license:            MIT

@@ -21,7 +21,7 @@   runSweeper = forever $ do-  logLn 2 $ "Sweeping zombie entity isolations"+  logLn 2 $ "Running sweeper cycle"   readZombieEntityIsolations >>= releaseIsolations   liftIO $ threadDelay $ 10 ^ 6 * 60 * 60 * 24 * 2 @@ -38,8 +38,11 @@     False  releaseIsolations isolations = do-  createIdentifiedEntities $ map idAndValue isolations-  deleteEntities isolations+  logLn 1 $ "Sweeping " ++ show (length isolations) ++ " isolations"+  createIdentifiedEntities $ map entityIdAndValue isolations+  deleteEntities isolations `catch` \e -> case e of+    OperationException _ -> return ()+    e -> throwIO e -idAndValue =+entityIdAndValue =   (EntityIsolation.entityId &&& EntityIsolation.entityValue) . persistedValue