Fix defaultCheckCerts

mike-burns · Jan 17, 2012 · 51ce7af · 51ce7af
1 parent f911d68
commit 51ce7af
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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

diff --git a/http-conduit.cabal b/http-conduit.cabal
@@ -1,5 +1,5 @@
 name:            http-conduit
-version:         1.1.2.1
+version:         1.1.2.2
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>