hasql-pool 1.4 → 1.4.1

raw patch · 3 files changed

+49/−49 lines, 3 files

Files

• hasql-pool.cabal +2/−2
• src/library/exposed/Hasql/Pool/Config/Defaults.hs +47/−0
• src/library/other/Hasql/Pool/Config/Defaults.hs +0/−47

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: hasql-pool-version: 1.4+version: 1.4.1 category: Hasql, Database, PostgreSQL synopsis: Pool of connections for Hasql homepage: https://github.com/nikita-volkov/hasql-pool@@ -75,12 +75,12 @@   exposed-modules:     Hasql.Pool     Hasql.Pool.Config+    Hasql.Pool.Config.Defaults     Hasql.Pool.Observation    -- cabal-gild: discover src/library/other   other-modules:     Hasql.Pool.Config.Config-    Hasql.Pool.Config.Defaults     Hasql.Pool.Config.Setting     Hasql.Pool.Prelude     Hasql.Pool.SessionErrorDestructors

@@ -0,0 +1,47 @@+module Hasql.Pool.Config.Defaults where++import Hasql.Connection.Settings qualified as Connection.Settings+import Hasql.Pool.Observation (Observation)+import Hasql.Pool.Prelude+import Hasql.Session qualified as Session++-- |+-- 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.Settings+staticConnectionSettings =+  "postgresql://postgres:postgres@localhost:5432/postgres"++-- |+-- > pure "postgresql://postgres:postgres@localhost:5432/postgres"+dynamicConnectionSettings :: IO Connection.Settings.Settings+dynamicConnectionSettings = pure staticConnectionSettings++-- |+-- > const (pure ())+observationHandler :: Observation -> IO ()+observationHandler = const (pure ())++-- |+-- > pure ()+initSession :: Session.Session ()+initSession = pure ()

@@ -1,47 +0,0 @@-module Hasql.Pool.Config.Defaults where--import Hasql.Connection.Settings qualified as Connection.Settings-import Hasql.Pool.Observation (Observation)-import Hasql.Pool.Prelude-import Hasql.Session qualified as Session---- |--- 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.Settings-staticConnectionSettings =-  "postgresql://postgres:postgres@localhost:5432/postgres"---- |--- > pure "postgresql://postgres:postgres@localhost:5432/postgres"-dynamicConnectionSettings :: IO Connection.Settings.Settings-dynamicConnectionSettings = pure staticConnectionSettings---- |--- > const (pure ())-observationHandler :: Observation -> IO ()-observationHandler = const (pure ())---- |--- > pure ()-initSession :: Session.Session ()-initSession = pure ()