Effectful.Writer.Static.Shared

Support for access to a write only value of a particular type.

The value is shared between multiple threads. If you want each thead to manage its own version of the value, use Effectful.Writer.Static.Local.

Warning: Writer's state will be accumulated via left-associated uses of <>, which makes it unsuitable for use with types for which such pattern is inefficient. This applies, in particular, to the standard list type, which makes the Writer effect pretty niche.

Note: while the Writer from the transformers package includes additional operations pass and censor, they don't cooperate with runtime exceptions very well, so they're deliberately omitted here.

Effect

data Writer (w :: Type) :: Effect

Provide access to a strict (WHNF), shared, write only value of type w.

Instances

type DispatchOf (Writer w)

Defined in Effectful.Writer.Static.Shared

type DispatchOf (Writer w) = 'Static 'NoSideEffects

newtype StaticRep (Writer w)

Defined in Effectful.Writer.Static.Shared

newtype StaticRep (Writer w) = Writer (MVar' w)

Handlers

runWriter :: (HasCallStack, Monoid w) => Eff (Writer w : es) a -> Eff es (a, w)

Run a Writer effect and return the final value along with the final output.

execWriter :: (HasCallStack, Monoid w) => Eff (Writer w : es) a -> Eff es w

Run a Writer effect and return the final output, discarding the final value.

Operations

tell :: (HasCallStack, Writer w :> es, Monoid w) => w -> Eff es ()

Append the given output to the overall output of the Writer.

listen :: (HasCallStack, Writer w :> es, Monoid w) => Eff es a -> Eff es (a, w)

Execute an action and append its output to the overall output of the Writer.

Note: if an exception is received while the action is executed, the partial output of the action will still be appended to the overall output of the Writer:

>>> :{
  runEff . execWriter @String $ do
    tell "Hi"
    handle (\(_::ErrorCall) -> pure ((), "")) $ do
      tell " there"
      listen $ do
        tell "!"
        error "oops"
:}
"Hi there!"

listens :: (HasCallStack, Writer w :> es, Monoid w) => (w -> b) -> Eff es a -> Eff es (a, b)

Execute an action and append its output to the overall output of the Writer, then return the final value along with a function of the recorded output.

listens f m ≡ second f <$> listen m