yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enable listings and indices in the preview server

Browse source 
Fixes #457
This commit is contained in:
Jasper Van der Jeugt 2016-07-31 15:53:50 +02:00
parent 02d7520b42
commit 98e0b03fb4
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Hakyll/Preview/Server.hs
View file

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