From ef1b8de969338a4747b4e0ef4df0f863652b61c7 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 15 Mar 2015 19:03:45 +0200
Subject: [PATCH] Remove unnecessary update loop

---
 Application.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/Application.hs b/Application.hs
index d1d56e6..802bfa9 100644
--- a/Application.hs
+++ b/Application.hs
@@ -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