@@ -40,11 +40,15 @@ maxTotalHeaderLength = 50 * 1024
4040
4141recvRequest :: Connection
4242 -> Timeout.Handle
43− -> SockAddr
44− -> Source IO ByteString
43+ -> SockAddr -- ^ Peer's address.
44+ -> Source IO ByteString -- ^ Where HTTP request comes from.
4545 -> IO (Request
4646 ,IndexedHeader
47− ,IO (ResumableSource IO ByteString))
47+ ,IO (ResumableSource IO ByteString)) -- ^
48+ -- 'Request' passed to 'Application',
49+ -- 'IndexedHeader' of HTTP request for internal use, and
50+ -- leftover source (i.e. HTTP pipelining).
51+
4852recvRequest conn timeoutHandle addr src0 = do
4953 (src, hdrlines) <- src0 $$+ headerLines
5054 (method, rpath, gets, httpversion, hdr) <- parseHeaderLines hdrlines