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 =
     then Right $ r ^. responseBody
     else Left $ r ^. responseBody . to extractAcmeError
   where
-    isSuccess n = n >= 200 && n <= 300
+    isSuccess n = n >= 200 && n < 300
 
 statusLine :: Response body -> String
 statusLine r =  (r ^. responseStatus . statusCode . to show) ++ " " ++ r ^. responseStatus . statusMessage . to (T.unpack . decodeUtf8)