module OptimaForHasql.ParamGroup where import OptimaForHasql.Prelude import Optima import qualified Hasql.Pool as Pool import qualified Hasql.Connection as Connection import qualified OptimaForHasql.Param as Param {-| Parser of pool settings as a parameter group. -} poolSettings :: ParamGroup Pool.Settings poolSettings = (,,) <$> member "pool-size" Param.poolSize <*> member "pool-timeout" Param.poolTimeout <*> connectionSettings {-| Parser of connection settings as a parameter group. -} connectionSettings :: ParamGroup Connection.Settings connectionSettings = Connection.settings <$> member "host" Param.host <*> member "port" Param.port <*> member "user" Param.user <*> member "password" Param.password <*> member "database" Param.database