Better Accept-Encoding parsing
commitf6099f5426f5cbc8e84360239a255c4292c84c9c
authorMichael Snoyman <michael@snoyman.com>
dateTue 12 Jul 2011, 23:35 (15 years ago)
parent5d66286
Network/Wai/Middleware/Gzip.hs+1−1
@@ -64,4 +64,4 @@ splitCommas :: String -> [String]
6464splitCommas [] = []
6565splitCommas x =
6666 let (y, z) = break (== ',') x
67− in y : splitCommas (drop 1 z)
67+ in y : splitCommas (dropWhile (== ' ') $ drop 1 z)
wai-extra.cabal+1−1
@@ -1,5 +1,5 @@
11Name: wai-extra
2−Version: 0.4.0.1
2+Version: 0.4.0.2
33Synopsis: Provides some basic WAI handlers and middleware.
44Description: The goal here is to provide common features without many dependencies.
55License: BSD3