Module Tools

module Tools : sig..end

type srv =  | Srv of 
    (unit, unit, Service.get, 'a, 'b, 'c, 'd, [ `WithoutSuffix ],
     unit, unit, Service.non_ocaml)
    Service.t

type 'a hierarchical_site = main_page * ('a * 'a hierarchical_site_item) list

type 'a hierarchical_site_item =  | Disabled | Site_tree of 'a hierarchical_site

type main_page =  | Main_page of srv | Default_page of srv | Not_clickable

module type HTML5_TOOLS = sig..end

module F : HTML5_TOOLS

module D : HTML5_TOOLS

val with_js_file : string list -> unit

val with_css_file : string list -> unit

val wrap_handler : 
  (unit -> 'a option Lwt.t) ->
  ('get -> 'post -> 'res Lwt.t) ->
  ('a -> 'get -> 'post -> 'res Lwt.t) -> 'get -> 'post -> 'res Lwt.t