Module `Cowabloga.Dispatch`

type 'a t = { log : msg:string -> unit; ok : ?⁠headers:(string * string) list -> string Lwt.t -> 'a Lwt.t; notfound : uri:Uri.t -> 'a Lwt.t; redirect : uri:Uri.t -> 'a Lwt.t; }

module Log : sig ... end

val split_path : string -> string list
val headers : string -> (string * string) list
val f : 'a t -> (string list -> [< `Asset of string Lwt.t | `Atom of string Lwt.t | `Html of string Lwt.t | `Not_found of string | `Page of (string * string) list * string Lwt.t | `Redirect of string ] Lwt.t) -> Uri.t -> 'a Lwt.t