@@ -1,6 +1,5 @@
11{-# LANGUAGE OverloadedStrings #-}
22{-# LANGUAGE NamedFieldPuns #-}
3−{-# LANGUAGE BangPatterns #-}
43
54module Network.Wai.Handler.Warp.HTTP2.HPACK where
65
@@ -35,7 +34,7 @@ hpackEncodeHeader ctx ii settings rsp = do
3534 where
3635 s = responseStatus rsp
3736 h = responseHeaders rsp
38− status = B8.pack $ show $ H.statusCode $ s
37+ status = B8.pack $ show $ H.statusCode s
3938 dc = dateCacher ii
4039 rspidxhdr = indexResponseHeader h
4140 defServer = S.settingsServerName settings