Draft tool to check internal links

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