disable strange logging

This commit is contained in:
nek0 2018-03-19 21:57:42 +01:00
parent c4b39076b8
commit 923b3cdd82

View file

@ -210,10 +210,10 @@ instance Yesod App where
-- What messages should be logged. The following includes all messages when -- What messages should be logged. The following includes all messages when
-- in development, and warnings and errors in production. -- in development, and warnings and errors in production.
shouldLog app _source level = -- shouldLog app _source level =
appShouldLogAll (appSettings app) -- appShouldLogAll (appSettings app)
|| level == LevelWarn -- || level == LevelWarn
|| level == LevelError -- || level == LevelError
makeLogger = return . appLogger makeLogger = return . appLogger