From 9307ec526308f55340b95e199d6aad0850d17d04 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 10 Jan 2015 22:15:51 +0100 Subject: Ensure "Listening on 0.0.0.0:8000" message is not garbled --- src/Hakyll/Core/Runtime.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Hakyll/Core') diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index ea5f811..e85d60d 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -30,7 +30,7 @@ import Hakyll.Core.Dependencies import Hakyll.Core.Identifier import Hakyll.Core.Item import Hakyll.Core.Item.SomeItem -import Hakyll.Core.Logger (Logger, Verbosity) +import Hakyll.Core.Logger (Logger) import qualified Hakyll.Core.Logger as Logger import Hakyll.Core.Provider import Hakyll.Core.Routes @@ -42,10 +42,9 @@ import Hakyll.Core.Writable -------------------------------------------------------------------------------- -run :: Configuration -> Verbosity -> Rules a -> IO (ExitCode, RuleSet) -run config verbosity rules = do +run :: Configuration -> Logger -> Rules a -> IO (ExitCode, RuleSet) +run config logger rules = do -- Initialization - logger <- Logger.new verbosity Logger.header logger "Initialising..." Logger.message logger "Creating store..." store <- Store.new (inMemoryCache config) $ storeDirectory config -- cgit v1.2.3