git.iko.soy/typeable/wai
on master help sign in
fixing a bug of addHeader.
a153d69Kazu Yamamoto
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+2−3
compare with master
unifiedsplit
@@ -28,9 +28,8 @@ import Network.Wai.Handler.Warp.Types
28
28
29{-# INLINE addHeader #-}
29{-# INLINE addHeader #-}
30addHeader :: Token -> ByteString -> ValueTable -> TokenHeaderList -> TokenHeaderList
30addHeader :: Token -> ByteString -> ValueTable -> TokenHeaderList -> TokenHeaderList
31−addHeader t "" tbl ths = case getHeaderValue t tbl of
31+addHeader t "" _ ths
32− Nothing -> ths
33− _ -> filter ((/= tokenServer) . fst) ths
32+ | t == tokenServer = filter ((/= tokenServer) . fst) ths
34addHeader t v tbl ths = case getHeaderValue t tbl of
33addHeader t v tbl ths = case getHeaderValue t tbl of
35 Nothing -> (t,v) : ths
34 Nothing -> (t,v) : ths
36 _ -> ths
35 _ -> ths