Module Eliom_route.A

type site_data = unit
type info' = info
type info = info'
type params = string list option
type result = Eliom_service.result
val site_data : 'a -> unit
val sess_info_of_info : info -> Eliom_common.sess_info
val subpath_of_info : info -> string list
val meth_of_info : info -> Eliom_common.meth
val make_params : 'a -> 'b -> 'c -> 'd -> 'c
val get_number_of_reloads : unit -> int
module Raw_table : sig ... end
type table_content = [
  1. | `Ptc of unit option * (params, result) Eliom_common.service list
]
type service = (table ref * Eliom_common.page_table_key, Eliom_common.na_key_serv) Eliom_lib.leftright
and node = service list
module Table : sig ... end
module Node : sig ... end
module Container : sig ... end
val handle_directory : 'a -> Eliom_service.result Lwt.t