HORIZON HASKELLDocslts/ghc-9.10.x248f8f02026-10-05Search names, modules, packages, or :: a typeCtrl K

GHC 9.10.3 · lts/ghc-9.10.x · 248f8f0 · 2026-10-05

  • Packagepolysemy-1.9.2.0
  • Exports17
  • LanguageHaskell2010
  • LicenceBSD-3-Clause
  • SourceFinal.hs

Effect

2 declarations
newtypenewtype Final (m :: Type -> Type) (z :: Type -> Type) a where
#

An effect for embedding higher-order actions in the final target monad of the effect stack.

This is very useful for writing interpreters that interpret higher-order effects in terms of the final monad.

Final is more powerful than Embed, but is also less flexible to interpret (compare runEmbedded with finalToFinal). If you only need the power of embed, then you should use Embed instead.

Beware: Final actions are interpreted as actions of the final monad, and the effectful state visible to withWeavingToFinal / withStrategicToFinal / interpretFinal is that of all interpreters run in order to produce the final monad.

This means that any interpreter built using Final will not respect local/global state semantics based on the order of interpreters run. You should signal interpreters that make use of Final by adding a -Final suffix to the names of these.

State semantics of effects that are not interpreted in terms of the final monad will always appear local to effects that are interpreted in terms of the final monad.

State semantics between effects that are interpreted in terms of the final monad depend on the final monad. For example, if the final monad is a monad transformer stack, then state semantics will depend on the order monad transformers are stacked.

Constructors

typetype ThroughWeavingToFinal (m :: Type -> Type) (z :: Type -> Type) a = forall (f :: Type -> Type). Functor f => f () -> (forall x. f (z x) -> m (f x)) -> (forall x. f x -> Maybe x) -> m (f a)
#

This represents a function which produces an action of the final monad m given:

  • The initial effectful state at the moment the action is to be executed.

  • A way to convert z (which is typically Sem r) to m by threading the effectful state through.

  • An inspector that is able to view some value within the effectful state if the effectful state contains any values.

A Weaving provides these components, hence the name ThroughWeavingToFinal.

Actions

3 declarations
valuewithWeavingToFinal
  1. :: Member (Final m) r
  2. => ThroughWeavingToFinal m (Sem r) a
  3. -> Sem r a
#

Allows for embedding higher-order actions of the final monad by providing the means of explicitly threading effects through Sem r to the final monad.

Consider using withStrategicToFinal instead, which provides a more user-friendly interface, but is also slightly weaker.

You are discouraged from using withWeavingToFinal directly in application code, as it ties your application code directly to the final monad.

valuewithStrategicToFinal
  1. :: Member (Final m) r
  2. => Strategic m (Sem r) a
  3. -> Sem r a
#

Allows for embedding higher-order actions of the final monad by providing the means of explicitly threading effects through Sem r to the final monad. This is done through the use of the Strategic environment, which provides runS and bindS.

You are discouraged from using withStrategicToFinal in application code, as it ties your application code directly to the final monad.

Combinators for Interpreting to the Final Monad

1 declaration
valueinterpretFinal
  1. :: Member (Final m) r
  2. => (forall x (rInitial :: EffectRow). e (Sem rInitial) x -> Strategic m (Sem rInitial) x)

    A natural transformation from the handled effect to the final monad.

  3. -> Sem (e ': r) a
  4. -> Sem r a
#

Like interpretH, but may be used to interpret higher-order effects in terms of the final monad.

interpretFinal requires less boilerplate than using interpretH together with withStrategicToFinal / withWeavingToFinal, but is also less powerful. interpretFinal does not provide any means of executing actions of Sem r as you interpret each action, and the provided interpreter is automatically recursively used to process higher-order occurences of Sem (e ': r) to Sem r.

If you need greater control of how the effect is interpreted, use interpretH together with withStrategicToFinal / withWeavingToFinal instead.

Beware: Effects that aren't interpreted in terms of the final monad will have local state semantics in regards to effects interpreted using interpretFinal. See Final.

Strategy

8 declarations

Strategy is a domain-specific language very similar to Tactics (see Tactical), and is used to describe how higher-order effects are threaded down to the final monad.

Much like Tactics, computations can be run and threaded through the use of runS and bindS, and first-order constructors may use pureS. In addition, liftS may be used to lift actions of the final monad.

Unlike Tactics, the final return value within a Strategic must be a monadic value of the target monad with the functorial state wrapped inside of it.

valueliftS :: Functor m => m a -> Strategic m n a
#

Lifts an action of the final monad into Strategic.

Note: you don't need to use this function if you already have a monadic action with the functorial state threaded into it, by the use of runS or bindS. In these cases, you need only use pure to embed the action into the Strategic environment.

valuerunS :: n a -> Sem (WithStrategy m f n) (m (f a))
#

Lifts a monadic action into the stateful environment, in terms of the final monad. The stateful environment will be the same as the one that the Strategy is initially run in.

Use bindS if you'd prefer to explicitly manage your stateful environment.

valuebindS :: (a -> n b) -> Sem (WithStrategy m f n) (f a -> m (f b))
#

Embed a kleisli action into the stateful environment, in terms of the final monad. You can use bindS to get an effect parameter of the form a -> n b into something that can be used after calling runS on an effect parameter n a.

valuegetInspectorS :: Sem (WithStrategy m f n) (Inspector f)
#

Get a natural transformation capable of potentially inspecting values inside of f. Binding the result of getInspectorS produces a function that can sometimes peek inside values returned by bindS.

This is often useful for running callback functions that are not managed by polysemy code.

See also getInspectorT

Interpretations

2 declarations
valuefinalToFinal
  1. :: Member (Final m2) r
  2. => forall x. m1 x -> m2 x
  3. -> forall x. m2 x -> m1 x
  4. -> Sem (Final m1 ': r) a
  5. -> Sem r a
#

Given natural transformations between m1 and m2, run a Final m1 effect by transforming it into a Final m2 effect.

Interpretations for Other Effects

1 declaration