Add defaults

hasql-pool.cabal

@@ -72,6 +72,7 @@ library
   exposed-modules:
     Hasql.Pool
     Hasql.Pool.Config
+    Hasql.Pool.Config.Defaults
     Hasql.Pool.Observation
 
   -- cabal-gild: discover src/library/other

src/library/exposed/Hasql/Pool/Config/Defaults.hs

@@ -0,0 +1,40 @@
+module Hasql.Pool.Config.Defaults where
+
+import qualified Hasql.Connection as Connection
+import Hasql.Pool.Observation (Observation)
+import Hasql.Pool.Prelude
+
+-- |
+-- 3 connections.
+size :: Int
+size = 3
+
+-- |
+-- 10 seconds.
+acquisitionTimeout :: DiffTime
+acquisitionTimeout = 10
+
+-- |
+-- 1 day.
+agingTimeout :: DiffTime
+agingTimeout = 60 * 60 * 24
+
+-- |
+-- 10 minutes.
+idlenessTimeout :: DiffTime
+idlenessTimeout = 60 * 10
+
+-- |
+-- > "postgresql://postgres:postgres@localhost:5432/postgres"
+staticConnectionSettings :: Connection.Settings
+staticConnectionSettings = "postgresql://postgres:postgres@localhost:5432/postgres"
+
+-- |
+-- > pure "postgresql://postgres:postgres@localhost:5432/postgres"
+dynamicConnectionSettings :: IO Connection.Settings
+dynamicConnectionSettings = pure "postgresql://postgres:postgres@localhost:5432/postgres"
+
+-- |
+-- > const (pure ())
+observationHandler :: Observation -> IO ()
+observationHandler = const (pure ())

src/library/other/Hasql/Pool/Config/Config.hs

@@ -1,6 +1,7 @@
 module Hasql.Pool.Config.Config where
 
 import qualified Hasql.Connection as Connection
+import qualified Hasql.Pool.Config.Defaults as Defaults
 import Hasql.Pool.Observation (Observation)
 import Hasql.Pool.Prelude
 
@@ -18,10 +19,10 @@ data Config = Config
 defaults :: Config
 defaults =
   Config
-    { size = 3,
-      acquisitionTimeout = 10,
-      agingTimeout = 60 * 60 * 24,
-      idlenessTimeout = 60 * 10,
-      connectionSettingsProvider = pure "postgresql://postgres:postgres@localhost:5432/postgres",
-      observationHandler = const (pure ())
+    { size = Defaults.size,
+      acquisitionTimeout = Defaults.acquisitionTimeout,
+      agingTimeout = Defaults.agingTimeout,
+      idlenessTimeout = Defaults.idlenessTimeout,
+      connectionSettingsProvider = Defaults.dynamicConnectionSettings,
+      observationHandler = Defaults.observationHandler
     }