acid-state 0.7.5 → 0.7.6
raw patch · 2 files changed
+7/−3 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- acid-state.cabal +2/−2
- src/Data/Acid/Remote.hs +5/−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.7.5+Version: 0.7.6 -- A short (one-line) description of the package. Synopsis: Add ACID guarantees to any serializable Haskell data structure.@@ -44,7 +44,7 @@ Source-repository head type: darcs- location: http://mirror.seize.it/acid-state/+ location: http://hub.darcs.net/Lemmih/acid-state Library
src/Data/Acid/Remote.hs view
@@ -29,6 +29,7 @@ import Data.IORef ( newIORef, readIORef, writeIORef ) import Data.Serialize import Data.SafeCopy ( SafeCopy, safeGet, safePut )+import System.Directory ( removeFile ) import System.IO ( Handle, hFlush, hClose ) import qualified Data.Sequence as Seq import Data.Typeable ( Typeable )@@ -41,7 +42,10 @@ = do socket <- listenOn port forever (do (handle, _host, _port) <- accept socket forkIO (process acidState handle))- `finally` sClose socket+ `finally` do sClose socket+ case port of+ UnixSocket path -> removeFile path+ _ -> return () data Command = RunQuery (Tagged Lazy.ByteString) | RunUpdate (Tagged Lazy.ByteString)