Module GapiConversation.SessionSource

Defines the session that stores the current state of a conversation.

Sourcetype oauth1_context = {
  1. token : string;
    (*

    OAuth1 authorized token.

    *)
  2. secret : string;
    (*

    OAuth1 secret associated with the authorized token.

    *)
}

Current OAuth1 context.

Sourceval token : (oauth1_context, string) GapiLens.t

OAuth1 token lens.

Sourceval secret : (oauth1_context, string) GapiLens.t

OAuth1 secret lens.

Sourcetype oauth2_context = {
  1. oauth2_token : string;
    (*

    OAuth2 authorized token.

    *)
  2. refresh_token : string;
    (*

    OAuth2 refresh token.

    *)
}

Current OAuth2 context.

Sourceval oauth2_token : (oauth2_context, string) GapiLens.t

OAuth2 token lens.

Sourceval refresh_token : (oauth2_context, string) GapiLens.t

OAuth2 refresh token lens.

Sourcetype auth_context =
  1. | NoAuth
    (*

    No authorization.

    *)
  2. | ClientLogin of string
    (*

    Client Login authorized token.

    *)
  3. | OAuth1 of oauth1_context
    (*

    OAuth1 context.

    *)
  4. | OAuth2 of oauth2_context
    (*

    OAuth2 context.

    *)

Current authorization context.

Sourceval no_auth : (auth_context, unit option) GapiLens.t

No authorization lens.

Sourceval client_login : (auth_context, string option) GapiLens.t

Client Login token lens.

OAuth1 context lens.

OAuth2 context lens.

Sourcetype t = {
  1. curl : [ `Created ] GapiCurl.t;
    (*

    Curl state.

    *)
  2. config : GapiConfig.t;
    (*

    Library configuration.

    *)
  3. auth : auth_context;
    (*

    Current authorization context.

    *)
  4. cookies : string list;
    (*

    Cookies received from the server.

    *)
  5. etag : string;
    (*

    Current resource ETag (received from the server).

    *)
}

Session type.

Sourceval curl : (t, [ `Created ] GapiCurl.t) GapiLens.t

Curl state lens.

Configuration lens.

Authorization lens.

Sourceval cookies : (t, string list) GapiLens.t

Cookies lens.

Sourceval etag : (t, string) GapiLens.t

ETag lens.