Exceptions.hs

module Network.HTTP2.Client.Exceptions (
    ClientIO
  , ClientError(..)
  , runClientIO
  , module Control.Monad.Except
  , module Control.Monad.Trans
  ) where

import           Control.Monad.Trans (lift)
import           Control.Exception (Exception)
import           Control.Monad.Except (ExceptT, runExceptT, throwError)

type ClientIO = ExceptT ClientError IO

runClientIO :: ClientIO a -> IO (Either ClientError a)
runClientIO = runExceptT

-- | A set of errors as observed from the client.
data ClientError = EarlyEndOfStream
  -- ^ We received a TCP end-of-stream and there will be no further read-IOs possible on the connection.
  deriving (Show,Ord,Eq)
instance Exception ClientError -- For people who want to rethrow using Control.Exception