Fix for warp-tls
commit8a52ce5c2785b30a02c16bf4e046a52e43bbdcbb
authorMichael Snoyman <michael@snoyman.com>
dateWed 9 Oct 2013, 13:59 (13 years ago)
parent6856da8
warp-tls/Network/Wai/Handler/WarpTLS.hs+3−3
@@ -150,11 +150,11 @@ runTLSSocket TLSSettings {..} set sock app = do
150150 return conn
151151 else
152152 case onInsecure of
153− AllowInsecure ->
154− let conn = (socketConnection s)
153+ AllowInsecure -> do
154+ conn' <- socketConnection s
155+ return conn'
155156 { connRecv = getNext $ fmap (fromMaybe B.empty) C.await
156157 }
157− in return conn
158158 DenyInsecure lbs -> do
159159 let src = do
160160 C.yield "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\n\r\n"