include sig ... endtype callback = ?vars:string Core.String.Table.t ‑> Cohttp_lwt_unix.Request.t ‑> Cohttp_lwt.Body.t ‑> (Cohttp_lwt_unix.Response.t * Cohttp_lwt.Body.t) Cohttp_lwt_unix.IO.ttype exn_handler = ?vars:string Core.String.Table.t ‑> exn ‑> (Cohttp_lwt_unix.Response.t * Cohttp_lwt.Body.t) Cohttp_lwt_unix.IO.tmodule type Routes : sig ... endval default_exn_handler : exn_handlerval default_fallback : callbackval create : ?exn_handler:exn_handler ‑> ?fallback_response:callback ‑> route list ‑> (t, exn) Core.Result.tval create_exn : ?exn_handler:exn_handler ‑> ?fallback_response:callback ‑> route list ‑> tval create_from_modules : ?exn_handler:exn_handler ‑> ?fallback_response:callback ‑> (module Routes) list ‑> (t, exn) Core.Result.tval create_from_modules_exn : ?exn_handler:exn_handler ‑> ?fallback_response:callback ‑> (module Routes) list ‑> tval dispatch : t ‑> Cohttp_lwt_unix.Request.t ‑> Cohttp_lwt.Body.t ‑> (Cohttp_lwt_unix.Response.t * Cohttp_lwt.Body.t) Cohttp_lwt_unix.IO.t