@@ -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)