|
- /**
- * @since 2.4.0
- */
- import { HKT, Kind, Kind2, Kind3, URIS, URIS2, URIS3 } from './HKT'
- import { Monad, Monad1, Monad2, Monad2C, Monad3 } from './Monad'
- import { Monoid } from './Monoid'
- /**
- * @category model
- * @since 2.4.0
- */
- export interface WriterT<M, W, A> {
- (): HKT<M, [A, W]>
- }
- /**
- * @since 2.4.0
- */
- export interface WriterM<M> {
- readonly map: <W, A, B>(fa: WriterT<M, W, A>, f: (a: A) => B) => WriterT<M, W, B>
- readonly evalWriter: <W, A>(fa: WriterT<M, W, A>) => HKT<M, A>
- readonly execWriter: <W, A>(fa: WriterT<M, W, A>) => HKT<M, W>
- readonly tell: <W>(w: W) => WriterT<M, W, void>
- readonly listen: <W, A>(fa: WriterT<M, W, A>) => WriterT<M, W, [A, W]>
- readonly pass: <W, A>(fa: WriterT<M, W, [A, (w: W) => W]>) => WriterT<M, W, A>
- readonly listens: <W, A, B>(fa: WriterT<M, W, A>, f: (w: W) => B) => WriterT<M, W, [A, B]>
- readonly censor: <W, A>(fa: WriterT<M, W, A>, f: (w: W) => W) => WriterT<M, W, A>
- readonly getMonad: <W>(M: Monoid<W>) => {
- readonly _E: W
- readonly map: <A, B>(ma: WriterT<M, W, A>, f: (a: A) => B) => WriterT<M, W, B>
- readonly of: <A>(a: A) => WriterT<M, W, A>
- readonly ap: <A, B>(mab: WriterT<M, W, (a: A) => B>, ma: WriterT<M, W, A>) => WriterT<M, W, B>
- readonly chain: <A, B>(ma: WriterT<M, W, A>, f: (a: A) => WriterT<M, W, B>) => WriterT<M, W, B>
- }
- }
- /**
- * @category model
- * @since 2.4.0
- */
- export interface WriterT1<M extends URIS, W, A> {
- (): Kind<M, [A, W]>
- }
- /**
- * @since 2.4.0
- */
- export interface WriterM1<M extends URIS> {
- readonly map: <W, A, B>(fa: WriterT1<M, W, A>, f: (a: A) => B) => WriterT1<M, W, B>
- readonly evalWriter: <W, A>(fa: WriterT1<M, W, A>) => Kind<M, A>
- readonly execWriter: <W, A>(fa: WriterT1<M, W, A>) => Kind<M, W>
- readonly tell: <W>(w: W) => WriterT1<M, W, void>
- readonly listen: <W, A>(fa: WriterT1<M, W, A>) => WriterT1<M, W, [A, W]>
- readonly pass: <W, A>(fa: WriterT1<M, W, [A, (w: W) => W]>) => WriterT1<M, W, A>
- readonly listens: <W, A, B>(fa: WriterT1<M, W, A>, f: (w: W) => B) => WriterT1<M, W, [A, B]>
- readonly censor: <W, A>(fa: WriterT1<M, W, A>, f: (w: W) => W) => WriterT1<M, W, A>
- readonly getMonad: <W>(M: Monoid<W>) => {
- readonly _E: W
- readonly map: <A, B>(ma: WriterT1<M, W, A>, f: (a: A) => B) => WriterT1<M, W, B>
- readonly of: <A>(a: A) => WriterT1<M, W, A>
- readonly ap: <A, B>(mab: WriterT1<M, W, (a: A) => B>, ma: WriterT1<M, W, A>) => WriterT1<M, W, B>
- readonly chain: <A, B>(ma: WriterT1<M, W, A>, f: (a: A) => WriterT1<M, W, B>) => WriterT1<M, W, B>
- }
- }
- /**
- * @category model
- * @since 2.4.0
- */
- export interface WriterT2<M extends URIS2, E, W, A> {
- (): Kind2<M, E, [A, W]>
- }
- /**
- * @since 2.4.0
- */
- export interface WriterM2<M extends URIS2> {
- readonly map: <E, W, A, B>(fa: WriterT2<M, E, W, A>, f: (a: A) => B) => WriterT2<M, E, W, B>
- readonly evalWriter: <E, W, A>(fa: WriterT2<M, E, W, A>) => Kind2<M, E, A>
- readonly execWriter: <E, W, A>(fa: WriterT2<M, E, W, A>) => Kind2<M, E, W>
- readonly tell: <E, W>(w: W) => WriterT2<M, E, W, void>
- readonly listen: <E, W, A>(fa: WriterT2<M, E, W, A>) => WriterT2<M, E, W, [A, W]>
- readonly pass: <E, W, A>(fa: WriterT2<M, E, W, [A, (w: W) => W]>) => WriterT2<M, E, W, A>
- readonly listens: <E, W, A, B>(fa: WriterT2<M, E, W, A>, f: (w: W) => B) => WriterT2<M, E, W, [A, B]>
- readonly censor: <E, W, A>(fa: WriterT2<M, E, W, A>, f: (w: W) => W) => WriterT2<M, E, W, A>
- readonly getMonad: <W>(M: Monoid<W>) => {
- readonly _E: W
- readonly map: <E, A, B>(ma: WriterT2<M, E, W, A>, f: (a: A) => B) => WriterT2<M, E, W, B>
- readonly of: <E, A>(a: A) => WriterT2<M, E, W, A>
- readonly ap: <E, A, B>(mab: WriterT2<M, E, W, (a: A) => B>, ma: WriterT2<M, E, W, A>) => WriterT2<M, E, W, B>
- readonly chain: <E, A, B>(ma: WriterT2<M, E, W, A>, f: (a: A) => WriterT2<M, E, W, B>) => WriterT2<M, E, W, B>
- }
- }
- /**
- * @since 2.4.0
- */
- export interface WriterM2C<M extends URIS2, E> {
- readonly map: <W, A, B>(fa: WriterT2<M, E, W, A>, f: (a: A) => B) => WriterT2<M, E, W, B>
- readonly evalWriter: <W, A>(fa: WriterT2<M, E, W, A>) => Kind2<M, E, A>
- readonly execWriter: <W, A>(fa: WriterT2<M, E, W, A>) => Kind2<M, E, W>
- readonly tell: <W>(w: W) => WriterT2<M, E, W, void>
- readonly listen: <W, A>(fa: WriterT2<M, E, W, A>) => WriterT2<M, E, W, [A, W]>
- readonly pass: <W, A>(fa: WriterT2<M, E, W, [A, (w: W) => W]>) => WriterT2<M, E, W, A>
- readonly listens: <W, A, B>(fa: WriterT2<M, E, W, A>, f: (w: W) => B) => WriterT2<M, E, W, [A, B]>
- readonly censor: <W, A>(fa: WriterT2<M, E, W, A>, f: (w: W) => W) => WriterT2<M, E, W, A>
- readonly getMonad: <W>(M: Monoid<W>) => {
- readonly _E: W
- readonly map: <A, B>(ma: WriterT2<M, E, W, A>, f: (a: A) => B) => WriterT2<M, E, W, B>
- readonly of: <A>(a: A) => WriterT2<M, E, W, A>
- readonly ap: <A, B>(mab: WriterT2<M, E, W, (a: A) => B>, ma: WriterT2<M, E, W, A>) => WriterT2<M, E, W, B>
- readonly chain: <A, B>(ma: WriterT2<M, E, W, A>, f: (a: A) => WriterT2<M, E, W, B>) => WriterT2<M, E, W, B>
- }
- }
- /**
- * @since 2.4.0
- */
- export interface WriterT3<M extends URIS3, R, E, W, A> {
- (): Kind3<M, R, E, [A, W]>
- }
- /**
- * @since 2.4.0
- */
- export interface WriterM3<M extends URIS3> {
- readonly map: <R, E, W, A, B>(fa: WriterT3<M, R, E, W, A>, f: (a: A) => B) => WriterT3<M, R, E, W, B>
- readonly evalWriter: <R, E, W, A>(fa: WriterT3<M, R, E, W, A>) => Kind3<M, R, E, A>
- readonly execWriter: <R, E, W, A>(fa: WriterT3<M, R, E, W, A>) => Kind3<M, R, E, W>
- readonly tell: <R, E, W>(w: W) => WriterT3<M, R, E, W, void>
- readonly listen: <R, E, W, A>(fa: WriterT3<M, R, E, W, A>) => WriterT3<M, R, E, W, [A, W]>
- readonly pass: <R, E, W, A>(fa: WriterT3<M, R, E, W, [A, (w: W) => W]>) => WriterT3<M, R, E, W, A>
- readonly listens: <R, E, W, A, B>(fa: WriterT3<M, R, E, W, A>, f: (w: W) => B) => WriterT3<M, R, E, W, [A, B]>
- readonly censor: <R, E, W, A>(fa: WriterT3<M, R, E, W, A>, f: (w: W) => W) => WriterT3<M, R, E, W, A>
- readonly getMonad: <W>(M: Monoid<W>) => {
- readonly _E: W
- readonly map: <R, E, A, B>(ma: WriterT3<M, R, E, W, A>, f: (a: A) => B) => WriterT3<M, R, E, W, B>
- readonly of: <R, E, A>(a: A) => WriterT3<M, R, E, W, A>
- readonly ap: <R, E, A, B>(
- mab: WriterT3<M, R, E, W, (a: A) => B>,
- ma: WriterT3<M, R, E, W, A>
- ) => WriterT3<M, R, E, W, B>
- readonly chain: <R, E, A, B>(
- ma: WriterT3<M, R, E, W, A>,
- f: (a: A) => WriterT3<M, R, E, W, B>
- ) => WriterT3<M, R, E, W, B>
- }
- }
- /**
- * @since 2.4.0
- */
- export declare function getWriterM<M extends URIS3>(M: Monad3<M>): WriterM3<M>
- export declare function getWriterM<M extends URIS2>(M: Monad2<M>): WriterM2<M>
- export declare function getWriterM<M extends URIS2, E>(M: Monad2C<M, E>): WriterM2C<M, E>
- export declare function getWriterM<M extends URIS>(M: Monad1<M>): WriterM1<M>
- export declare function getWriterM<M>(M: Monad<M>): WriterM<M>
|