diff --git a/yesod-core/Yesod/Core/Class/Yesod.hs b/yesod-core/Yesod/Core/Class/Yesod.hs index 5e097387..0f76fb82 100644 --- a/yesod-core/Yesod/Core/Class/Yesod.hs +++ b/yesod-core/Yesod/Core/Class/Yesod.hs @@ -322,7 +322,7 @@ defaultMessageLoggerSource ckLoggable logger loc source level msg = do loggerPutStr logger -- | Default implementation of 'shouldLog'. Logs everything at or --- above 'logLevel'. +-- above 'LevelInfo'. defaultShouldLog :: LogSource -> LogLevel -> Bool defaultShouldLog _ level = level >= LevelInfo