@@ -25,12 +25,11 @@ import Servant.Client.Core.Internal.Request (Request, Response, GenRes
2525 ServantError (..))
2626import Servant.Client.Core.Internal.ClientF
2727
28−class (Monad m) => RunClient m where
28+class Monad m => RunClient m where
2929 -- | How to make a request.
3030 runRequest :: Request -> m Response
3131 streamingRequest :: Request -> m StreamingResponse
3232 throwServantError :: ServantError -> m a
33− catchServantError :: m a -> (ServantError -> m a) -> m a
3433
3534checkContentTypeHeader :: RunClient m => Response -> m MediaType
3635checkContentTypeHeader response =
@@ -56,7 +55,3 @@ instance ClientF ~ f => RunClient (Free f) where
5655 runRequest req = liftF (RunRequest req id)
5756 streamingRequest req = liftF (StreamingRequest req id)
5857 throwServantError = liftF . Throw
59− catchServantError x h = go x where
60− go (Pure a) = Pure a
61− go (Free (Throw e)) = h e
62− go (Free f) = Free (fmap go f)