From e516b6a4f3ff6361f657f10e938a9172d6fb3c32 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sat, 27 Dec 2014 19:27:59 +0200
Subject: [PATCH] Avoid unnecessary background thread

---
 Application.hs | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

diff --git a/Application.hs b/Application.hs
index b3dc6cd..4edd93a 100644
--- a/Application.hs
+++ b/Application.hs
@@ -28,7 +28,7 @@ import           Network.Wai.Middleware.RequestLogger
     )
 import qualified Network.Wai.Middleware.RequestLogger as RequestLogger
 import           Settings
-import           System.Log.FastLogger (newStdoutLoggerSet, newFileLoggerSet, defaultBufSize, flushLogStr, fromLogStr)
+import           System.Log.FastLogger (newStdoutLoggerSet, newFileLoggerSet, defaultBufSize, fromLogStr)
 import qualified System.Random.MWC as MWC
 import           Yesod.Core.Types (loggerSet, Logger (Logger))
 import           Yesod.Default.Config
@@ -145,18 +145,7 @@ makeFoundation useEcho conf = do
     loggerSet' <- if useEcho
                      then newFileLoggerSet defaultBufSize "/dev/null"
                      else newStdoutLoggerSet defaultBufSize
-    (getter, updater) <- clockDateCacher
-
-    -- If the Yesod logger (as opposed to the request logger middleware) is
-    -- used less than once a second on average, you may prefer to omit this
-    -- thread and use "(updater >> getter)" in place of "getter" below.  That
-    -- would update the cache every time it is used, instead of every second.
-    let updateLoop = do
-            threadDelay 1000000
-            updater
-            flushLogStr loggerSet'
-            updateLoop
-    _ <- forkIO updateLoop
+    (getter, _) <- clockDateCacher
 
     gen <- MWC.createSystemRandom
     progressMap' <- newIORef mempty