acid-state 0.7.4 → 0.7.5

raw patch · 3 files changed

+5/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• acid-state.cabal +1/−1
• examples/RemoteClient.hs +1/−0
• src/Data/Acid/Remote.hs +3/−2

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

@@ -31,6 +31,7 @@               -> do acid <- open                     n <- query acid QueryState                     putStrLn $ "State value: " ++ show n+                    closeAcidState acid             ["poke"]               -> do acid <- open                     putStr "Issuing 100k transactions... "

@@ -129,9 +129,10 @@            closedError False = return ()            closedError True  = throwIO $ ErrorCall "The AcidState has been closed" -           shutdown = do writeIORef isClosed True+       tid <- forkIO (listener (runGetPartial get Strict.empty))+       let shutdown = do writeIORef isClosed True+                         killThread tid                          hClose handle-       forkIO (listener (runGetPartial get Strict.empty))        return (toAcidState $ RemoteState actor shutdown)  remoteQuery :: QueryEvent event => RemoteState (EventState event) -> event -> IO (EventResult event)