acid-state 0.8.1 → 0.8.2

raw patch · 5 files changed

+14/−5 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

acid-state.cabal +1/−1
src-win32/FileIO.hs +8/−1
src/Data/Acid/Local.hs +1/−2
src/Data/Acid/Memory.hs +1/−1
src/Data/Acid/Remote.hs +3/−0

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

src-win32/FileIO.hs view

@@ -13,11 +13,18 @@ import System.IO import System.Directory(createDirectoryIfMissing,removeFile) import Control.Exception.Extensible(try,throw)-import Control.Exception(SomeException)+import Control.Exception(SomeException,IOException)+import qualified Control.Exception as E   type PrefixLock = (FilePath, Handle)  data FHandle = FHandle HANDLE++tryE :: IO a -> IO (Either SomeException a)+tryE = try++catchIO :: IO a -> (IOException -> IO a) -> IO a+catchIO = E.catch  open :: FilePath -> IO FHandle open filename =

src/Data/Acid/Local.hs view

@@ -26,8 +26,7 @@ import Data.Acid.Common import Data.Acid.Abstract -import Control.Concurrent             ( newEmptyMVar, putMVar, takeMVar, MVar, threadDelay )-import Control.Exception              ( SomeException, handle )+import Control.Concurrent             ( newEmptyMVar, putMVar, takeMVar, MVar ) import Control.Monad.State            ( runState ) import Control.Monad                  ( join ) import Control.Applicative            ( (<$>), (<*>) )

src/Data/Acid/Memory.hs view

@@ -18,7 +18,7 @@ import Data.Acid.Common import Data.Acid.Abstract -import Control.Concurrent             ( newEmptyMVar, putMVar, takeMVar, MVar )+import Control.Concurrent             ( newEmptyMVar, putMVar, MVar ) import Control.Monad.State            ( runState ) import Data.ByteString.Lazy           ( ByteString ) import Data.Typeable                  ( Typeable )

src/Data/Acid/Remote.hs view

@@ -1,4 +1,5 @@ {-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE CPP #-} ----------------------------------------------------------------------------- {- |  Module      :  Data.Acid.Remote@@ -44,7 +45,9 @@                    forkIO (process acidState handle))          `finally` do sClose socket                       case port of+#if !defined(mingw32_HOST_OS) && !defined(cygwin32_HOST_OS) && !defined(_WIN32)                         UnixSocket path -> removeFile path+#endif                         _               -> return ()  data Command = RunQuery (Tagged Lazy.ByteString)