@@ -19,6 +19,9 @@ import Network.Wai.Handler.Warp.Types
1919-- $setup
2020-- >>> :set -XOverloadedStrings
2121
22+strategy :: EncodeStrategy
23+strategy = EncodeStrategy { compressionAlgo = Linear, useHuffman = False }
24+
2225-- Set-Cookie: contains only one cookie value.
2326-- So, we don't need to split it.
2427hpackEncodeHeader :: Context -> Buffer -> BufSize
@@ -28,7 +31,7 @@ hpackEncodeHeader :: Context -> Buffer -> BufSize
2831hpackEncodeHeader Context{..} buf siz ii settings s hdr0 = do
2932 hdr1 <- addServerAndDate hdr0
3033 let hs = (":status", status) : map (first foldedCase) hdr1
31− encodeHeaderBuffer buf siz defaultEncodeStrategy True encodeDynamicTable hs
34+ encodeHeaderBuffer buf siz strategy True encodeDynamicTable hs
3235 where
3336 status = B8.pack $ show $ H.statusCode s
3437 dc = dateCacher ii
@@ -39,7 +42,7 @@ hpackEncodeHeader Context{..} buf siz ii settings s hdr0 = do
3942hpackEncodeHeaderLoop :: Context -> Buffer -> BufSize -> HeaderList
4043 -> IO (HeaderList, Int)
4144hpackEncodeHeaderLoop Context{..} buf siz hs =
42− encodeHeaderBuffer buf siz defaultEncodeStrategy False encodeDynamicTable hs
45+ encodeHeaderBuffer buf siz strategy False encodeDynamicTable hs
4346
4447----------------------------------------------------------------
4548