diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/ACME.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/ACME.hs b/src/Network/ACME.hs index e2c0996..800e418 100644 --- a/src/Network/ACME.hs +++ b/src/Network/ACME.hs | |||
@@ -214,7 +214,7 @@ checkCertResponse r = | |||
214 | then Right $ r ^. responseBody | 214 | then Right $ r ^. responseBody |
215 | else Left $ r ^. responseBody . to extractAcmeError | 215 | else Left $ r ^. responseBody . to extractAcmeError |
216 | where | 216 | where |
217 | isSuccess n = n >= 200 && n <= 300 | 217 | isSuccess n = n >= 200 && n < 300 |
218 | 218 | ||
219 | statusLine :: Response body -> String | 219 | statusLine :: Response body -> String |
220 | statusLine r = (r ^. responseStatus . statusCode . to show) ++ " " ++ r ^. responseStatus . statusMessage . to (T.unpack . decodeUtf8) | 220 | statusLine r = (r ^. responseStatus . statusCode . to show) ++ " " ++ r ^. responseStatus . statusMessage . to (T.unpack . decodeUtf8) |