optima-for-hasql-0.2: library/OptimaForHasql/Param.hs

module OptimaForHasql.Param where

import qualified Data.Text.Encoding as Text
import Optima
import OptimaForHasql.Prelude

-- |
-- Amount of connections in the pool.
poolSize :: Param Int
poolSize =
  value
    "Amount of connections in the pool"
    (showable 1)
    unformatted
    implicitlyParsed

-- |
-- How long it takes until the attempt to connect is considered timed out.
-- In microseconds.
poolAcquisitionTimeout :: Param (Maybe Int)
poolAcquisitionTimeout =
  value
    "How long it takes until the attempt to connect is considered timed out"
    (showable (Just 10))
    unformatted
    (optional (fmap (round . (*) 1000000 . realToFrac @DiffTime @Rational) implicitlyParsed))

-- |
-- Server host.
host :: Param ByteString
host =
  fmap Text.encodeUtf8 $
    value
      "Server host"
      (explicitlyRepresented id "127.0.0.1")
      unformatted
      implicitlyParsed

-- |
-- Server port.
port :: Param Word16
port =
  value
    "Server port"
    (showable 5432)
    unformatted
    implicitlyParsed

-- |
-- Username.
user :: Param ByteString
user =
  fmap Text.encodeUtf8 $
    value
      "Username"
      (explicitlyRepresented id "postgres")
      unformatted
      implicitlyParsed

-- |
-- Password.
password :: Param ByteString
password =
  fmap Text.encodeUtf8 $
    value
      "Password"
      (explicitlyRepresented id "")
      unformatted
      implicitlyParsed

-- |
-- Database name.
database :: Param ByteString
database =
  fmap Text.encodeUtf8 $
    value
      "Database name"
      (explicitlyRepresented id "postgres")
      unformatted
      implicitlyParsed