Source file `middleware_core.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open Base

type t = { name : string; filter : Http.Route.handler -> Http.Route.handler }
[@@deriving show]

let create ~name filter = { name; filter }

type stack = t list [@@deriving show]

let apply middleware handler = middleware.filter handler

let apply_stack middleware_stack route =
  (* The request goes through the middlewares from top to bottom,
     so we have to reverse the middleware_stack *)
  let middleware_stack = List.rev middleware_stack in
  List.fold_left middleware_stack ~init:route ~f:(fun route middleware ->
      let handler = Http.Route.handler route in
      let updated_handler = apply middleware handler in
      Http.Route.set_handler updated_handler route)