From db022b8d9ce48dd099360aeea99d228bab3441f1 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Thu, 28 Jan 2016 03:01:01 -0500
Subject: http 300 response is not success

---
 src/Network/ACME.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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)
-- 
cgit v1.2.3