Exception.hs

module Database.Bolt.Exception
    ( internalErr
    , transportErr
    , protocolErr
    , authFail
    , reqFail
    , reqIgnore
    ) where

import           Control.Exception
import           Data.Text           (Text)
import           Database.Bolt.Types

data BoltException = AuthenticationFailure Text
                   | RequestFailure Object Text
                   | RequestIgnored Object Text
                   | InternalError Text
                   | TransportError Text
                   | ProtocolError Text
    deriving (Show)

instance Exception BoltException

authFail :: Text -> IO a
authFail = throwIO . AuthenticationFailure

reqFail :: Object -> Text -> IO a
reqFail meta = throwIO . RequestFailure meta

reqIgnore :: Object -> Text -> IO a
reqIgnore meta = throwIO . RequestIgnored meta

internalErr :: Text -> IO a
internalErr = throwIO . InternalError

transportErr :: Text -> IO a
transportErr = throwIO . TransportError

protocolErr :: Text -> IO a
protocolErr = throwIO . ProtocolError