snap-server 0.5.1.2 → 0.5.1.3

raw patch · 3 files changed

+5/−2 lines, 3 files

Files

• snap-server.cabal +1/−1
• test/snap-server-testsuite.cabal +2/−0
• test/suite/Test/Blackbox.hs +2/−1

@@ -1,5 +1,5 @@ name:           snap-server-version:        0.5.1.2+version:        0.5.1.3 synopsis:       A fast, iteratee-based, epoll-enabled web server for the Snap Framework description:   Snap is a simple and fast web development framework and server written in

@@ -53,6 +53,7 @@     test-framework-quickcheck2 >= 0.2.6 && < 0.3,     text >= 0.11 && <0.12,     time,+    tls >= 0.7.1 && <0.8,     transformers,     vector >= 0.7 && <0.8,     vector-algorithms >= 0.4 && <0.5,@@ -232,4 +233,5 @@     base >= 4 && < 5,     network == 2.3.*,     http-enumerator >= 0.6.5.4 && <0.7,+    tls >= 0.7.1 && <0.8,     criterion >= 0.5 && <0.6

@@ -21,6 +21,7 @@ import           Data.Monoid import qualified Network.HTTP.Enumerator as HTTP import qualified Network.Socket.ByteString as N+import           Network.TLS (TLSCertificateUsage(..)) import           Prelude hiding (catch, take) import           System.Timeout import           Test.Framework@@ -372,7 +373,7 @@ parseURL :: String -> IO (HTTP.Request IO) parseURL url = do     req <- HTTP.parseUrl url-    return $ req { HTTP.checkCerts = const $ return True }+    return $ req { HTTP.checkCerts = const $ return CertificateUsageAccept }   ------------------------------------------------------------------------------