Pandora.Paradigm.Inventory

Documentation

module Pandora.Paradigm.Inventory.Accumulator

module Pandora.Paradigm.Inventory.Environment

module Pandora.Paradigm.Inventory.Equipment

module Pandora.Paradigm.Inventory.Imprint

module Pandora.Paradigm.Inventory.State

module Pandora.Paradigm.Inventory.Store

module Pandora.Paradigm.Inventory.Optics

zoom :: Stateful bg t => Lens bg ls -> State ls ~> t

magnify :: forall bg ls t. (Accessible ls bg, Stateful bg t) => t ls

(=<>) :: Stateful src t => (src :-. tgt) -> tgt -> t ()

(~<>) :: Stateful src t => (src :-. tgt) -> (tgt -> tgt) -> t ()

adjust :: forall bg ls t. (Accessible ls bg, Stateful bg t) => (ls -> ls) -> t ()

Orphan instances

Adjoint (Store s) (State s)

Methods

(-|) :: a -> (Store s a -> b) -> State s b

(|-) :: Store s a -> (a -> State s b) -> b

phi :: (Store s a -> b) -> a -> State s b

psi :: (a -> State s b) -> Store s a -> b

eta :: a -> (State s :. Store s) := a

epsilon :: ((Store s :. State s) := a) -> a

(-|$) :: Covariant v => v a -> (Store s a -> b) -> v (State s b)

($|-) :: Covariant v => v (Store s a) -> (a -> State s b) -> v b

($$|-) :: (Covariant v, Covariant w) => ((v :. (w :. Store s)) := a) -> (a -> State s b) -> (v :. w) := b

($$$|-) :: (Covariant v, Covariant w, Covariant x) => ((v :. (w :. (x :. Store s))) := a) -> (a -> State s b) -> (v :. (w :. x)) := b

($$$$|-) :: (Covariant v, Covariant w, Covariant x, Covariant y) => ((v :. (w :. (x :. (y :. Store s)))) := a) -> (a -> State s b) -> (v :. (w :. (x :. y))) := b

Adjoint (Equipment e) (Environment e)

Methods

(-|) :: a -> (Equipment e a -> b) -> Environment e b

(|-) :: Equipment e a -> (a -> Environment e b) -> b

phi :: (Equipment e a -> b) -> a -> Environment e b

psi :: (a -> Environment e b) -> Equipment e a -> b

eta :: a -> (Environment e :. Equipment e) := a

epsilon :: ((Equipment e :. Environment e) := a) -> a

(-|$) :: Covariant v => v a -> (Equipment e a -> b) -> v (Environment e b)

($|-) :: Covariant v => v (Equipment e a) -> (a -> Environment e b) -> v b

($$|-) :: (Covariant v, Covariant w) => ((v :. (w :. Equipment e)) := a) -> (a -> Environment e b) -> (v :. w) := b

($$$|-) :: (Covariant v, Covariant w, Covariant x) => ((v :. (w :. (x :. Equipment e))) := a) -> (a -> Environment e b) -> (v :. (w :. x)) := b

($$$$|-) :: (Covariant v, Covariant w, Covariant x, Covariant y) => ((v :. (w :. (x :. (y :. Equipment e)))) := a) -> (a -> Environment e b) -> (v :. (w :. (x :. y))) := b

Adjoint (Accumulator e) (Imprint e)

Methods

(-|) :: a -> (Accumulator e a -> b) -> Imprint e b

(|-) :: Accumulator e a -> (a -> Imprint e b) -> b

phi :: (Accumulator e a -> b) -> a -> Imprint e b

psi :: (a -> Imprint e b) -> Accumulator e a -> b

eta :: a -> (Imprint e :. Accumulator e) := a

epsilon :: ((Accumulator e :. Imprint e) := a) -> a

(-|$) :: Covariant v => v a -> (Accumulator e a -> b) -> v (Imprint e b)

($|-) :: Covariant v => v (Accumulator e a) -> (a -> Imprint e b) -> v b

($$|-) :: (Covariant v, Covariant w) => ((v :. (w :. Accumulator e)) := a) -> (a -> Imprint e b) -> (v :. w) := b

($$$|-) :: (Covariant v, Covariant w, Covariant x) => ((v :. (w :. (x :. Accumulator e))) := a) -> (a -> Imprint e b) -> (v :. (w :. x)) := b

($$$$|-) :: (Covariant v, Covariant w, Covariant x, Covariant y) => ((v :. (w :. (x :. (y :. Accumulator e)))) := a) -> (a -> Imprint e b) -> (v :. (w :. (x :. y))) := b