sig
type ('a, 'b) one_page =
(unit, unit, 'a, [ `WithoutSuffix ], unit, unit, 'b)
Eliom_services.service
type ('a, 'b, 'c) hierarchical_site_item =
Disabled
| Site_tree of ('a, 'b, 'c) Eliom_tools_common.hierarchical_site
and ('a, 'b, 'c) main_page =
Main_page of ('a, 'b) Eliom_tools_common.one_page
| Default_page of ('a, 'b) Eliom_tools_common.one_page
| Not_clickable
and ('a, 'b, 'c) hierarchical_site =
('a, 'b, 'c) Eliom_tools_common.main_page *
('c * ('a, 'b, 'c) Eliom_tools_common.hierarchical_site_item) list
val menu_class : string
val last_class : string
val current_class : string
val disabled_class : string
val first_class : string
val level_class : string
end