Module Oauth

module Oauth: sig .. end

val fetch_request_token : ?http_method:Http.meth ->
       host:string ->
       path:string ->
       ?oauth_version:string ->
       ?oauth_signature_method:[< `Hmac_sha1
                                | `Plaintext
                                | `Rsa_sha1 of 'a & 'b & Cryptokit.RSA.key
                                > `Hmac_sha1 ] ->
       oauth_consumer_key:string ->
       oauth_consumer_secret:string ->
       ?oauth_timestamp:float ->
       ?oauth_nonce:string ->
       ?params:(string * string) list ->
       unit -> ?rawdata:string -> (Http.header -> Pervasives.in_channel -> 'c) -> 'c

val fetch_access_token : ?http_method:Http.meth ->
       host:string ->
       path:string ->
       ?oauth_version:string ->
       ?oauth_signature_method:[< `Hmac_sha1
                                | `Plaintext
                                | `Rsa_sha1 of 'a & 'b & Cryptokit.RSA.key
                                > `Hmac_sha1 ] ->
       oauth_consumer_key:string ->
       oauth_consumer_secret:string ->
       oauth_token:string ->
       oauth_token_secret:string ->
       verif:string ->
       ?oauth_timestamp:float ->
       ?oauth_nonce:string ->
       unit -> ?rawdata:string -> (Http.header -> Pervasives.in_channel -> 'c) -> 'c

type t = {

val ocaml_of_t : t -> Ocaml.t

val t_of_ocaml : (t, Ocaml.t) Meta_conv.Types.Decoder.t

val t_of_ocaml_exn : (t, Ocaml.t) Meta_conv.Types.Decoder.t_exn

val access : t ->
       Http.meth ->
       string ->
       string ->
       (string * string) list -> (Http.header -> Pervasives.in_channel -> 'a) -> 'a

val access_https : t ->
       Http.meth ->
       string ->
       string ->
       (string * string) list ->
       [> `Error of [> `Http of int * string ] | `Ok of string ]