Source file `middleware.ml`

1
2
3
4
5
6
7
type t =
  { filter : (Request.t, Response.t) Filter.simple
  ; name : string
  }

let create ~filter ~name = { filter; name }
let apply { filter; _ } handler = filter handler