1 files changed, 4 insertions, 4 deletions
diff --git a/Foundation.hs b/Foundation.hs
index 444547b..22e5d49 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -108,10 +108,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 =
+    shouldLogIO app _source level = return $ or
-        appShouldLogAll (appSettings app)
+      [ appShouldLogAll (appSettings app)
-            || level == LevelWarn
+      , level >= LevelWarn
-            || level == LevelError
+      ]
    makeLogger = return . appLogger

diff --git a/Foundation.hs b/Foundation.hs index 444547b..22e5d49 100644 --- a/Foundation.hs +++ b/Foundation.hs
@@ -108,10 +108,10 @@ instance Yesod App where
108		108
109	-- What messages should be logged. The following includes all messages when	109	-- What messages should be logged. The following includes all messages when
110	-- in development, and warnings and errors in production.	110	-- in development, and warnings and errors in production.
111	shouldLog app _source level =	111	shouldLogIO app _source level = return $ or
112	appShouldLogAll (appSettings app)	112	[ appShouldLogAll (appSettings app)
113	\|\| level == LevelWarn	113	, level >= LevelWarn
114	\|\| level == LevelError	114	]
115		115
116	makeLogger = return . appLogger	116	makeLogger = return . appLogger
117		117