Merge pull request #1960 from digitallyinduced/fix-1959

Set db connection pool max connections to aleast the value of getNumCapabilities
digitallyinduced · May 9, 2024 · 4d4a7ef · 4d4a7ef
2 parents 38d9e58 + 4ece29c
commit 4d4a7ef
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/IHP/FrameworkConfig.hs b/IHP/FrameworkConfig.hs
@@ -26,6 +26,8 @@ import IHP.EnvVar
 import qualified Prelude
 import qualified GHC.Stack as Stack
 
+import qualified Control.Concurrent as Concurrent
+
 newtype AppHostname = AppHostname Text
 newtype AppPort = AppPort Int
 newtype BaseUrl = BaseUrl Text
@@ -154,7 +156,11 @@ ihpDefaultConfig = do
             case environment of
                 Development -> 2
                 Production -> 60
-    option $ DBPoolMaxConnections 20
+
+    -- poolMaxResources must not be smaller than numStripes
+    -- https://github.com/digitallyinduced/ihp/issues/1959
+    numCapabilities <- configIO Concurrent.getNumCapabilities
+    option $ DBPoolMaxConnections (max numCapabilities 20)
 
     (AppPort port) <- findOption @AppPort