HaskellWorks.Polysemy.Log

Documentation

interpretDataLogNoop :: forall a r. InterpreterFor (DataLog a) r

interpretDataLogLocalNoop :: forall a r. (a -> a) -> InterpreterFor (DataLog a) r

interpretDataLogToJsonStdout :: Member (Embed IO) r => (e -> Value) -> Sem (DataLog e : r) a -> Sem r a

logEntryToJson :: (a -> Value) -> LogEntry a -> Value

logMessageToJson :: LogMessage -> Value

annotateCs :: Member GhcTime r => CallStack -> a -> Sem r (LogEntry a)

Log a datalog message with the given severity and provided callstack.

logCs :: Members [Logger, GhcTime] r => CallStack -> Severity -> Text -> Sem r ()

Log a text message with the given severity and provided callstack.