Fix 'defaultCheckCerts'.

meteficha · Jan 17, 2012 · 7c31525 · 7c31525
1 parent 2dc430a
commit 7c31525
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/HTTP/Conduit/Request.hs b/Network/HTTP/Conduit/Request.hs
@@ -165,7 +165,7 @@ defaultCheckCerts :: W.Ascii -> [X509] -> IO TLSCertificateUsage
 defaultCheckCerts host' certs =
     case certificateVerifyDomain (S8.unpack host') certs of
         CertificateUsageAccept -> certificateVerifyChain certs
-        _                          -> return CertificateUsageAccept
+        rejected               -> return rejected
 
 instance Default (Request m) where
     def = Request