Fix 'defaultCheckCerts'.

Backported from <snoyberg/http-conduit#6>.
snoyberg · Jan 17, 2012 · 162c391 · 162c391
1 parent 2768d82
commit 162c391
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/HTTP/Enumerator.hs b/Network/HTTP/Enumerator.hs
@@ -651,7 +651,7 @@ defaultCheckCerts :: W.Ascii -> [X509] -> IO TLS.TLSCertificateUsage
 defaultCheckCerts host' certs =
     case certificateVerifyDomain (S8.unpack host') certs of
         TLS.CertificateUsageAccept -> certificateVerifyChain certs
-        _                          -> return TLS.CertificateUsageAccept
+        rejected                   -> return rejected
 
 instance Default (Request m) where
     def = Request