diff options
Diffstat (limited to 'src/Hakyll/Core')
-rw-r--r-- | src/Hakyll/Core/Logger.hs | 6 | ||||
-rw-r--r-- | src/Hakyll/Core/Runtime.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Hakyll/Core/Logger.hs b/src/Hakyll/Core/Logger.hs index 17bff32..4731c20 100644 --- a/src/Hakyll/Core/Logger.hs +++ b/src/Hakyll/Core/Logger.hs @@ -42,10 +42,10 @@ data Logger = Logger -------------------------------------------------------------------------------- -- | Create a new logger -new :: Verbosity -> (String -> IO ()) -> IO Logger -new vbty sink = do +new :: Verbosity -> IO Logger +new vbty = do logger <- Logger <$> - newChan <*> newEmptyMVar <*> pure sink <*> pure vbty + newChan <*> newEmptyMVar <*> pure putStrLn <*> pure vbty _ <- forkIO $ loggerThread logger return logger where diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index 2943942..eaa7039 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -43,7 +43,7 @@ import Hakyll.Core.Writable run :: Configuration -> Rules a -> IO RuleSet run config rules = do -- Initialization - logger <- Logger.new (verbosity config) putStrLn + logger <- Logger.new (verbosity config) Logger.header logger "Initialising..." Logger.message logger "Creating store..." store <- Store.new (inMemoryCache config) $ storeDirectory config |