package cowabloga

  1. Overview
  2. Docs
type 'a t = {
  1. log : msg:string -> unit;
  2. ok : ?headers:(string * string) list -> string Lwt.t -> 'a Lwt.t;
  3. notfound : uri:Uri.t -> 'a Lwt.t;
  4. 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