on master help sign in
Rename hpackEncodeTrailers to hpackEncodeCIHeaders
commitb755445614ce70c1e17c2721f6bf7728c7dc72ae authorAndrew Pritchard <awpr@google.com> dateMon 3 Aug 2015, 13:37 (11 years ago) parent787da16
2 files changed+3−3
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+2−2 warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+1−1
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+2−2
@@ -33,8 +33,8 @@ hpackEncodeHeader ctx ii settings s h = do
3333 defServer = S.settingsServerName settings
3434 addServerAndDate = addDate dc rspidxhdr . addServer defServer rspidxhdr
3535
36−hpackEncodeTrailers :: Context -> Trailers -> IO Builder
37−hpackEncodeTrailers ctx = hpackEncodeRawHeaders ctx . map (first foldedCase)
36+hpackEncodeCIHeaders :: Context -> [H.Header] -> IO Builder
37+hpackEncodeCIHeaders ctx = hpackEncodeRawHeaders ctx . map (first foldedCase)
3838
3939hpackEncodeRawHeaders :: Context -> [(B.ByteString, B.ByteString)] -> IO Builder
4040hpackEncodeRawHeaders Context{encodeDynamicTable} hdr = do
warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+1−1
@@ -120,7 +120,7 @@ frameSender ctx@Context{outputQ,connectionWindow}
120120 switch (OTrailers strm trailers) = do
121121 -- Trailers always indicate the end of a stream; send them in
122122 -- consecutive header+continuation frames and end the stream.
123− builder <- hpackEncodeTrailers ctx trailers
123+ builder <- hpackEncodeCIHeaders ctx trailers
124124 off <- headerContinue (streamNumber strm) builder True
125125 closed ctx strm Finished
126126 flushN $ off + frameHeaderLength