Fix haddock about default log level.

This commit is contained in:
Yitzchak Gale 2015-06-03 11:45:29 +03:00
parent bef07c5e12
commit 95c8d40010

View File

@ -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