refresh patches
Clint Adams
4 years ago
2 | 2 | |
3 | 3 | --- a/Network/HTTP/Client/Headers.hs |
4 | 4 | +++ b/Network/HTTP/Client/Headers.hs |
5 | @@ -84,13 +84,20 @@ parseStatusHeaders conn timeout' cont | |
5 | @@ -89,14 +89,21 @@ | |
6 | 6 | if S.null line |
7 | 7 | then return $ front [] |
8 | 8 | else do |
28 | 28 | + else return (Just (CI.mk $! strip key, strip $! S.drop 1 bs2)) |
29 | 29 | |
30 | 30 | strip = S.dropWhile (== charSpace) . fst . S.spanEnd (== charSpace) |
31 |