Codebase list haskell-xss-sanitize / b9b63ca
refresh patches Clint Adams 4 years ago
1 changed file(s) with 2 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
22
33 --- a/Network/HTTP/Client/Headers.hs
44 +++ b/Network/HTTP/Client/Headers.hs
5 @@ -84,13 +84,20 @@ parseStatusHeaders conn timeout' cont
5 @@ -89,14 +89,21 @@
66 if S.null line
77 then return $ front []
88 else do
2828 + else return (Just (CI.mk $! strip key, strip $! S.drop 1 bs2))
2929
3030 strip = S.dropWhile (== charSpace) . fst . S.spanEnd (== charSpace)
31