module IO : sig ... endtype (!'body, 'ret) request_ = ('body, 'ret IO.t) http_request_type 'ret request = 'ret IO.t http_requestval http_request' : [> `Error of Curl.curlCode | `Ok of int * string ] requestval http_request : [> `Error of string | `Ok of string ] requestval http_request_exn : string requestval http_query :
(string * string, [> `Error of string | `Ok of string ]) request_val http_submit :
?ua:string ->
?timeout:int ->
?verbose:bool ->
?setup:(Curl.t -> unit) ->
?timer:Action.timer ->
?http_1_0:bool ->
?headers:string list ->
?action:http_action ->
string ->
(string * string) list ->
[> `Error of string | `Ok of string ] IO.t