Remove unnecessary update loop

Application.hs

@@ -145,18 +145,7 @@ makeFoundation useEcho conf = do
     loggerSet' <- if useEcho
                      then newFileLoggerSet defaultBufSize "/dev/null"
                      else newStdoutLoggerSet defaultBufSize
-    (getter, updater) <- clockDateCacher
+    (getter, _) <- 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
 
     gen <- MWC.createSystemRandom