System.Logger.Types

LogLevel

data LogLevel

Constructors

Quiet

Error

Warn

Info

Debug

Instances

Bounded LogLevel

Enum LogLevel

Eq LogLevel

Ord LogLevel

Read LogLevel

Show LogLevel

Generic LogLevel

ToJSON LogLevel

FromJSON LogLevel

NFData LogLevel

Typeable * LogLevel

type Rep LogLevel

logLevelText :: IsString a => LogLevel -> a

readLogLevel :: (MonadError e m, Eq a, Show a, FoldCase a, IsString a, IsString e, Monoid e) => a -> m LogLevel

pLogLevel :: Parser LogLevel

LogPolicy

data LogPolicy

Policy that determines how the case of a congested logging pipeline is addressed.

Constructors

LogPolicyDiscard

LogPolicyRaise

LogPolicyBlock

Instances

Bounded LogPolicy

Enum LogPolicy

Eq LogPolicy

Ord LogPolicy

Read LogPolicy

Show LogPolicy

Generic LogPolicy

ToJSON LogPolicy

FromJSON LogPolicy

Typeable * LogPolicy

type Rep LogPolicy

logPolicyText :: IsString s => LogPolicy -> s

readLogPolicy :: (MonadError e m, Eq a, Show a, FoldCase a, IsText a, IsString e, Monoid e) => a -> m LogPolicy

pLogPolicy :: Parser LogPolicy

LogLabel

type LogLabel = (Text, Text)

type LogScope = [LogLabel]

Logger Backend

data LogMessage a

The Internal log message type.

The type parameter a is expected to provide intances of Show, Typeable, and NFData.

If we need to support different backends, we may consider including the backend here...

Constructors

LogMessage

Fields

_logMsg :: !a

_logMsgLevel :: !LogLevel

_logMsgScope :: !LogScope

efficiency of this depends on whether this is shared between log messsages. Usually this should be just a pointer to a shared list.

Instances

Eq a => Eq (LogMessage a)

Ord a => Ord (LogMessage a)

Read a => Read (LogMessage a)

Show a => Show (LogMessage a)

Generic (LogMessage a)

NFData a => NFData (LogMessage a)

Typeable (* -> *) LogMessage

type Rep (LogMessage a)

logMsg :: Lens' (LogMessage a) a

logMsgLevel :: Lens' (LogMessage a) LogLevel

logMsgScope :: Lens' (LogMessage a) LogScope

type LoggerBackend a = Either (LogMessage Text) (LogMessage a) -> IO ()

This is given to logger when it is created. It formats and delivers individual log messages synchronously.

The type parameter a is expected to provide instances for Show Typeable, and NFData.

The Left values of the argument allows the generation of log messages that are independent of the parameter a. The motivation for this is reporting issues in Logging system itself, like a full logger queue or providing statistics about the fill level of the queue. There may be other uses of this, too.

TODO there may be scenarios where chunked processing is beneficial. While this can be done in a closure of this function a more direct support might be desirable.

Logger Frontend

type LogFunction a m = LogLevel -> a -> m ()

type LogFunctionIO a = LogLevel -> a -> IO ()

This function is provided by the logger.

LoggerCtx

class LoggerCtx ctx msg | ctx -> msg where

Abstraction of a logger context that can be used without dependening on a specific monadic context.

The loggerFunIO incorporates a LoggerBackend. An instance of a LoggerCtx is free to use a hard coded LoggerBackend or to be usable with different LoggerBackend functions. The latter is recommended but not required.

You don't have to provide an instance of this for your logger. Instead you may just provide an instance of MonadLog directly.

If this doesn't fit your needs you may use a newtype wrapper and define your own instances.

Minimal complete definition

loggerFunIO, setLoggerLevel, setLoggerScope, setLoggerPolicy

Methods

loggerFunIO :: (Show msg, Typeable msg, NFData msg) => ctx -> LogFunctionIO msg

setLoggerLevel :: Setter' ctx LogLevel

setLoggerScope :: Setter' ctx LogScope

setLoggerPolicy :: Setter' ctx LogPolicy

withLoggerLevel :: LogLevel -> ctx -> (ctx -> α) -> α

withLoggerLabel :: LogLabel -> ctx -> (ctx -> α) -> α

withLoggerPolicy :: LogPolicy -> ctx -> (ctx -> α) -> α

Instances

LoggerCtx (Logger a) a

data LoggerCtxT ctx m α

Instances

MonadState a m => MonadState a (LoggerCtxT ctx m)

Monad m => MonadReader ctx (LoggerCtxT ctx m)

MonadWriter a m => MonadWriter a (LoggerCtxT ctx m)

MonadError a m => MonadError a (LoggerCtxT ctx m)

MonadBase a m => MonadBase a (LoggerCtxT ctx m)

MonadBaseControl b m => MonadBaseControl b (LoggerCtxT ctx m)

(Monad m, MonadTrace t m) => MonadTrace t (LoggerCtxT ctx m)

(Show a, Typeable * a, NFData a, MonadIO m, LoggerCtx ctx a) => MonadLog a (LoggerCtxT ctx m)

MonadTrans (LoggerCtxT ctx)

MonadTransControl (LoggerCtxT ctx)

Monad m => Monad (LoggerCtxT ctx m)

Functor m => Functor (LoggerCtxT ctx m)

Applicative m => Applicative (LoggerCtxT ctx m)

MonadIO m => MonadIO (LoggerCtxT ctx m)

type StT (LoggerCtxT ctx) a = StT (ReaderT ctx) a

type StM (LoggerCtxT ctx m) a = ComposeSt (LoggerCtxT ctx) m a

runLoggerCtxT :: LoggerCtxT ctx m α -> ctx -> m α

MonadLog

class Monad m => MonadLog a m | m -> a where

Methods

logg :: LogFunction a m

withLevel :: LogLevel -> m α -> m α

withPolicy :: LogPolicy -> m α -> m α

localScope :: (LogScope -> LogScope) -> m α -> m α

Instances

(Show a, Typeable * a, NFData a, MonadIO m, LoggerCtx ctx a) => MonadLog a (LoggerCtxT ctx m)

MonadLog a m => MonadLog a (EitherT σ m)

MonadLog a m => MonadLog a (StateT σ m)

MonadLog a m => MonadLog a (ExceptT ε m)

(Monoid σ, MonadLog a m) => MonadLog a (WriterT σ m)

MonadLog a m => MonadLog a (TraceT t e m)

withLabel :: MonadLog a m => LogLabel -> m α -> m α

clearScope :: MonadLog a m => m α -> m α

popLabel :: MonadLog a m => m α -> m α