Set db connection pool max connections to aleast the value of getNumC…

…apabilities

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