co-log-polysemy-0.0.0.0: Composable Contravariant Comonadic Logging Library

Copyright(c) 2019 Kowainik
LicenseMPL-2.0
MaintainerKowainik <xrom.xkov@gmail.com>
Safe HaskellNone
LanguageHaskell2010

Colog.Polysemy.Effect

Contents

Description

This module contains logging effect which can be interpreted in terms of LogAction from the co-log-core package.

Synopsis

Effect

data Log (msg :: Type) (m :: Type -> Type) (a :: Type) where Source #

Effect responsible for logging messages of type msg. Has similar structure to LogAction.

You can think of this effect in the following way in terms of the existing effects in polysemy:

  1. Like Output but specialised for logging.
  2. Like Trace but polymorphic over logged message.

Constructors

Log :: msg -> Log msg m () 

Actions

log Source #

Arguments

:: Member (Log msg) r 
=> msg

Message to log

-> Sem r ()

Effectful computation with no result

Log a message. If you semantic monad Sem has effect Log then you can send messages of type msg to that effect. This function can be used like this:

application :: Member (Log String) r => Sem r ()
application = do
    log "Application started..."
    log "Application finished..."

Interpretations

runLogAction :: forall m msg r a. Member (Lift m) r => LogAction m msg -> Sem (Log msg ': r) a -> Sem r a Source #

Run a Log effect in terms of the given LogAction. The idea behind this function is the following: if you have LogAction m msg then you can use this action to tell how to io interpret effect Log. However, this is only possible if you also have Lift m effect because running log action requires access to monad m.

This function allows to use extensible effects provided by the polysemy library with logging provided by co-log. You can construct LogAction independently and then just pass to this function to tell how to log messages.

Several examples:

  1. runLogAction mempty: interprets the Log effect by ignoring all messages.
  2. runLogAction logStringStdout: interprets Log effect by allowing to log String to stdout.

runLogAsTrace :: forall r a. Member Trace r => Sem (Log String ': r) a -> Sem r a Source #

Run Log as the Trace effect. This function can be useful if you have an interpreter for the Trace effect and you want to log strings using that interpreter.

runLogAsOutput :: forall msg r a. Member (Output msg) r => Sem (Log msg ': r) a -> Sem r a Source #

Run Log as the Output effect. This function can be useful if you have an interpreter for the Output effect and you want to log messages using that interpreter.

Interpretations for Other Effects

runTraceAsLog :: forall r a. Member (Log String) r => Sem (Trace ': r) a -> Sem r a Source #

Run Trace as the Log effect. This function can be useful if you have an interpreter for the Log effect and you want to log strings using that interpreter.

runOutputAsLog :: forall msg r a. Member (Log msg) r => Sem (Output msg ': r) a -> Sem r a Source #

Run Output as the Log effect. This function can be useful if you have an interpreter for the Log effect and you want to log messages using that interpreter.