Module Http

module Http: sig .. end

exception Http_error of string

val url_encode : string -> string

val html_decode : string -> string

type header = {

type params = (string * string) list 

type meth = 

val conn : ?port:int ->
       string ->
       meth ->
       ?headers:params ->
       string ->
       params ->
       ?rawdata:string -> (header -> Pervasives.in_channel -> 'a) -> 'a

val https : string ->
       meth ->
       ?headers:params ->
       string ->
       ?rawdata:string ->
       params -> [> `Error of [> `Http of int * string ] | `Ok of string ]