wai-extra 0.4.0.1 → 0.4.0.2

raw patch · 2 files changed

+6/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Network/Wai/Middleware/Gzip.hs +5/−2
• wai-extra.cabal +1/−1

@@ -21,6 +21,7 @@ import Data.Maybe (fromMaybe) import Data.Enumerator (($$), joinI) import qualified Data.ByteString.Char8 as S8+import qualified Data.ByteString as S  -- | Use gzip to compress the body of the response. --@@ -39,12 +40,14 @@     return $         case res of             ResponseFile{} | not files -> res-            _ -> if "gzip" `elem` enc+            _ -> if "gzip" `elem` enc && not isMSIE6                     then ResponseEnumerator $ compressE $ responseEnumerator res                     else res   where     enc = fromMaybe [] $ (splitCommas . S8.unpack)                     `fmap` lookup "Accept-Encoding" (requestHeaders env)+    ua = fromMaybe "" $ lookup "user-agent" $ requestHeaders env+    isMSIE6 = "MSIE 6" `S.isInfixOf` ua  compressE :: (forall a. ResponseEnumerator a)           -> (forall a. ResponseEnumerator a)@@ -64,4 +67,4 @@ splitCommas [] = [] splitCommas x =     let (y, z) = break (== ',') x-     in y : splitCommas (drop 1 z)+     in y : splitCommas (dropWhile (== ' ') $ drop 1 z)

@@ -1,5 +1,5 @@ Name:                wai-extra-Version:             0.4.0.1+Version:             0.4.0.2 Synopsis:            Provides some basic WAI handlers and middleware. Description:         The goal here is to provide common features without many dependencies. License:             BSD3