package rock

  1. Overview
  2. Docs

Source file filter.ml

1
2
3
4
5
type ('req, 'rep, 'req_, 'rep_) t = ('req, 'rep) Service.t -> ('req_, 'rep_) Service.t
type ('req, 'rep) simple = ('req, 'rep, 'req, 'rep) t

let ( >>> ) f1 f2 s = s |> f1 |> f2
let apply_all filters service = ListLabels.fold_left filters ~init:service ~f:( |> )