commit ee093233961435f2a233ff87f709890427681ad3 · kitten.sh/wonka

+7

src/operators/wonka_operator_tapAll.d.ts

···

       1
       +
       import { Operator } from '../wonka_types';

     

       2
       +
       

     

       3
       +
       export const tapAll: <A>(

     

       4
       +
         onStart: () => void,

     

       5
       +
         onPush: (value: A) => void,

     

       6
       +
         onEnd: () => void

     

       7
       +
       ) => Operator<A, A>;

+15

src/operators/wonka_operator_tapAll.re

···

       1
       +
       open Wonka_types;

     

       2
       +
       

     

       3
       +
       let tapAll = (~onStart, ~onPush, ~onEnd) => {

     

       4
       +
         curry(source => curry(sink => {

     

       5
       +
           source((.signal) => {

     

       6
       +
             switch (signal) {

     

       7
       +
             | Start(_) => onStart(.)

     

       8
       +
             | Push(x) => onPush(.x)

     

       9
       +
             | End => onEnd(.)

     

       10
       +
             };

     

       11
       +
       

     

       12
       +
             sink(.signal);

     

       13
       +
           });

     

       14
       +
         }));

     

       15
       +
       };

+9

src/operators/wonka_operator_tapAll.rei

···

       1
       +
       open Wonka_types;

     

       2
       +
       

     

       3
       +
       let tapAll: (

     

       4
       +
         ~onStart: (.unit) => unit,

     

       5
       +
         ~onPush: (.'a) => unit,

     

       6
       +
         ~onEnd: (.unit) => unit,

     

       7
       +
         sourceT('a),

     

       8
       +
         sinkT('a)

     

       9
       +
       ) => unit;

+1

src/wonka.d.ts

···

       23
        
       export * from './operators/wonka_operator_takeUntil';

     

       24
        
       export * from './operators/wonka_operator_takeWhile';

     

       25
        
       export * from './operators/wonka_operator_tap';

     

       0
        
       
     

       26
        
       

     

       27
        
       /* sinks */

     

       28
        
       export * from './sinks/wonka_sink_publish';

···

       23
        
       export * from './operators/wonka_operator_takeUntil';

     

       24
        
       export * from './operators/wonka_operator_takeWhile';

     

       25
        
       export * from './operators/wonka_operator_tap';

     

       26
       +
       export * from './operators/wonka_operator_tapAll';

     

       27
        
       

     

       28
        
       /* sinks */

     

       29
        
       export * from './sinks/wonka_sink_publish';

+1

src/wonka.ml

···

       25
        
       include Wonka_operator_takeUntil

     

       26
        
       include Wonka_operator_takeWhile

     

       27
        
       include Wonka_operator_tap

     

       0
        
       
     

       28
        
       

     

       29
        
       (* sinks *)

     

       30
        
       include Wonka_sink_publish

···

       25
        
       include Wonka_operator_takeUntil

     

       26
        
       include Wonka_operator_takeWhile

     

       27
        
       include Wonka_operator_tap

     

       28
       +
       include Wonka_operator_tapAll

     

       29
        
       

     

       30
        
       (* sinks *)

     

       31
        
       include Wonka_sink_publish