functor
(Pages : sig
type _ page
type options
type _ return
val send :
?options:options ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Cohttp.Header.t ->
'a page -> Ocsigen_response.t Lwt.t
val send_appl_content : Eliom_service.send_appl_content
end)
->
sig
type 'a page = 'a Pages.page
type options = Pages.options
type 'a return = 'a Pages.return
val register :
?app:string ->
?scope:[< Eliom_common.scope ] ->
?options:options ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Cohttp.Header.t ->
?secure_session:bool ->
service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
'a return)
Eliom_service.t ->
?error_handler:((string * exn) list -> 'a page Lwt.t) ->
('get -> 'post -> 'a page Lwt.t) -> unit
val create :
?app:string ->
?scope:[< Eliom_common.scope ] ->
?options:options ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Cohttp.Header.t ->
?secure_session:bool ->
?https:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
meth:('m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'b,
'gp_)
Eliom_service.meth ->
path:('att, 'co, 'gp_) Eliom_service.path_option ->
?error_handler:((string * exn) list -> 'a page Lwt.t) ->
('gp -> 'pp -> 'a page Lwt.t) ->
('gp, 'pp, 'm, 'att, 'co, Eliom_service.non_ext, Eliom_service.reg, 'b,
'gn, 'pn, 'a return)
Eliom_service.t
val create_attached_get :
?app:string ->
?scope:[< Eliom_common.scope ] ->
?options:options ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Cohttp.Header.t ->
?secure_session:bool ->
?https:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
fallback:(unit, unit, Eliom_service.get, Eliom_service.att,
Eliom_service.non_co, Eliom_service.non_ext, 'b,
[ `WithoutSuffix ], unit, unit, 'a return)
Eliom_service.t ->
get_params:('gp, [ `WithoutSuffix ], 'gn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list -> 'a page Lwt.t) ->
('gp -> unit -> 'a page Lwt.t) ->
('gp, unit, Eliom_service.get, Eliom_service.att, Eliom_service.co,
Eliom_service.non_ext, Eliom_service.reg, [ `WithoutSuffix ], 'gn,
unit, 'a return)
Eliom_service.t
val create_attached_post :
?app:string ->
?scope:[< Eliom_common.scope ] ->
?options:options ->
?charset:string ->
?code:int ->
?content_type:string ->
?headers:Cohttp.Header.t ->
?secure_session:bool ->
?https:bool ->
?name:string ->
?csrf_safe:bool ->
?csrf_scope:[< Eliom_common.user_scope ] ->
?csrf_secure:bool ->
?max_use:int ->
?timeout:float ->
fallback:('gp, unit, Eliom_service.get, Eliom_service.att,
Eliom_service.non_co, Eliom_service.non_ext, 'b,
[ `WithoutSuffix ], 'gn, unit, 'a return)
Eliom_service.t ->
post_params:('pp, [ `WithoutSuffix ], 'pn) Eliom_parameter.params_type ->
?error_handler:((string * exn) list -> 'a page Lwt.t) ->
('gp -> 'pp -> 'a page Lwt.t) ->
('gp, 'pp, Eliom_service.post, Eliom_service.att, Eliom_service.co,
Eliom_service.non_ext, Eliom_service.reg, [ `WithoutSuffix ], 'gn,
'pn, 'a return)
Eliom_service.t
end