@@ -40,11 +40,15 @@ maxTotalHeaderLength = 50 * 1024
41recvRequest :: Connection
41recvRequest :: Connection
42 -> Timeout.Handle
42 -> Timeout.Handle
43− -> SockAddr
43+ -> SockAddr -- ^ Peer's address.
44− -> Source IO ByteString
44+ -> Source IO ByteString -- ^ Where HTTP request comes from.
45 -> IO (Request
45 -> IO (Request
46 ,IndexedHeader
46 ,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).
48recvRequest conn timeoutHandle addr src0 = do
52recvRequest conn timeoutHandle addr src0 = do
49 (src, hdrlines) <- src0 $$+ headerLines
53 (src, hdrlines) <- src0 $$+ headerLines
50 (method, rpath, gets, httpversion, hdr) <- parseHeaderLines hdrlines
54 (method, rpath, gets, httpversion, hdr) <- parseHeaderLines hdrlines