hasql-pool-1.4: src/library/other/Hasql/Pool/SessionErrorDestructors.hs

module Hasql.Pool.SessionErrorDestructors where

import Hasql.Errors qualified as Errors
import Hasql.Pool.Prelude

reset :: (Text -> x) -> x -> Errors.SessionError -> x
reset onReset onNoReset = \case
  Errors.ConnectionSessionError details -> onReset details
  _ -> onNoReset