Module GapiConversation.Session
Defines the session that stores the current state of a conversation.
type oauth1_context={token : string;OAuth1 authorized token.
secret : string;OAuth1 secret associated with the authorized token.
}Current OAuth1 context.
val token : (oauth1_context, string) GapiLens.tOAuth1 token lens.
val secret : (oauth1_context, string) GapiLens.tOAuth1 secret lens.
type oauth2_context={oauth2_token : string;OAuth2 authorized token.
refresh_token : string;OAuth2 refresh token.
}Current OAuth2 context.
val oauth2_token : (oauth2_context, string) GapiLens.tOAuth2 token lens.
val refresh_token : (oauth2_context, string) GapiLens.tOAuth2 refresh token lens.
type auth_context=|NoAuthNo authorization.
|ClientLogin of stringClient Login authorized token.
|OAuth1 of oauth1_contextOAuth1 context.
|OAuth2 of oauth2_contextOAuth2 context.
Current authorization context.
val no_auth : (auth_context, unit option) GapiLens.tNo authorization lens.
val client_login : (auth_context, string option) GapiLens.tClient Login token lens.
val oauth1 : (auth_context, oauth1_context option) GapiLens.tOAuth1 context lens.
val oauth2 : (auth_context, oauth2_context option) GapiLens.tOAuth2 context lens.
type t={curl : [ `Created ] GapiCurl.t;Curl state.
config : GapiConfig.t;Library configuration.
auth : auth_context;Current authorization context.
cookies : string list;Cookies received from the server.
etag : string;Current resource ETag (received from the server).
}Session type.
val curl : (t, [ `Created ] GapiCurl.t) GapiLens.tCurl state lens.
val config : (t, GapiConfig.t) GapiLens.tConfiguration lens.
val auth : (t, auth_context) GapiLens.tAuthorization lens.
val cookies : (t, string list) GapiLens.tCookies lens.
val etag : (t, string) GapiLens.tETag lens.