Source file route.ml

type handler = Core.Ctx.t -> Res.t Lwt.t [@@deriving show]

let equal_handler _ _ = true

type meth =
  | Get
  | Post
  | Put
  | Delete
  | All
[@@deriving show, eq]

type t = meth * string * handler [@@deriving show, eq]

let meth (meth, _, _) = meth
let path (_, path, _) = path
let handler (_, _, handler) = handler
let set_handler handler (meth, path, _) = meth, path, handler
let get path handler = Get, path, handler
let post path handler = Post, path, handler
let put path handler = Put, path, handler
let delete path handler = Delete, path, handler
let all path handler = All, path, handler
let prefix prefix (meth, path, handler) = meth, prefix ^ path, handler