warp-static: compress files #154
commitc97151f65293a996df63c0895d4402f94b47a8fb
authorMichael Snoyman <michael@snoyman.com>
dateThu 18 Apr 2013, 09:01 (13 years ago)
parent8317e71
warp-static/warp.hs+1−1
@@ -41,7 +41,7 @@ main = do
4141 let mimeMap = Map.fromList mime' `Map.union` defaultMimeMap
4242 docroot' <- canonicalizePath docroot
4343 unless quiet $ printf "Serving directory %s on port %d with %s index files.\n" docroot' port (if noindex then "no" else show index)
44− let middle = gzip def
44+ let middle = gzip def { gzipFiles = GzipCompress }
4545 . (if verbose then logStdout else id)
4646 . autohead
4747 runSettings defaultSettings