hasql-pool-1.3.0.4: src/integration-tests/Helpers/Hooks.hs

-- | Hooks for Hspec.
module Helpers.Hooks where

import Data.Bool
import TestcontainersPostgresql qualified
import Prelude hiding (Handler)

-- | Testing action in the scope of the host name and port of a running fresh isolated postgres server.
type Handler = (Text, Word16) -> IO ()

postgres17 :: Handler -> IO ()
postgres17 handler =
  TestcontainersPostgresql.run
    TestcontainersPostgresql.Config
      { forwardLogs = False,
        distro = TestcontainersPostgresql.Distro17,
        auth = TestcontainersPostgresql.TrustAuth
      }
    (\(host, portInt) -> handler (host, fromIntegral portInt))