module System.Logging.Facade (
log
, trace
, debug
, info
, warn
, error
, Logging
, LogLevel(..)
) where
import Prelude hiding (log, error)
import System.Logging.Facade.Types
import System.Logging.Facade.Class
log :: Logging m => LogLevel -> String -> m ()
log level message = consumeLogRecord (LogRecord level Nothing message)
trace :: Logging m => String -> m ()
trace = log TRACE
debug :: Logging m => String -> m ()
debug = log DEBUG
info :: Logging m => String -> m ()
info = log INFO
warn :: Logging m => String -> m ()
warn = log WARN
error :: Logging m => String -> m ()
error = log ERROR