snaplet-acid-state 0.2.6.2 → 0.2.7
raw patch · 2 files changed
+16/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Snap.Snaplet.AcidState: createArchive :: (MonadIO (m b v), MonadSnaplet m, MonadState s (m b b), HasAcid s st) => m b v ()
Files
snaplet-acid-state.cabal view
@@ -1,5 +1,5 @@ name: snaplet-acid-state-version: 0.2.6.2+version: 0.2.7 synopsis: acid-state snaplet for Snap Framework description: This snaplet makes it easy to use acid-state in a Snap application.
src/Snap/Snaplet/AcidState.hs view
@@ -18,6 +18,7 @@ , update , query , createCheckpoint+ , createArchive , closeAcidState , initWorker @@ -32,6 +33,7 @@ import Data.Acid hiding (update ,query ,createCheckpoint+ ,createArchive ,closeAcidState ) import Data.Typeable@@ -168,6 +170,19 @@ createCheckpoint = do st <- getAcidState liftIO $ A.createCheckpoint st+++------------------------------------------------------------------------------+-- | Wrapper for acid-state's createArchive function that works for+-- arbitrary instances of HasAcid.+createArchive :: (MonadIO (m b v),+ MonadSnaplet m,+ MonadState s (m b b),+ HasAcid s st)+ => m b v ()+createArchive = do+ st <- getAcidState+ liftIO $ A.createArchive st ------------------------------------------------------------------------------