VerifiedPermissions.IdentitySource
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-verifiedpermissions-identitysource.html
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-verifiedpermissions-identitysource-cognitouserpoolconfiguration.html
and identity_source_details = {
discovery_url : string option;
user_pool_arn : string option;
open_id_issuer : string option;
client_ids : string list option;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-verifiedpermissions-identitysource-identitysourcedetails.html
and identity_source_configuration = {
cognito_user_pool_configuration : cognito_user_pool_configuration;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-verifiedpermissions-identitysource-identitysourceconfiguration.html
type properties = {
principal_entity_type : string option;
configuration : identity_source_configuration;
policy_store_id : string;
}
see http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-verifiedpermissions-identitysource.html;
val make_properties :
?principal_entity_type:string ->
configuration:identity_source_configuration ->
policy_store_id:string ->
unit ->
properties
val make_cognito_user_pool_configuration :
user_pool_arn:string ->
?client_ids:string list ->
unit ->
cognito_user_pool_configuration
val make_identity_source_details :
?discovery_url:string ->
?user_pool_arn:string ->
?open_id_issuer:string ->
?client_ids:string list ->
unit ->
identity_source_details
val make_identity_source_configuration :
cognito_user_pool_configuration:cognito_user_pool_configuration ->
unit ->
identity_source_configuration
val yojson_of_cognito_user_pool_configuration :
cognito_user_pool_configuration ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_identity_source_details :
identity_source_details ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val yojson_of_identity_source_configuration :
identity_source_configuration ->
[> `Assoc of (string * [> `Assoc of (string * Yojson.Safe.t) list ]) list ]
val yojson_of_properties :
properties ->
[> `Assoc of (string * Yojson.Safe.t) list ]
val create_attributes : string -> attributes