diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs
index 77de15d4..fb4b7716 100644
--- a/servant-client/src/Servant/Common/Req.hs
+++ b/servant-client/src/Servant/Common/Req.hs
@@ -12,7 +12,7 @@ import Prelude.Compat
 
 import Control.Exception
 import Control.Monad
-import Control.Monad.Catch (MonadThrow)
+import Control.Monad.Catch (MonadThrow, MonadCatch)
 
 #if MIN_VERSION_mtl(2,2,0)
 import Control.Monad.Except (MonadError(..))
@@ -176,6 +176,7 @@ newtype ClientM a = ClientM { runClientM' :: ReaderT ClientEnv (ExceptT ServantE
                     deriving ( Functor, Applicative, Monad, MonadIO, Generic
                              , MonadReader ClientEnv
                              , MonadError ServantError
+                             , MonadThrow, MonadCatch
                              )
 
 runClientM :: ClientM a -> ClientEnv -> IO (Either ServantError a)