diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-29 10:41:05 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-29 10:41:05 +0100 |
| commit | 5b1a675b94deef7741d2fa3f4c619ce3634bfa4d (patch) | |
| tree | 7dc418cfcfec64f831e472a23f6e83c6d99d0dab /src/Hakyll/Core/Logger.hs | |
| parent | 720c92ab1ef628c3c9545fa022ed546c60d9d72a (diff) | |
| download | hakyll-5b1a675b94deef7741d2fa3f4c619ce3634bfa4d.tar.gz | |
Draft tool to check internal links
Diffstat (limited to 'src/Hakyll/Core/Logger.hs')
| -rw-r--r-- | src/Hakyll/Core/Logger.hs | 6 |
1 files changed, 3 insertions, 3 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 |