1open Wonka_types; 2 3let onPush = f => curry(source => curry(sink => { 4 source((.signal) => { 5 switch (signal) { 6 | Push(x) => f(.x) 7 | _ => () 8 }; 9 10 sink(.signal); 11 }); 12})); 13 14let tap = onPush;
kitten.sh