package rock

  1. Overview
  2. Docs

Source file app.ml

1
2
3
4
5
6
7
type t =
  { middlewares : Middleware.t list
  ; handler : Handler.t
  }

let append_middleware t m = { t with middlewares = t.middlewares @ [ m ] }
let create ?(middlewares = []) ~handler () = { middlewares; handler }