resource-pool 0.2.0.0 → 0.2.0.1

raw patch · 2 files changed

+4/−5 lines, 2 files

Files

• Data/Pool.hs +3/−4
• resource-pool.cabal +1/−1

@@ -28,11 +28,10 @@ import Control.Applicative ((<$>)) import Control.Concurrent (forkIO, killThread, myThreadId, threadDelay) import Control.Concurrent.STM-import Control.Exception (SomeException, catch)-import Control.Exception.Control (onException)+import Control.Exception (SomeException, catch, onException) import Control.Monad (forM_, forever, join, liftM2, unless, when) import Control.Monad.IO.Class (liftIO)-import Control.Monad.IO.Control (MonadControlIO)+import Control.Monad.IO.Control (MonadControlIO, controlIO) import Data.Hashable (hash) import Data.List (partition) import Data.Time.Clock (NominalDiffTime, UTCTime, diffUTCTime, getCurrentTime)@@ -180,7 +179,7 @@         writeTVar inUse $! used + 1         return $           create `onException` atomically (modifyTVar_ inUse (subtract 1))-  ret <- act resource `onException` (liftIO $ do+  ret <- controlIO $ \runInIO -> runInIO (act resource) `onException` (do            destroy resource `catch` \(_::SomeException) -> return ()            atomically (modifyTVar_ inUse (subtract 1)))   liftIO $ do

@@ -1,5 +1,5 @@ name:                resource-pool-version:             0.2.0.0+version:             0.2.0.1 synopsis:            A high-performance striped resource pooling implementation description:   A high-performance striped pooling abstraction for managing