Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
type 'a upload =
?progress:(int -> int -> unit) ->
?cropping:cropping ->
File.file Js.t ->
'a Lwt.t
type ('a, 'b) service =
(unit,
'a * ((float * float * float * float) option * Eliom_lib.file_info),
Eliom_service.post,
Eliom_service.non_att,
Eliom_service.co,
Eliom_service.non_ext,
Eliom_service.reg,
[ `WithoutSuffix ],
unit,
[ `One of 'a Eliom_parameter.ocaml ] Eliom_parameter.param_name
* ([ `One of (float * float * float * float) option Eliom_parameter.ocaml ]
Eliom_parameter.param_name
* [ `One of Eliom_lib.file_info ] Eliom_parameter.param_name),
'b Eliom_service.ocaml)
Eliom_service.t
val input :
?a:[< Html_types.label_attrib Class ] Eliom_content.Html.attrib list ->
[< Html_types.label_content_fun ] Eliom_content.Html.elt list ->
[> `Input ] Eliom_content.Html.elt * [> `Label ] Eliom_content.Html.elt
val preview :
?a:[< Html_types.img_attrib Class ] Eliom_content.Html.attrib list ->
unit ->
[> `Img ] Eliom_content.Html.elt
val submit :
?a:[< Html_types.button_attrib Class ] Eliom_content.Html.attrib list ->
[< Html_types.button_content ] Eliom_content.Html.elt list ->
[> `Button ] Eliom_content.Html.elt
val mk_form :
?after_submit:(unit -> unit Lwt.t) ->
?crop:float option ->
?input:
([< Html_types.label_attrib Class ] Eliom_content.Html.attrib list
* [< Html_types.label_content_fun ] Eliom_content.Html.elt list) ->
?submit:
([< Html_types.button_attrib Class ] Eliom_content.Html.attrib list
* [< Html_types.button_content_fun ] Eliom_content.Html.elt list) ->
'a upload ->
[> `Form ] Eliom_content.Html.elt Lwt.t
val mk_service : string -> 'a Deriving_Json.t -> ('a, 'b) service