@@ -39,6 +39,8 @@ maxTotalHeaderLength = 50 * 1024
3939
4040----------------------------------------------------------------
4141
42+-- | Receiving a HTTP request from 'Connection' and parsing its header
43+-- to create 'Request'.
4244recvRequest :: Connection
4345 -> InternalInfo
4446 -> SockAddr -- ^ Peer's address.
@@ -48,7 +50,7 @@ recvRequest :: Connection
4850 ,IO (ResumableSource IO ByteString)) -- ^
4951 -- 'Request' passed to 'Application',
5052 -- 'IndexedHeader' of HTTP request for internal use, and
51− -- leftover source (i.e. HTTP pipelining).
53+ -- leftover source (i.e. body and other HTTP reqeusts in HTTP pipelining).
5254
5355recvRequest conn ii addr src0 = do
5456 (src, hdrlines) <- src0 $$+ headerLines