sig
  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 = {
    consumer_key : string;
    consumer_secret : string;
    access_token : string;
    access_token_secret : string;
    verif : string;
  }
  val ocaml_of_t : Oauth.t -> Ocaml.t
  val t_of_ocaml : (Oauth.t, Ocaml.t) Meta_conv.Types.Decoder.t
  val t_of_ocaml_exn : (Oauth.t, Ocaml.t) Meta_conv.Types.Decoder.t_exn
  val access :
    Oauth.t ->
    Http.meth ->
    string ->
    string ->
    (string * string) list ->
    (Http.header -> Pervasives.in_channel -> 'a) -> 'a
  val access_https :
    Oauth.t ->
    Http.meth ->
    string ->
    string ->
    (string * string) list ->
    [> `Error of [> `Http of int * string ] | `Ok of string ]
end