From 1fa6c8776425a88a01ff895d6d9f42002e9ad4dc Mon Sep 17 00:00:00 2001 From: Dhruvin Gandhi Date: Sun, 18 Oct 2020 09:01:11 +0530 Subject: [PATCH] Fix a typo Fixes #101 --- Network/HTTP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Network/HTTP.hs b/Network/HTTP.hs index 1ab6dd2..ef0d623 100644 --- a/Network/HTTP.hs +++ b/Network/HTTP.hs @@ -205,7 +205,7 @@ getResponseBody :: Result (Response ty) -> IO ty getResponseBody (Left err) = fail (show err) getResponseBody (Right r) = return (rspBody r) --- | @getResponseBody response@ takes the response of a HTTP requesting action and +-- | @getResponseCode response@ takes the response of a HTTP requesting action and -- tries to extricate the status code of the 'Response' @response@. If the request action -- returned an error, an IO exception is raised. getResponseCode :: Result (Response ty) -> IO ResponseCode