eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Derive MonadThrow and MonadCatch for ClientM

Browse Source
This commit is contained in:
Hamish Mackenzie 2016-10-27 22:32:41 +13:00
parent 9e809a0756
commit 49931913c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
servant-client/src/Servant/Common/Req.hs
View File

@ -12,7 +12,7 @@ import Prelude.Compat
import Control.Exception import Control.Exception
import Control.Monad import Control.Monad
import Control.Monad.Catch (MonadThrow) import Control.Monad.Catch (MonadThrow, MonadCatch)
#if MIN_VERSION_mtl(2,2,0) #if MIN_VERSION_mtl(2,2,0)
import Control.Monad.Except (MonadError(..)) import Control.Monad.Except (MonadError(..))
@ -176,6 +176,7 @@ newtype ClientM a = ClientM { runClientM' :: ReaderT ClientEnv (ExceptT ServantE
deriving ( Functor, Applicative, Monad, MonadIO, Generic deriving ( Functor, Applicative, Monad, MonadIO, Generic
, MonadReader ClientEnv , MonadReader ClientEnv
, MonadError ServantError , MonadError ServantError
, MonadThrow, MonadCatch
) )
runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a) runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a)