diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-01-10 22:15:51 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-01-10 22:16:05 +0100 |
| commit | 9307ec526308f55340b95e199d6aad0850d17d04 (patch) | |
| tree | c901aeac189f833a124026653eaf0e7ed5f2a2a5 /src/Hakyll/Preview | |
| parent | 23ab06de05a2da2b9c428d333d684690a580f3ba (diff) | |
| download | hakyll-9307ec526308f55340b95e199d6aad0850d17d04.tar.gz | |
Ensure "Listening on 0.0.0.0:8000" message is not garbled
Diffstat (limited to 'src/Hakyll/Preview')
| -rw-r--r-- | src/Hakyll/Preview/Server.hs | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/src/Hakyll/Preview/Server.hs b/src/Hakyll/Preview/Server.hs index ef1c3c5..5de3d0c 100644 --- a/src/Hakyll/Preview/Server.hs +++ b/src/Hakyll/Preview/Server.hs @@ -7,11 +7,16 @@ module Hakyll.Preview.Server -------------------------------------------------------------------------------- -import Control.Monad.Trans (liftIO) +import Control.Monad.Trans (liftIO) import qualified Data.ByteString.Char8 as B -import qualified Snap.Core as Snap -import qualified Snap.Http.Server as Snap -import qualified Snap.Util.FileServe as Snap +import qualified Snap.Core as Snap +import qualified Snap.Http.Server as Snap +import qualified Snap.Util.FileServe as Snap + + +-------------------------------------------------------------------------------- +import Hakyll.Core.Logger (Logger) +import qualified Hakyll.Core.Logger as Logger -------------------------------------------------------------------------------- @@ -30,12 +35,14 @@ static directory preServe = -------------------------------------------------------------------------------- -- | Main method, runs a static server in the given directory -staticServer :: FilePath -- ^ Directory to serve +staticServer :: Logger -- ^ Logger + -> FilePath -- ^ Directory to serve -> (FilePath -> IO ()) -- ^ Pre-serve hook -> String -- ^ Host to bind on -> Int -- ^ Port to listen on -> IO () -- ^ Blocks forever -staticServer directory preServe host port = +staticServer logger directory preServe host port = do + Logger.header logger $ "Listening on http://" ++ host ++ ":" ++ show port Snap.httpServe config $ static directory preServe where -- Snap server config @@ -43,4 +50,5 @@ staticServer directory preServe host port = $ Snap.setPort port $ Snap.setAccessLog Snap.ConfigNoLog $ Snap.setErrorLog Snap.ConfigNoLog + $ Snap.setVerbose False $ Snap.emptyConfig |