@@ -16,7 +16,6 @@
1616---------------------------------------------------------
1717module Network.Wai.Middleware.Gzip
1818 ( gzip
19− , gzip'
2019 , GzipSettings
2120 , gzipFiles
2221 , GzipFiles (..)
@@ -62,14 +61,8 @@ defaultCheckMime = S8.isPrefixOf "text/"
6261-- Possible future enhancements:
6362--
6463-- * Only compress if the response is above a certain size.
65−gzip :: Bool -- ^ should we gzip files?
66− -> Middleware
67−gzip files = gzip' def
68− { gzipFiles = if files then GzipCompress else GzipIgnore
69− }
70−
71−gzip' :: GzipSettings -> Middleware
72−gzip' set app env = do
64+gzip :: GzipSettings -> Middleware
65+gzip set app env = do
7366 res <- app env
7467 case res of
7568 ResponseFile{} | gzipFiles set == GzipIgnore -> return res