potoki-hasql-1.1: library/Potoki/Error/Hasql.hs

{-| Hasql errors interpretation -}
module Potoki.Error.Hasql
where

import           Potoki.Prelude
import           Potoki.Error.Types
import qualified Hasql.Session            as A
import qualified Hasql.Connection         as C


connectionError :: C.ConnectionError -> Error
connectionError details =
  ConnectionError (maybe "" lenientUtf8ByteStringText details)

sessionError :: A.Error -> Error
sessionError =
  \ case
    A.ClientError details ->
      ConnectionError (maybe "" lenientUtf8ByteStringText details)
    A.ResultError details ->
      InteractionError ((stringText . show) details)