git.iko.soy/servant
on master help sign in
Derive MonadThrow and MonadCatch for ClientM
commit49931913c9e8e72a1031ed0a003a408d73abda94 authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com> dateThu 27 Oct 2016, 22:32 (10 years ago) parent9e809a0
1 file changed+2−1
compare with master
unifiedsplit
servant-client/src/Servant/Common/Req.hs+2−1
servant-client/src/Servant/Common/Req.hs+2−1
@@ -12,7 +12,7 @@ import Prelude.Compat
1212
1313import Control.Exception
1414import Control.Monad
15−import Control.Monad.Catch (MonadThrow)
15+import Control.Monad.Catch (MonadThrow, MonadCatch)
1616
1717#if MIN_VERSION_mtl(2,2,0)
1818import Control.Monad.Except (MonadError(..))
@@ -176,6 +176,7 @@ newtype ClientM a = ClientM { runClientM' :: ReaderT ClientEnv (ExceptT ServantE
176176 deriving ( Functor, Applicative, Monad, MonadIO, Generic
177177 , MonadReader ClientEnv
178178 , MonadError ServantError
179+ , MonadThrow, MonadCatch
179180 )
180181
181182runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a)