hasql-1.9: library/Hasql/Connection/Config.hs

module Hasql.Connection.Config where

import Hasql.Prelude

data Config = Config
  { connectionString :: ByteString,
    usePreparedStatements :: Bool
  }

class Updates a where
  update :: a -> Config -> Config

nil :: Config
nil =
  Config
    { connectionString = "",
      usePreparedStatements = True
    }

fromUpdates :: (Updates a) => [a] -> Config
fromUpdates = foldl' (flip update) nil

setConnectionString :: ByteString -> Config -> Config
setConnectionString connectionString config =
  config {connectionString}

setUsePreparedStatements :: Bool -> Config -> Config
setUsePreparedStatements usePreparedStatements config =
  config {usePreparedStatements}