Control.Arrow.Transformer.Writer

Arrow transformer that adds accumulation of output.

Documentation

newtype WriterArrow w a b c

An arrow type that augments an existing arrow with accumulating output. The ArrowWriter class contains the relevant operations.

Constructors

WriterArrow (a b (c, w))

Instances

(ArrowError ex a, Monoid w) => ArrowError ex (WriterArrow w a)

Methods

raise :: WriterArrow w a ex b

handle :: WriterArrow w a e b -> WriterArrow w a (e, ex) b -> WriterArrow w a e b

tryInUnless :: WriterArrow w a e b -> WriterArrow w a (e, b) c -> WriterArrow w a (e, ex) c -> WriterArrow w a e c

newError :: WriterArrow w a e b -> WriterArrow w a e (Either ex b)

(Arrow a, Monoid w) => ArrowWriter w (WriterArrow w a)

Methods

write :: WriterArrow w a w ()

newWriter :: WriterArrow w a e b -> WriterArrow w a e (b, w)

(ArrowState s a, Monoid w) => ArrowState s (WriterArrow w a)

Methods

fetch :: WriterArrow w a e s

store :: WriterArrow w a s ()

(ArrowReader r a, Monoid w) => ArrowReader r (WriterArrow w a)

Methods

readState :: WriterArrow w a b r

newReader :: WriterArrow w a e b -> WriterArrow w a (e, r) b

(Arrow a, Monoid w) => ArrowAddWriter w (WriterArrow w a) a

Methods

liftWriter :: a e b -> WriterArrow w a e b

elimWriter :: WriterArrow w a e b -> a e (b, w)

(ArrowAddError ex a a', Monoid w) => ArrowAddError ex (WriterArrow w a) (WriterArrow w a')

Methods

liftError :: WriterArrow w a' e b -> WriterArrow w a e b

elimError :: WriterArrow w a e b -> WriterArrow w a' (e, ex) b -> WriterArrow w a' e b

(ArrowAddReader r a a', Monoid w) => ArrowAddReader r (WriterArrow w a) (WriterArrow w a')

Methods

liftReader :: WriterArrow w a' e b -> WriterArrow w a e b

elimReader :: WriterArrow w a e b -> WriterArrow w a' (e, r) b

(ArrowAddState s a a', Monoid w) => ArrowAddState s (WriterArrow w a) (WriterArrow w a')

Methods

liftState :: WriterArrow w a' e b -> WriterArrow w a e b

elimState :: WriterArrow w a e b -> WriterArrow w a' (e, s) (b, s)

(Arrow a, Monoid w) => ArrowTransformer (WriterArrow w) a

Methods

lift :: a b c -> WriterArrow w a b c

(Arrow a, Monoid w) => Category * (WriterArrow w a)

Methods

id :: cat a a

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

(Arrow a, Monoid w) => Arrow (WriterArrow w a)

Methods

arr :: (b -> c) -> WriterArrow w a b c

first :: WriterArrow w a b c -> WriterArrow w a (b, d) (c, d)

second :: WriterArrow w a b c -> WriterArrow w a (d, b) (d, c)

(***) :: WriterArrow w a b c -> WriterArrow w a b' c' -> WriterArrow w a (b, b') (c, c')

(&&&) :: WriterArrow w a b c -> WriterArrow w a b c' -> WriterArrow w a b (c, c')

(ArrowZero a, Monoid w) => ArrowZero (WriterArrow w a)

Methods

zeroArrow :: WriterArrow w a b c

(ArrowPlus a, Monoid w) => ArrowPlus (WriterArrow w a)

Methods

(<+>) :: WriterArrow w a b c -> WriterArrow w a b c -> WriterArrow w a b c

(ArrowChoice a, Monoid w) => ArrowChoice (WriterArrow w a)

Methods

left :: WriterArrow w a b c -> WriterArrow w a (Either b d) (Either c d)

right :: WriterArrow w a b c -> WriterArrow w a (Either d b) (Either d c)

(+++) :: WriterArrow w a b c -> WriterArrow w a b' c' -> WriterArrow w a (Either b b') (Either c c')

(|||) :: WriterArrow w a b d -> WriterArrow w a c d -> WriterArrow w a (Either b c) d

(ArrowApply a, Monoid w) => ArrowApply (WriterArrow w a)

Methods

app :: WriterArrow w a (WriterArrow w a b c, b) c

(ArrowLoop a, Monoid w) => ArrowLoop (WriterArrow w a)

Methods

loop :: WriterArrow w a (b, d) (c, d) -> WriterArrow w a b c

(ArrowCircuit a, Monoid w) => ArrowCircuit (WriterArrow w a)

Methods

delay :: b -> WriterArrow w a b b

(Arrow a, Monoid w) => Functor (WriterArrow w a b)

Methods

fmap :: (a -> b) -> WriterArrow w a b a -> WriterArrow w a b b

(<$) :: a -> WriterArrow w a b b -> WriterArrow w a b a

(Arrow a, Monoid w) => Applicative (WriterArrow w a b)

Methods

pure :: a -> WriterArrow w a b a

(<*>) :: WriterArrow w a b (a -> b) -> WriterArrow w a b a -> WriterArrow w a b b

liftA2 :: (a -> b -> c) -> WriterArrow w a b a -> WriterArrow w a b b -> WriterArrow w a b c

(*>) :: WriterArrow w a b a -> WriterArrow w a b b -> WriterArrow w a b b

(<*) :: WriterArrow w a b a -> WriterArrow w a b b -> WriterArrow w a b a

(ArrowPlus a, Monoid w) => Alternative (WriterArrow w a b)

Methods

empty :: WriterArrow w a b a

(<|>) :: WriterArrow w a b a -> WriterArrow w a b a -> WriterArrow w a b a

some :: WriterArrow w a b a -> WriterArrow w a b [a]

many :: WriterArrow w a b a -> WriterArrow w a b [a]

(ArrowPlus a, Monoid w) => Semigroup (WriterArrow w a b c)

Methods

(<>) :: WriterArrow w a b c -> WriterArrow w a b c -> WriterArrow w a b c

sconcat :: NonEmpty (WriterArrow w a b c) -> WriterArrow w a b c

stimes :: Integral b => b -> WriterArrow w a b c -> WriterArrow w a b c

(ArrowPlus a, Monoid w) => Monoid (WriterArrow w a b c)

Methods

mempty :: WriterArrow w a b c

mappend :: WriterArrow w a b c -> WriterArrow w a b c -> WriterArrow w a b c

mconcat :: [WriterArrow w a b c] -> WriterArrow w a b c

runWriter :: (Arrow a, Monoid w) => WriterArrow w a e b -> a e (b, w)

Encapsulation of a writer computation, providing the accumulated output.

Typical usage in arrow notation:

   proc p -> do
       ...
       (result, output) <- (|runWriter cmd|)

class (ArrowWriter w a, Arrow a') => ArrowAddWriter w a a' | a -> a' where

Adding a WriterArrow to an arrow type, but not necessarily as the outer arrow transformer.

Typically a composite arrow type is built by applying a series of arrow transformer to a base arrow (usually either a function arrow or a Kleisli arrow. One can add a transformer to the top of this stack using the lift method of the ArrowTransformer class, or remove a state transformer from the top of the stack using the runWriter encapsulation operator. The methods of this class add and remove state transformers anywhere in the stack. In the instance

   instance Arrow a => ArrowAddWriter w (ArrowWriter w a) a

they are equivalent to lift and runWriter respectively. Instances are lifted through other transformers with

   instance ArrowAddWriter w a a' =>
       ArrowAddWriter w (FooArrow a) (FooArrow a')

Minimal complete definition

liftWriter, elimWriter

Methods

liftWriter :: a' e b -> a e b

Lift a computation from an arrow to one with added output.

Typical usage in arrow notation:

   proc p -> ...
       (|liftWriter cmd|)

elimWriter :: a e b -> a' e (b, w)

Elimination of an output writer from a computation, providing the accumulated output.

Typical usage in arrow notation:

   proc p -> do
       ...
       (result, output) <- (|elimWriter cmd|)

Instances

ArrowAddWriter w a a' => ArrowAddWriter w (Automaton a) (Automaton a')

Methods

liftWriter :: Automaton a' e b -> Automaton a e b

elimWriter :: Automaton a e b -> Automaton a' e (b, w)

(Arrow a, Monoid w) => ArrowAddWriter w (WriterArrow w a) a

Methods

liftWriter :: a e b -> WriterArrow w a e b

elimWriter :: WriterArrow w a e b -> a e (b, w)

(ArrowAddWriter w a a', ArrowChoice a, ArrowChoice a') => ArrowAddWriter w (ErrorArrow ex a) (ErrorArrow ex a')

Methods

liftWriter :: ErrorArrow ex a' e b -> ErrorArrow ex a e b

elimWriter :: ErrorArrow ex a e b -> ErrorArrow ex a' e (b, w)

ArrowAddWriter s a a' => ArrowAddWriter s (ReaderArrow r a) (ReaderArrow r a')

Methods

liftWriter :: ReaderArrow r a' e b -> ReaderArrow r a e b

elimWriter :: ReaderArrow r a e b -> ReaderArrow r a' e (b, s)

ArrowAddWriter w a a' => ArrowAddWriter w (StateArrow s a) (StateArrow s a')

Methods

liftWriter :: StateArrow s a' e b -> StateArrow s a e b

elimWriter :: StateArrow s a e b -> StateArrow s a' e (b, w)

(ArrowAddWriter w a a', Applicative f) => ArrowAddWriter w (StaticArrow f a) (StaticArrow f a')

Methods

liftWriter :: StaticArrow f a' e b -> StaticArrow f a e b

elimWriter :: StaticArrow f a e b -> StaticArrow f a' e (b, w)