Fix for cdepillabout/servant-checked-exceptions#27

cdepillabout · Jul 16, 2018 · b17fc2b · b17fc2b
1 parent 9a18565
commit b17fc2b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/servant-client/src/Servant/Client/Internal/HttpClient.hs b/servant-client/src/Servant/Client/Internal/HttpClient.hs
@@ -154,8 +154,8 @@ performRequest req = do
       let status = Client.responseStatus response
           status_code = statusCode status
           ourResponse = clientResponseToResponse response
-      unless (status_code >= 200 && status_code < 300) $
-        throwError $ FailureResponse ourResponse
+      -- unless (status_code >= 200 && status_code < 300) $
+      --   throwError $ FailureResponse ourResponse
       return ourResponse
 
 performStreamingRequest :: Request -> ClientM StreamingResponse