diff options
| author | Andrew Cady <d@jerkface.net> | 2016-01-28 03:01:01 -0500 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2016-01-28 03:01:01 -0500 |
| commit | db022b8d9ce48dd099360aeea99d228bab3441f1 (patch) | |
| tree | 78cedf3c0c19a9c6b6df773c788955ce919ba829 /src | |
| parent | 0bb7b5f6884a617301c9ddb0927f5829476483b4 (diff) | |
http 300 response is not success
Diffstat (limited to 'src')
| -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) |