on master help sign in
Handle only ResponseFile with the ignore setting
commite1e536fe58b845fdeba3585dae4f000264820f41 authorMarcin Tolysz <tolysz@gmail.com> dateThu 1 Sep 2016, 15:42 (10 years ago) parent7b1d0f2
1 file changed+1−1
wai-extra/Network/Wai/Middleware/Gzip.hs+1−1
wai-extra/Network/Wai/Middleware/Gzip.hs+1−1
@@ -108,7 +108,7 @@ gzip set app env sendResponse = app env $ \res ->
108108 Just m
109109 | gzipCheckMime set m -> compressFile s hs file cache sendResponse
110110 _ -> sendResponse res
111− (_ , GzipIgnore) -> sendResponse res
111+ (ResponseFile {}, GzipIgnore) -> sendResponse res
112112 _ -> compressE set res sendResponse
113113 in runAction (res, gzipFiles set)
114114 else sendResponse res