@@ -9,6 +9,7 @@ module Hakyll.Core.Logger
99 , timed
1010 ) where
1111
12+import Control.Monad (forever)
1213import Control.Monad.Trans (MonadIO, liftIO)
1314import Control.Applicative ((<$>), (<*>))
1415import Control.Concurrent (forkIO)
@@ -33,15 +34,13 @@ makeLogger = do
3334 _ <- forkIO $ loggerThread logger
3435 return logger
3536 where
36− loggerThread logger = do
37+ loggerThread logger = forever $ do
3738 msg <- readChan $ loggerChan logger
3839 case msg of
3940 -- Stop: sync
4041 Nothing -> putMVar (loggerSync logger) ()
4142 -- Print and continue
42− Just m -> do
43− putStrLn m
44− loggerThread logger
43+ Just m -> putStrLn m
4544
4645-- | Flush the logger (blocks until flushed)
4746--