Remove catchServantError

Author: phadej

servant-client-core/src/Servant/Client/Core/Internal/RunClient.hs

@@ -25,12 +25,11 @@ import           Servant.Client.Core.Internal.Request (Request, Response, GenRes
                                                        ServantError (..))
 import           Servant.Client.Core.Internal.ClientF
 
-class (Monad m) => RunClient m where
+class Monad m => RunClient m where
   -- | How to make a request.
   runRequest :: Request -> m Response
   streamingRequest :: Request -> m StreamingResponse
   throwServantError :: ServantError -> m a
-  catchServantError :: m a -> (ServantError -> m a) -> m a
 
 checkContentTypeHeader :: RunClient m => Response -> m MediaType
 checkContentTypeHeader response =
@@ -56,7 +55,3 @@ instance ClientF ~ f => RunClient (Free f) where
     runRequest req  = liftF (RunRequest req id)
     streamingRequest req = liftF (StreamingRequest req id)
     throwServantError = liftF . Throw
-    catchServantError x h = go x where
-        go (Pure a)         = Pure a
-        go (Free (Throw e)) = h e
-        go (Free f)         = Free (fmap go f)

servant-client-ghcjs/src/Servant/Client/Internal/XhrClient.hs

@@ -78,7 +78,6 @@ instance Alt ClientM where
 instance RunClient ClientM where
   runRequest = performRequest
   throwServantError = throwError
-  catchServantError = catchError
 
 instance ClientLike (ClientM a) (ClientM a) where
   mkClient = id

servant-client/src/Servant/Client/Internal/HttpClient.hs

@@ -96,7 +96,6 @@ instance RunClient ClientM where
   runRequest = performRequest
   streamingRequest = performStreamingRequest
   throwServantError = throwError
-  catchServantError = catchError
 
 instance ClientLike (ClientM a) (ClientM a) where
   mkClient = id