Pandora.Paradigm.Inventory.Store

Documentation

newtype Store s a

Context based computation on value

Constructors

Store (((:*:) s :. (->) s) := a)

Instances

Category Lens

Defined in Pandora.Paradigm.Inventory.Optics

Methods

identity :: Lens a a

(.) :: Lens b c -> Lens a b -> Lens a c

($) :: Lens (Lens a b) (Lens a b)

(#) :: Lens (Lens a b) (Lens a b)

Covariant (Store s)

Defined in Pandora.Paradigm.Inventory.Store

Methods

(<$>) :: (a -> b) -> Store s a -> Store s b

comap :: (a -> b) -> Store s a -> Store s b

(<$) :: a -> Store s b -> Store s a

($>) :: Store s a -> b -> Store s b

void :: Store s a -> Store s ()

loeb :: Store s (a <:= Store s) -> Store s a

(<&>) :: Store s a -> (a -> b) -> Store s b

(<$$>) :: Covariant u => (a -> b) -> ((Store s :. u) := a) -> (Store s :. u) := b

(<$$$>) :: (Covariant u, Covariant v) => (a -> b) -> ((Store s :. (u :. v)) := a) -> (Store s :. (u :. v)) := b

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

(<&&>) :: Covariant u => ((Store s :. u) := a) -> (a -> b) -> (Store s :. u) := b

(<&&&>) :: (Covariant u, Covariant v) => ((Store s :. (u :. v)) := a) -> (a -> b) -> (Store s :. (u :. v)) := b

(<&&&&>) :: (Covariant u, Covariant v, Covariant w) => ((Store s :. (u :. (v :. w))) := a) -> (a -> b) -> (Store s :. (u :. (v :. w))) := b

(.#..) :: (Store s ~ v a, Category v) => v c d -> ((v a :. v b) := c) -> (v a :. v b) := d

(.#...) :: (Store s ~ v a, Store s ~ v b, Category v, Covariant (v a), Covariant (v b)) => v d e -> ((v a :. (v b :. v c)) := d) -> (v a :. (v b :. v c)) := e

(.#....) :: (Store s ~ v a, Store s ~ v b, Store s ~ v c, Category v, Covariant (v a), Covariant (v b), Covariant (v c)) => v e f -> ((v a :. (v b :. (v c :. v d))) := e) -> (v a :. (v b :. (v c :. v d))) := f

(<$$) :: Covariant u => b -> ((Store s :. u) := a) -> (Store s :. u) := b

(<$$$) :: (Covariant u, Covariant v) => b -> ((Store s :. (u :. v)) := a) -> (Store s :. (u :. v)) := b

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

($$>) :: Covariant u => ((Store s :. u) := a) -> b -> (Store s :. u) := b

($$$>) :: (Covariant u, Covariant v) => ((Store s :. (u :. v)) := a) -> b -> (Store s :. (u :. v)) := b

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

Extendable (Store s)

Defined in Pandora.Paradigm.Inventory.Store

Methods

(=>>) :: Store s a -> (Store s a -> b) -> Store s b

(<<=) :: (Store s a -> b) -> Store s a -> Store s b

extend :: (Store s a -> b) -> Store s a -> Store s b

duplicate :: Store s a -> (Store s :. Store s) := a

(=<=) :: (Store s b -> c) -> (Store s a -> b) -> Store s a -> c

(=>=) :: (Store s a -> b) -> (Store s b -> c) -> Store s a -> c

($=>>) :: Covariant u => ((u :. Store s) := a) -> (Store s a -> b) -> (u :. Store s) := b

(<<=$) :: Covariant u => ((u :. Store s) := a) -> (Store s a -> b) -> (u :. Store s) := b

Extractable (Store s)

Defined in Pandora.Paradigm.Inventory.Store

Methods

extract :: a <:= Store s

Comonad (Store s)

Defined in Pandora.Paradigm.Inventory.Store

Interpreted (Store s)

Defined in Pandora.Paradigm.Inventory.Store

Associated Types

type Primary (Store s) a

Methods

run :: Store s a -> Primary (Store s) a

unite :: Primary (Store s) a -> Store s a

(||=) :: Interpreted u => (Primary (Store s) a -> Primary u b) -> Store s a -> u b

(=||) :: Interpreted u => (Store s a -> u b) -> Primary (Store s) a -> Primary u b

(<$||=) :: (Covariant j, Interpreted u) => (Primary (Store s) a -> Primary u b) -> (j := Store s a) -> j := u b

(<$$||=) :: (Covariant j, Covariant k, Interpreted u) => (Primary (Store s) a -> Primary u b) -> ((j :. k) := Store s a) -> (j :. k) := u b

(<$$$||=) :: (Covariant j, Covariant k, Covariant l, Interpreted u) => (Primary (Store s) a -> Primary u b) -> ((j :. (k :. l)) := Store s a) -> (j :. (k :. l)) := u b

(<$$$$||=) :: (Covariant j, Covariant k, Covariant l, Covariant m, Interpreted u) => (Primary (Store s) a -> Primary u b) -> ((j :. (k :. (l :. m))) := Store s a) -> (j :. (k :. (l :. m))) := u b

(=||$>) :: (Covariant j, Interpreted u) => (Store s a -> u b) -> (j := Primary (Store s) a) -> j := Primary u b

(=||$$>) :: (Covariant j, Covariant k, Interpreted u) => (Store s a -> u b) -> ((j :. k) := Primary (Store s) a) -> (j :. k) := Primary u b

(=||$$$>) :: (Covariant j, Covariant k, Covariant l, Interpreted u) => (Store s a -> u b) -> ((j :. (k :. l)) := Primary (Store s) a) -> (j :. (k :. l)) := Primary u b

(=||$$$$>) :: (Covariant j, Covariant k, Covariant l, Covariant m, Interpreted u) => (Store s a -> u b) -> ((j :. (k :. (l :. m))) := Primary (Store s) a) -> (j :. (k :. (l :. m))) := Primary u b

Comonadic (Store s)

Defined in Pandora.Paradigm.Inventory.Store

Methods

bring :: forall (u :: Type -> Type). Extractable u => (Store s :< u) ~> Store s

Adjoint (Store s) (State s)

Defined in Pandora.Paradigm.Inventory

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

type Schematic Comonad (Store s)

Defined in Pandora.Paradigm.Inventory.Store

type Schematic Comonad (Store s) = (:*:) s <:<.>:> ((->) s :: Type -> Type)

type Primary (Store s) a

Defined in Pandora.Paradigm.Inventory.Store

type Primary (Store s) a = ((:*:) s :. ((->) s :: Type -> Type)) := a

type Storable s x = Adaptable x (Store s)

position :: Storable s t => t a -> s

Get current index

look :: Storable s t => s -> a <:= t

Given an index return value

retrofit :: (s -> s) -> Store s ~> Store s

Change index with function