From 023f73b1f2927eae784fdc0ffd63664e9ad8088e Mon Sep 17 00:00:00 2001
From: Fumiaki Kinoshita <fumiaki.kinoshita@herp.co.jp>
Date: Mon, 20 Feb 2023 17:13:20 +0900
Subject: [PATCH] Update src/Herp/Logger.hs

Co-authored-by: ruicc <ruicc.rail@gmail.com>
---
 src/Herp/Logger.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Herp/Logger.hs b/src/Herp/Logger.hs
index b85c9d0..9c658d0 100644
--- 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.