persistent 0.2.2 → 0.2.2.1

raw patch · 3 files changed

+4/−4 lines, 3 files

Files

• Database/Persist/Base.hs +1/−1
• Database/Persist/Pool.hs +2/−2
• persistent.cabal +1/−1

@@ -46,7 +46,7 @@ import Data.Enumerator import qualified Control.Exception as E import Data.Bits (bitSize)-import Control.Monad (when, liftM)+import Control.Monad (liftM)  -- | A raw value which can be stored in any backend and can be marshalled to -- and from a 'PersistField'.

@@ -9,7 +9,7 @@  import Control.Concurrent.STM (atomically) import Control.Concurrent.STM.TVar-    (TVar, newTVarIO, readTVar, writeTVar, readTVarIO)+    (TVar, newTVarIO, readTVar, writeTVar) import Control.Exception (throwIO) import Data.Typeable import "MonadCatchIO-transformers" Control.Monad.CatchIO@@ -32,7 +32,7 @@ createPool mk fr mx f = do     pd <- liftIO $ newTVarIO $ PoolData [] 0     finally (f $ Pool mx pd mk) $ liftIO $ do-        PoolData ress _ <- readTVarIO pd+        PoolData ress _ <- atomically $ readTVar pd         mapM_ fr ress  data PoolExhaustedException = PoolExhaustedException

@@ -1,5 +1,5 @@ name:            persistent-version:         0.2.2+version:         0.2.2.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>