warp 1.3.8.3 → 1.3.8.4

raw patch · 3 files changed

+10/−3 lines, 3 files

Files

• Network/Wai/Handler/Warp/Request.hs +8/−1
• Network/Wai/Handler/Warp/Run.hs +1/−1
• warp.cabal +1/−1

@@ -32,11 +32,18 @@ maxTotalHeaderLength = 50 * 1024  parseRequest :: Connection+             -> Port -> SockAddr+             -> Source (ResourceT IO) ByteString+             -> ResourceT IO (Request, IO (ResumableSource (ResourceT IO) ByteString))+parseRequest conn = parseRequestInternal conn Timeout.dummyHandle++parseRequestInternal+             :: Connection              -> Timeout.Handle              -> Port -> SockAddr              -> Source (ResourceT IO) ByteString              -> ResourceT IO (Request, IO (ResumableSource (ResourceT IO) ByteString))-parseRequest conn timeoutHandle port remoteHost' src1 = do+parseRequestInternal conn timeoutHandle port remoteHost' src1 = do     (src2, headers') <- src1 $$+ takeHeaders     parseRequest' conn timeoutHandle port headers' remoteHost' src2 

@@ -244,7 +244,7 @@     serveConnection' = serveConnection'' $ connSource conn th      serveConnection'' fromClient = do-        (env, getSource) <- parseRequest conn timeoutHandle port remoteHost' fromClient+        (env, getSource) <- parseRequestInternal conn timeoutHandle port remoteHost' fromClient         case settingsIntercept settings env of             Nothing -> do                 -- Let the application run for as long as it wants

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