sig
val section : Lwt_log_core.section
val scan_multipart_body_from_stream :
?max_size:Stdlib.Int64.t ->
boundary:string ->
create:((string * string) list -> 'a) ->
add:('a -> string -> unit Lwt.t) ->
stop:(int64 -> 'a -> 'b Lwt.t) ->
string Ocsigen_stream.stream -> unit Lwt.t
type content_type = (string * string) * (string * string) list
type file_info = {
tmp_filename : string;
filesize : int64;
raw_original_filename : string;
file_content_type : Ocsigen_multipart.content_type option;
}
type post_data =
(string * string) list * (string * Ocsigen_multipart.file_info) list
val post_params :
content_type:Ocsigen_multipart.content_type ->
Cohttp_lwt.Body.t ->
(string option ->
Stdlib.Int64.t option -> Ocsigen_multipart.post_data Lwt.t)
option
val parse_content_type : string -> Ocsigen_multipart.content_type option
end