@@ -52,7 +52,7 @@ instance Default GzipSettings where
52 def = GzipSettings GzipIgnore defaultCheckMime
52 def = GzipSettings GzipIgnore defaultCheckMime
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
57-- | Use gzip to compress the body of the response.
57-- | Use gzip to compress the body of the response.