Module Auth

module Auth: sig .. end

module Consumer: sig .. end

module Token: sig .. end

module VerifiedToken: sig .. end

val oauth : Consumer.t -> VerifiedToken.t -> Oauth.t

val fetch_request_token : Consumer.t -> string * Token.t

val fetch_access_token : Consumer.t -> VerifiedToken.t -> string * Token.t

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 ]