Update src/Herp/Logger.hs

Co-authored-by: ruicc <ruicc.rail@gmail.com>
herp-inc · Feb 20, 2023 · 023f73b · 023f73b
1 parent 2fe1a24
commit 023f73b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Herp/Logger.hs b/src/Herp/Logger.hs
@@ -91,7 +91,7 @@ mkThreadPool poolMaxResources errHandler = do
             atomically (flushTQueue queue) >>= sequence_
             cancel thread
     let poolCacheTTL = 3600
-    pool <- newPool $ defaultPoolConfig createResource freeResource poolCacheTTL poolMaxResources
+    pool <- newPool $ setNumStripes (Just 1) $ defaultPoolConfig createResource freeResource poolCacheTTL poolMaxResources
     pure pool
 
 -- NOTE: It *blocks* when there are no threads in idle.