1-- |
2-- Module      : Network.TLS.ErrT
3-- License     : BSD-style
4-- Maintainer  : Vincent Hanquez <vincent@snarc.org>
5-- Stability   : experimental
6-- Portability : unknown
7--
8-- a simple compat ErrorT and other error stuff
9{-# LANGUAGE CPP #-}
10module Network.TLS.ErrT
11    ( runErrT
12    , ErrT
13    , Error(..)
14    , MonadError(..)
15    ) where
16
17#if MIN_VERSION_mtl(2,2,1)
18import Control.Monad.Except
19import Control.Monad.Error.Class (Error(..))
20runErrT :: ExceptT e m a -> m (Either e a)
21runErrT = runExceptT
22type ErrT = ExceptT
23#else
24import Control.Monad.Error
25runErrT :: ErrorT e m a -> m (Either e a)
26runErrT = runErrorT
27type ErrT = ErrorT
28#endif
29
30