warp 1.3.4 → 1.3.4.1

raw patch · 2 files changed

+3/−10 lines, 2 files

Files

• Network/Wai/Handler/Warp/Response.hs +2/−9
• warp.cabal +1/−1

@@ -36,11 +36,8 @@  ---------------------------------------------------------------- -sendResponse cleaner req conn (ResponseFile s hs path mpart) = do-    liftIO $ putStrLn "sendResponse1"-    x <- headerAndLength-    liftIO $ print ("sendResponse2", x)-    sendResponse' x+sendResponse cleaner req conn (ResponseFile s hs path mpart) =+    headerAndLength >>= sendResponse'   where     th = threadHandle cleaner     headerAndLength = case (readInt <$> checkLength hs, mpart) of@@ -54,14 +51,10 @@      sendResponse' (Right (lengthyHeaders, cl))       | hasBody s req = liftIO $ do-          putStrLn "hasBody"           connSendFile conn path beg end (T.tickle th) [lheader] cleaner-          putStrLn "finished connSendFile"           T.tickle th-          print ("tickled", isPersist)           return isPersist       | otherwise = liftIO $ do-          putStrLn "otherwise"           connSendAll conn $ composeHeader version s hs           T.tickle th           return isPersist -- FIXME isKeepAlive?

@@ -1,5 +1,5 @@ Name:                warp-Version:             1.3.4+Version:             1.3.4.1 Synopsis:            A fast, light-weight web server for WAI applications. License:             MIT License-file:        LICENSE