Source file values.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso
open! Import
[@@@warning "-32"]
let service = Service.cognito_identity
let apiVersion = "2014-06-30"
let endpointPrefix = "cognito-identity"
let serviceFullName = "Amazon Cognito Identity"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSCognitoIdentityService"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module ARNString =
  struct
    type nonrec t = string
    let context_ = "ARNString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:20));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ARNString" j
    let to_json = simple_to_json to_value
  end
module ClaimName =
  struct
    type nonrec t = string
    let context_ = "ClaimName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\p{L}\\p{M}\\p{S}\\p{N}\\p{P}]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClaimName" j
    let to_json = simple_to_json to_value
  end
module ClaimValue =
  struct
    type nonrec t = string
    let context_ = "ClaimValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClaimValue" j
    let to_json = simple_to_json to_value
  end
module MappingRuleMatchType =
  struct
    type nonrec t =
      | Equals 
      | Contains 
      | StartsWith 
      | NotEqual 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Equals -> "Equals"
      | Contains -> "Contains"
      | StartsWith -> "StartsWith"
      | NotEqual -> "NotEqual"
      | Non_static_id s -> s
    let of_string =
      function
      | "Equals" -> Equals
      | "Contains" -> Contains
      | "StartsWith" -> StartsWith
      | "NotEqual" -> NotEqual
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration MappingRuleMatchType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MappingRuleMatchType" j)
    let to_json = simple_to_json to_value
  end
module MappingRule =
  struct
    type nonrec t =
      {
      claim: ClaimName.t
        [@ocaml.doc
          "The claim name that must be present in the token, for example, \"isAdmin\" or \"paid\"."];
      matchType: MappingRuleMatchType.t
        [@ocaml.doc
          "The match condition that specifies how closely the claim value in the IdP token must match Value."];
      value: ClaimValue.t
        [@ocaml.doc
          "A brief string that the claim must match, for example, \"paid\" or \"yes\"."];
      roleARN: ARNString.t [@ocaml.doc "The role ARN."]}
    let context_ = "MappingRule"
    let make ~claim =
      fun ~matchType ->
        fun ~value ->
          fun ~roleARN -> fun () -> { claim; matchType; value; roleARN }
    let to_value x =
      structure_to_value
        [("Claim", (Some (ClaimName.to_value x.claim)));
        ("MatchType", (Some (MappingRuleMatchType.to_value x.matchType)));
        ("Value", (Some (ClaimValue.to_value x.value)));
        ("RoleARN", (Some (ARNString.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        ARNString.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let value =
        ClaimValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let matchType =
        MappingRuleMatchType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MatchType") in
      let claim =
        ClaimName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Claim") in
      make ~roleARN ~value ~matchType ~claim ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" ARNString.of_json in
      let value = field_map_exn json__ "Value" ClaimValue.of_json in
      let matchType =
        field_map_exn json__ "MatchType" MappingRuleMatchType.of_json in
      let claim = field_map_exn json__ "Claim" ClaimName.of_json in
      make ~roleARN ~value ~matchType ~claim ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A rule that maps a claim name, a claim value, and a match type to a role ARN."]
module MappingRulesList =
  struct
    type nonrec t = MappingRule.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:400) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MappingRule.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:MappingRule.of_xml)
    let of_json j =
      list_of_json ~kind:"MappingRulesList" ~of_json:MappingRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module IdentityProviderName =
  struct
    type nonrec t = string
    let context_ = "IdentityProviderName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityProviderName" j
    let to_json = simple_to_json to_value
  end
module AmbiguousRoleResolutionType =
  struct
    type nonrec t =
      | AuthenticatedRole 
      | Deny 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AuthenticatedRole -> "AuthenticatedRole"
      | Deny -> "Deny"
      | Non_static_id s -> s
    let of_string =
      function
      | "AuthenticatedRole" -> AuthenticatedRole
      | "Deny" -> Deny
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration AmbiguousRoleResolutionType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AmbiguousRoleResolutionType" j)
    let to_json = simple_to_json to_value
  end
module RoleMappingType =
  struct
    type nonrec t =
      | Token 
      | Rules 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Token -> "Token" | Rules -> "Rules" | Non_static_id s -> s
    let of_string =
      function | "Token" -> Token | "Rules" -> Rules | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration RoleMappingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RoleMappingType" j)
    let to_json = simple_to_json to_value
  end
module RulesConfigurationType =
  struct
    type nonrec t =
      {
      rules: MappingRulesList.t
        [@ocaml.doc
          "An array of rules. You can specify up to 25 rules per identity provider. Rules are evaluated in order. The first one to match specifies the role."]}
    let context_ = "RulesConfigurationType"
    let make ~rules = fun () -> { rules }
    let to_value x =
      structure_to_value
        [("Rules", (Some (MappingRulesList.to_value x.rules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rules =
        MappingRulesList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Rules") in
      make ~rules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rules = field_map_exn json__ "Rules" MappingRulesList.of_json in
      make ~rules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A container for rules."]
module IdentityPoolId =
  struct
    type nonrec t = string
    let context_ = "IdentityPoolId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:55) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+:[0-9a-f-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityPoolId" j
    let to_json = simple_to_json to_value
  end
module IdentityPoolName =
  struct
    type nonrec t = string
    let context_ = "IdentityPoolName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w\\s+=,.@-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityPoolName" j
    let to_json = simple_to_json to_value
  end
module DateType =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module IdentityId =
  struct
    type nonrec t = string
    let context_ = "IdentityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:55) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+:[0-9a-f-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityId" j
    let to_json = simple_to_json to_value
  end
module InternalErrorException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by an InternalErrorException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when the service encounters an error during processing the request."]
module InvalidParameterException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by an InvalidParameterException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Thrown for missing or bad input parameter(s)."]
module LoginsList =
  struct
    type nonrec t = IdentityProviderName.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IdentityProviderName.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IdentityProviderName.of_xml)
    let of_json j =
      list_of_json ~kind:"LoginsList" ~of_json:IdentityProviderName.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotAuthorizedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by a NotAuthorizedException"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when a user is not authorized to access the requested resource."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by a ResourceNotFoundException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when the requested resource (for example, a dataset or record) does not exist."]
module TooManyRequestsException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message returned by a TooManyRequestsException"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Thrown when a request is throttled."]
module CognitoIdentityProviderClientId =
  struct
    type nonrec t = string
    let context_ = "CognitoIdentityProviderClientId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CognitoIdentityProviderClientId" j
    let to_json = simple_to_json to_value
  end
module CognitoIdentityProviderName =
  struct
    type nonrec t = string
    let context_ = "CognitoIdentityProviderName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w._:/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CognitoIdentityProviderName" j
    let to_json = simple_to_json to_value
  end
module CognitoIdentityProviderTokenCheck =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t =
      | AccessDenied 
      | InternalServerError 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AccessDenied -> "AccessDenied"
      | InternalServerError -> "InternalServerError"
      | Non_static_id s -> s
    let of_string =
      function
      | "AccessDenied" -> AccessDenied
      | "InternalServerError" -> InternalServerError
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCode" j)
    let to_json = simple_to_json to_value
  end
module TagKeysType =
  struct
    type nonrec t = string
    let context_ = "TagKeysType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKeysType" j
    let to_json = simple_to_json to_value
  end
module IdentityProviderToken =
  struct
    type nonrec t = string
    let context_ = "IdentityProviderToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityProviderToken" j
    let to_json = simple_to_json to_value
  end
module TagValueType =
  struct
    type nonrec t = string
    let context_ = "TagValueType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValueType" j
    let to_json = simple_to_json to_value
  end
module PrincipalTagID =
  struct
    type nonrec t = string
    let context_ = "PrincipalTagID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrincipalTagID" j
    let to_json = simple_to_json to_value
  end
module PrincipalTagValue =
  struct
    type nonrec t = string
    let context_ = "PrincipalTagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrincipalTagValue" j
    let to_json = simple_to_json to_value
  end
module RoleMapping =
  struct
    type nonrec t =
      {
      type_: RoleMappingType.t
        [@ocaml.doc
          "The role mapping type. Token will use cognito:roles and cognito:preferred_role claims from the Cognito identity provider token to map groups to roles. Rules will attempt to match claims from the token to map to a role."];
      ambiguousRoleResolution: AmbiguousRoleResolutionType.t option
        [@ocaml.doc
          "If you specify Token or Rules as the Type, AmbiguousRoleResolution is required. Specifies the action to be taken if either no rules match the claim value for the Rules type, or there is no cognito:preferred_role claim and there are multiple cognito:roles matches for the Token type."];
      rulesConfiguration: RulesConfigurationType.t option
        [@ocaml.doc
          "The rules to be used for mapping users to roles. If you specify Rules as the role mapping type, RulesConfiguration is required."]}
    let context_ = "RoleMapping"
    let make ?ambiguousRoleResolution =
      fun ?rulesConfiguration ->
        fun ~type_ ->
          fun () -> { ambiguousRoleResolution; rulesConfiguration; type_ }
    let to_value x =
      structure_to_value
        [("Type", (Some (RoleMappingType.to_value x.type_)));
        ("AmbiguousRoleResolution",
          (Option.map x.ambiguousRoleResolution
             ~f:AmbiguousRoleResolutionType.to_value));
        ("RulesConfiguration",
          (Option.map x.rulesConfiguration ~f:RulesConfigurationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rulesConfiguration =
        (Option.map ~f:RulesConfigurationType.of_xml)
          (Xml.child xml_arg0 "RulesConfiguration") in
      let ambiguousRoleResolution =
        (Option.map ~f:AmbiguousRoleResolutionType.of_xml)
          (Xml.child xml_arg0 "AmbiguousRoleResolution") in
      let type_ =
        RoleMappingType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      make ?rulesConfiguration ?ambiguousRoleResolution ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rulesConfiguration =
        field_map json__ "RulesConfiguration" RulesConfigurationType.of_json in
      let ambiguousRoleResolution =
        field_map json__ "AmbiguousRoleResolution"
          AmbiguousRoleResolutionType.of_json in
      let type_ = field_map_exn json__ "Type" RoleMappingType.of_json in
      make ?rulesConfiguration ?ambiguousRoleResolution ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A role mapping."]
module RoleType =
  struct
    type nonrec t = string
    let context_ = "RoleType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"(un)?authenticated")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RoleType" j
    let to_json = simple_to_json to_value
  end
module DeveloperUserIdentifier =
  struct
    type nonrec t = string
    let context_ = "DeveloperUserIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeveloperUserIdentifier" j
    let to_json = simple_to_json to_value
  end
module IdentityPoolShortDescription =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      identityPoolName: IdentityPoolName.t option
        [@ocaml.doc "A string that you provide."]}
    let make ?identityPoolId =
      fun ?identityPoolName -> fun () -> { identityPoolId; identityPoolName }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("IdentityPoolName",
          (Option.map x.identityPoolName ~f:IdentityPoolName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolName =
        (Option.map ~f:IdentityPoolName.of_xml)
          (Xml.child xml_arg0 "IdentityPoolName") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?identityPoolName ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolName =
        field_map json__ "IdentityPoolName" IdentityPoolName.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?identityPoolName ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A description of the identity pool."]
module IdentityDescription =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      logins: LoginsList.t option [@ocaml.doc "The provider names."];
      creationDate: DateType.t option
        [@ocaml.doc "Date on which the identity was created."];
      lastModifiedDate: DateType.t option
        [@ocaml.doc "Date on which the identity was last modified."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId =
      fun ?logins ->
        fun ?creationDate ->
          fun ?lastModifiedDate ->
            fun () -> { identityId; logins; creationDate; lastModifiedDate }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("Logins", (Option.map x.logins ~f:LoginsList.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:DateType.to_value));
        ("LastModifiedDate",
          (Option.map x.lastModifiedDate ~f:DateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:DateType.of_xml)
          (Xml.child xml_arg0 "LastModifiedDate") in
      let creationDate =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let logins =
        (Option.map ~f:LoginsList.of_xml) (Xml.child xml_arg0 "Logins") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?lastModifiedDate ?creationDate ?logins ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate =
        field_map json__ "LastModifiedDate" DateType.of_json in
      let creationDate = field_map json__ "CreationDate" DateType.of_json in
      let logins = field_map json__ "Logins" LoginsList.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?lastModifiedDate ?creationDate ?logins ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A description of the identity."]
module CognitoIdentityProvider =
  struct
    type nonrec t =
      {
      providerName: CognitoIdentityProviderName.t option
        [@ocaml.doc
          "The provider name for an Amazon Cognito user pool. For example, cognito-idp.us-east-1.amazonaws.com/us-east-1_123456789."];
      clientId: CognitoIdentityProviderClientId.t option
        [@ocaml.doc "The client ID for the Amazon Cognito user pool."];
      serverSideTokenCheck: CognitoIdentityProviderTokenCheck.t option
        [@ocaml.doc
          "TRUE if server-side token validation is enabled for the identity provider\226\128\153s token. Once you set ServerSideTokenCheck to TRUE for an identity pool, that identity pool will check with the integrated user pools to make sure that the user has not been globally signed out or deleted before the identity pool provides an OIDC token or Amazon Web Services credentials for the user. If the user is signed out or deleted, the identity pool will return a 400 Not Authorized error."]}
    let make ?providerName =
      fun ?clientId ->
        fun ?serverSideTokenCheck ->
          fun () -> { providerName; clientId; serverSideTokenCheck }
    let to_value x =
      structure_to_value
        [("ProviderName",
           (Option.map x.providerName ~f:CognitoIdentityProviderName.to_value));
        ("ClientId",
          (Option.map x.clientId ~f:CognitoIdentityProviderClientId.to_value));
        ("ServerSideTokenCheck",
          (Option.map x.serverSideTokenCheck
             ~f:CognitoIdentityProviderTokenCheck.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serverSideTokenCheck =
        (Option.map ~f:CognitoIdentityProviderTokenCheck.of_xml)
          (Xml.child xml_arg0 "ServerSideTokenCheck") in
      let clientId =
        (Option.map ~f:CognitoIdentityProviderClientId.of_xml)
          (Xml.child xml_arg0 "ClientId") in
      let providerName =
        (Option.map ~f:CognitoIdentityProviderName.of_xml)
          (Xml.child xml_arg0 "ProviderName") in
      make ?serverSideTokenCheck ?clientId ?providerName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serverSideTokenCheck =
        field_map json__ "ServerSideTokenCheck"
          CognitoIdentityProviderTokenCheck.of_json in
      let clientId =
        field_map json__ "ClientId" CognitoIdentityProviderClientId.of_json in
      let providerName =
        field_map json__ "ProviderName" CognitoIdentityProviderName.of_json in
      make ?serverSideTokenCheck ?clientId ?providerName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A provider representing an Amazon Cognito user pool and its client ID."]
module IdentityProviderId =
  struct
    type nonrec t = string
    let context_ = "IdentityProviderId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w.;_/-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityProviderId" j
    let to_json = simple_to_json to_value
  end
module AccessKeyString =
  struct
    type nonrec t = string
    let context_ = "AccessKeyString"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccessKeyString" j
    let to_json = simple_to_json to_value
  end
module SecretKeyString =
  struct
    type nonrec t = string
    let context_ = "SecretKeyString"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SecretKeyString" j
    let to_json = simple_to_json to_value
  end
module SessionTokenString =
  struct
    type nonrec t = string
    let context_ = "SessionTokenString"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SessionTokenString" j
    let to_json = simple_to_json to_value
  end
module UnprocessedIdentityId =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "The error code indicating the type of error that occurred."]}
    let make ?identityId =
      fun ?errorCode -> fun () -> { identityId; errorCode }
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?errorCode ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?errorCode ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An array of UnprocessedIdentityId objects, each of which contains an ErrorCode and IdentityId."]
module IdentityPoolTagsListType =
  struct
    type nonrec t = TagKeysType.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKeysType.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKeysType.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentityPoolTagsListType"
        ~of_json:TagKeysType.of_json j
    let to_json v = composed_to_json to_value v
  end
module LoginsMap =
  struct
    type nonrec t = (IdentityProviderName.t * IdentityProviderToken.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((IdentityProviderName.of_string chopped),
                              (IdentityProviderToken.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (IdentityProviderName.to_value x) |>
                    (fun x ->
                       (IdentityProviderToken.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:IdentityProviderName.of_string
        ~of_json:IdentityProviderToken.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeveloperProviderName =
  struct
    type nonrec t = string
    let context_ = "DeveloperProviderName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeveloperProviderName" j
    let to_json = simple_to_json to_value
  end
module IdentityPoolTagsType =
  struct
    type nonrec t = (TagKeysType.t * TagValueType.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKeysType.of_string chopped),
                              (TagValueType.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKeysType.to_value x) |>
                    (fun x -> (TagValueType.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKeysType.of_string
        ~of_json:TagValueType.of_json j
    let to_json v = composed_to_json to_value v
  end
module PrincipalTags =
  struct
    type nonrec t = (PrincipalTagID.t * PrincipalTagValue.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((PrincipalTagID.of_string chopped),
                              (PrincipalTagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (PrincipalTagID.to_value x) |>
                    (fun x ->
                       (PrincipalTagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:PrincipalTagID.of_string
        ~of_json:PrincipalTagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module UseDefaults =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module RoleMappingMap =
  struct
    type nonrec t = (IdentityProviderName.t * RoleMapping.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types IdentityProviderName RoleMapping"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (IdentityProviderName.to_value x) |>
                    (fun x -> (RoleMapping.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:IdentityProviderName.of_string
        ~of_json:RoleMapping.of_json j
    let to_json v = composed_to_json to_value v
  end
module RolesMap =
  struct
    type nonrec t = (RoleType.t * ARNString.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:2); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((RoleType.of_string chopped),
                              (ARNString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (RoleType.to_value x) |>
                    (fun x -> (ARNString.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:RoleType.of_string
        ~of_json:ARNString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by a ResourceConflictException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when a user tries to use a login which is already linked to another account."]
module DeveloperUserIdentifierList =
  struct
    type nonrec t = DeveloperUserIdentifier.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DeveloperUserIdentifier.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:DeveloperUserIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"DeveloperUserIdentifierList"
        ~of_json:DeveloperUserIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module PaginationKey =
  struct
    type nonrec t = string
    let context_ = "PaginationKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:65535) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationKey" j
    let to_json = simple_to_json to_value
  end
module QueryLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:60) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for QueryLimit" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module IdentityPoolsList =
  struct
    type nonrec t = IdentityPoolShortDescription.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IdentityPoolShortDescription.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IdentityPoolShortDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentityPoolsList"
        ~of_json:IdentityPoolShortDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentitiesList =
  struct
    type nonrec t = IdentityDescription.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IdentityDescription.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IdentityDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentitiesList"
        ~of_json:IdentityDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module HideDisabled =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module ClassicFlow =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module CognitoIdentityProviderList =
  struct
    type nonrec t = CognitoIdentityProvider.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CognitoIdentityProvider.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:CognitoIdentityProvider.of_xml)
    let of_json j =
      list_of_json ~kind:"CognitoIdentityProviderList"
        ~of_json:CognitoIdentityProvider.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConcurrentModificationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "The message returned by a ConcurrentModificationException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown if there are parallel requests to modify a resource."]
module IdentityPoolUnauthenticated =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module IdentityProviders =
  struct
    type nonrec t = (IdentityProviderName.t * IdentityProviderId.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((IdentityProviderName.of_string chopped),
                              (IdentityProviderId.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (IdentityProviderName.to_value x) |>
                    (fun x ->
                       (IdentityProviderId.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:IdentityProviderName.of_string
        ~of_json:IdentityProviderId.of_json j
    let to_json v = composed_to_json to_value v
  end
module LimitExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by a LimitExceededException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when the total number of user pools has exceeded a preset limit."]
module OIDCProviderList =
  struct
    type nonrec t = ARNString.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ARNString.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ARNString.of_xml)
    let of_json j =
      list_of_json ~kind:"OIDCProviderList" ~of_json:ARNString.of_json j
    let to_json v = composed_to_json to_value v
  end
module SAMLProviderList =
  struct
    type nonrec t = ARNString.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ARNString.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ARNString.of_xml)
    let of_json j =
      list_of_json ~kind:"SAMLProviderList" ~of_json:ARNString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExternalServiceException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "The message returned by an ExternalServiceException"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception thrown when a dependent service such as Facebook or Twitter is not responding"]
module OIDCToken =
  struct
    type nonrec t = string
    let context_ = "OIDCToken"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OIDCToken" j
    let to_json = simple_to_json to_value
  end
module DeveloperUserAlreadyRegisteredException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "This developer user identifier is already registered with Cognito."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The provided developer user identifier is already registered with Cognito under a different identity ID."]
module TokenDuration =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:86400L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () -> check_pattern i ~pattern:"\\d+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module Credentials =
  struct
    type nonrec t =
      {
      accessKeyId: AccessKeyString.t option
        [@ocaml.doc "The Access Key portion of the credentials."];
      secretKey: SecretKeyString.t option
        [@ocaml.doc "The Secret Access Key portion of the credentials"];
      sessionToken: SessionTokenString.t option
        [@ocaml.doc "The Session Token portion of the credentials"];
      expiration: DateType.t option
        [@ocaml.doc "The date at which these credentials will expire."]}
    let make ?accessKeyId =
      fun ?secretKey ->
        fun ?sessionToken ->
          fun ?expiration ->
            fun () -> { accessKeyId; secretKey; sessionToken; expiration }
    let to_value x =
      structure_to_value
        [("AccessKeyId",
           (Option.map x.accessKeyId ~f:AccessKeyString.to_value));
        ("SecretKey", (Option.map x.secretKey ~f:SecretKeyString.to_value));
        ("SessionToken",
          (Option.map x.sessionToken ~f:SessionTokenString.to_value));
        ("Expiration", (Option.map x.expiration ~f:DateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiration =
        (Option.map ~f:DateType.of_xml) (Xml.child xml_arg0 "Expiration") in
      let sessionToken =
        (Option.map ~f:SessionTokenString.of_xml)
          (Xml.child xml_arg0 "SessionToken") in
      let secretKey =
        (Option.map ~f:SecretKeyString.of_xml)
          (Xml.child xml_arg0 "SecretKey") in
      let accessKeyId =
        (Option.map ~f:AccessKeyString.of_xml)
          (Xml.child xml_arg0 "AccessKeyId") in
      make ?expiration ?sessionToken ?secretKey ?accessKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiration = field_map json__ "Expiration" DateType.of_json in
      let sessionToken =
        field_map json__ "SessionToken" SessionTokenString.of_json in
      let secretKey = field_map json__ "SecretKey" SecretKeyString.of_json in
      let accessKeyId =
        field_map json__ "AccessKeyId" AccessKeyString.of_json in
      make ?expiration ?sessionToken ?secretKey ?accessKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Credentials for the provided identity ID."]
module InvalidIdentityPoolConfigurationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "The message returned for an InvalidIdentityPoolConfigurationException"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If you provided authentication information in the request, the identity pool has no authenticated role configured, or STS returned an error response to the request to assume the authenticated role from the identity pool. If you provided no authentication information in the request, the identity pool has no unauthenticated role configured, or STS returned an error response to the request to assume the unauthenticated role from the identity pool. Your role trust policy must grant AssumeRoleWithWebIdentity permissions to cognito-identity.amazonaws.com."]
module UnprocessedIdentityIdList =
  struct
    type nonrec t = UnprocessedIdentityId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:60); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UnprocessedIdentityId.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:UnprocessedIdentityId.of_xml)
    let of_json j =
      list_of_json ~kind:"UnprocessedIdentityIdList"
        ~of_json:UnprocessedIdentityId.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentityIdList =
  struct
    type nonrec t = IdentityId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:60) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IdentityId.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:IdentityId.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentityIdList" ~of_json:IdentityId.of_json j
    let to_json v = composed_to_json to_value v
  end
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified tags from the specified Amazon Cognito identity pool. You can use this action up to 5 times per second, per account"]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ARNString.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the identity pool."];
      tagKeys: IdentityPoolTagsListType.t
        [@ocaml.doc "The keys of the tags to remove from the user pool."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ARNString.to_value x.resourceArn)));
        ("TagKeys", (Some (IdentityPoolTagsListType.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        IdentityPoolTagsListType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        ARNString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys =
        field_map_exn json__ "TagKeys" IdentityPoolTagsListType.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" ARNString.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the specified tags from the specified Amazon Cognito identity pool. You can use this action up to 5 times per second, per account"]
module UnlinkIdentityInput =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      logins: LoginsMap.t
        [@ocaml.doc
          "A set of optional name-value pairs that map provider names to provider tokens."];
      loginsToRemove: LoginsList.t
        [@ocaml.doc "Provider names to unlink from this identity."]}
    let context_ = "UnlinkIdentityInput"
    let make ~identityId =
      fun ~logins ->
        fun ~loginsToRemove ->
          fun () -> { identityId; logins; loginsToRemove }
    let to_value x =
      structure_to_value
        [("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("Logins", (Some (LoginsMap.to_value x.logins)));
        ("LoginsToRemove", (Some (LoginsList.to_value x.loginsToRemove)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loginsToRemove =
        LoginsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LoginsToRemove") in
      let logins =
        LoginsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Logins") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      make ~loginsToRemove ~logins ~identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loginsToRemove =
        field_map_exn json__ "LoginsToRemove" LoginsList.of_json in
      let logins = field_map_exn json__ "Logins" LoginsMap.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      make ~loginsToRemove ~logins ~identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the UnlinkIdentity action."]
module UnlinkDeveloperIdentityInput =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      developerProviderName: DeveloperProviderName.t
        [@ocaml.doc
          "The \"domain\" by which Cognito will refer to your users."];
      developerUserIdentifier: DeveloperUserIdentifier.t
        [@ocaml.doc
          "A unique ID used by your backend authentication process to identify a user."]}
    let context_ = "UnlinkDeveloperIdentityInput"
    let make ~identityId =
      fun ~identityPoolId ->
        fun ~developerProviderName ->
          fun ~developerUserIdentifier ->
            fun () ->
              {
                identityId;
                identityPoolId;
                developerProviderName;
                developerUserIdentifier
              }
    let to_value x =
      structure_to_value
        [("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("IdentityPoolId", (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("DeveloperProviderName",
          (Some (DeveloperProviderName.to_value x.developerProviderName)));
        ("DeveloperUserIdentifier",
          (Some (DeveloperUserIdentifier.to_value x.developerUserIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let developerUserIdentifier =
        DeveloperUserIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeveloperUserIdentifier") in
      let developerProviderName =
        DeveloperProviderName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeveloperProviderName") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      make ~developerUserIdentifier ~developerProviderName ~identityPoolId
        ~identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let developerUserIdentifier =
        field_map_exn json__ "DeveloperUserIdentifier"
          DeveloperUserIdentifier.of_json in
      let developerProviderName =
        field_map_exn json__ "DeveloperProviderName"
          DeveloperProviderName.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      make ~developerUserIdentifier ~developerProviderName ~identityPoolId
        ~identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the UnlinkDeveloperIdentity action."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns a set of tags to the specified Amazon Cognito identity pool. A tag is a label that you can use to categorize and manage identity pools in different ways, such as by purpose, owner, environment, or other criteria. Each tag consists of a key and value, both of which you define. A key is a general category for more specific values. For example, if you have two versions of an identity pool, one for testing and another for production, you might assign an Environment tag key to both identity pools. The value of this key might be Test for one identity pool and Production for the other. Tags are useful for cost tracking and access control. You can activate your tags so that they appear on the Billing and Cost Management console, where you can track the costs associated with your identity pools. In an IAM policy, you can constrain permissions for identity pools based on specific tags or tag values. You can use this action up to 5 times per second, per account. An identity pool can have as many as 50 tags."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ARNString.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the identity pool."];
      tags: IdentityPoolTagsType.t
        [@ocaml.doc "The tags to assign to the identity pool."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ARNString.to_value x.resourceArn)));
        ("Tags", (Some (IdentityPoolTagsType.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        IdentityPoolTagsType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        ARNString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" IdentityPoolTagsType.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" ARNString.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns a set of tags to the specified Amazon Cognito identity pool. A tag is a label that you can use to categorize and manage identity pools in different ways, such as by purpose, owner, environment, or other criteria. Each tag consists of a key and value, both of which you define. A key is a general category for more specific values. For example, if you have two versions of an identity pool, one for testing and another for production, you might assign an Environment tag key to both identity pools. The value of this key might be Test for one identity pool and Production for the other. Tags are useful for cost tracking and access control. You can activate your tags so that they appear on the Billing and Cost Management console, where you can track the costs associated with your identity pools. In an IAM policy, you can constrain permissions for identity pools based on specific tags or tag values. You can use this action up to 5 times per second, per account. An identity pool can have as many as 50 tags."]
module SetPrincipalTagAttributeMapResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "The ID of the Identity Pool you want to set attribute mappings for."];
      identityProviderName: IdentityProviderName.t option
        [@ocaml.doc
          "The provider name you want to use for attribute mappings."];
      useDefaults: UseDefaults.t option
        [@ocaml.doc
          "You can use this operation to select default (username and clientID) attribute mappings."];
      principalTags: PrincipalTags.t option
        [@ocaml.doc
          "You can use this operation to add principal tags. The PrincipalTagsoperation enables you to reference user attributes in your IAM permissions policy."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?identityProviderName ->
        fun ?useDefaults ->
          fun ?principalTags ->
            fun () ->
              {
                identityPoolId;
                identityProviderName;
                useDefaults;
                principalTags
              }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("IdentityProviderName",
          (Option.map x.identityProviderName ~f:IdentityProviderName.to_value));
        ("UseDefaults", (Option.map x.useDefaults ~f:UseDefaults.to_value));
        ("PrincipalTags",
          (Option.map x.principalTags ~f:PrincipalTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principalTags =
        (Option.map ~f:PrincipalTags.of_xml)
          (Xml.child xml_arg0 "PrincipalTags") in
      let useDefaults =
        (Option.map ~f:UseDefaults.of_xml) (Xml.child xml_arg0 "UseDefaults") in
      let identityProviderName =
        (Option.map ~f:IdentityProviderName.of_xml)
          (Xml.child xml_arg0 "IdentityProviderName") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?principalTags ?useDefaults ?identityProviderName ?identityPoolId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principalTags =
        field_map json__ "PrincipalTags" PrincipalTags.of_json in
      let useDefaults = field_map json__ "UseDefaults" UseDefaults.of_json in
      let identityProviderName =
        field_map json__ "IdentityProviderName" IdentityProviderName.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?principalTags ?useDefaults ?identityProviderName ?identityPoolId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use this operation to use default (username and clientID) attribute or custom attribute mappings."]
module SetPrincipalTagAttributeMapInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "The ID of the Identity Pool you want to set attribute mappings for."];
      identityProviderName: IdentityProviderName.t
        [@ocaml.doc
          "The provider name you want to use for attribute mappings."];
      useDefaults: UseDefaults.t option
        [@ocaml.doc
          "You can use this operation to use default (username and clientID) attribute mappings."];
      principalTags: PrincipalTags.t option
        [@ocaml.doc "You can use this operation to add principal tags."]}
    let context_ = "SetPrincipalTagAttributeMapInput"
    let make ?useDefaults =
      fun ?principalTags ->
        fun ~identityPoolId ->
          fun ~identityProviderName ->
            fun () ->
              {
                useDefaults;
                principalTags;
                identityPoolId;
                identityProviderName
              }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityProviderName",
          (Some (IdentityProviderName.to_value x.identityProviderName)));
        ("UseDefaults", (Option.map x.useDefaults ~f:UseDefaults.to_value));
        ("PrincipalTags",
          (Option.map x.principalTags ~f:PrincipalTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principalTags =
        (Option.map ~f:PrincipalTags.of_xml)
          (Xml.child xml_arg0 "PrincipalTags") in
      let useDefaults =
        (Option.map ~f:UseDefaults.of_xml) (Xml.child xml_arg0 "UseDefaults") in
      let identityProviderName =
        IdentityProviderName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityProviderName") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?principalTags ?useDefaults ~identityProviderName ~identityPoolId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principalTags =
        field_map json__ "PrincipalTags" PrincipalTags.of_json in
      let useDefaults = field_map json__ "UseDefaults" UseDefaults.of_json in
      let identityProviderName =
        field_map_exn json__ "IdentityProviderName"
          IdentityProviderName.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?principalTags ?useDefaults ~identityProviderName ~identityPoolId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can use this operation to use default (username and clientID) attribute or custom attribute mappings."]
module SetIdentityPoolRolesInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      roles: RolesMap.t
        [@ocaml.doc
          "The map of roles associated with this pool. For a given role, the key will be either \"authenticated\" or \"unauthenticated\" and the value will be the Role ARN."];
      roleMappings: RoleMappingMap.t option
        [@ocaml.doc
          "How users for a specific identity provider are to mapped to roles. This is a string to RoleMapping object map. The string identifies the identity provider, for example, graph.facebook.com or cognito-idp.us-east-1.amazonaws.com/us-east-1_abcdefghi:app_client_id. Up to 25 rules can be specified per identity provider."]}
    let context_ = "SetIdentityPoolRolesInput"
    let make ?roleMappings =
      fun ~identityPoolId ->
        fun ~roles -> fun () -> { roleMappings; identityPoolId; roles }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("Roles", (Some (RolesMap.to_value x.roles)));
        ("RoleMappings",
          (Option.map x.roleMappings ~f:RoleMappingMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleMappings =
        (Option.map ~f:RoleMappingMap.of_xml)
          (Xml.child xml_arg0 "RoleMappings") in
      let roles =
        RolesMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Roles") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?roleMappings ~roles ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleMappings =
        field_map json__ "RoleMappings" RoleMappingMap.of_json in
      let roles = field_map_exn json__ "Roles" RolesMap.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?roleMappings ~roles ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the SetIdentityPoolRoles action."]
module MergeDeveloperIdentitiesResponse =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId = fun () -> { identityId }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful MergeDeveloperIdentities action."]
module MergeDeveloperIdentitiesInput =
  struct
    type nonrec t =
      {
      sourceUserIdentifier: DeveloperUserIdentifier.t
        [@ocaml.doc
          "User identifier for the source user. The value should be a DeveloperUserIdentifier."];
      destinationUserIdentifier: DeveloperUserIdentifier.t
        [@ocaml.doc
          "User identifier for the destination user. The value should be a DeveloperUserIdentifier."];
      developerProviderName: DeveloperProviderName.t
        [@ocaml.doc
          "The \"domain\" by which Cognito will refer to your users. This is a (pseudo) domain name that you provide while creating an identity pool. This name acts as a placeholder that allows your backend and the Cognito service to communicate about the developer provider. For the DeveloperProviderName, you can use letters as well as period (.), underscore (_), and dash (-)."];
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."]}
    let context_ = "MergeDeveloperIdentitiesInput"
    let make ~sourceUserIdentifier =
      fun ~destinationUserIdentifier ->
        fun ~developerProviderName ->
          fun ~identityPoolId ->
            fun () ->
              {
                sourceUserIdentifier;
                destinationUserIdentifier;
                developerProviderName;
                identityPoolId
              }
    let to_value x =
      structure_to_value
        [("SourceUserIdentifier",
           (Some (DeveloperUserIdentifier.to_value x.sourceUserIdentifier)));
        ("DestinationUserIdentifier",
          (Some
             (DeveloperUserIdentifier.to_value x.destinationUserIdentifier)));
        ("DeveloperProviderName",
          (Some (DeveloperProviderName.to_value x.developerProviderName)));
        ("IdentityPoolId", (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      let developerProviderName =
        DeveloperProviderName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeveloperProviderName") in
      let destinationUserIdentifier =
        DeveloperUserIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "DestinationUserIdentifier") in
      let sourceUserIdentifier =
        DeveloperUserIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceUserIdentifier") in
      make ~identityPoolId ~developerProviderName ~destinationUserIdentifier
        ~sourceUserIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      let developerProviderName =
        field_map_exn json__ "DeveloperProviderName"
          DeveloperProviderName.of_json in
      let destinationUserIdentifier =
        field_map_exn json__ "DestinationUserIdentifier"
          DeveloperUserIdentifier.of_json in
      let sourceUserIdentifier =
        field_map_exn json__ "SourceUserIdentifier"
          DeveloperUserIdentifier.of_json in
      make ~identityPoolId ~developerProviderName ~destinationUserIdentifier
        ~sourceUserIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the MergeDeveloperIdentities action."]
module LookupDeveloperIdentityResponse =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      developerUserIdentifierList: DeveloperUserIdentifierList.t option
        [@ocaml.doc
          "This is the list of developer user identifiers associated with an identity ID. Cognito supports the association of multiple developer user identifiers with an identity ID."];
      nextToken: PaginationKey.t option
        [@ocaml.doc
          "A pagination token. The first call you make will have NextToken set to null. After that the service will return NextToken values as needed. For example, let's say you make a request with MaxResults set to 10, and there are 20 matches in the database. The service will return a pagination token as a part of the response. This token can be used to call the API again and get results starting from the 11th match."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId =
      fun ?developerUserIdentifierList ->
        fun ?nextToken ->
          fun () -> { identityId; developerUserIdentifierList; nextToken }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("DeveloperUserIdentifierList",
          (Option.map x.developerUserIdentifierList
             ~f:DeveloperUserIdentifierList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationKey.of_xml) (Xml.child xml_arg0 "NextToken") in
      let developerUserIdentifierList =
        (Option.map ~f:DeveloperUserIdentifierList.of_xml)
          (Xml.child xml_arg0 "DeveloperUserIdentifierList") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?nextToken ?developerUserIdentifierList ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationKey.of_json in
      let developerUserIdentifierList =
        field_map json__ "DeveloperUserIdentifierList"
          DeveloperUserIdentifierList.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?nextToken ?developerUserIdentifierList ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful LookupDeveloperIdentity action."]
module LookupDeveloperIdentityInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      developerUserIdentifier: DeveloperUserIdentifier.t option
        [@ocaml.doc
          "A unique ID used by your backend authentication process to identify a user. Typically, a developer identity provider would issue many developer user identifiers, in keeping with the number of users."];
      maxResults: QueryLimit.t option
        [@ocaml.doc "The maximum number of identities to return."];
      nextToken: PaginationKey.t option
        [@ocaml.doc
          "A pagination token. The first call you make will have NextToken set to null. After that the service will return NextToken values as needed. For example, let's say you make a request with MaxResults set to 10, and there are 20 matches in the database. The service will return a pagination token as a part of the response. This token can be used to call the API again and get results starting from the 11th match."]}
    let context_ = "LookupDeveloperIdentityInput"
    let make ?identityId =
      fun ?developerUserIdentifier ->
        fun ?maxResults ->
          fun ?nextToken ->
            fun ~identityPoolId ->
              fun () ->
                {
                  identityId;
                  developerUserIdentifier;
                  maxResults;
                  nextToken;
                  identityPoolId
                }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("DeveloperUserIdentifier",
          (Option.map x.developerUserIdentifier
             ~f:DeveloperUserIdentifier.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:QueryLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationKey.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:QueryLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let developerUserIdentifier =
        (Option.map ~f:DeveloperUserIdentifier.of_xml)
          (Xml.child xml_arg0 "DeveloperUserIdentifier") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?nextToken ?maxResults ?developerUserIdentifier ?identityId
        ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationKey.of_json in
      let maxResults = field_map json__ "MaxResults" QueryLimit.of_json in
      let developerUserIdentifier =
        field_map json__ "DeveloperUserIdentifier"
          DeveloperUserIdentifier.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?nextToken ?maxResults ?developerUserIdentifier ?identityId
        ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the LookupDeveloperIdentityInput action."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: IdentityPoolTagsType.t option
        [@ocaml.doc "The tags that are assigned to the identity pool."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Tags", (Option.map x.tags ~f:IdentityPoolTagsType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:IdentityPoolTagsType.of_xml)
          (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" IdentityPoolTagsType.of_json in
      make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags that are assigned to an Amazon Cognito identity pool. A tag is a label that you can apply to identity pools to categorize and manage them in different ways, such as by purpose, owner, environment, or other criteria. You can use this action up to 10 times per second, per account."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ARNString.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the identity pool that the tags are assigned to."]}
    let context_ = "ListTagsForResourceInput"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (ARNString.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        ARNString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "ResourceArn" ARNString.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags that are assigned to an Amazon Cognito identity pool. A tag is a label that you can apply to identity pools to categorize and manage them in different ways, such as by purpose, owner, environment, or other criteria. You can use this action up to 10 times per second, per account."]
module ListIdentityPoolsResponse =
  struct
    type nonrec t =
      {
      identityPools: IdentityPoolsList.t option
        [@ocaml.doc
          "The identity pools returned by the ListIdentityPools action."];
      nextToken: PaginationKey.t option [@ocaml.doc "A pagination token."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPools =
      fun ?nextToken -> fun () -> { identityPools; nextToken }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPools",
           (Option.map x.identityPools ~f:IdentityPoolsList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationKey.of_xml) (Xml.child xml_arg0 "NextToken") in
      let identityPools =
        (Option.map ~f:IdentityPoolsList.of_xml)
          (Xml.child xml_arg0 "IdentityPools") in
      make ?nextToken ?identityPools ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationKey.of_json in
      let identityPools =
        field_map json__ "IdentityPools" IdentityPoolsList.of_json in
      make ?nextToken ?identityPools ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a successful ListIdentityPools action."]
module ListIdentityPoolsInput =
  struct
    type nonrec t =
      {
      maxResults: QueryLimit.t
        [@ocaml.doc "The maximum number of identities to return."];
      nextToken: PaginationKey.t option [@ocaml.doc "A pagination token."]}
    let context_ = "ListIdentityPoolsInput"
    let make ?nextToken =
      fun ~maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("MaxResults", (Some (QueryLimit.to_value x.maxResults)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationKey.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        QueryLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MaxResults") in
      make ?nextToken ~maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationKey.of_json in
      let maxResults = field_map_exn json__ "MaxResults" QueryLimit.of_json in
      make ?nextToken ~maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the ListIdentityPools action."]
module ListIdentitiesResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      identities: IdentitiesList.t option
        [@ocaml.doc
          "An object containing a set of identities and associated mappings."];
      nextToken: PaginationKey.t option [@ocaml.doc "A pagination token."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?identities ->
        fun ?nextToken -> fun () -> { identityPoolId; identities; nextToken }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("Identities", (Option.map x.identities ~f:IdentitiesList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:PaginationKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationKey.of_xml) (Xml.child xml_arg0 "NextToken") in
      let identities =
        (Option.map ~f:IdentitiesList.of_xml)
          (Xml.child xml_arg0 "Identities") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?nextToken ?identities ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" PaginationKey.of_json in
      let identities = field_map json__ "Identities" IdentitiesList.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?nextToken ?identities ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response to a ListIdentities request."]
module ListIdentitiesInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      maxResults: QueryLimit.t
        [@ocaml.doc "The maximum number of identities to return."];
      nextToken: PaginationKey.t option [@ocaml.doc "A pagination token."];
      hideDisabled: HideDisabled.t option
        [@ocaml.doc
          "An optional boolean parameter that allows you to hide disabled identities. If omitted, the ListIdentities API will include disabled identities in the response."]}
    let context_ = "ListIdentitiesInput"
    let make ?nextToken =
      fun ?hideDisabled ->
        fun ~identityPoolId ->
          fun ~maxResults ->
            fun () -> { nextToken; hideDisabled; identityPoolId; maxResults }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("MaxResults", (Some (QueryLimit.to_value x.maxResults)));
        ("NextToken", (Option.map x.nextToken ~f:PaginationKey.to_value));
        ("HideDisabled",
          (Option.map x.hideDisabled ~f:HideDisabled.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hideDisabled =
        (Option.map ~f:HideDisabled.of_xml)
          (Xml.child xml_arg0 "HideDisabled") in
      let nextToken =
        (Option.map ~f:PaginationKey.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        QueryLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MaxResults") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?hideDisabled ?nextToken ~maxResults ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hideDisabled = field_map json__ "HideDisabled" HideDisabled.of_json in
      let nextToken = field_map json__ "NextToken" PaginationKey.of_json in
      let maxResults = field_map_exn json__ "MaxResults" QueryLimit.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?hideDisabled ?nextToken ~maxResults ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the ListIdentities action."]
module IdentityPool =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      identityPoolName: IdentityPoolName.t
        [@ocaml.doc "A string that you provide."];
      allowUnauthenticatedIdentities: IdentityPoolUnauthenticated.t
        [@ocaml.doc
          "TRUE if the identity pool supports unauthenticated logins."];
      allowClassicFlow: ClassicFlow.t option
        [@ocaml.doc
          "Enables or disables the Basic (Classic) authentication flow. For more information, see Identity Pools (Federated Identities) Authentication Flow in the Amazon Cognito Developer Guide."];
      supportedLoginProviders: IdentityProviders.t option
        [@ocaml.doc
          "Optional key:value pairs mapping provider names to provider app IDs."];
      developerProviderName: DeveloperProviderName.t option
        [@ocaml.doc
          "The \"domain\" by which Cognito will refer to your users."];
      openIdConnectProviderARNs: OIDCProviderList.t option
        [@ocaml.doc "The ARNs of the OpenID Connect providers."];
      cognitoIdentityProviders: CognitoIdentityProviderList.t option
        [@ocaml.doc
          "A list representing an Amazon Cognito user pool and its client ID."];
      samlProviderARNs: SAMLProviderList.t option
        [@ocaml.doc
          "An array of Amazon Resource Names (ARNs) of the SAML provider for your identity pool."];
      identityPoolTags: IdentityPoolTagsType.t option
        [@ocaml.doc
          "The tags that are assigned to the identity pool. A tag is a label that you can apply to identity pools to categorize and manage them in different ways, such as by purpose, owner, environment, or other criteria."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "IdentityPool"
    let make ?allowClassicFlow =
      fun ?supportedLoginProviders ->
        fun ?developerProviderName ->
          fun ?openIdConnectProviderARNs ->
            fun ?cognitoIdentityProviders ->
              fun ?samlProviderARNs ->
                fun ?identityPoolTags ->
                  fun ~identityPoolId ->
                    fun ~identityPoolName ->
                      fun ~allowUnauthenticatedIdentities ->
                        fun () ->
                          {
                            allowClassicFlow;
                            supportedLoginProviders;
                            developerProviderName;
                            openIdConnectProviderARNs;
                            cognitoIdentityProviders;
                            samlProviderARNs;
                            identityPoolTags;
                            identityPoolId;
                            identityPoolName;
                            allowUnauthenticatedIdentities
                          }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityPoolName",
          (Some (IdentityPoolName.to_value x.identityPoolName)));
        ("AllowUnauthenticatedIdentities",
          (Some
             (IdentityPoolUnauthenticated.to_value
                x.allowUnauthenticatedIdentities)));
        ("AllowClassicFlow",
          (Option.map x.allowClassicFlow ~f:ClassicFlow.to_value));
        ("SupportedLoginProviders",
          (Option.map x.supportedLoginProviders ~f:IdentityProviders.to_value));
        ("DeveloperProviderName",
          (Option.map x.developerProviderName
             ~f:DeveloperProviderName.to_value));
        ("OpenIdConnectProviderARNs",
          (Option.map x.openIdConnectProviderARNs
             ~f:OIDCProviderList.to_value));
        ("CognitoIdentityProviders",
          (Option.map x.cognitoIdentityProviders
             ~f:CognitoIdentityProviderList.to_value));
        ("SamlProviderARNs",
          (Option.map x.samlProviderARNs ~f:SAMLProviderList.to_value));
        ("IdentityPoolTags",
          (Option.map x.identityPoolTags ~f:IdentityPoolTagsType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolTags =
        (Option.map ~f:IdentityPoolTagsType.of_xml)
          (Xml.child xml_arg0 "IdentityPoolTags") in
      let samlProviderARNs =
        (Option.map ~f:SAMLProviderList.of_xml)
          (Xml.child xml_arg0 "SamlProviderARNs") in
      let cognitoIdentityProviders =
        (Option.map ~f:CognitoIdentityProviderList.of_xml)
          (Xml.child xml_arg0 "CognitoIdentityProviders") in
      let openIdConnectProviderARNs =
        (Option.map ~f:OIDCProviderList.of_xml)
          (Xml.child xml_arg0 "OpenIdConnectProviderARNs") in
      let developerProviderName =
        (Option.map ~f:DeveloperProviderName.of_xml)
          (Xml.child xml_arg0 "DeveloperProviderName") in
      let supportedLoginProviders =
        (Option.map ~f:IdentityProviders.of_xml)
          (Xml.child xml_arg0 "SupportedLoginProviders") in
      let allowClassicFlow =
        (Option.map ~f:ClassicFlow.of_xml)
          (Xml.child xml_arg0 "AllowClassicFlow") in
      let allowUnauthenticatedIdentities =
        IdentityPoolUnauthenticated.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AllowUnauthenticatedIdentities") in
      let identityPoolName =
        IdentityPoolName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolName") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?identityPoolTags ?samlProviderARNs ?cognitoIdentityProviders
        ?openIdConnectProviderARNs ?developerProviderName
        ?supportedLoginProviders ?allowClassicFlow
        ~allowUnauthenticatedIdentities ~identityPoolName ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolTags =
        field_map json__ "IdentityPoolTags" IdentityPoolTagsType.of_json in
      let samlProviderARNs =
        field_map json__ "SamlProviderARNs" SAMLProviderList.of_json in
      let cognitoIdentityProviders =
        field_map json__ "CognitoIdentityProviders"
          CognitoIdentityProviderList.of_json in
      let openIdConnectProviderARNs =
        field_map json__ "OpenIdConnectProviderARNs" OIDCProviderList.of_json in
      let developerProviderName =
        field_map json__ "DeveloperProviderName"
          DeveloperProviderName.of_json in
      let supportedLoginProviders =
        field_map json__ "SupportedLoginProviders" IdentityProviders.of_json in
      let allowClassicFlow =
        field_map json__ "AllowClassicFlow" ClassicFlow.of_json in
      let allowUnauthenticatedIdentities =
        field_map_exn json__ "AllowUnauthenticatedIdentities"
          IdentityPoolUnauthenticated.of_json in
      let identityPoolName =
        field_map_exn json__ "IdentityPoolName" IdentityPoolName.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?identityPoolTags ?samlProviderARNs ?cognitoIdentityProviders
        ?openIdConnectProviderARNs ?developerProviderName
        ?supportedLoginProviders ?allowClassicFlow
        ~allowUnauthenticatedIdentities ~identityPoolName ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object representing an Amazon Cognito identity pool."]
module GetPrincipalTagAttributeMapResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "You can use this operation to get the ID of the Identity Pool you setup attribute mappings for."];
      identityProviderName: IdentityProviderName.t option
        [@ocaml.doc "You can use this operation to get the provider name."];
      useDefaults: UseDefaults.t option
        [@ocaml.doc "You can use this operation to list"];
      principalTags: PrincipalTags.t option
        [@ocaml.doc
          "You can use this operation to add principal tags. The PrincipalTagsoperation enables you to reference user attributes in your IAM permissions policy."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?identityProviderName ->
        fun ?useDefaults ->
          fun ?principalTags ->
            fun () ->
              {
                identityPoolId;
                identityProviderName;
                useDefaults;
                principalTags
              }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("IdentityProviderName",
          (Option.map x.identityProviderName ~f:IdentityProviderName.to_value));
        ("UseDefaults", (Option.map x.useDefaults ~f:UseDefaults.to_value));
        ("PrincipalTags",
          (Option.map x.principalTags ~f:PrincipalTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principalTags =
        (Option.map ~f:PrincipalTags.of_xml)
          (Xml.child xml_arg0 "PrincipalTags") in
      let useDefaults =
        (Option.map ~f:UseDefaults.of_xml) (Xml.child xml_arg0 "UseDefaults") in
      let identityProviderName =
        (Option.map ~f:IdentityProviderName.of_xml)
          (Xml.child xml_arg0 "IdentityProviderName") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?principalTags ?useDefaults ?identityProviderName ?identityPoolId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principalTags =
        field_map json__ "PrincipalTags" PrincipalTags.of_json in
      let useDefaults = field_map json__ "UseDefaults" UseDefaults.of_json in
      let identityProviderName =
        field_map json__ "IdentityProviderName" IdentityProviderName.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?principalTags ?useDefaults ?identityProviderName ?identityPoolId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use GetPrincipalTagAttributeMap to list all mappings between PrincipalTags and user attributes."]
module GetPrincipalTagAttributeMapInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "You can use this operation to get the ID of the Identity Pool you setup attribute mappings for."];
      identityProviderName: IdentityProviderName.t
        [@ocaml.doc "You can use this operation to get the provider name."]}
    let context_ = "GetPrincipalTagAttributeMapInput"
    let make ~identityPoolId =
      fun ~identityProviderName ->
        fun () -> { identityPoolId; identityProviderName }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityProviderName",
          (Some (IdentityProviderName.to_value x.identityProviderName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityProviderName =
        IdentityProviderName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityProviderName") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityProviderName ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityProviderName =
        field_map_exn json__ "IdentityProviderName"
          IdentityProviderName.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityProviderName ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use GetPrincipalTagAttributeMap to list all mappings between PrincipalTags and user attributes."]
module GetOpenIdTokenResponse =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc
          "A unique identifier in the format REGION:GUID. Note that the IdentityId returned may not match the one passed on input."];
      token: OIDCToken.t option
        [@ocaml.doc "An OpenID token, valid for 10 minutes."]}
    type nonrec error =
      [ `ExternalServiceException of ExternalServiceException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId = fun ?token -> fun () -> { identityId; token }
    let error_of_json name json =
      match name with
      | "ExternalServiceException" ->
          `ExternalServiceException (ExternalServiceException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ExternalServiceException" ->
          `ExternalServiceException (ExternalServiceException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ExternalServiceException e ->
          `Assoc
            [("error", (`String "ExternalServiceException"));
            ("details", (ExternalServiceException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("Token", (Option.map x.token ~f:OIDCToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let token =
        (Option.map ~f:OIDCToken.of_xml) (Xml.child xml_arg0 "Token") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?token ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let token = field_map json__ "Token" OIDCToken.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?token ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful GetOpenIdToken request."]
module GetOpenIdTokenInput =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      logins: LoginsMap.t option
        [@ocaml.doc
          "A set of optional name-value pairs that map provider names to provider tokens. When using graph.facebook.com and www.amazon.com, supply the access_token returned from the provider's authflow. For accounts.google.com, an Amazon Cognito user pool provider, or any other OpenID Connect provider, always include the id_token."]}
    let context_ = "GetOpenIdTokenInput"
    let make ?logins = fun ~identityId -> fun () -> { logins; identityId }
    let to_value x =
      structure_to_value
        [("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("Logins", (Option.map x.logins ~f:LoginsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logins =
        (Option.map ~f:LoginsMap.of_xml) (Xml.child xml_arg0 "Logins") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      make ?logins ~identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logins = field_map json__ "Logins" LoginsMap.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      make ?logins ~identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the GetOpenIdToken action."]
module GetOpenIdTokenForDeveloperIdentityResponse =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      token: OIDCToken.t option [@ocaml.doc "An OpenID token."]}
    type nonrec error =
      [
        `DeveloperUserAlreadyRegisteredException of
          DeveloperUserAlreadyRegisteredException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId = fun ?token -> fun () -> { identityId; token }
    let error_of_json name json =
      match name with
      | "DeveloperUserAlreadyRegisteredException" ->
          `DeveloperUserAlreadyRegisteredException
            (DeveloperUserAlreadyRegisteredException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeveloperUserAlreadyRegisteredException" ->
          `DeveloperUserAlreadyRegisteredException
            (DeveloperUserAlreadyRegisteredException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeveloperUserAlreadyRegisteredException e ->
          `Assoc
            [("error", (`String "DeveloperUserAlreadyRegisteredException"));
            ("details", (DeveloperUserAlreadyRegisteredException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("Token", (Option.map x.token ~f:OIDCToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let token =
        (Option.map ~f:OIDCToken.of_xml) (Xml.child xml_arg0 "Token") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?token ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let token = field_map json__ "Token" OIDCToken.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?token ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful GetOpenIdTokenForDeveloperIdentity request."]
module GetOpenIdTokenForDeveloperIdentityInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      logins: LoginsMap.t
        [@ocaml.doc
          "A set of optional name-value pairs that map provider names to provider tokens. Each name-value pair represents a user from a public provider or developer provider. If the user is from a developer provider, the name-value pair will follow the syntax \"developer_provider_name\": \"developer_user_identifier\". The developer provider is the \"domain\" by which Cognito will refer to your users; you provided this domain while creating/updating the identity pool. The developer user identifier is an identifier from your backend that uniquely identifies a user. When you create an identity pool, you can specify the supported logins."];
      principalTags: PrincipalTags.t option
        [@ocaml.doc
          "Use this operation to configure attribute mappings for custom providers."];
      tokenDuration: TokenDuration.t option
        [@ocaml.doc
          "The expiration time of the token, in seconds. You can specify a custom expiration time for the token so that you can cache it. If you don't provide an expiration time, the token is valid for 15 minutes. You can exchange the token with Amazon STS for temporary Amazon Web Services credentials, which are valid for a maximum of one hour. The maximum token duration you can set is 24 hours. You should take care in setting the expiration time for a token, as there are significant security implications: an attacker could use a leaked token to access your Amazon Web Services resources for the token's duration. Please provide for a small grace period, usually no more than 5 minutes, to account for clock skew."]}
    let context_ = "GetOpenIdTokenForDeveloperIdentityInput"
    let make ?identityId =
      fun ?principalTags ->
        fun ?tokenDuration ->
          fun ~identityPoolId ->
            fun ~logins ->
              fun () ->
                {
                  identityId;
                  principalTags;
                  tokenDuration;
                  identityPoolId;
                  logins
                }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("Logins", (Some (LoginsMap.to_value x.logins)));
        ("PrincipalTags",
          (Option.map x.principalTags ~f:PrincipalTags.to_value));
        ("TokenDuration",
          (Option.map x.tokenDuration ~f:TokenDuration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tokenDuration =
        (Option.map ~f:TokenDuration.of_xml)
          (Xml.child xml_arg0 "TokenDuration") in
      let principalTags =
        (Option.map ~f:PrincipalTags.of_xml)
          (Xml.child xml_arg0 "PrincipalTags") in
      let logins =
        LoginsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Logins") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?tokenDuration ?principalTags ~logins ?identityId ~identityPoolId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tokenDuration =
        field_map json__ "TokenDuration" TokenDuration.of_json in
      let principalTags =
        field_map json__ "PrincipalTags" PrincipalTags.of_json in
      let logins = field_map_exn json__ "Logins" LoginsMap.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?tokenDuration ?principalTags ~logins ?identityId ~identityPoolId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the GetOpenIdTokenForDeveloperIdentity action."]
module GetIdentityPoolRolesResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      roles: RolesMap.t option
        [@ocaml.doc
          "The map of roles associated with this pool. Currently only authenticated and unauthenticated roles are supported."];
      roleMappings: RoleMappingMap.t option
        [@ocaml.doc
          "How users for a specific identity provider are to mapped to roles. This is a String-to-RoleMapping object map. The string identifies the identity provider, for example, graph.facebook.com or cognito-idp.us-east-1.amazonaws.com/us-east-1_abcdefghi:app_client_id."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?roles ->
        fun ?roleMappings ->
          fun () -> { identityPoolId; roles; roleMappings }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("Roles", (Option.map x.roles ~f:RolesMap.to_value));
        ("RoleMappings",
          (Option.map x.roleMappings ~f:RoleMappingMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleMappings =
        (Option.map ~f:RoleMappingMap.of_xml)
          (Xml.child xml_arg0 "RoleMappings") in
      let roles =
        (Option.map ~f:RolesMap.of_xml) (Xml.child xml_arg0 "Roles") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?roleMappings ?roles ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleMappings =
        field_map json__ "RoleMappings" RoleMappingMap.of_json in
      let roles = field_map json__ "Roles" RolesMap.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?roleMappings ?roles ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful GetIdentityPoolRoles operation."]
module GetIdentityPoolRolesInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."]}
    let context_ = "GetIdentityPoolRolesInput"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the GetIdentityPoolRoles action."]
module GetIdResponse =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."]}
    type nonrec error =
      [ `ExternalServiceException of ExternalServiceException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId = fun () -> { identityId }
    let error_of_json name json =
      match name with
      | "ExternalServiceException" ->
          `ExternalServiceException (ExternalServiceException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ExternalServiceException" ->
          `ExternalServiceException (ExternalServiceException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ExternalServiceException e ->
          `Assoc
            [("error", (`String "ExternalServiceException"));
            ("details", (ExternalServiceException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned in response to a GetId request."]
module GetIdInput =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc "A standard Amazon Web Services account ID (9+ digits)."];
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."];
      logins: LoginsMap.t option
        [@ocaml.doc
          "A set of optional name-value pairs that map provider names to provider tokens. The available provider names for Logins are as follows: Facebook: graph.facebook.com Amazon Cognito user pool: cognito-idp.<region>.amazonaws.com/<YOUR_USER_POOL_ID>, for example, cognito-idp.us-east-1.amazonaws.com/us-east-1_123456789. Google: accounts.google.com Amazon: www.amazon.com Twitter: api.twitter.com Digits: www.digits.com"]}
    let context_ = "GetIdInput"
    let make ?accountId =
      fun ?logins ->
        fun ~identityPoolId ->
          fun () -> { accountId; logins; identityPoolId }
    let to_value x =
      structure_to_value
        [("AccountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("IdentityPoolId", (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("Logins", (Option.map x.logins ~f:LoginsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let logins =
        (Option.map ~f:LoginsMap.of_xml) (Xml.child xml_arg0 "Logins") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "AccountId") in
      make ?logins ~identityPoolId ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let logins = field_map json__ "Logins" LoginsMap.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      let accountId = field_map json__ "AccountId" AccountId.of_json in
      make ?logins ~identityPoolId ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the GetId action."]
module GetCredentialsForIdentityResponse =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      credentials: Credentials.t option
        [@ocaml.doc "Credentials for the provided identity ID."]}
    type nonrec error =
      [ `ExternalServiceException of ExternalServiceException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidIdentityPoolConfigurationException of
          InvalidIdentityPoolConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityId =
      fun ?credentials -> fun () -> { identityId; credentials }
    let error_of_json name json =
      match name with
      | "ExternalServiceException" ->
          `ExternalServiceException (ExternalServiceException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidIdentityPoolConfigurationException" ->
          `InvalidIdentityPoolConfigurationException
            (InvalidIdentityPoolConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ExternalServiceException" ->
          `ExternalServiceException (ExternalServiceException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidIdentityPoolConfigurationException" ->
          `InvalidIdentityPoolConfigurationException
            (InvalidIdentityPoolConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ExternalServiceException e ->
          `Assoc
            [("error", (`String "ExternalServiceException"));
            ("details", (ExternalServiceException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidIdentityPoolConfigurationException e ->
          `Assoc
            [("error", (`String "InvalidIdentityPoolConfigurationException"));
            ("details",
              (InvalidIdentityPoolConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("Credentials", (Option.map x.credentials ~f:Credentials.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let credentials =
        (Option.map ~f:Credentials.of_xml) (Xml.child xml_arg0 "Credentials") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?credentials ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let credentials = field_map json__ "Credentials" Credentials.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?credentials ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful GetCredentialsForIdentity operation."]
module GetCredentialsForIdentityInput =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t
        [@ocaml.doc "A unique identifier in the format REGION:GUID."];
      logins: LoginsMap.t option
        [@ocaml.doc
          "A set of optional name-value pairs that map provider names to provider tokens. The name-value pair will follow the syntax \"provider_name\": \"provider_user_identifier\". Logins should not be specified when trying to get credentials for an unauthenticated identity. The Logins parameter is required when using identities associated with external identity providers such as Facebook. For examples of Logins maps, see the code examples in the External Identity Providers section of the Amazon Cognito Developer Guide."];
      customRoleArn: ARNString.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the role to be assumed when multiple roles were received in the token from the identity provider. For example, a SAML-based identity provider. This parameter is optional for identity providers that do not support role customization."]}
    let context_ = "GetCredentialsForIdentityInput"
    let make ?logins =
      fun ?customRoleArn ->
        fun ~identityId -> fun () -> { logins; customRoleArn; identityId }
    let to_value x =
      structure_to_value
        [("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("Logins", (Option.map x.logins ~f:LoginsMap.to_value));
        ("CustomRoleArn", (Option.map x.customRoleArn ~f:ARNString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customRoleArn =
        (Option.map ~f:ARNString.of_xml) (Xml.child xml_arg0 "CustomRoleArn") in
      let logins =
        (Option.map ~f:LoginsMap.of_xml) (Xml.child xml_arg0 "Logins") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      make ?customRoleArn ?logins ~identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customRoleArn = field_map json__ "CustomRoleArn" ARNString.of_json in
      let logins = field_map json__ "Logins" LoginsMap.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      make ?customRoleArn ?logins ~identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the GetCredentialsForIdentity action."]
module DescribeIdentityPoolInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."]}
    let context_ = "DescribeIdentityPoolInput"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the DescribeIdentityPool action."]
module DescribeIdentityInput =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t
        [@ocaml.doc "A unique identifier in the format REGION:GUID."]}
    let context_ = "DescribeIdentityInput"
    let make ~identityId = fun () -> { identityId }
    let to_value x =
      structure_to_value
        [("IdentityId", (Some (IdentityId.to_value x.identityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      make ~identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      make ~identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the DescribeIdentity action."]
module DeleteIdentityPoolInput =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "An identity pool ID in the format REGION:GUID."]}
    let context_ = "DeleteIdentityPoolInput"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the DeleteIdentityPool action."]
module DeleteIdentitiesResponse =
  struct
    type nonrec t =
      {
      unprocessedIdentityIds: UnprocessedIdentityIdList.t option
        [@ocaml.doc
          "An array of UnprocessedIdentityId objects, each of which contains an ErrorCode and IdentityId."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?unprocessedIdentityIds = fun () -> { unprocessedIdentityIds }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("UnprocessedIdentityIds",
           (Option.map x.unprocessedIdentityIds
              ~f:UnprocessedIdentityIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unprocessedIdentityIds =
        (Option.map ~f:UnprocessedIdentityIdList.of_xml)
          (Xml.child xml_arg0 "UnprocessedIdentityIds") in
      make ?unprocessedIdentityIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unprocessedIdentityIds =
        field_map json__ "UnprocessedIdentityIds"
          UnprocessedIdentityIdList.of_json in
      make ?unprocessedIdentityIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned in response to a successful DeleteIdentities operation."]
module DeleteIdentitiesInput =
  struct
    type nonrec t =
      {
      identityIdsToDelete: IdentityIdList.t
        [@ocaml.doc "A list of 1-60 identities that you want to delete."]}
    let context_ = "DeleteIdentitiesInput"
    let make ~identityIdsToDelete = fun () -> { identityIdsToDelete }
    let to_value x =
      structure_to_value
        [("IdentityIdsToDelete",
           (Some (IdentityIdList.to_value x.identityIdsToDelete)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityIdsToDelete =
        IdentityIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityIdsToDelete") in
      make ~identityIdsToDelete ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityIdsToDelete =
        field_map_exn json__ "IdentityIdsToDelete" IdentityIdList.of_json in
      make ~identityIdsToDelete ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the DeleteIdentities action."]
module CreateIdentityPoolInput =
  struct
    type nonrec t =
      {
      identityPoolName: IdentityPoolName.t
        [@ocaml.doc "A string that you provide."];
      allowUnauthenticatedIdentities: IdentityPoolUnauthenticated.t
        [@ocaml.doc
          "TRUE if the identity pool supports unauthenticated logins."];
      allowClassicFlow: ClassicFlow.t option
        [@ocaml.doc
          "Enables or disables the Basic (Classic) authentication flow. For more information, see Identity Pools (Federated Identities) Authentication Flow in the Amazon Cognito Developer Guide."];
      supportedLoginProviders: IdentityProviders.t option
        [@ocaml.doc
          "Optional key:value pairs mapping provider names to provider app IDs."];
      developerProviderName: DeveloperProviderName.t option
        [@ocaml.doc
          "The \"domain\" by which Cognito will refer to your users. This name acts as a placeholder that allows your backend and the Cognito service to communicate about the developer provider. For the DeveloperProviderName, you can use letters as well as period (.), underscore (_), and dash (-). Once you have set a developer provider name, you cannot change it. Please take care in setting this parameter."];
      openIdConnectProviderARNs: OIDCProviderList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARN) of the OpenID Connect providers."];
      cognitoIdentityProviders: CognitoIdentityProviderList.t option
        [@ocaml.doc
          "An array of Amazon Cognito user pools and their client IDs."];
      samlProviderARNs: SAMLProviderList.t option
        [@ocaml.doc
          "An array of Amazon Resource Names (ARNs) of the SAML provider for your identity pool."];
      identityPoolTags: IdentityPoolTagsType.t option
        [@ocaml.doc
          "Tags to assign to the identity pool. A tag is a label that you can apply to identity pools to categorize and manage them in different ways, such as by purpose, owner, environment, or other criteria."]}
    let context_ = "CreateIdentityPoolInput"
    let make ?allowClassicFlow =
      fun ?supportedLoginProviders ->
        fun ?developerProviderName ->
          fun ?openIdConnectProviderARNs ->
            fun ?cognitoIdentityProviders ->
              fun ?samlProviderARNs ->
                fun ?identityPoolTags ->
                  fun ~identityPoolName ->
                    fun ~allowUnauthenticatedIdentities ->
                      fun () ->
                        {
                          allowClassicFlow;
                          supportedLoginProviders;
                          developerProviderName;
                          openIdConnectProviderARNs;
                          cognitoIdentityProviders;
                          samlProviderARNs;
                          identityPoolTags;
                          identityPoolName;
                          allowUnauthenticatedIdentities
                        }
    let to_value x =
      structure_to_value
        [("IdentityPoolName",
           (Some (IdentityPoolName.to_value x.identityPoolName)));
        ("AllowUnauthenticatedIdentities",
          (Some
             (IdentityPoolUnauthenticated.to_value
                x.allowUnauthenticatedIdentities)));
        ("AllowClassicFlow",
          (Option.map x.allowClassicFlow ~f:ClassicFlow.to_value));
        ("SupportedLoginProviders",
          (Option.map x.supportedLoginProviders ~f:IdentityProviders.to_value));
        ("DeveloperProviderName",
          (Option.map x.developerProviderName
             ~f:DeveloperProviderName.to_value));
        ("OpenIdConnectProviderARNs",
          (Option.map x.openIdConnectProviderARNs
             ~f:OIDCProviderList.to_value));
        ("CognitoIdentityProviders",
          (Option.map x.cognitoIdentityProviders
             ~f:CognitoIdentityProviderList.to_value));
        ("SamlProviderARNs",
          (Option.map x.samlProviderARNs ~f:SAMLProviderList.to_value));
        ("IdentityPoolTags",
          (Option.map x.identityPoolTags ~f:IdentityPoolTagsType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolTags =
        (Option.map ~f:IdentityPoolTagsType.of_xml)
          (Xml.child xml_arg0 "IdentityPoolTags") in
      let samlProviderARNs =
        (Option.map ~f:SAMLProviderList.of_xml)
          (Xml.child xml_arg0 "SamlProviderARNs") in
      let cognitoIdentityProviders =
        (Option.map ~f:CognitoIdentityProviderList.of_xml)
          (Xml.child xml_arg0 "CognitoIdentityProviders") in
      let openIdConnectProviderARNs =
        (Option.map ~f:OIDCProviderList.of_xml)
          (Xml.child xml_arg0 "OpenIdConnectProviderARNs") in
      let developerProviderName =
        (Option.map ~f:DeveloperProviderName.of_xml)
          (Xml.child xml_arg0 "DeveloperProviderName") in
      let supportedLoginProviders =
        (Option.map ~f:IdentityProviders.of_xml)
          (Xml.child xml_arg0 "SupportedLoginProviders") in
      let allowClassicFlow =
        (Option.map ~f:ClassicFlow.of_xml)
          (Xml.child xml_arg0 "AllowClassicFlow") in
      let allowUnauthenticatedIdentities =
        IdentityPoolUnauthenticated.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AllowUnauthenticatedIdentities") in
      let identityPoolName =
        IdentityPoolName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolName") in
      make ?identityPoolTags ?samlProviderARNs ?cognitoIdentityProviders
        ?openIdConnectProviderARNs ?developerProviderName
        ?supportedLoginProviders ?allowClassicFlow
        ~allowUnauthenticatedIdentities ~identityPoolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolTags =
        field_map json__ "IdentityPoolTags" IdentityPoolTagsType.of_json in
      let samlProviderARNs =
        field_map json__ "SamlProviderARNs" SAMLProviderList.of_json in
      let cognitoIdentityProviders =
        field_map json__ "CognitoIdentityProviders"
          CognitoIdentityProviderList.of_json in
      let openIdConnectProviderARNs =
        field_map json__ "OpenIdConnectProviderARNs" OIDCProviderList.of_json in
      let developerProviderName =
        field_map json__ "DeveloperProviderName"
          DeveloperProviderName.of_json in
      let supportedLoginProviders =
        field_map json__ "SupportedLoginProviders" IdentityProviders.of_json in
      let allowClassicFlow =
        field_map json__ "AllowClassicFlow" ClassicFlow.of_json in
      let allowUnauthenticatedIdentities =
        field_map_exn json__ "AllowUnauthenticatedIdentities"
          IdentityPoolUnauthenticated.of_json in
      let identityPoolName =
        field_map_exn json__ "IdentityPoolName" IdentityPoolName.of_json in
      make ?identityPoolTags ?samlProviderARNs ?cognitoIdentityProviders
        ?openIdConnectProviderARNs ?developerProviderName
        ?supportedLoginProviders ?allowClassicFlow
        ~allowUnauthenticatedIdentities ~identityPoolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input to the CreateIdentityPool action."]