on master help sign in
Check for application/json in defaultCheckMime
3cef1d5Michael Snoyman
wai-extra/Network/Wai/Middleware/Gzip.hs+1−1
@@ -52,7 +52,7 @@ instance Default GzipSettings where
52 def = GzipSettings GzipIgnore defaultCheckMime
52 def = GzipSettings GzipIgnore defaultCheckMime
53
53
54defaultCheckMime :: S.ByteString -> Bool
54defaultCheckMime :: S.ByteString -> Bool
55−defaultCheckMime = S8.isPrefixOf "text/"
55+defaultCheckMime bs = S8.isPrefixOf "text/" bs || S8.isPrefixOf "application/json" bs
56
56
57-- | Use gzip to compress the body of the response.
57-- | Use gzip to compress the body of the response.
58--
58--
wai-extra/wai-extra.cabal+1−1
@@ -1,5 +1,5 @@
1Name: wai-extra
1Name: wai-extra
2−Version: 1.3.2.4
2+Version: 1.3.3
3Synopsis: Provides some basic WAI handlers and middleware.
3Synopsis: Provides some basic WAI handlers and middleware.
4Description: The goal here is to provide common features without many dependencies.
4Description: The goal here is to provide common features without many dependencies.
5License: MIT
5License: MIT