resource-pool 0.2.0.1 → 0.2.0.2

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

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

Data/Pool.hs view

@@ -172,7 +172,7 @@   resource <- liftIO . join . atomically $ do     ents <- readTVar entries     case ents of-      (Entry{..}:es) -> writeTVar entries es >> return create+      (Entry{..}:es) -> writeTVar entries es >> return (return entry)       [] -> do         used <- readTVar inUse         when (used == maxResources) retry

resource-pool.cabal view

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