warp-tls 1.4.1.1 → 1.4.1.2

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/Wai/Handler/WarpTLS.hs +3/−3
• warp-tls.cabal +1/−1

@@ -93,7 +93,6 @@ runTLSSocket TLSSettings {..} set sock app = do     certs   <- readCertificates certFile     pk      <- readPrivateKey keyFile-    gen     <- getSystemRandomGen     let params =             TLS.updateServerParams                 (\sp -> sp { TLS.serverWantClientCert = False }) $@@ -103,9 +102,9 @@             , TLS.pCertificates    = zip certs $ (Just pk):repeat Nothing             , TLS.pLogging         = tlsLogging             }-    runSettingsConnectionMaker set (getter gen params) app+    runSettingsConnectionMaker set (getter params) app   where-    getter gen params = do+    getter params = do         (s, sa) <- acceptSafe sock         let mkConn = do             (fromClient, firstBS) <- sourceSocket s C.$$+ CL.peek@@ -118,6 +117,7 @@                     return bs             if maybe False ((== 0x16) . fst) (firstBS >>= B.uncons)                 then do+                    gen <- getSystemRandomGen                     ctx <- TLS.contextNew                         TLS.Backend                             { TLS.backendFlush = return ()

@@ -1,5 +1,5 @@ Name:                warp-tls-Version:             1.4.1.1+Version:             1.4.1.2 Synopsis:            HTTP over SSL/TLS support for Warp via the TLS package License:             MIT License-file:        LICENSE