support resource-pool-0.4

herp-inc · Feb 20, 2023 · efd28a2 · efd28a2
1 parent c88c296
commit efd28a2
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 9 deletions.
diff --git a/cabal.project b/cabal.project
@@ -1,8 +1,2 @@
 packages:
     .
-
-source-repository-package
-    type: git
-    location: https://github.com/MercuryTechnologies/pool.git
-    tag: 1aa551e41e3527ce23f38251567507df5357fdb9
-
diff --git a/herp-logger.cabal b/herp-logger.cabal
@@ -79,7 +79,7 @@ library
     , monad-logger
     , mtl
     , pretty-simple
-    , resource-pool ^>= 0.3
+    , resource-pool ^>= 0.4
     , safe-exceptions
     , stm
     , text

diff --git a/src/Herp/Logger.hs b/src/Herp/Logger.hs
@@ -91,8 +91,7 @@ mkThreadPool poolMaxResources errHandler = do
             atomically (flushTQueue queue) >>= sequence_
             cancel thread
     let poolCacheTTL = 3600
-    let poolNumStripes = Just 1
-    pool <- newPool PoolConfig{..}
+    pool <- newPool $ setNumStripes (Just 1) $ defaultPoolConfig createResource freeResource poolCacheTTL poolMaxResources
     pure pool
 
 -- NOTE: It *blocks* when there are no threads in idle.