From 7999af1bf110d69e801adff12bdcc4c70f7c4bd2 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 23 Oct 2014 21:19:22 +0300
Subject: [PATCH] Turn down verbosity

---
 Foundation.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Foundation.hs b/Foundation.hs
index 67f2865..9746a8d 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -139,6 +139,7 @@ instance Yesod App where
 
     -- What messages should be logged. The following includes all messages when
     -- in development, and warnings and errors in production.
+    shouldLog _ "CLEANUP" _ = False
     shouldLog _ source level =
         development || level == LevelWarn || level == LevelError || source == "CLEANUP"