@@ -8,7 +8,7 @@ import Network.Wai.Application.Static
88import Network.Wai.Handler.Warp
99 ( runSettings, defaultSettings, settingsHost, settingsPort
1010 )
11−import System.Console.CmdArgs
11+import System.Console.CmdArgs hiding (def)
1212import Text.Printf (printf)
1313import System.Directory (canonicalizePath)
1414import Control.Monad (unless)
@@ -42,7 +42,7 @@ main = do
4242 let mimeMap = Map.fromList mime' `Map.union` defaultMimeTypes
4343 docroot' <- canonicalizePath docroot
4444 unless quiet $ printf "Serving directory %s on port %d with %s index files.\n" docroot' port (if noindex then "no" else show index)
45− let middle = gzip False
45+ let middle = gzip def
4646 . (if verbose then logStdout else id)
4747 . autohead
4848 runSettings defaultSettings