From 923b3cdd825b321954bbe7c2f8938ae683fb9dcd Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 19 Mar 2018 21:57:42 +0100 Subject: [PATCH] disable strange logging --- Foundation.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Foundation.hs b/Foundation.hs index 659308c..fe14658 100755 --- a/Foundation.hs +++ b/Foundation.hs @@ -210,10 +210,10 @@ instance Yesod App where -- What messages should be logged. The following includes all messages when -- in development, and warnings and errors in production. - shouldLog app _source level = - appShouldLogAll (appSettings app) - || level == LevelWarn - || level == LevelError + -- shouldLog app _source level = + -- appShouldLogAll (appSettings app) + -- || level == LevelWarn + -- || level == LevelError makeLogger = return . appLogger