@@ -24,11 +24,12 @@ staticServer :: Logger -- ^ Logger
2424 -> IO () -- ^ Blocks forever
2525staticServer logger directory host port = do
2626 Logger.header logger $ "Listening on http://" ++ host ++ ":" ++ show port
27− let settings = Warp.setLogger noLog
28− $ Warp.setHost (fromString host)
29− $ Warp.setPort port Warp.defaultSettings
30− waiApp = Static.staticApp (Static.defaultWebAppSettings directory)
31− Warp.runSettings settings waiApp
27+ Warp.runSettings warpSettings $
28+ Static.staticApp (Static.defaultFileServerSettings directory)
29+ where
30+ warpSettings = Warp.setLogger noLog
31+ $ Warp.setHost (fromString host)
32+ $ Warp.setPort port Warp.defaultSettings
3233
3334noLog :: Wai.Request -> Status -> Maybe Integer -> IO ()
3435noLog _ _ _ = return ()