@@ -8,7 +8,7 @@ import Network.Wai.Application.Static
8import Network.Wai.Handler.Warp
8import Network.Wai.Handler.Warp
9 ( runSettings, defaultSettings, settingsHost, settingsPort
9 ( runSettings, defaultSettings, settingsHost, settingsPort
11−import System.Console.CmdArgs
11+import System.Console.CmdArgs hiding (def)
12import Text.Printf (printf)
12import Text.Printf (printf)
13import System.Directory (canonicalizePath)
13import System.Directory (canonicalizePath)
14import Control.Monad (unless)
14import Control.Monad (unless)
@@ -42,7 +42,7 @@ main = do
42 let mimeMap = Map.fromList mime' `Map.union` defaultMimeTypes
42 let mimeMap = Map.fromList mime' `Map.union` defaultMimeTypes
43 docroot' <- canonicalizePath docroot
43 docroot' <- canonicalizePath docroot
44 unless quiet $ printf "Serving directory %s on port %d with %s index files.\n" docroot' port (if noindex then "no" else show index)
44 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
46 . (if verbose then logStdout else id)
46 . (if verbose then logStdout else id)
47 . autohead
47 . autohead
48 runSettings defaultSettings
48 runSettings defaultSettings