include sig ... endtype callback = ?vars:string Core.String.Table.t ‑> Cohttp_async.Request.t ‑> Cohttp_async.Body.t ‑> (Cohttp_async.Response.t * Cohttp_async.Body.t) Cohttp_async.Io.ttype exn_handler = ?vars:string Core.String.Table.t ‑> exn ‑> (Cohttp_async.Response.t * Cohttp_async.Body.t) Cohttp_async.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_async.Request.t ‑> Cohttp_async.Body.t ‑> (Cohttp_async.Response.t * Cohttp_async.Body.t) Cohttp_async.Io.t