module Eliom_duce_tools: sig
.. end
val same_service_opt : Eliom_sessions.server_params ->
(unit, unit, [< Eliom_services.get_service_kind ], [< Eliom_services.suff ],
'a, unit, [< Eliom_services.registrable ])
Eliom_services.service ->
(unit, unit, [< Eliom_services.get_service_kind ], [< Eliom_services.suff ],
'b, unit, [< Eliom_services.registrable ])
Eliom_services.service option -> bool
val attrib_list : string list -> string
val ul_attribs : string list ->
Ocamlduce.Utf8.repr option ->
int -> {{{ class=Latin1 id=String } | { class=Latin1 }}}
: ?classe:string list ->
?id:Ocamlduce.Utf8.repr ->
(unit, unit, [< Eliom_services.get_service_kind ] as 'a,
[< Eliom_services.suff ] as 'b, 'c, unit,
[< Eliom_services.registrable ] as 'd)
Eliom_services.service * {{a_contents}} ->
((unit, unit, 'a, 'b, 'c, unit, 'd) Eliom_services.service * {{a_contents}})
list ->
?service:(unit, unit, [< Eliom_services.get_service_kind ],
[< Eliom_services.suff ], 'e, unit,
[< Eliom_services.registrable ])
Eliom_services.service ->
sp:Eliom_sessions.server_params -> {{ul}}
val find_in_hierarchy : Eliom_sessions.server_params ->
(unit, unit, [< Eliom_services.get_service_kind ], [< Eliom_services.suff ],
'a, unit, [< Eliom_services.registrable ])
Eliom_services.service option ->
'b *
('c *
([< Eliom_services.get_service_kind ], [< Eliom_services.registrable ], 'c)
Eliom_tools_common.hierarchical_site_item)
list -> int list
: ?classe:string list ->
?id:Ocamlduce.Utf8.repr ->
?whole_tree:bool ->
'a *
({{a_contents}} *
([< Eliom_services.get_service_kind ], [< Eliom_services.registrable ],
{{a_contents}})
Eliom_tools_common.hierarchical_site_item)
list ->
?service:(unit, unit, [< Eliom_services.get_service_kind ],
[< Eliom_services.suff ], 'b, unit,
[< Eliom_services.registrable ])
Eliom_services.service ->
sp:Eliom_sessions.server_params -> {{[ ul* ]}}
: ?classe:string list ->
?id:Ocamlduce.Utf8.repr ->
([< Eliom_services.get_service_kind ], [< Eliom_services.registrable ],
Eliom_duce.Blocks.a_content_elt_list)
Eliom_tools_common.hierarchical_site ->
?service:(unit, unit, [< Eliom_services.get_service_kind ],
[< Eliom_services.suff ], 'a, unit,
[< Eliom_services.registrable ])
Eliom_services.service ->
sp:Eliom_sessions.server_params -> {{[ ul* ]}}
val structure_links : ([< Eliom_services.get_service_kind ] as 'a,
[< Eliom_services.registrable ] as 'b, 'c)
Eliom_tools_common.main_page *
('d * ('a, 'b, 'd) Eliom_tools_common.hierarchical_site_item) list ->
?service:(unit, unit, [< Eliom_services.get_service_kind ],
[< Eliom_services.suff ], 'e, unit,
[< Eliom_services.registrable ])
Eliom_services.service ->
sp:Eliom_sessions.server_params -> {{links}}