on master help sign in
warp 1.3.2 (#113)
102beaeMichael Snoyman
warp-tls/Network/Wai/Handler/WarpTLS.hs+1−1
@@ -76,7 +76,7 @@ runTLS tset set app = do
76 let conn = Connection
76 let conn = Connection
77 { connSendMany = TLS.sendData ctx . L.fromChunks
77 { connSendMany = TLS.sendData ctx . L.fromChunks
78 , connSendAll = TLS.sendData ctx . L.fromChunks . return
78 , connSendAll = TLS.sendData ctx . L.fromChunks . return
79− , connSendFile = \fp offset len _th headers -> do
79+ , connSendFile = \fp offset len _th headers _cleaner -> do
80 TLS.sendData ctx $ L.fromChunks headers
80 TLS.sendData ctx $ L.fromChunks headers
81 C.runResourceT $ sourceFileRange fp (Just offset) (Just len) C.$$ CL.mapM_ (TLS.sendData ctx . L.fromChunks . return)
81 C.runResourceT $ sourceFileRange fp (Just offset) (Just len) C.$$ CL.mapM_ (TLS.sendData ctx . L.fromChunks . return)
82 , connClose = do
82 , connClose = do
warp-tls/warp-tls.cabal+2−2
@@ -1,5 +1,5 @@
1Name: warp-tls
1Name: warp-tls
2−Version: 1.3.0.2
2+Version: 1.3.1
3Synopsis: SSL support for Warp via the TLS package
3Synopsis: SSL support for Warp via the TLS package
4License: MIT
4License: MIT
5License-file: LICENSE
5License-file: LICENSE
@@ -16,7 +16,7 @@ Library
16 Build-Depends: base >= 4 && < 5
16 Build-Depends: base >= 4 && < 5
17 , bytestring >= 0.9
17 , bytestring >= 0.9
18 , wai >= 1.3 && < 1.4
18 , wai >= 1.3 && < 1.4
19− , warp >= 1.3 && < 1.4
19+ , warp >= 1.3.2 && < 1.4
20 , transformers >= 0.2 && < 0.4
20 , transformers >= 0.2 && < 0.4
21 , conduit >= 0.5 && < 0.6
21 , conduit >= 0.5 && < 0.6
22 , network-conduit >= 0.5 && < 0.6
22 , network-conduit >= 0.5 && < 0.6