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