From 678f18973f48975712649c8e209199f5c86c0e73 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 21 Feb 2011 10:56:04 +0100
Subject: Quit/Sync bug fix

---
 src/Hakyll/Core/Logger.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Hakyll/Core/Logger.hs b/src/Hakyll/Core/Logger.hs
index c5b8531..8f5a4f9 100644
--- a/src/Hakyll/Core/Logger.hs
+++ b/src/Hakyll/Core/Logger.hs
@@ -9,6 +9,7 @@ module Hakyll.Core.Logger
     , timed
     ) where
 
+import Control.Monad (forever)
 import Control.Monad.Trans (MonadIO, liftIO)
 import Control.Applicative ((<$>), (<*>))
 import Control.Concurrent (forkIO)
@@ -33,15 +34,13 @@ makeLogger = do
     _ <- forkIO $ loggerThread logger
     return logger
   where
-    loggerThread logger = do
+    loggerThread logger = forever $ do
         msg <- readChan $ loggerChan logger
         case msg of
             -- Stop: sync
             Nothing -> putMVar (loggerSync logger) ()
             -- Print and continue
-            Just m  -> do
-                putStrLn m
-                loggerThread logger
+            Just m  -> putStrLn m
 
 -- | Flush the logger (blocks until flushed)
 --
-- 
cgit v1.2.3