drop deprecated Data.Pool.createPool

NoRedInk · Oct 21, 2024 · fbc8cda · fbc8cda
1 parent d4b9689
commit fbc8cda
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/nri-postgresql/src/Postgres/Connection.hs b/nri-postgresql/src/Postgres/Connection.hs
@@ -53,12 +53,15 @@ connectionIO settings = do
   doAnything <- Platform.doAnythingHandler
   pool <-
     map Pool
-      <| Data.Pool.createPool
-        (pgConnect database `Exception.catch` handleError (toConnectionString database))
-        pgDisconnect
-        stripes
-        maxIdleTime
-        size
+      <| Data.Pool.newPool
+        ( Data.Pool.defaultPoolConfig
+            (pgConnect database `Exception.catch` handleError (toConnectionString database))
+            pgDisconnect
+            (Prelude.realToFrac maxIdleTime)
+            (stripes * size)
+            |> Data.Pool.setNumStripes (Just stripes)
+        )
+
   Prelude.pure
     ( Connection
         doAnything