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.mpa
let apiVersion = "2022-07-26"
let endpointPrefix = "mpa"
let serviceFullName = "AWS Multi-party Approval"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
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 MfaSyncStatus =
  struct
    type nonrec t =
      | IN_SYNC 
      | OUT_OF_SYNC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_SYNC -> "IN_SYNC"
      | OUT_OF_SYNC -> "OUT_OF_SYNC"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_SYNC" -> IN_SYNC
      | "OUT_OF_SYNC" -> OUT_OF_SYNC
      | 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 MfaSyncStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MfaSyncStatus" j)
    let to_json = simple_to_json to_value
  end
module MfaType =
  struct
    type nonrec t =
      | EMAIL_OTP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | EMAIL_OTP -> "EMAIL_OTP" | Non_static_id s -> s
    let of_string =
      function | "EMAIL_OTP" -> EMAIL_OTP | 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 MfaType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MfaType" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"String" j
    let to_json = simple_to_json to_value
  end
module MofNApprovalStrategyMinApprovalsRequiredInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 MofNApprovalStrategyMinApprovalsRequiredInteger"
           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 MfaMethod =
  struct
    type nonrec t =
      {
      type_: MfaType.t option
        [@ocaml.doc "The type of MFA configuration used by the approver"];
      syncStatus: MfaSyncStatus.t option
        [@ocaml.doc
          "Indicates if the approver's MFA device is in-sync with the Identity Source"]}
    let make ?type_ = fun ?syncStatus -> fun () -> { type_; syncStatus }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:MfaType.to_value));
        ("SyncStatus", (Option.map x.syncStatus ~f:MfaSyncStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let syncStatus =
        (Option.map ~f:MfaSyncStatus.of_xml)
          (Xml.child xml_arg0 "SyncStatus") in
      let type_ = (Option.map ~f:MfaType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?syncStatus ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let syncStatus = field_map json__ "SyncStatus" MfaSyncStatus.of_json in
      let type_ = field_map json__ "Type" MfaType.of_json in
      make ?syncStatus ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "MFA configuration and sycnronization status for an approver"]
module AdditionalSecurityRequirement =
  struct
    type nonrec t =
      | APPROVER_VERIFICATION_REQUIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APPROVER_VERIFICATION_REQUIRED -> "APPROVER_VERIFICATION_REQUIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "APPROVER_VERIFICATION_REQUIRED" -> APPROVER_VERIFICATION_REQUIRED
      | 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 AdditionalSecurityRequirement"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AdditionalSecurityRequirement" j)
    let to_json = simple_to_json to_value
  end
module IamIdentityCenterForList =
  struct
    type nonrec t =
      {
      instanceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the IAM Identity Center instance."];
      approvalPortalUrl: String_.t option
        [@ocaml.doc
          "URL for the approval portal associated with the IAM Identity Center instance."];
      region: String_.t option
        [@ocaml.doc
          "Amazon Web Services Region where the IAM Identity Center instance is located."]}
    let make ?instanceArn =
      fun ?approvalPortalUrl ->
        fun ?region -> fun () -> { instanceArn; approvalPortalUrl; region }
    let to_value x =
      structure_to_value
        [("InstanceArn", (Option.map x.instanceArn ~f:String_.to_value));
        ("ApprovalPortalUrl",
          (Option.map x.approvalPortalUrl ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let approvalPortalUrl =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ApprovalPortalUrl") in
      let instanceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InstanceArn") in
      make ?region ?approvalPortalUrl ?instanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map json__ "Region" String_.of_json in
      let approvalPortalUrl =
        field_map json__ "ApprovalPortalUrl" String_.of_json in
      let instanceArn = field_map json__ "InstanceArn" String_.of_json in
      make ?region ?approvalPortalUrl ?instanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "IAM Identity Center credentials. For more information see, IAM Identity Center ."]
module MofNApprovalStrategy =
  struct
    type nonrec t =
      {
      minApprovalsRequired: MofNApprovalStrategyMinApprovalsRequiredInteger.t
        [@ocaml.doc
          "Minimum number of approvals (M) required for a total number of approvers (N)."]}
    let context_ = "MofNApprovalStrategy"
    let make ~minApprovalsRequired = fun () -> { minApprovalsRequired }
    let to_value x =
      structure_to_value
        [("MinApprovalsRequired",
           (Some
              (MofNApprovalStrategyMinApprovalsRequiredInteger.to_value
                 x.minApprovalsRequired)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let minApprovalsRequired =
        MofNApprovalStrategyMinApprovalsRequiredInteger.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MinApprovalsRequired") in
      make ~minApprovalsRequired ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let minApprovalsRequired =
        field_map_exn json__ "MinApprovalsRequired"
          MofNApprovalStrategyMinApprovalsRequiredInteger.of_json in
      make ~minApprovalsRequired ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Strategy for how an approval team grants approval."]
module ApproverLastActivity =
  struct
    type nonrec t =
      | VOTED 
      | BASELINED 
      | RESPONDED_TO_INVITATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VOTED -> "VOTED"
      | BASELINED -> "BASELINED"
      | RESPONDED_TO_INVITATION -> "RESPONDED_TO_INVITATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "VOTED" -> VOTED
      | "BASELINED" -> BASELINED
      | "RESPONDED_TO_INVITATION" -> RESPONDED_TO_INVITATION
      | 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 ApproverLastActivity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApproverLastActivity" j)
    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_max i ~max:100) >>=
             (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:"IdentityId" j
    let to_json = simple_to_json to_value
  end
module IdentityStatus =
  struct
    type nonrec t =
      | PENDING 
      | ACCEPTED 
      | REJECTED 
      | INVALID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | ACCEPTED -> "ACCEPTED"
      | REJECTED -> "REJECTED"
      | INVALID -> "INVALID"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "ACCEPTED" -> ACCEPTED
      | "REJECTED" -> REJECTED
      | "INVALID" -> INVALID
      | 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 IdentityStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IdentityStatus" j)
    let to_json = simple_to_json to_value
  end
module IsoTimestamp =
  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 MfaMethods =
  struct
    type nonrec t = MfaMethod.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:5) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:MfaMethod.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:MfaMethod.of_xml)
    let of_json j =
      list_of_json ~kind:"MfaMethods" ~of_json:MfaMethod.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParticipantId =
  struct
    type nonrec t = string
    let context_ = "ParticipantId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"ParticipantId" j
    let to_json = simple_to_json to_value
  end
module SessionArn =
  struct
    type nonrec t = string
    let context_ = "SessionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[^:]+)?:mpa:[a-z0-9-]{1,20}:[0-9]{12}:session/[a-zA-Z0-9._-]+/[a-zA-Z0-9_-]+")));
        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:"SessionArn" 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:0) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"\\d{12}")));
        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 ActionCompletionStrategy =
  struct
    type nonrec t =
      | AUTO_COMPLETION_UPON_APPROVAL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUTO_COMPLETION_UPON_APPROVAL -> "AUTO_COMPLETION_UPON_APPROVAL"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUTO_COMPLETION_UPON_APPROVAL" -> AUTO_COMPLETION_UPON_APPROVAL
      | 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 ActionCompletionStrategy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ActionCompletionStrategy" j)
    let to_json = simple_to_json to_value
  end
module ActionName =
  struct
    type nonrec t = string
    let context_ = "ActionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"ActionName" j
    let to_json = simple_to_json to_value
  end
module AdditionalSecurityRequirements =
  struct
    type nonrec t = AdditionalSecurityRequirement.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AdditionalSecurityRequirement.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:AdditionalSecurityRequirement.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalSecurityRequirements"
        ~of_json:AdditionalSecurityRequirement.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApprovalTeamArn =
  struct
    type nonrec t = string
    let context_ = "ApprovalTeamArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[^:]+)?:mpa:[a-z0-9-]{1,20}:[0-9]{12}:approval-team/[a-zA-Z0-9._-]+")));
        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:"ApprovalTeamArn" j
    let to_json = simple_to_json to_value
  end
module ApprovalTeamName =
  struct
    type nonrec t = string
    let context_ = "ApprovalTeamName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9._-]+")));
        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:"ApprovalTeamName" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    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:"Description" j
    let to_json = simple_to_json to_value
  end
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"Message" j
    let to_json = simple_to_json to_value
  end
module Region =
  struct
    type nonrec t = string
    let context_ = "Region"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"Region" j
    let to_json = simple_to_json to_value
  end
module ServicePrincipal =
  struct
    type nonrec t = string
    let context_ = "ServicePrincipal"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"ServicePrincipal" j
    let to_json = simple_to_json to_value
  end
module SessionStatus =
  struct
    type nonrec t =
      | PENDING 
      | CANCELLED 
      | APPROVED 
      | FAILED 
      | CREATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | CANCELLED -> "CANCELLED"
      | APPROVED -> "APPROVED"
      | FAILED -> "FAILED"
      | CREATING -> "CREATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "CANCELLED" -> CANCELLED
      | "APPROVED" -> APPROVED
      | "FAILED" -> FAILED
      | "CREATING" -> CREATING
      | 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 SessionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SessionStatus" j)
    let to_json = simple_to_json to_value
  end
module SessionStatusCode =
  struct
    type nonrec t =
      | REJECTED 
      | EXPIRED 
      | CONFIGURATION_CHANGED 
      | ALL_APPROVERS_IN_SESSION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REJECTED -> "REJECTED"
      | EXPIRED -> "EXPIRED"
      | CONFIGURATION_CHANGED -> "CONFIGURATION_CHANGED"
      | ALL_APPROVERS_IN_SESSION -> "ALL_APPROVERS_IN_SESSION"
      | Non_static_id s -> s
    let of_string =
      function
      | "REJECTED" -> REJECTED
      | "EXPIRED" -> EXPIRED
      | "CONFIGURATION_CHANGED" -> CONFIGURATION_CHANGED
      | "ALL_APPROVERS_IN_SESSION" -> ALL_APPROVERS_IN_SESSION
      | 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 SessionStatusCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SessionStatusCode" j)
    let to_json = simple_to_json to_value
  end
module FilterField =
  struct
    type nonrec t =
      | ActionName 
      | ApprovalTeamName 
      | VotingTime 
      | Vote 
      | SessionStatus 
      | InitiationTime 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ActionName -> "ActionName"
      | ApprovalTeamName -> "ApprovalTeamName"
      | VotingTime -> "VotingTime"
      | Vote -> "Vote"
      | SessionStatus -> "SessionStatus"
      | InitiationTime -> "InitiationTime"
      | Non_static_id s -> s
    let of_string =
      function
      | "ActionName" -> ActionName
      | "ApprovalTeamName" -> ApprovalTeamName
      | "VotingTime" -> VotingTime
      | "Vote" -> Vote
      | "SessionStatus" -> SessionStatus
      | "InitiationTime" -> InitiationTime
      | 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 FilterField" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FilterField" j)
    let to_json = simple_to_json to_value
  end
module Operator =
  struct
    type nonrec t =
      | EQ 
      | NE 
      | GT 
      | LT 
      | GTE 
      | LTE 
      | CONTAINS 
      | NOT_CONTAINS 
      | BETWEEN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EQ -> "EQ"
      | NE -> "NE"
      | GT -> "GT"
      | LT -> "LT"
      | GTE -> "GTE"
      | LTE -> "LTE"
      | CONTAINS -> "CONTAINS"
      | NOT_CONTAINS -> "NOT_CONTAINS"
      | BETWEEN -> "BETWEEN"
      | Non_static_id s -> s
    let of_string =
      function
      | "EQ" -> EQ
      | "NE" -> NE
      | "GT" -> GT
      | "LT" -> LT
      | "GTE" -> GTE
      | "LTE" -> LTE
      | "CONTAINS" -> CONTAINS
      | "NOT_CONTAINS" -> NOT_CONTAINS
      | "BETWEEN" -> BETWEEN
      | 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 Operator" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Operator" j)
    let to_json = simple_to_json to_value
  end
module PolicyType =
  struct
    type nonrec t =
      | AWS_MANAGED 
      | AWS_RAM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AWS_MANAGED -> "AWS_MANAGED"
      | AWS_RAM -> "AWS_RAM"
      | Non_static_id s -> s
    let of_string =
      function
      | "AWS_MANAGED" -> AWS_MANAGED
      | "AWS_RAM" -> AWS_RAM
      | 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 PolicyType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PolicyType" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  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 PolicyName =
  struct
    type nonrec t = string
    let context_ = "PolicyName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"PolicyName" j
    let to_json = simple_to_json to_value
  end
module PolicyStatus =
  struct
    type nonrec t =
      | ATTACHABLE 
      | DEPRECATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ATTACHABLE -> "ATTACHABLE"
      | DEPRECATED -> "DEPRECATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ATTACHABLE" -> ATTACHABLE
      | "DEPRECATED" -> DEPRECATED
      | 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 PolicyStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PolicyStatus" j)
    let to_json = simple_to_json to_value
  end
module PolicyVersionId =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (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 PolicyVersionId" 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 QualifiedPolicyArn =
  struct
    type nonrec t = string
    let context_ = "QualifiedPolicyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:.{1,63}:mpa:::aws:policy/[a-zA-Z0-9_\\.-]{1,1023}/[a-zA-Z0-9_\\.-]{1,1023}/(?:[\\d]+|\\$DEFAULT)")));
        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:"QualifiedPolicyArn" j
    let to_json = simple_to_json to_value
  end
module UnqualifiedPolicyArn =
  struct
    type nonrec t = string
    let context_ = "UnqualifiedPolicyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1224) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:.{1,63}:mpa:::aws:policy/[a-zA-Z0-9_\\.-]{1,1023}/[a-zA-Z0-9_\\.-]{1,1023}")));
        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:"UnqualifiedPolicyArn" j
    let to_json = simple_to_json to_value
  end
module IdentitySourceParametersForList =
  struct
    type nonrec t =
      {
      iamIdentityCenter: IamIdentityCenterForList.t option
        [@ocaml.doc "IAM Identity Center credentials."]}
    let make ?iamIdentityCenter = fun () -> { iamIdentityCenter }
    let to_value x =
      structure_to_value
        [("IamIdentityCenter",
           (Option.map x.iamIdentityCenter
              ~f:IamIdentityCenterForList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iamIdentityCenter =
        (Option.map ~f:IamIdentityCenterForList.of_xml)
          (Xml.child xml_arg0 "IamIdentityCenter") in
      make ?iamIdentityCenter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iamIdentityCenter =
        field_map json__ "IamIdentityCenter" IamIdentityCenterForList.of_json in
      make ?iamIdentityCenter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for the resource that provides identities to the identity source. For example, an IAM Identity Center instance. For more information, see Identity source in the Multi-party approval User Guide."]
module IdentitySourceStatus =
  struct
    type nonrec t =
      | CREATING 
      | ACTIVE 
      | DELETING 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "ACTIVE" -> ACTIVE
      | "DELETING" -> DELETING
      | "ERROR" -> ERROR
      | 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 IdentitySourceStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IdentitySourceStatus" j)
    let to_json = simple_to_json to_value
  end
module IdentitySourceStatusCode =
  struct
    type nonrec t =
      | ACCESS_DENIED 
      | DELETION_FAILED 
      | IDC_INSTANCE_NOT_FOUND 
      | IDC_INSTANCE_NOT_VALID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCESS_DENIED -> "ACCESS_DENIED"
      | DELETION_FAILED -> "DELETION_FAILED"
      | IDC_INSTANCE_NOT_FOUND -> "IDC_INSTANCE_NOT_FOUND"
      | IDC_INSTANCE_NOT_VALID -> "IDC_INSTANCE_NOT_VALID"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCESS_DENIED" -> ACCESS_DENIED
      | "DELETION_FAILED" -> DELETION_FAILED
      | "IDC_INSTANCE_NOT_FOUND" -> IDC_INSTANCE_NOT_FOUND
      | "IDC_INSTANCE_NOT_VALID" -> IDC_INSTANCE_NOT_VALID
      | 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 IdentitySourceStatusCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IdentitySourceStatusCode" j)
    let to_json = simple_to_json to_value
  end
module IdentitySourceType =
  struct
    type nonrec t =
      | IAM_IDENTITY_CENTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IAM_IDENTITY_CENTER -> "IAM_IDENTITY_CENTER"
      | Non_static_id s -> s
    let of_string =
      function
      | "IAM_IDENTITY_CENTER" -> IAM_IDENTITY_CENTER
      | 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 IdentitySourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IdentitySourceType" j)
    let to_json = simple_to_json to_value
  end
module ApprovalStrategyResponse =
  struct
    type nonrec t =
      {
      mofN: MofNApprovalStrategy.t option
        [@ocaml.doc
          "Minimum number of approvals (M) required for a total number of approvers (N)."]}
    let make ?mofN = fun () -> { mofN }
    let to_value x =
      structure_to_value
        [("MofN", (Option.map x.mofN ~f:MofNApprovalStrategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mofN =
        (Option.map ~f:MofNApprovalStrategy.of_xml)
          (Xml.child xml_arg0 "MofN") in
      make ?mofN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mofN = field_map json__ "MofN" MofNApprovalStrategy.of_json in
      make ?mofN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for how an approval team grants approval."]
module ApprovalTeamStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | DELETING 
      | PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | DELETING -> "DELETING"
      | PENDING -> "PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "DELETING" -> DELETING
      | "PENDING" -> PENDING
      | 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 ApprovalTeamStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApprovalTeamStatus" j)
    let to_json = simple_to_json to_value
  end
module ApprovalTeamStatusCode =
  struct
    type nonrec t =
      | VALIDATING 
      | PENDING_ACTIVATION 
      | FAILED_VALIDATION 
      | FAILED_ACTIVATION 
      | UPDATE_PENDING_APPROVAL 
      | UPDATE_PENDING_ACTIVATION 
      | UPDATE_FAILED_APPROVAL 
      | UPDATE_FAILED_ACTIVATION 
      | UPDATE_FAILED_VALIDATION 
      | DELETE_PENDING_APPROVAL 
      | DELETE_FAILED_APPROVAL 
      | DELETE_FAILED_VALIDATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VALIDATING -> "VALIDATING"
      | PENDING_ACTIVATION -> "PENDING_ACTIVATION"
      | FAILED_VALIDATION -> "FAILED_VALIDATION"
      | FAILED_ACTIVATION -> "FAILED_ACTIVATION"
      | UPDATE_PENDING_APPROVAL -> "UPDATE_PENDING_APPROVAL"
      | UPDATE_PENDING_ACTIVATION -> "UPDATE_PENDING_ACTIVATION"
      | UPDATE_FAILED_APPROVAL -> "UPDATE_FAILED_APPROVAL"
      | UPDATE_FAILED_ACTIVATION -> "UPDATE_FAILED_ACTIVATION"
      | UPDATE_FAILED_VALIDATION -> "UPDATE_FAILED_VALIDATION"
      | DELETE_PENDING_APPROVAL -> "DELETE_PENDING_APPROVAL"
      | DELETE_FAILED_APPROVAL -> "DELETE_FAILED_APPROVAL"
      | DELETE_FAILED_VALIDATION -> "DELETE_FAILED_VALIDATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "VALIDATING" -> VALIDATING
      | "PENDING_ACTIVATION" -> PENDING_ACTIVATION
      | "FAILED_VALIDATION" -> FAILED_VALIDATION
      | "FAILED_ACTIVATION" -> FAILED_ACTIVATION
      | "UPDATE_PENDING_APPROVAL" -> UPDATE_PENDING_APPROVAL
      | "UPDATE_PENDING_ACTIVATION" -> UPDATE_PENDING_ACTIVATION
      | "UPDATE_FAILED_APPROVAL" -> UPDATE_FAILED_APPROVAL
      | "UPDATE_FAILED_ACTIVATION" -> UPDATE_FAILED_ACTIVATION
      | "UPDATE_FAILED_VALIDATION" -> UPDATE_FAILED_VALIDATION
      | "DELETE_PENDING_APPROVAL" -> DELETE_PENDING_APPROVAL
      | "DELETE_FAILED_APPROVAL" -> DELETE_FAILED_APPROVAL
      | "DELETE_FAILED_VALIDATION" -> DELETE_FAILED_VALIDATION
      | 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 ApprovalTeamStatusCode" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApprovalTeamStatusCode" j)
    let to_json = simple_to_json to_value
  end
module Integer =
  struct
    type nonrec t = int
    let make i = 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 Integer" 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 SessionResponse =
  struct
    type nonrec t =
      | APPROVED 
      | REJECTED 
      | NO_RESPONSE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APPROVED -> "APPROVED"
      | REJECTED -> "REJECTED"
      | NO_RESPONSE -> "NO_RESPONSE"
      | Non_static_id s -> s
    let of_string =
      function
      | "APPROVED" -> APPROVED
      | "REJECTED" -> REJECTED
      | "NO_RESPONSE" -> NO_RESPONSE
      | 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 SessionResponse" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SessionResponse" j)
    let to_json = simple_to_json to_value
  end
module GetApprovalTeamResponseApprover =
  struct
    type nonrec t =
      {
      approverId: ParticipantId.t option [@ocaml.doc "ID for the approver."];
      responseTime: IsoTimestamp.t option
        [@ocaml.doc
          "Timestamp when the approver responded to an approval team invitation."];
      primaryIdentityId: IdentityId.t option [@ocaml.doc "ID for the user."];
      primaryIdentitySourceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the identity source. The identity source manages the user authentication for approvers."];
      primaryIdentityStatus: IdentityStatus.t option
        [@ocaml.doc
          "Status for the identity source. For example, if an approver has accepted a team invitation with a user authentication method managed by the identity source."];
      lastActivity: ApproverLastActivity.t option
        [@ocaml.doc "Last Activity performed by the approver."];
      lastActivityTime: IsoTimestamp.t option
        [@ocaml.doc
          "Timestamp when the approver last responded to an operation or invitation request."];
      pendingBaselineSessionArn: SessionArn.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the pending baseline session."];
      mfaMethods: MfaMethods.t option
        [@ocaml.doc
          "Multi-factor authentication configuration for the approver"]}
    let make ?approverId =
      fun ?responseTime ->
        fun ?primaryIdentityId ->
          fun ?primaryIdentitySourceArn ->
            fun ?primaryIdentityStatus ->
              fun ?lastActivity ->
                fun ?lastActivityTime ->
                  fun ?pendingBaselineSessionArn ->
                    fun ?mfaMethods ->
                      fun () ->
                        {
                          approverId;
                          responseTime;
                          primaryIdentityId;
                          primaryIdentitySourceArn;
                          primaryIdentityStatus;
                          lastActivity;
                          lastActivityTime;
                          pendingBaselineSessionArn;
                          mfaMethods
                        }
    let to_value x =
      structure_to_value
        [("ApproverId", (Option.map x.approverId ~f:ParticipantId.to_value));
        ("ResponseTime",
          (Option.map x.responseTime ~f:IsoTimestamp.to_value));
        ("PrimaryIdentityId",
          (Option.map x.primaryIdentityId ~f:IdentityId.to_value));
        ("PrimaryIdentitySourceArn",
          (Option.map x.primaryIdentitySourceArn ~f:String_.to_value));
        ("PrimaryIdentityStatus",
          (Option.map x.primaryIdentityStatus ~f:IdentityStatus.to_value));
        ("LastActivity",
          (Option.map x.lastActivity ~f:ApproverLastActivity.to_value));
        ("LastActivityTime",
          (Option.map x.lastActivityTime ~f:IsoTimestamp.to_value));
        ("PendingBaselineSessionArn",
          (Option.map x.pendingBaselineSessionArn ~f:SessionArn.to_value));
        ("MfaMethods", (Option.map x.mfaMethods ~f:MfaMethods.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mfaMethods =
        (Option.map ~f:MfaMethods.of_xml) (Xml.child xml_arg0 "MfaMethods") in
      let pendingBaselineSessionArn =
        (Option.map ~f:SessionArn.of_xml)
          (Xml.child xml_arg0 "PendingBaselineSessionArn") in
      let lastActivityTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "LastActivityTime") in
      let lastActivity =
        (Option.map ~f:ApproverLastActivity.of_xml)
          (Xml.child xml_arg0 "LastActivity") in
      let primaryIdentityStatus =
        (Option.map ~f:IdentityStatus.of_xml)
          (Xml.child xml_arg0 "PrimaryIdentityStatus") in
      let primaryIdentitySourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PrimaryIdentitySourceArn") in
      let primaryIdentityId =
        (Option.map ~f:IdentityId.of_xml)
          (Xml.child xml_arg0 "PrimaryIdentityId") in
      let responseTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "ResponseTime") in
      let approverId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "ApproverId") in
      make ?mfaMethods ?pendingBaselineSessionArn ?lastActivityTime
        ?lastActivity ?primaryIdentityStatus ?primaryIdentitySourceArn
        ?primaryIdentityId ?responseTime ?approverId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mfaMethods = field_map json__ "MfaMethods" MfaMethods.of_json in
      let pendingBaselineSessionArn =
        field_map json__ "PendingBaselineSessionArn" SessionArn.of_json in
      let lastActivityTime =
        field_map json__ "LastActivityTime" IsoTimestamp.of_json in
      let lastActivity =
        field_map json__ "LastActivity" ApproverLastActivity.of_json in
      let primaryIdentityStatus =
        field_map json__ "PrimaryIdentityStatus" IdentityStatus.of_json in
      let primaryIdentitySourceArn =
        field_map json__ "PrimaryIdentitySourceArn" String_.of_json in
      let primaryIdentityId =
        field_map json__ "PrimaryIdentityId" IdentityId.of_json in
      let responseTime = field_map json__ "ResponseTime" IsoTimestamp.of_json in
      let approverId = field_map json__ "ApproverId" ParticipantId.of_json in
      make ?mfaMethods ?pendingBaselineSessionArn ?lastActivityTime
        ?lastActivity ?primaryIdentityStatus ?primaryIdentitySourceArn
        ?primaryIdentityId ?responseTime ?approverId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details for an approver."]
module IdcInstanceArn =
  struct
    type nonrec t = string
    let context_ = "IdcInstanceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:.+:sso:::instance/(?:sso)?ins-[a-zA-Z0-9-.]{16}")));
        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:"IdcInstanceArn" j
    let to_json = simple_to_json to_value
  end
module ApprovalTeamRequestApprover =
  struct
    type nonrec t =
      {
      primaryIdentityId: IdentityId.t [@ocaml.doc "ID for the user."];
      primaryIdentitySourceArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the identity source. The identity source manages the user authentication for approvers."]}
    let context_ = "ApprovalTeamRequestApprover"
    let make ~primaryIdentityId =
      fun ~primaryIdentitySourceArn ->
        fun () -> { primaryIdentityId; primaryIdentitySourceArn }
    let to_value x =
      structure_to_value
        [("PrimaryIdentityId",
           (Some (IdentityId.to_value x.primaryIdentityId)));
        ("PrimaryIdentitySourceArn",
          (Some (String_.to_value x.primaryIdentitySourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryIdentitySourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PrimaryIdentitySourceArn") in
      let primaryIdentityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrimaryIdentityId") in
      make ~primaryIdentitySourceArn ~primaryIdentityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryIdentitySourceArn =
        field_map_exn json__ "PrimaryIdentitySourceArn" String_.of_json in
      let primaryIdentityId =
        field_map_exn json__ "PrimaryIdentityId" IdentityId.of_json in
      make ~primaryIdentitySourceArn ~primaryIdentityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details for an approver."]
module UpdateAction =
  struct
    type nonrec t =
      | SYNCHRONIZE_MFA_DEVICES 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SYNCHRONIZE_MFA_DEVICES -> "SYNCHRONIZE_MFA_DEVICES"
      | Non_static_id s -> s
    let of_string =
      function
      | "SYNCHRONIZE_MFA_DEVICES" -> SYNCHRONIZE_MFA_DEVICES
      | 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 UpdateAction" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UpdateAction" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module ListSessionsResponseSession =
  struct
    type nonrec t =
      {
      sessionArn: SessionArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the session."];
      approvalTeamName: ApprovalTeamName.t option
        [@ocaml.doc "Name of the approval team."];
      approvalTeamArn: ApprovalTeamArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the approval team."];
      initiationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the session was initiated."];
      expirationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the session was expire."];
      completionTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the session was completed."];
      description: Description.t option
        [@ocaml.doc "Description for the team."];
      actionName: ActionName.t option
        [@ocaml.doc "Name of the protected operation."];
      protectedResourceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the protected operation."];
      requesterServicePrincipal: ServicePrincipal.t option
        [@ocaml.doc
          "Service principal for the service associated with the protected operation."];
      requesterPrincipalArn: String_.t option
        [@ocaml.doc "IAM principal that made the operation request."];
      requesterRegion: Region.t option
        [@ocaml.doc
          "Amazon Web Services Region where the operation request originated."];
      requesterAccountId: AccountId.t option
        [@ocaml.doc "ID for the account that made the operation request."];
      status: SessionStatus.t option
        [@ocaml.doc
          "Status for the protected operation. For example, if the operation is PENDING."];
      statusCode: SessionStatusCode.t option
        [@ocaml.doc "Status code of the session."];
      statusMessage: Message.t option
        [@ocaml.doc "Message describing the status for session."];
      actionCompletionStrategy: ActionCompletionStrategy.t option
        [@ocaml.doc
          "Strategy for executing the protected operation. AUTO_COMPLETION_UPON_APPROVAL means the operation is executed automatically using the requester's permissions, if approved."];
      additionalSecurityRequirements: AdditionalSecurityRequirements.t option
        [@ocaml.doc
          "A list of AdditionalSecurityRequirement applied to the session."]}
    let make ?sessionArn =
      fun ?approvalTeamName ->
        fun ?approvalTeamArn ->
          fun ?initiationTime ->
            fun ?expirationTime ->
              fun ?completionTime ->
                fun ?description ->
                  fun ?actionName ->
                    fun ?protectedResourceArn ->
                      fun ?requesterServicePrincipal ->
                        fun ?requesterPrincipalArn ->
                          fun ?requesterRegion ->
                            fun ?requesterAccountId ->
                              fun ?status ->
                                fun ?statusCode ->
                                  fun ?statusMessage ->
                                    fun ?actionCompletionStrategy ->
                                      fun ?additionalSecurityRequirements ->
                                        fun () ->
                                          {
                                            sessionArn;
                                            approvalTeamName;
                                            approvalTeamArn;
                                            initiationTime;
                                            expirationTime;
                                            completionTime;
                                            description;
                                            actionName;
                                            protectedResourceArn;
                                            requesterServicePrincipal;
                                            requesterPrincipalArn;
                                            requesterRegion;
                                            requesterAccountId;
                                            status;
                                            statusCode;
                                            statusMessage;
                                            actionCompletionStrategy;
                                            additionalSecurityRequirements
                                          }
    let to_value x =
      structure_to_value
        [("SessionArn", (Option.map x.sessionArn ~f:SessionArn.to_value));
        ("ApprovalTeamName",
          (Option.map x.approvalTeamName ~f:ApprovalTeamName.to_value));
        ("ApprovalTeamArn",
          (Option.map x.approvalTeamArn ~f:ApprovalTeamArn.to_value));
        ("InitiationTime",
          (Option.map x.initiationTime ~f:IsoTimestamp.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:IsoTimestamp.to_value));
        ("CompletionTime",
          (Option.map x.completionTime ~f:IsoTimestamp.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("ActionName", (Option.map x.actionName ~f:ActionName.to_value));
        ("ProtectedResourceArn",
          (Option.map x.protectedResourceArn ~f:String_.to_value));
        ("RequesterServicePrincipal",
          (Option.map x.requesterServicePrincipal
             ~f:ServicePrincipal.to_value));
        ("RequesterPrincipalArn",
          (Option.map x.requesterPrincipalArn ~f:String_.to_value));
        ("RequesterRegion",
          (Option.map x.requesterRegion ~f:Region.to_value));
        ("RequesterAccountId",
          (Option.map x.requesterAccountId ~f:AccountId.to_value));
        ("Status", (Option.map x.status ~f:SessionStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:SessionStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:Message.to_value));
        ("ActionCompletionStrategy",
          (Option.map x.actionCompletionStrategy
             ~f:ActionCompletionStrategy.to_value));
        ("AdditionalSecurityRequirements",
          (Option.map x.additionalSecurityRequirements
             ~f:AdditionalSecurityRequirements.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalSecurityRequirements =
        (Option.map ~f:AdditionalSecurityRequirements.of_xml)
          (Xml.child xml_arg0 "AdditionalSecurityRequirements") in
      let actionCompletionStrategy =
        (Option.map ~f:ActionCompletionStrategy.of_xml)
          (Xml.child xml_arg0 "ActionCompletionStrategy") in
      let statusMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:SessionStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:SessionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let requesterAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "RequesterAccountId") in
      let requesterRegion =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "RequesterRegion") in
      let requesterPrincipalArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RequesterPrincipalArn") in
      let requesterServicePrincipal =
        (Option.map ~f:ServicePrincipal.of_xml)
          (Xml.child xml_arg0 "RequesterServicePrincipal") in
      let protectedResourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ProtectedResourceArn") in
      let actionName =
        (Option.map ~f:ActionName.of_xml) (Xml.child xml_arg0 "ActionName") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let completionTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CompletionTime") in
      let expirationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let initiationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "InitiationTime") in
      let approvalTeamArn =
        (Option.map ~f:ApprovalTeamArn.of_xml)
          (Xml.child xml_arg0 "ApprovalTeamArn") in
      let approvalTeamName =
        (Option.map ~f:ApprovalTeamName.of_xml)
          (Xml.child xml_arg0 "ApprovalTeamName") in
      let sessionArn =
        (Option.map ~f:SessionArn.of_xml) (Xml.child xml_arg0 "SessionArn") in
      make ?additionalSecurityRequirements ?actionCompletionStrategy
        ?statusMessage ?statusCode ?status ?requesterAccountId
        ?requesterRegion ?requesterPrincipalArn ?requesterServicePrincipal
        ?protectedResourceArn ?actionName ?description ?completionTime
        ?expirationTime ?initiationTime ?approvalTeamArn ?approvalTeamName
        ?sessionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalSecurityRequirements =
        field_map json__ "AdditionalSecurityRequirements"
          AdditionalSecurityRequirements.of_json in
      let actionCompletionStrategy =
        field_map json__ "ActionCompletionStrategy"
          ActionCompletionStrategy.of_json in
      let statusMessage = field_map json__ "StatusMessage" Message.of_json in
      let statusCode =
        field_map json__ "StatusCode" SessionStatusCode.of_json in
      let status = field_map json__ "Status" SessionStatus.of_json in
      let requesterAccountId =
        field_map json__ "RequesterAccountId" AccountId.of_json in
      let requesterRegion = field_map json__ "RequesterRegion" Region.of_json in
      let requesterPrincipalArn =
        field_map json__ "RequesterPrincipalArn" String_.of_json in
      let requesterServicePrincipal =
        field_map json__ "RequesterServicePrincipal" ServicePrincipal.of_json in
      let protectedResourceArn =
        field_map json__ "ProtectedResourceArn" String_.of_json in
      let actionName = field_map json__ "ActionName" ActionName.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let completionTime =
        field_map json__ "CompletionTime" IsoTimestamp.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" IsoTimestamp.of_json in
      let initiationTime =
        field_map json__ "InitiationTime" IsoTimestamp.of_json in
      let approvalTeamArn =
        field_map json__ "ApprovalTeamArn" ApprovalTeamArn.of_json in
      let approvalTeamName =
        field_map json__ "ApprovalTeamName" ApprovalTeamName.of_json in
      let sessionArn = field_map json__ "SessionArn" SessionArn.of_json in
      make ?additionalSecurityRequirements ?actionCompletionStrategy
        ?statusMessage ?statusCode ?status ?requesterAccountId
        ?requesterRegion ?requesterPrincipalArn ?requesterServicePrincipal
        ?protectedResourceArn ?actionName ?description ?completionTime
        ?expirationTime ?initiationTime ?approvalTeamArn ?approvalTeamName
        ?sessionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for an approval session. For more information, see Session in the Multi-party approval User Guide"]
module Filter =
  struct
    type nonrec t =
      {
      fieldName: FilterField.t option
        [@ocaml.doc
          "Name of the filter to use. Supported filters The supported filters for ListSessions are: ActionName, SessionStatus, and InitationTime."];
      operator: Operator.t option
        [@ocaml.doc
          "Operator to use for filtering. EQ: Equal to the specified value NE: Not equal to the specified value GT: Greater than the specified value LT: Less than the specified value GTE: Greater than or equal to the specified value LTE: Less than or equal to the specified value CONTAINS: Contains the specified value NOT_CONTAINS: Does not contain the specified value BETWEEN: Between two values, inclusive of the specified values. Supported operators for each filter: ActionName: EQ | NE | CONTAINS | NOT_CONTAINS SessionStatus: EQ | NE InitiationTime: GT | LT | GTE | LTE | BETWEEN"];
      value: String_.t option
        [@ocaml.doc
          "Value to use for filtering. For the BETWEEN operator, specify values in the format a AND b (AND is case-insensitive)."]}
    let make ?fieldName =
      fun ?operator -> fun ?value -> fun () -> { fieldName; operator; value }
    let to_value x =
      structure_to_value
        [("FieldName", (Option.map x.fieldName ~f:FilterField.to_value));
        ("Operator", (Option.map x.operator ~f:Operator.to_value));
        ("Value", (Option.map x.value ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      let operator =
        (Option.map ~f:Operator.of_xml) (Xml.child xml_arg0 "Operator") in
      let fieldName =
        (Option.map ~f:FilterField.of_xml) (Xml.child xml_arg0 "FieldName") in
      make ?value ?operator ?fieldName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" String_.of_json in
      let operator = field_map json__ "Operator" Operator.of_json in
      let fieldName = field_map json__ "FieldName" FilterField.of_json in
      make ?value ?operator ?fieldName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the filter to apply to requests. You can specify up to 10 filters for a request."]
module ListResourcePoliciesResponseResourcePolicy =
  struct
    type nonrec t =
      {
      policyArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for policy."];
      policyType: PolicyType.t option [@ocaml.doc "The type of policy."];
      policyName: String_.t option [@ocaml.doc "Name of the policy."]}
    let make ?policyArn =
      fun ?policyType ->
        fun ?policyName -> fun () -> { policyArn; policyType; policyName }
    let to_value x =
      structure_to_value
        [("PolicyArn", (Option.map x.policyArn ~f:String_.to_value));
        ("PolicyType", (Option.map x.policyType ~f:PolicyType.to_value));
        ("PolicyName", (Option.map x.policyName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PolicyName") in
      let policyType =
        (Option.map ~f:PolicyType.of_xml) (Xml.child xml_arg0 "PolicyType") in
      let policyArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PolicyArn") in
      make ?policyName ?policyType ?policyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyName = field_map json__ "PolicyName" String_.of_json in
      let policyType = field_map json__ "PolicyType" PolicyType.of_json in
      let policyArn = field_map json__ "PolicyArn" String_.of_json in
      make ?policyName ?policyType ?policyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details about a policy for a resource."]
module PolicyVersionSummary =
  struct
    type nonrec t =
      {
      arn: QualifiedPolicyArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."];
      policyArn: UnqualifiedPolicyArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy."];
      versionId: PolicyVersionId.t option
        [@ocaml.doc "Version ID for the policy."];
      policyType: PolicyType.t option [@ocaml.doc "The type of policy."];
      isDefault: Boolean.t option
        [@ocaml.doc
          "Determines if the specified policy is the default for the team."];
      name: PolicyName.t option [@ocaml.doc "Name of the policy"];
      status: PolicyStatus.t option
        [@ocaml.doc
          "Status for the policy. For example, if the policy is attachable or deprecated."];
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the policy was created."];
      lastUpdatedTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the policy was last updated."]}
    let make ?arn =
      fun ?policyArn ->
        fun ?versionId ->
          fun ?policyType ->
            fun ?isDefault ->
              fun ?name ->
                fun ?status ->
                  fun ?creationTime ->
                    fun ?lastUpdatedTime ->
                      fun () ->
                        {
                          arn;
                          policyArn;
                          versionId;
                          policyType;
                          isDefault;
                          name;
                          status;
                          creationTime;
                          lastUpdatedTime
                        }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:QualifiedPolicyArn.to_value));
        ("PolicyArn",
          (Option.map x.policyArn ~f:UnqualifiedPolicyArn.to_value));
        ("VersionId", (Option.map x.versionId ~f:PolicyVersionId.to_value));
        ("PolicyType", (Option.map x.policyType ~f:PolicyType.to_value));
        ("IsDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("Name", (Option.map x.name ~f:PolicyName.to_value));
        ("Status", (Option.map x.status ~f:PolicyStatus.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:IsoTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let status =
        (Option.map ~f:PolicyStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "Name") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsDefault") in
      let policyType =
        (Option.map ~f:PolicyType.of_xml) (Xml.child xml_arg0 "PolicyType") in
      let versionId =
        (Option.map ~f:PolicyVersionId.of_xml)
          (Xml.child xml_arg0 "VersionId") in
      let policyArn =
        (Option.map ~f:UnqualifiedPolicyArn.of_xml)
          (Xml.child xml_arg0 "PolicyArn") in
      let arn =
        (Option.map ~f:QualifiedPolicyArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?lastUpdatedTime ?creationTime ?status ?name ?isDefault
        ?policyType ?versionId ?policyArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" IsoTimestamp.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      let status = field_map json__ "Status" PolicyStatus.of_json in
      let name = field_map json__ "Name" PolicyName.of_json in
      let isDefault = field_map json__ "IsDefault" Boolean.of_json in
      let policyType = field_map json__ "PolicyType" PolicyType.of_json in
      let versionId = field_map json__ "VersionId" PolicyVersionId.of_json in
      let policyArn =
        field_map json__ "PolicyArn" UnqualifiedPolicyArn.of_json in
      let arn = field_map json__ "Arn" QualifiedPolicyArn.of_json in
      make ?lastUpdatedTime ?creationTime ?status ?name ?isDefault
        ?policyType ?versionId ?policyArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for the version of a policy. Policies define what operations a team that define the permissions for team resources."]
module Policy =
  struct
    type nonrec t =
      {
      arn: UnqualifiedPolicyArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy."];
      defaultVersion: PolicyVersionId.t option
        [@ocaml.doc
          "Determines if the specified policy is the default for the team."];
      policyType: PolicyType.t option [@ocaml.doc "The type of policy."];
      name: PolicyName.t option [@ocaml.doc "Name of the policy."]}
    let make ?arn =
      fun ?defaultVersion ->
        fun ?policyType ->
          fun ?name -> fun () -> { arn; defaultVersion; policyType; name }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:UnqualifiedPolicyArn.to_value));
        ("DefaultVersion",
          (Option.map x.defaultVersion ~f:PolicyVersionId.to_value));
        ("PolicyType", (Option.map x.policyType ~f:PolicyType.to_value));
        ("Name", (Option.map x.name ~f:PolicyName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "Name") in
      let policyType =
        (Option.map ~f:PolicyType.of_xml) (Xml.child xml_arg0 "PolicyType") in
      let defaultVersion =
        (Option.map ~f:PolicyVersionId.of_xml)
          (Xml.child xml_arg0 "DefaultVersion") in
      let arn =
        (Option.map ~f:UnqualifiedPolicyArn.of_xml)
          (Xml.child xml_arg0 "Arn") in
      make ?name ?policyType ?defaultVersion ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" PolicyName.of_json in
      let policyType = field_map json__ "PolicyType" PolicyType.of_json in
      let defaultVersion =
        field_map json__ "DefaultVersion" PolicyVersionId.of_json in
      let arn = field_map json__ "Arn" UnqualifiedPolicyArn.of_json in
      make ?name ?policyType ?defaultVersion ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for a policy. Policies define what operations a team that define the permissions for team resources."]
module IdentitySourceForList =
  struct
    type nonrec t =
      {
      identitySourceType: IdentitySourceType.t option
        [@ocaml.doc
          "The type of resource that provided identities to the identity source. For example, an IAM Identity Center instance."];
      identitySourceParameters: IdentitySourceParametersForList.t option
        [@ocaml.doc
          "A IdentitySourceParametersForList object. Contains details for the resource that provides identities to the identity source. For example, an IAM Identity Center instance."];
      identitySourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the identity source."];
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the identity source was created."];
      status: IdentitySourceStatus.t option
        [@ocaml.doc
          "Status for the identity source. For example, if the identity source is ACTIVE."];
      statusCode: IdentitySourceStatusCode.t option
        [@ocaml.doc "Status code of the identity source."];
      statusMessage: String_.t option
        [@ocaml.doc "Message describing the status for the identity source."]}
    let make ?identitySourceType =
      fun ?identitySourceParameters ->
        fun ?identitySourceArn ->
          fun ?creationTime ->
            fun ?status ->
              fun ?statusCode ->
                fun ?statusMessage ->
                  fun () ->
                    {
                      identitySourceType;
                      identitySourceParameters;
                      identitySourceArn;
                      creationTime;
                      status;
                      statusCode;
                      statusMessage
                    }
    let to_value x =
      structure_to_value
        [("IdentitySourceType",
           (Option.map x.identitySourceType ~f:IdentitySourceType.to_value));
        ("IdentitySourceParameters",
          (Option.map x.identitySourceParameters
             ~f:IdentitySourceParametersForList.to_value));
        ("IdentitySourceArn",
          (Option.map x.identitySourceArn ~f:String_.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("Status", (Option.map x.status ~f:IdentitySourceStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:IdentitySourceStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:IdentitySourceStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:IdentitySourceStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let identitySourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "IdentitySourceArn") in
      let identitySourceParameters =
        (Option.map ~f:IdentitySourceParametersForList.of_xml)
          (Xml.child xml_arg0 "IdentitySourceParameters") in
      let identitySourceType =
        (Option.map ~f:IdentitySourceType.of_xml)
          (Xml.child xml_arg0 "IdentitySourceType") in
      make ?statusMessage ?statusCode ?status ?creationTime
        ?identitySourceArn ?identitySourceParameters ?identitySourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let statusCode =
        field_map json__ "StatusCode" IdentitySourceStatusCode.of_json in
      let status = field_map json__ "Status" IdentitySourceStatus.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      let identitySourceArn =
        field_map json__ "IdentitySourceArn" String_.of_json in
      let identitySourceParameters =
        field_map json__ "IdentitySourceParameters"
          IdentitySourceParametersForList.of_json in
      let identitySourceType =
        field_map json__ "IdentitySourceType" IdentitySourceType.of_json in
      make ?statusMessage ?statusCode ?status ?creationTime
        ?identitySourceArn ?identitySourceParameters ?identitySourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for an identity source. For more information, see Identity source in the Multi-party approval User Guide."]
module ListApprovalTeamsResponseApprovalTeam =
  struct
    type nonrec t =
      {
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the team was created."];
      approvalStrategy: ApprovalStrategyResponse.t option
        [@ocaml.doc
          "An ApprovalStrategyResponse object. Contains details for how an approval team grants approval."];
      numberOfApprovers: Integer.t option
        [@ocaml.doc "Total number of approvers in the team."];
      arn: ApprovalTeamArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."];
      name: ApprovalTeamName.t option [@ocaml.doc "Name of the team."];
      description: Description.t option
        [@ocaml.doc "Description for the team."];
      status: ApprovalTeamStatus.t option
        [@ocaml.doc
          "Status for the team. For more information, see Team health in the Multi-party approval User Guide."];
      statusCode: ApprovalTeamStatusCode.t option
        [@ocaml.doc
          "Status code for the team. For more information, see Team health in the Multi-party approval User Guide."];
      statusMessage: Message.t option
        [@ocaml.doc "Message describing the status for the team."]}
    let make ?creationTime =
      fun ?approvalStrategy ->
        fun ?numberOfApprovers ->
          fun ?arn ->
            fun ?name ->
              fun ?description ->
                fun ?status ->
                  fun ?statusCode ->
                    fun ?statusMessage ->
                      fun () ->
                        {
                          creationTime;
                          approvalStrategy;
                          numberOfApprovers;
                          arn;
                          name;
                          description;
                          status;
                          statusCode;
                          statusMessage
                        }
    let to_value x =
      structure_to_value
        [("CreationTime",
           (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("ApprovalStrategy",
          (Option.map x.approvalStrategy ~f:ApprovalStrategyResponse.to_value));
        ("NumberOfApprovers",
          (Option.map x.numberOfApprovers ~f:Integer.to_value));
        ("Arn", (Option.map x.arn ~f:ApprovalTeamArn.to_value));
        ("Name", (Option.map x.name ~f:ApprovalTeamName.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Status", (Option.map x.status ~f:ApprovalTeamStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:ApprovalTeamStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:ApprovalTeamStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:ApprovalTeamStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:ApprovalTeamName.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:ApprovalTeamArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let numberOfApprovers =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NumberOfApprovers") in
      let approvalStrategy =
        (Option.map ~f:ApprovalStrategyResponse.of_xml)
          (Xml.child xml_arg0 "ApprovalStrategy") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      make ?statusMessage ?statusCode ?status ?description ?name ?arn
        ?numberOfApprovers ?approvalStrategy ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" Message.of_json in
      let statusCode =
        field_map json__ "StatusCode" ApprovalTeamStatusCode.of_json in
      let status = field_map json__ "Status" ApprovalTeamStatus.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let name = field_map json__ "Name" ApprovalTeamName.of_json in
      let arn = field_map json__ "Arn" ApprovalTeamArn.of_json in
      let numberOfApprovers =
        field_map json__ "NumberOfApprovers" Integer.of_json in
      let approvalStrategy =
        field_map json__ "ApprovalStrategy" ApprovalStrategyResponse.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      make ?statusMessage ?statusCode ?status ?description ?name ?arn
        ?numberOfApprovers ?approvalStrategy ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains details for an approval team"]
module GetSessionResponseApproverResponse =
  struct
    type nonrec t =
      {
      approverId: ParticipantId.t option [@ocaml.doc "ID for the approver."];
      identitySourceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the identity source. The identity source manages the user authentication for approvers."];
      identityId: IdentityId.t option
        [@ocaml.doc
          "ID for the identity source. The identity source manages the user authentication for approvers."];
      response: SessionResponse.t option
        [@ocaml.doc "Response to the operation request."];
      responseTime: IsoTimestamp.t option
        [@ocaml.doc
          "Timestamp when a approver responded to the operation request."]}
    let make ?approverId =
      fun ?identitySourceArn ->
        fun ?identityId ->
          fun ?response ->
            fun ?responseTime ->
              fun () ->
                {
                  approverId;
                  identitySourceArn;
                  identityId;
                  response;
                  responseTime
                }
    let to_value x =
      structure_to_value
        [("ApproverId", (Option.map x.approverId ~f:ParticipantId.to_value));
        ("IdentitySourceArn",
          (Option.map x.identitySourceArn ~f:String_.to_value));
        ("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("Response", (Option.map x.response ~f:SessionResponse.to_value));
        ("ResponseTime",
          (Option.map x.responseTime ~f:IsoTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let responseTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "ResponseTime") in
      let response =
        (Option.map ~f:SessionResponse.of_xml)
          (Xml.child xml_arg0 "Response") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      let identitySourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "IdentitySourceArn") in
      let approverId =
        (Option.map ~f:ParticipantId.of_xml)
          (Xml.child xml_arg0 "ApproverId") in
      make ?responseTime ?response ?identityId ?identitySourceArn ?approverId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let responseTime = field_map json__ "ResponseTime" IsoTimestamp.of_json in
      let response = field_map json__ "Response" SessionResponse.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      let identitySourceArn =
        field_map json__ "IdentitySourceArn" String_.of_json in
      let approverId = field_map json__ "ApproverId" ParticipantId.of_json in
      make ?responseTime ?response ?identityId ?identitySourceArn ?approverId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for an approver response in an approval session."]
module SessionKey =
  struct
    type nonrec t = string
    let context_ = "SessionKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\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:"SessionKey" j
    let to_json = simple_to_json to_value
  end
module SessionValue =
  struct
    type nonrec t = string
    let context_ = "SessionValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9\\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:"SessionValue" j
    let to_json = simple_to_json to_value
  end
module PolicyDocument =
  struct
    type nonrec t = string
    let context_ = "PolicyDocument"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:400000) >>=
             (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:"PolicyDocument" j
    let to_json = simple_to_json to_value
  end
module IamIdentityCenterForGet =
  struct
    type nonrec t =
      {
      instanceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the IAM Identity Center instance."];
      approvalPortalUrl: String_.t option
        [@ocaml.doc
          "URL for the approval portal associated with the IAM Identity Center instance."];
      region: String_.t option
        [@ocaml.doc
          "Amazon Web Services Region where the IAM Identity Center instance is located."]}
    let make ?instanceArn =
      fun ?approvalPortalUrl ->
        fun ?region -> fun () -> { instanceArn; approvalPortalUrl; region }
    let to_value x =
      structure_to_value
        [("InstanceArn", (Option.map x.instanceArn ~f:String_.to_value));
        ("ApprovalPortalUrl",
          (Option.map x.approvalPortalUrl ~f:String_.to_value));
        ("Region", (Option.map x.region ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Region") in
      let approvalPortalUrl =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ApprovalPortalUrl") in
      let instanceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "InstanceArn") in
      make ?region ?approvalPortalUrl ?instanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map json__ "Region" String_.of_json in
      let approvalPortalUrl =
        field_map json__ "ApprovalPortalUrl" String_.of_json in
      let instanceArn = field_map json__ "InstanceArn" String_.of_json in
      make ?region ?approvalPortalUrl ?instanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "IAM Identity Center credentials. For more information see, IAM Identity Center ."]
module GetApprovalTeamResponseApprovers =
  struct
    type nonrec t = GetApprovalTeamResponseApprover.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GetApprovalTeamResponseApprover.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:GetApprovalTeamResponseApprover.of_xml)
    let of_json j =
      list_of_json ~kind:"GetApprovalTeamResponseApprovers"
        ~of_json:GetApprovalTeamResponseApprover.of_json j
    let to_json v = composed_to_json to_value v
  end
module PolicyReference =
  struct
    type nonrec t =
      {
      policyArn: QualifiedPolicyArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy."]}
    let context_ = "PolicyReference"
    let make ~policyArn = fun () -> { policyArn }
    let to_value x =
      structure_to_value
        [("PolicyArn", (Some (QualifiedPolicyArn.to_value x.policyArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyArn =
        QualifiedPolicyArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyArn") in
      make ~policyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyArn =
        field_map_exn json__ "PolicyArn" QualifiedPolicyArn.of_json in
      make ~policyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the Amazon Resource Name (ARN) for a policy. Policies define what operations a team that define the permissions for team resources."]
module IamIdentityCenter =
  struct
    type nonrec t =
      {
      instanceArn: IdcInstanceArn.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the IAM Identity Center instance."];
      region: String_.t
        [@ocaml.doc
          "Amazon Web Services Region where the IAM Identity Center instance is located."]}
    let context_ = "IamIdentityCenter"
    let make ~instanceArn = fun ~region -> fun () -> { instanceArn; region }
    let to_value x =
      structure_to_value
        [("InstanceArn", (Some (IdcInstanceArn.to_value x.instanceArn)));
        ("Region", (Some (String_.to_value x.region)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let region =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Region") in
      let instanceArn =
        IdcInstanceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceArn") in
      make ~region ~instanceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let region = field_map_exn json__ "Region" String_.of_json in
      let instanceArn =
        field_map_exn json__ "InstanceArn" IdcInstanceArn.of_json in
      make ~region ~instanceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "IAM Identity Center credentials. For more information see, IAM Identity Center ."]
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the AccessDeniedException error."]}
    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
       "You do not have sufficient access to perform this action. Check your permissions, and try again."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the ConflictException error."]}
    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 request cannot be completed because it conflicts with the current state of a resource."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the InternalServerException error."]}
    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 service encountered an internal error. Try your request again. If the problem persists, contact Amazon Web Services Support."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the ResourceNotFoundException error."]}
    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 specified resource doesn't exist. Check the resource ID, and try again."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the ServiceQuotaExceededException error."]}
    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 request exceeds the service quota for your account. Request a quota increase or reduce your request size."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the ThrottlingException error."]}
    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 request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the ValidationException error."]}
    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 input fails to satisfy the constraints specified by an Amazon Web Services service."]
module ApprovalStrategy =
  struct
    type nonrec t =
      {
      mofN: MofNApprovalStrategy.t option
        [@ocaml.doc
          "Minimum number of approvals (M) required for a total number of approvers (N)."]}
    let make ?mofN = fun () -> { mofN }
    let to_value x =
      structure_to_value
        [("MofN", (Option.map x.mofN ~f:MofNApprovalStrategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mofN =
        (Option.map ~f:MofNApprovalStrategy.of_xml)
          (Xml.child xml_arg0 "MofN") in
      make ?mofN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mofN = field_map json__ "MofN" MofNApprovalStrategy.of_json in
      make ?mofN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Strategy for how an approval team grants approval."]
module ApprovalTeamRequestApprovers =
  struct
    type nonrec t = ApprovalTeamRequestApprover.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (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:ApprovalTeamRequestApprover.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:ApprovalTeamRequestApprover.of_xml)
    let of_json j =
      list_of_json ~kind:"ApprovalTeamRequestApprovers"
        ~of_json:ApprovalTeamRequestApprover.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateActions =
  struct
    type nonrec t = UpdateAction.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UpdateAction.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:UpdateAction.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateActions" ~of_json:UpdateAction.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.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:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TooManyTagsException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the TooManyTagsException error."];
      resourceName: String_.t option
        [@ocaml.doc
          "Name of the resource for the TooManyTagsException error."]}
    let make ?message =
      fun ?resourceName -> fun () -> { message; resourceName }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceName", (Option.map x.resourceName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceName") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceName ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceName = field_map json__ "ResourceName" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceName ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request exceeds the maximum number of tags allowed for this resource. Remove some tags, and try again."]
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.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 ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.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:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module StartApprovalTeamBaselineApproverIds =
  struct
    type nonrec t = ParticipantId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ParticipantId.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:ParticipantId.of_xml)
    let of_json j =
      list_of_json ~kind:"StartApprovalTeamBaselineApproverIds"
        ~of_json:ParticipantId.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListSessionsResponseSessions =
  struct
    type nonrec t = ListSessionsResponseSession.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ListSessionsResponseSession.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:ListSessionsResponseSession.of_xml)
    let of_json j =
      list_of_json ~kind:"ListSessionsResponseSessions"
        ~of_json:ListSessionsResponseSession.of_json j
    let to_json v = composed_to_json to_value v
  end
module Token =
  struct
    type nonrec t = string
    let context_ = "Token"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (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:"Token" j
    let to_json = simple_to_json to_value
  end
module Filters =
  struct
    type nonrec t = Filter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Filter.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:Filter.of_xml)
    let of_json j = list_of_json ~kind:"Filters" ~of_json:Filter.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (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 MaxResults" 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 ListResourcePoliciesResponseResourcePolicies =
  struct
    type nonrec t = ListResourcePoliciesResponseResourcePolicy.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map ~f:ListResourcePoliciesResponseResourcePolicy.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:ListResourcePoliciesResponseResourcePolicy.of_xml)
    let of_json j =
      list_of_json ~kind:"ListResourcePoliciesResponseResourcePolicies"
        ~of_json:ListResourcePoliciesResponseResourcePolicy.of_json j
    let to_json v = composed_to_json to_value v
  end
module PolicyVersions =
  struct
    type nonrec t = PolicyVersionSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PolicyVersionSummary.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:PolicyVersionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"PolicyVersions"
        ~of_json:PolicyVersionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Policies =
  struct
    type nonrec t = Policy.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Policy.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:Policy.of_xml)
    let of_json j = list_of_json ~kind:"Policies" ~of_json:Policy.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentitySources =
  struct
    type nonrec t = IdentitySourceForList.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IdentitySourceForList.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:IdentitySourceForList.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentitySources"
        ~of_json:IdentitySourceForList.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListApprovalTeamsResponseApprovalTeams =
  struct
    type nonrec t = ListApprovalTeamsResponseApprovalTeam.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ListApprovalTeamsResponseApprovalTeam.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:ListApprovalTeamsResponseApprovalTeam.of_xml)
    let of_json j =
      list_of_json ~kind:"ListApprovalTeamsResponseApprovalTeams"
        ~of_json:ListApprovalTeamsResponseApprovalTeam.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetSessionResponseApproverResponses =
  struct
    type nonrec t = GetSessionResponseApproverResponse.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GetSessionResponseApproverResponse.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:GetSessionResponseApproverResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"GetSessionResponseApproverResponses"
        ~of_json:GetSessionResponseApproverResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module RequesterComment =
  struct
    type nonrec t = string
    let context_ = "RequesterComment"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:200) >>=
             (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:"RequesterComment" j
    let to_json = simple_to_json to_value
  end
module SessionExecutionStatus =
  struct
    type nonrec t =
      | EXECUTED 
      | FAILED 
      | PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXECUTED -> "EXECUTED"
      | FAILED -> "FAILED"
      | PENDING -> "PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXECUTED" -> EXECUTED
      | "FAILED" -> FAILED
      | "PENDING" -> PENDING
      | 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 SessionExecutionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SessionExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module SessionMetadata =
  struct
    type nonrec t = (SessionKey.t * SessionValue.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 ->
                            ((SessionKey.of_string chopped),
                              (SessionValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SessionKey.to_value x) |>
                    (fun x -> (SessionValue.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:SessionKey.of_string
        ~of_json:SessionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidParameterException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Message for the InvalidParameterException error."]}
    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 request contains an invalid parameter value."]
module PolicyVersion =
  struct
    type nonrec t =
      {
      arn: QualifiedPolicyArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."];
      policyArn: UnqualifiedPolicyArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy."];
      versionId: PolicyVersionId.t option [@ocaml.doc "Verison ID"];
      policyType: PolicyType.t option [@ocaml.doc "The type of policy."];
      isDefault: Boolean.t option
        [@ocaml.doc
          "Determines if the specified policy is the default for the team."];
      name: PolicyName.t option [@ocaml.doc "Name of the policy."];
      status: PolicyStatus.t option
        [@ocaml.doc
          "Status for the policy. For example, if the policy is attachable or deprecated."];
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the policy was created."];
      lastUpdatedTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the policy was last updated."];
      document: PolicyDocument.t option
        [@ocaml.doc "Document that contains the policy contents."]}
    let make ?arn =
      fun ?policyArn ->
        fun ?versionId ->
          fun ?policyType ->
            fun ?isDefault ->
              fun ?name ->
                fun ?status ->
                  fun ?creationTime ->
                    fun ?lastUpdatedTime ->
                      fun ?document ->
                        fun () ->
                          {
                            arn;
                            policyArn;
                            versionId;
                            policyType;
                            isDefault;
                            name;
                            status;
                            creationTime;
                            lastUpdatedTime;
                            document
                          }
    let to_value x =
      structure_to_value
        [("Arn", (Option.map x.arn ~f:QualifiedPolicyArn.to_value));
        ("PolicyArn",
          (Option.map x.policyArn ~f:UnqualifiedPolicyArn.to_value));
        ("VersionId", (Option.map x.versionId ~f:PolicyVersionId.to_value));
        ("PolicyType", (Option.map x.policyType ~f:PolicyType.to_value));
        ("IsDefault", (Option.map x.isDefault ~f:Boolean.to_value));
        ("Name", (Option.map x.name ~f:PolicyName.to_value));
        ("Status", (Option.map x.status ~f:PolicyStatus.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("LastUpdatedTime",
          (Option.map x.lastUpdatedTime ~f:IsoTimestamp.to_value));
        ("Document", (Option.map x.document ~f:PolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let document =
        (Option.map ~f:PolicyDocument.of_xml) (Xml.child xml_arg0 "Document") in
      let lastUpdatedTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdatedTime") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let status =
        (Option.map ~f:PolicyStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let name =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "Name") in
      let isDefault =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsDefault") in
      let policyType =
        (Option.map ~f:PolicyType.of_xml) (Xml.child xml_arg0 "PolicyType") in
      let versionId =
        (Option.map ~f:PolicyVersionId.of_xml)
          (Xml.child xml_arg0 "VersionId") in
      let policyArn =
        (Option.map ~f:UnqualifiedPolicyArn.of_xml)
          (Xml.child xml_arg0 "PolicyArn") in
      let arn =
        (Option.map ~f:QualifiedPolicyArn.of_xml) (Xml.child xml_arg0 "Arn") in
      make ?document ?lastUpdatedTime ?creationTime ?status ?name ?isDefault
        ?policyType ?versionId ?policyArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let document = field_map json__ "Document" PolicyDocument.of_json in
      let lastUpdatedTime =
        field_map json__ "LastUpdatedTime" IsoTimestamp.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      let status = field_map json__ "Status" PolicyStatus.of_json in
      let name = field_map json__ "Name" PolicyName.of_json in
      let isDefault = field_map json__ "IsDefault" Boolean.of_json in
      let policyType = field_map json__ "PolicyType" PolicyType.of_json in
      let versionId = field_map json__ "VersionId" PolicyVersionId.of_json in
      let policyArn =
        field_map json__ "PolicyArn" UnqualifiedPolicyArn.of_json in
      let arn = field_map json__ "Arn" QualifiedPolicyArn.of_json in
      make ?document ?lastUpdatedTime ?creationTime ?status ?name ?isDefault
        ?policyType ?versionId ?policyArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for the version of a policy. Policies define what operations a team that define the permissions for team resources."]
module IdentitySourceParametersForGet =
  struct
    type nonrec t =
      {
      iamIdentityCenter: IamIdentityCenterForGet.t option
        [@ocaml.doc "IAM Identity Center credentials."]}
    let make ?iamIdentityCenter = fun () -> { iamIdentityCenter }
    let to_value x =
      structure_to_value
        [("IamIdentityCenter",
           (Option.map x.iamIdentityCenter
              ~f:IamIdentityCenterForGet.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iamIdentityCenter =
        (Option.map ~f:IamIdentityCenterForGet.of_xml)
          (Xml.child xml_arg0 "IamIdentityCenter") in
      make ?iamIdentityCenter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iamIdentityCenter =
        field_map json__ "IamIdentityCenter" IamIdentityCenterForGet.of_json in
      make ?iamIdentityCenter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for the resource that provides identities to the identity source. For example, an IAM Identity Center instance. For more information, see Identity source in the Multi-party approval User Guide."]
module PendingUpdate =
  struct
    type nonrec t =
      {
      versionId: String_.t option [@ocaml.doc "Version ID for the team."];
      description: String_.t option [@ocaml.doc "Description for the team."];
      approvalStrategy: ApprovalStrategyResponse.t option
        [@ocaml.doc
          "An ApprovalStrategyResponse object. Contains details for how the team grants approval."];
      numberOfApprovers: Integer.t option
        [@ocaml.doc "Total number of approvers in the team."];
      status: ApprovalTeamStatus.t option
        [@ocaml.doc
          "Status for the team. For more information, see Team health in the Multi-party approval User Guide."];
      statusCode: ApprovalTeamStatusCode.t option
        [@ocaml.doc
          "Status code for the update. For more information, see Team health in the Multi-party approval User Guide."];
      statusMessage: Message.t option
        [@ocaml.doc "Message describing the status for the team."];
      approvers: GetApprovalTeamResponseApprovers.t option
        [@ocaml.doc
          "An array of GetApprovalTeamResponseApprover objects. Contains details for the approvers in the team."];
      updateInitiationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the update request was initiated."]}
    let make ?versionId =
      fun ?description ->
        fun ?approvalStrategy ->
          fun ?numberOfApprovers ->
            fun ?status ->
              fun ?statusCode ->
                fun ?statusMessage ->
                  fun ?approvers ->
                    fun ?updateInitiationTime ->
                      fun () ->
                        {
                          versionId;
                          description;
                          approvalStrategy;
                          numberOfApprovers;
                          status;
                          statusCode;
                          statusMessage;
                          approvers;
                          updateInitiationTime
                        }
    let to_value x =
      structure_to_value
        [("VersionId", (Option.map x.versionId ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("ApprovalStrategy",
          (Option.map x.approvalStrategy ~f:ApprovalStrategyResponse.to_value));
        ("NumberOfApprovers",
          (Option.map x.numberOfApprovers ~f:Integer.to_value));
        ("Status", (Option.map x.status ~f:ApprovalTeamStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:ApprovalTeamStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:Message.to_value));
        ("Approvers",
          (Option.map x.approvers
             ~f:GetApprovalTeamResponseApprovers.to_value));
        ("UpdateInitiationTime",
          (Option.map x.updateInitiationTime ~f:IsoTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateInitiationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "UpdateInitiationTime") in
      let approvers =
        (Option.map ~f:GetApprovalTeamResponseApprovers.of_xml)
          (Xml.child xml_arg0 "Approvers") in
      let statusMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:ApprovalTeamStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:ApprovalTeamStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let numberOfApprovers =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NumberOfApprovers") in
      let approvalStrategy =
        (Option.map ~f:ApprovalStrategyResponse.of_xml)
          (Xml.child xml_arg0 "ApprovalStrategy") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let versionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VersionId") in
      make ?updateInitiationTime ?approvers ?statusMessage ?statusCode
        ?status ?numberOfApprovers ?approvalStrategy ?description ?versionId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateInitiationTime =
        field_map json__ "UpdateInitiationTime" IsoTimestamp.of_json in
      let approvers =
        field_map json__ "Approvers" GetApprovalTeamResponseApprovers.of_json in
      let statusMessage = field_map json__ "StatusMessage" Message.of_json in
      let statusCode =
        field_map json__ "StatusCode" ApprovalTeamStatusCode.of_json in
      let status = field_map json__ "Status" ApprovalTeamStatus.of_json in
      let numberOfApprovers =
        field_map json__ "NumberOfApprovers" Integer.of_json in
      let approvalStrategy =
        field_map json__ "ApprovalStrategy" ApprovalStrategyResponse.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let versionId = field_map json__ "VersionId" String_.of_json in
      make ?updateInitiationTime ?approvers ?statusMessage ?statusCode
        ?status ?numberOfApprovers ?approvalStrategy ?description ?versionId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for the pending updates for an approval team, if applicable."]
module PoliciesReferences =
  struct
    type nonrec t = PolicyReference.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (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:PolicyReference.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:PolicyReference.of_xml)
    let of_json j =
      list_of_json ~kind:"PoliciesReferences"
        ~of_json:PolicyReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module IdentitySourceParameters =
  struct
    type nonrec t =
      {
      iamIdentityCenter: IamIdentityCenter.t option
        [@ocaml.doc "IAM Identity Center credentials."]}
    let make ?iamIdentityCenter = fun () -> { iamIdentityCenter }
    let to_value x =
      structure_to_value
        [("IamIdentityCenter",
           (Option.map x.iamIdentityCenter ~f:IamIdentityCenter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iamIdentityCenter =
        (Option.map ~f:IamIdentityCenter.of_xml)
          (Xml.child xml_arg0 "IamIdentityCenter") in
      make ?iamIdentityCenter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iamIdentityCenter =
        field_map json__ "IamIdentityCenter" IamIdentityCenter.of_json in
      make ?iamIdentityCenter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains details for the resource that provides identities to the identity source. For example, an IAM Identity Center instance."]
module UpdateApprovalTeamResponse =
  struct
    type nonrec t =
      {
      versionId: String_.t option
        [@ocaml.doc
          "Version ID for the team that was created. When an approval team is updated, the version ID changes."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?versionId = fun () -> { versionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("VersionId", (Option.map x.versionId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VersionId") in
      make ?versionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionId = field_map json__ "VersionId" String_.of_json in
      make ?versionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an approval team. You can request to update the team description, approval threshold, and approvers in the team. Updates require team approval Updates to an active team must be approved by the team."]
module UpdateApprovalTeamRequest =
  struct
    type nonrec t =
      {
      approvalStrategy: ApprovalStrategy.t option
        [@ocaml.doc
          "An ApprovalStrategy object. Contains details for how the team grants approval."];
      approvers: ApprovalTeamRequestApprovers.t option
        [@ocaml.doc
          "An array of ApprovalTeamRequestApprover objects. Contains details for the approvers in the team."];
      description: Description.t option
        [@ocaml.doc "Description for the team."];
      arn: ApprovalTeamArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."];
      updateActions: UpdateActions.t option
        [@ocaml.doc
          "A list of UpdateAction to perform when updating the team."]}
    let context_ = "UpdateApprovalTeamRequest"
    let make ?approvalStrategy =
      fun ?approvers ->
        fun ?description ->
          fun ?updateActions ->
            fun ~arn ->
              fun () ->
                {
                  approvalStrategy;
                  approvers;
                  description;
                  updateActions;
                  arn
                }
    let to_value x =
      structure_to_value
        [("ApprovalStrategy",
           (Option.map x.approvalStrategy ~f:ApprovalStrategy.to_value));
        ("Approvers",
          (Option.map x.approvers ~f:ApprovalTeamRequestApprovers.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Arn", (Some (ApprovalTeamArn.to_value x.arn)));
        ("UpdateActions",
          (Option.map x.updateActions ~f:UpdateActions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updateActions =
        (Option.map ~f:UpdateActions.of_xml)
          (Xml.child xml_arg0 "UpdateActions") in
      let arn =
        ApprovalTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let approvers =
        (Option.map ~f:ApprovalTeamRequestApprovers.of_xml)
          (Xml.child xml_arg0 "Approvers") in
      let approvalStrategy =
        (Option.map ~f:ApprovalStrategy.of_xml)
          (Xml.child xml_arg0 "ApprovalStrategy") in
      make ?updateActions ~arn ?description ?approvers ?approvalStrategy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updateActions =
        field_map json__ "UpdateActions" UpdateActions.of_json in
      let arn = field_map_exn json__ "Arn" ApprovalTeamArn.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let approvers =
        field_map json__ "Approvers" ApprovalTeamRequestApprovers.of_json in
      let approvalStrategy =
        field_map json__ "ApprovalStrategy" ApprovalStrategy.of_json in
      make ?updateActions ~arn ?description ?approvers ?approvalStrategy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an approval team. You can request to update the team description, approval threshold, and approvers in the team. Updates require team approval Updates to an active team must be approved by the team."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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 a resource tag. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the resource you want to untag."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "Array of tag key-value pairs that you want to untag."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("TagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceArn =
        String_.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" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a resource tag. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
       "Creates or updates a resource tag. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the resource you want to tag."];
      tags: Tags.t
        [@ocaml.doc "Tags that you have added to the specified resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("Tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceArn =
        String_.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" Tags.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates a resource tag. Each tag is a label consisting of a user-defined key and value. Tags can help you manage, identify, organize, search for, and filter resources."]
module StartApprovalTeamBaselineResponse =
  struct
    type nonrec t =
      {
      baselineSessionArn: SessionArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?baselineSessionArn = fun () -> { baselineSessionArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("BaselineSessionArn",
           (Option.map x.baselineSessionArn ~f:SessionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let baselineSessionArn =
        (Option.map ~f:SessionArn.of_xml)
          (Xml.child xml_arg0 "BaselineSessionArn") in
      make ?baselineSessionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let baselineSessionArn =
        field_map json__ "BaselineSessionArn" SessionArn.of_json in
      make ?baselineSessionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a baseline session for specified approvers on an ACTIVE approval team."]
module StartApprovalTeamBaselineRequest =
  struct
    type nonrec t =
      {
      arn: ApprovalTeamArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the approval team."];
      approverIds: StartApprovalTeamBaselineApproverIds.t option
        [@ocaml.doc "Array of approver IDs."]}
    let context_ = "StartApprovalTeamBaselineRequest"
    let make ?approverIds = fun ~arn -> fun () -> { approverIds; arn }
    let to_value x =
      structure_to_value
        [("Arn", (Some (ApprovalTeamArn.to_value x.arn)));
        ("ApproverIds",
          (Option.map x.approverIds
             ~f:StartApprovalTeamBaselineApproverIds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approverIds =
        (Option.map ~f:StartApprovalTeamBaselineApproverIds.of_xml)
          (Xml.child xml_arg0 "ApproverIds") in
      let arn =
        ApprovalTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ?approverIds ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approverIds =
        field_map json__ "ApproverIds"
          StartApprovalTeamBaselineApproverIds.of_json in
      let arn = field_map_exn json__ "Arn" ApprovalTeamArn.of_json in
      make ?approverIds ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a baseline session for specified approvers on an ACTIVE approval team."]
module StartActiveApprovalTeamDeletionResponse =
  struct
    type nonrec t =
      {
      deletionCompletionTime: IsoTimestamp.t option
        [@ocaml.doc
          "Timestamp when the deletion process is scheduled to complete."];
      deletionStartTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the deletion process was initiated."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deletionCompletionTime =
      fun ?deletionStartTime ->
        fun () -> { deletionCompletionTime; deletionStartTime }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("DeletionCompletionTime",
           (Option.map x.deletionCompletionTime ~f:IsoTimestamp.to_value));
        ("DeletionStartTime",
          (Option.map x.deletionStartTime ~f:IsoTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionStartTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "DeletionStartTime") in
      let deletionCompletionTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "DeletionCompletionTime") in
      make ?deletionStartTime ?deletionCompletionTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionStartTime =
        field_map json__ "DeletionStartTime" IsoTimestamp.of_json in
      let deletionCompletionTime =
        field_map json__ "DeletionCompletionTime" IsoTimestamp.of_json in
      make ?deletionStartTime ?deletionCompletionTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the deletion process for an active approval team. Deletions require team approval Requests to delete an active team must be approved by the team."]
module StartActiveApprovalTeamDeletionRequest =
  struct
    type nonrec t =
      {
      pendingWindowDays: Integer.t option
        [@ocaml.doc
          "Number of days between when the team approves the delete request and when the team is deleted."];
      arn: ApprovalTeamArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."]}
    let context_ = "StartActiveApprovalTeamDeletionRequest"
    let make ?pendingWindowDays =
      fun ~arn -> fun () -> { pendingWindowDays; arn }
    let to_value x =
      structure_to_value
        [("PendingWindowDays",
           (Option.map x.pendingWindowDays ~f:Integer.to_value));
        ("Arn", (Some (ApprovalTeamArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        ApprovalTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      let pendingWindowDays =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "PendingWindowDays") in
      make ~arn ?pendingWindowDays ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" ApprovalTeamArn.of_json in
      let pendingWindowDays =
        field_map json__ "PendingWindowDays" Integer.of_json in
      make ~arn ?pendingWindowDays ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the deletion process for an active approval team. Deletions require team approval Requests to delete an active team must be approved by the team."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option [@ocaml.doc "Tags attached to the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.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" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of the tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.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" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of the tags for a resource."]
module ListSessionsResponse =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      sessions: ListSessionsResponseSessions.t option
        [@ocaml.doc
          "An array of ListSessionsResponseSession objects. Contains details for the sessions."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?sessions -> fun () -> { nextToken; sessions }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Sessions",
          (Option.map x.sessions ~f:ListSessionsResponseSessions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessions =
        (Option.map ~f:ListSessionsResponseSessions.of_xml)
          (Xml.child xml_arg0 "Sessions") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?sessions ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessions =
        field_map json__ "Sessions" ListSessionsResponseSessions.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?sessions ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of approval sessions. For more information, see Session in the Multi-party approval User Guide."]
module ListSessionsRequest =
  struct
    type nonrec t =
      {
      approvalTeamArn: ApprovalTeamArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the approval team."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return in the response. If more results exist than the specified MaxResults value, a token is included in the response so that you can retrieve the remaining results."];
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      filters: Filters.t option
        [@ocaml.doc
          "An array of Filter objects. Contains the filter to apply when listing sessions."]}
    let context_ = "ListSessionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ~approvalTeamArn ->
            fun () -> { maxResults; nextToken; filters; approvalTeamArn }
    let to_value x =
      structure_to_value
        [("ApprovalTeamArn",
           (Some (ApprovalTeamArn.to_value x.approvalTeamArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let approvalTeamArn =
        ApprovalTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApprovalTeamArn") in
      make ?filters ?nextToken ?maxResults ~approvalTeamArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters = field_map json__ "Filters" Filters.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let approvalTeamArn =
        field_map_exn json__ "ApprovalTeamArn" ApprovalTeamArn.of_json in
      make ?filters ?nextToken ?maxResults ~approvalTeamArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of approval sessions. For more information, see Session in the Multi-party approval User Guide."]
module ListResourcePoliciesResponse =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      resourcePolicies: ListResourcePoliciesResponseResourcePolicies.t option
        [@ocaml.doc
          "An array of ListResourcePoliciesResponseResourcePolicy objects. Contains details about the policy for the resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?resourcePolicies -> fun () -> { nextToken; resourcePolicies }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("ResourcePolicies",
          (Option.map x.resourcePolicies
             ~f:ListResourcePoliciesResponseResourcePolicies.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourcePolicies =
        (Option.map ~f:ListResourcePoliciesResponseResourcePolicies.of_xml)
          (Xml.child xml_arg0 "ResourcePolicies") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?resourcePolicies ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourcePolicies =
        field_map json__ "ResourcePolicies"
          ListResourcePoliciesResponseResourcePolicies.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?resourcePolicies ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of policies for a resource."]
module ListResourcePoliciesRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the resource."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return in the response. If more results exist than the specified MaxResults value, a token is included in the response so that you can retrieve the remaining results."];
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."]}
    let context_ = "ListResourcePoliciesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resourceArn -> fun () -> { maxResults; nextToken; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?nextToken ?maxResults ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ?nextToken ?maxResults ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of policies for a resource."]
module ListPolicyVersionsResponse =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      policyVersions: PolicyVersions.t option
        [@ocaml.doc
          "An array of PolicyVersionSummary objects. Contains details for the version of the policies that define the permissions for team resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?policyVersions -> fun () -> { nextToken; policyVersions }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("PolicyVersions",
          (Option.map x.policyVersions ~f:PolicyVersions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyVersions =
        (Option.map ~f:PolicyVersions.of_xml)
          (Xml.child xml_arg0 "PolicyVersions") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?policyVersions ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyVersions =
        field_map json__ "PolicyVersions" PolicyVersions.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?policyVersions ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the versions for policies. Policies define the permissions for team resources."]
module ListPolicyVersionsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return in the response. If more results exist than the specified MaxResults value, a token is included in the response so that you can retrieve the remaining results."];
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      policyArn: UnqualifiedPolicyArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy."]}
    let context_ = "ListPolicyVersionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~policyArn -> fun () -> { maxResults; nextToken; policyArn }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("PolicyArn", (Some (UnqualifiedPolicyArn.to_value x.policyArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyArn =
        UnqualifiedPolicyArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyArn") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ~policyArn ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyArn =
        field_map_exn json__ "PolicyArn" UnqualifiedPolicyArn.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ~policyArn ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the versions for policies. Policies define the permissions for team resources."]
module ListPoliciesResponse =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      policies: Policies.t option
        [@ocaml.doc
          "An array of Policy objects. Contains a list of policies that define the permissions for team resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?policies -> fun () -> { nextToken; policies }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("Policies", (Option.map x.policies ~f:Policies.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policies =
        (Option.map ~f:Policies.of_xml) (Xml.child xml_arg0 "Policies") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?policies ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policies = field_map json__ "Policies" Policies.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?policies ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of policies. Policies define the permissions for team resources."]
module ListPoliciesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return in the response. If more results exist than the specified MaxResults value, a token is included in the response so that you can retrieve the remaining results."];
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child 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" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of policies. Policies define the permissions for team resources."]
module ListIdentitySourcesResponse =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      identitySources: IdentitySources.t option
        [@ocaml.doc
          "A IdentitySources. Contains details for identity sources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?identitySources -> fun () -> { nextToken; identitySources }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("IdentitySources",
          (Option.map x.identitySources ~f:IdentitySources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identitySources =
        (Option.map ~f:IdentitySources.of_xml)
          (Xml.child xml_arg0 "IdentitySources") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?identitySources ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identitySources =
        field_map json__ "IdentitySources" IdentitySources.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?identitySources ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of identity sources. For more information, see Identity Source in the Multi-party approval User Guide."]
module ListIdentitySourcesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return in the response. If more results exist than the specified MaxResults value, a token is included in the response so that you can retrieve the remaining results."];
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child 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" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of identity sources. For more information, see Identity Source in the Multi-party approval User Guide."]
module ListApprovalTeamsResponse =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."];
      approvalTeams: ListApprovalTeamsResponseApprovalTeams.t option
        [@ocaml.doc
          "An array of ListApprovalTeamsResponseApprovalTeam objects. Contains details for approval teams."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?approvalTeams -> fun () -> { nextToken; approvalTeams }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("ApprovalTeams",
          (Option.map x.approvalTeams
             ~f:ListApprovalTeamsResponseApprovalTeams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalTeams =
        (Option.map ~f:ListApprovalTeamsResponseApprovalTeams.of_xml)
          (Xml.child xml_arg0 "ApprovalTeams") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?approvalTeams ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalTeams =
        field_map json__ "ApprovalTeams"
          ListApprovalTeamsResponseApprovalTeams.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?approvalTeams ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of approval teams."]
module ListApprovalTeamsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of items to return in the response. If more results exist than the specified MaxResults value, a token is included in the response so that you can retrieve the remaining results."];
      nextToken: Token.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a next call to the operation to get more output. You can repeat this until the NextToken response element returns null."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child 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" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of approval teams."]
module GetSessionResponse =
  struct
    type nonrec t =
      {
      sessionArn: SessionArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the session."];
      approvalTeamArn: ApprovalTeamArn.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the approval team."];
      approvalTeamName: ApprovalTeamName.t option
        [@ocaml.doc "Name of the approval team."];
      protectedResourceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the protected operation."];
      approvalStrategy: ApprovalStrategyResponse.t option
        [@ocaml.doc
          "An ApprovalStrategyResponse object. Contains details for how the team grants approval"];
      numberOfApprovers: Integer.t option
        [@ocaml.doc "Total number of approvers in the session."];
      initiationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the session was initiated."];
      expirationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the session will expire."];
      completionTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the session completed."];
      description: Description.t option
        [@ocaml.doc "Description for the session."];
      metadata: SessionMetadata.t option
        [@ocaml.doc "Metadata for the session."];
      status: SessionStatus.t option
        [@ocaml.doc
          "Status for the session. For example, if the team has approved the requested operation."];
      statusCode: SessionStatusCode.t option
        [@ocaml.doc "Status code of the session."];
      statusMessage: Message.t option
        [@ocaml.doc "Message describing the status for session."];
      executionStatus: SessionExecutionStatus.t option
        [@ocaml.doc
          "Status for the protected operation. For example, if the operation is PENDING."];
      actionName: ActionName.t option
        [@ocaml.doc "Name of the protected operation."];
      requesterServicePrincipal: ServicePrincipal.t option
        [@ocaml.doc
          "Service principal for the service associated with the protected operation."];
      requesterPrincipalArn: String_.t option
        [@ocaml.doc "IAM principal that made the operation request."];
      requesterAccountId: AccountId.t option
        [@ocaml.doc "ID for the account that made the operation request."];
      requesterRegion: Region.t option
        [@ocaml.doc
          "Amazon Web Services Region where the operation request originated."];
      requesterComment: RequesterComment.t option
        [@ocaml.doc
          "Message from the account that made the operation request"];
      actionCompletionStrategy: ActionCompletionStrategy.t option
        [@ocaml.doc
          "Strategy for executing the protected operation. AUTO_COMPLETION_UPON_APPROVAL means the operation is automatically executed using the requester's permissions, if approved."];
      approverResponses: GetSessionResponseApproverResponses.t option
        [@ocaml.doc
          "An array of GetSessionResponseApproverResponse objects. Contains details for approver responses in the session."];
      additionalSecurityRequirements: AdditionalSecurityRequirements.t option
        [@ocaml.doc
          "A list of AdditionalSecurityRequirement applied to the session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionArn =
      fun ?approvalTeamArn ->
        fun ?approvalTeamName ->
          fun ?protectedResourceArn ->
            fun ?approvalStrategy ->
              fun ?numberOfApprovers ->
                fun ?initiationTime ->
                  fun ?expirationTime ->
                    fun ?completionTime ->
                      fun ?description ->
                        fun ?metadata ->
                          fun ?status ->
                            fun ?statusCode ->
                              fun ?statusMessage ->
                                fun ?executionStatus ->
                                  fun ?actionName ->
                                    fun ?requesterServicePrincipal ->
                                      fun ?requesterPrincipalArn ->
                                        fun ?requesterAccountId ->
                                          fun ?requesterRegion ->
                                            fun ?requesterComment ->
                                              fun ?actionCompletionStrategy
                                                ->
                                                fun ?approverResponses ->
                                                  fun
                                                    ?additionalSecurityRequirements
                                                    ->
                                                    fun () ->
                                                      {
                                                        sessionArn;
                                                        approvalTeamArn;
                                                        approvalTeamName;
                                                        protectedResourceArn;
                                                        approvalStrategy;
                                                        numberOfApprovers;
                                                        initiationTime;
                                                        expirationTime;
                                                        completionTime;
                                                        description;
                                                        metadata;
                                                        status;
                                                        statusCode;
                                                        statusMessage;
                                                        executionStatus;
                                                        actionName;
                                                        requesterServicePrincipal;
                                                        requesterPrincipalArn;
                                                        requesterAccountId;
                                                        requesterRegion;
                                                        requesterComment;
                                                        actionCompletionStrategy;
                                                        approverResponses;
                                                        additionalSecurityRequirements
                                                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("SessionArn", (Option.map x.sessionArn ~f:SessionArn.to_value));
        ("ApprovalTeamArn",
          (Option.map x.approvalTeamArn ~f:ApprovalTeamArn.to_value));
        ("ApprovalTeamName",
          (Option.map x.approvalTeamName ~f:ApprovalTeamName.to_value));
        ("ProtectedResourceArn",
          (Option.map x.protectedResourceArn ~f:String_.to_value));
        ("ApprovalStrategy",
          (Option.map x.approvalStrategy ~f:ApprovalStrategyResponse.to_value));
        ("NumberOfApprovers",
          (Option.map x.numberOfApprovers ~f:Integer.to_value));
        ("InitiationTime",
          (Option.map x.initiationTime ~f:IsoTimestamp.to_value));
        ("ExpirationTime",
          (Option.map x.expirationTime ~f:IsoTimestamp.to_value));
        ("CompletionTime",
          (Option.map x.completionTime ~f:IsoTimestamp.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Metadata", (Option.map x.metadata ~f:SessionMetadata.to_value));
        ("Status", (Option.map x.status ~f:SessionStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:SessionStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:Message.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus ~f:SessionExecutionStatus.to_value));
        ("ActionName", (Option.map x.actionName ~f:ActionName.to_value));
        ("RequesterServicePrincipal",
          (Option.map x.requesterServicePrincipal
             ~f:ServicePrincipal.to_value));
        ("RequesterPrincipalArn",
          (Option.map x.requesterPrincipalArn ~f:String_.to_value));
        ("RequesterAccountId",
          (Option.map x.requesterAccountId ~f:AccountId.to_value));
        ("RequesterRegion",
          (Option.map x.requesterRegion ~f:Region.to_value));
        ("RequesterComment",
          (Option.map x.requesterComment ~f:RequesterComment.to_value));
        ("ActionCompletionStrategy",
          (Option.map x.actionCompletionStrategy
             ~f:ActionCompletionStrategy.to_value));
        ("ApproverResponses",
          (Option.map x.approverResponses
             ~f:GetSessionResponseApproverResponses.to_value));
        ("AdditionalSecurityRequirements",
          (Option.map x.additionalSecurityRequirements
             ~f:AdditionalSecurityRequirements.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalSecurityRequirements =
        (Option.map ~f:AdditionalSecurityRequirements.of_xml)
          (Xml.child xml_arg0 "AdditionalSecurityRequirements") in
      let approverResponses =
        (Option.map ~f:GetSessionResponseApproverResponses.of_xml)
          (Xml.child xml_arg0 "ApproverResponses") in
      let actionCompletionStrategy =
        (Option.map ~f:ActionCompletionStrategy.of_xml)
          (Xml.child xml_arg0 "ActionCompletionStrategy") in
      let requesterComment =
        (Option.map ~f:RequesterComment.of_xml)
          (Xml.child xml_arg0 "RequesterComment") in
      let requesterRegion =
        (Option.map ~f:Region.of_xml) (Xml.child xml_arg0 "RequesterRegion") in
      let requesterAccountId =
        (Option.map ~f:AccountId.of_xml)
          (Xml.child xml_arg0 "RequesterAccountId") in
      let requesterPrincipalArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "RequesterPrincipalArn") in
      let requesterServicePrincipal =
        (Option.map ~f:ServicePrincipal.of_xml)
          (Xml.child xml_arg0 "RequesterServicePrincipal") in
      let actionName =
        (Option.map ~f:ActionName.of_xml) (Xml.child xml_arg0 "ActionName") in
      let executionStatus =
        (Option.map ~f:SessionExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let statusMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:SessionStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:SessionStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let metadata =
        (Option.map ~f:SessionMetadata.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let completionTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CompletionTime") in
      let expirationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTime") in
      let initiationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "InitiationTime") in
      let numberOfApprovers =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NumberOfApprovers") in
      let approvalStrategy =
        (Option.map ~f:ApprovalStrategyResponse.of_xml)
          (Xml.child xml_arg0 "ApprovalStrategy") in
      let protectedResourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ProtectedResourceArn") in
      let approvalTeamName =
        (Option.map ~f:ApprovalTeamName.of_xml)
          (Xml.child xml_arg0 "ApprovalTeamName") in
      let approvalTeamArn =
        (Option.map ~f:ApprovalTeamArn.of_xml)
          (Xml.child xml_arg0 "ApprovalTeamArn") in
      let sessionArn =
        (Option.map ~f:SessionArn.of_xml) (Xml.child xml_arg0 "SessionArn") in
      make ?additionalSecurityRequirements ?approverResponses
        ?actionCompletionStrategy ?requesterComment ?requesterRegion
        ?requesterAccountId ?requesterPrincipalArn ?requesterServicePrincipal
        ?actionName ?executionStatus ?statusMessage ?statusCode ?status
        ?metadata ?description ?completionTime ?expirationTime
        ?initiationTime ?numberOfApprovers ?approvalStrategy
        ?protectedResourceArn ?approvalTeamName ?approvalTeamArn ?sessionArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalSecurityRequirements =
        field_map json__ "AdditionalSecurityRequirements"
          AdditionalSecurityRequirements.of_json in
      let approverResponses =
        field_map json__ "ApproverResponses"
          GetSessionResponseApproverResponses.of_json in
      let actionCompletionStrategy =
        field_map json__ "ActionCompletionStrategy"
          ActionCompletionStrategy.of_json in
      let requesterComment =
        field_map json__ "RequesterComment" RequesterComment.of_json in
      let requesterRegion = field_map json__ "RequesterRegion" Region.of_json in
      let requesterAccountId =
        field_map json__ "RequesterAccountId" AccountId.of_json in
      let requesterPrincipalArn =
        field_map json__ "RequesterPrincipalArn" String_.of_json in
      let requesterServicePrincipal =
        field_map json__ "RequesterServicePrincipal" ServicePrincipal.of_json in
      let actionName = field_map json__ "ActionName" ActionName.of_json in
      let executionStatus =
        field_map json__ "ExecutionStatus" SessionExecutionStatus.of_json in
      let statusMessage = field_map json__ "StatusMessage" Message.of_json in
      let statusCode =
        field_map json__ "StatusCode" SessionStatusCode.of_json in
      let status = field_map json__ "Status" SessionStatus.of_json in
      let metadata = field_map json__ "Metadata" SessionMetadata.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let completionTime =
        field_map json__ "CompletionTime" IsoTimestamp.of_json in
      let expirationTime =
        field_map json__ "ExpirationTime" IsoTimestamp.of_json in
      let initiationTime =
        field_map json__ "InitiationTime" IsoTimestamp.of_json in
      let numberOfApprovers =
        field_map json__ "NumberOfApprovers" Integer.of_json in
      let approvalStrategy =
        field_map json__ "ApprovalStrategy" ApprovalStrategyResponse.of_json in
      let protectedResourceArn =
        field_map json__ "ProtectedResourceArn" String_.of_json in
      let approvalTeamName =
        field_map json__ "ApprovalTeamName" ApprovalTeamName.of_json in
      let approvalTeamArn =
        field_map json__ "ApprovalTeamArn" ApprovalTeamArn.of_json in
      let sessionArn = field_map json__ "SessionArn" SessionArn.of_json in
      make ?additionalSecurityRequirements ?approverResponses
        ?actionCompletionStrategy ?requesterComment ?requesterRegion
        ?requesterAccountId ?requesterPrincipalArn ?requesterServicePrincipal
        ?actionName ?executionStatus ?statusMessage ?statusCode ?status
        ?metadata ?description ?completionTime ?expirationTime
        ?initiationTime ?numberOfApprovers ?approvalStrategy
        ?protectedResourceArn ?approvalTeamName ?approvalTeamArn ?sessionArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for an approval session. For more information, see Session in the Multi-party approval User Guide."]
module GetSessionRequest =
  struct
    type nonrec t =
      {
      sessionArn: SessionArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the session."]}
    let context_ = "GetSessionRequest"
    let make ~sessionArn = fun () -> { sessionArn }
    let to_value x =
      structure_to_value
        [("SessionArn", (Some (SessionArn.to_value x.sessionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionArn =
        SessionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SessionArn") in
      make ~sessionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionArn = field_map_exn json__ "SessionArn" SessionArn.of_json in
      make ~sessionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for an approval session. For more information, see Session in the Multi-party approval User Guide."]
module GetResourcePolicyResponse =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the resource."];
      policyType: PolicyType.t option [@ocaml.doc "The type of policy"];
      policyVersionArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy version."];
      policyName: PolicyName.t option [@ocaml.doc "Name of the policy."];
      policyDocument: PolicyDocument.t option
        [@ocaml.doc "Document that contains the contents for the policy."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn =
      fun ?policyType ->
        fun ?policyVersionArn ->
          fun ?policyName ->
            fun ?policyDocument ->
              fun () ->
                {
                  resourceArn;
                  policyType;
                  policyVersionArn;
                  policyName;
                  policyDocument
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("ResourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("PolicyType", (Option.map x.policyType ~f:PolicyType.to_value));
        ("PolicyVersionArn",
          (Option.map x.policyVersionArn ~f:String_.to_value));
        ("PolicyName", (Option.map x.policyName ~f:PolicyName.to_value));
        ("PolicyDocument",
          (Option.map x.policyDocument ~f:PolicyDocument.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyDocument =
        (Option.map ~f:PolicyDocument.of_xml)
          (Xml.child xml_arg0 "PolicyDocument") in
      let policyName =
        (Option.map ~f:PolicyName.of_xml) (Xml.child xml_arg0 "PolicyName") in
      let policyVersionArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PolicyVersionArn") in
      let policyType =
        (Option.map ~f:PolicyType.of_xml) (Xml.child xml_arg0 "PolicyType") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceArn") in
      make ?policyDocument ?policyName ?policyVersionArn ?policyType
        ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyDocument =
        field_map json__ "PolicyDocument" PolicyDocument.of_json in
      let policyName = field_map json__ "PolicyName" PolicyName.of_json in
      let policyVersionArn =
        field_map json__ "PolicyVersionArn" String_.of_json in
      let policyType = field_map json__ "PolicyType" PolicyType.of_json in
      let resourceArn = field_map json__ "ResourceArn" String_.of_json in
      make ?policyDocument ?policyName ?policyVersionArn ?policyType
        ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details about a policy for a resource."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the resource."];
      policyName: String_.t [@ocaml.doc "Name of the policy."];
      policyType: PolicyType.t [@ocaml.doc "The type of policy."]}
    let context_ = "GetResourcePolicyRequest"
    let make ~resourceArn =
      fun ~policyName ->
        fun ~policyType -> fun () -> { resourceArn; policyName; policyType }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (String_.to_value x.resourceArn)));
        ("PolicyName", (Some (String_.to_value x.policyName)));
        ("PolicyType", (Some (PolicyType.to_value x.policyType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyType =
        PolicyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyType") in
      let policyName =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyName") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~policyType ~policyName ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyType = field_map_exn json__ "PolicyType" PolicyType.of_json in
      let policyName = field_map_exn json__ "PolicyName" String_.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" String_.of_json in
      make ~policyType ~policyName ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details about a policy for a resource."]
module GetPolicyVersionResponse =
  struct
    type nonrec t =
      {
      policyVersion: PolicyVersion.t option
        [@ocaml.doc
          "A PolicyVersion object. Contains details for the version of the policy. Policies define the permissions for team resources."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policyVersion = fun () -> { policyVersion }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("PolicyVersion",
           (Option.map x.policyVersion ~f:PolicyVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyVersion =
        (Option.map ~f:PolicyVersion.of_xml)
          (Xml.child xml_arg0 "PolicyVersion") in
      make ?policyVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyVersion =
        field_map json__ "PolicyVersion" PolicyVersion.of_json in
      make ?policyVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for the version of a policy. Policies define the permissions for team resources."]
module GetPolicyVersionRequest =
  struct
    type nonrec t =
      {
      policyVersionArn: QualifiedPolicyArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the policy."]}
    let context_ = "GetPolicyVersionRequest"
    let make ~policyVersionArn = fun () -> { policyVersionArn }
    let to_value x =
      structure_to_value
        [("PolicyVersionArn",
           (Some (QualifiedPolicyArn.to_value x.policyVersionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyVersionArn =
        QualifiedPolicyArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PolicyVersionArn") in
      make ~policyVersionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyVersionArn =
        field_map_exn json__ "PolicyVersionArn" QualifiedPolicyArn.of_json in
      make ~policyVersionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for the version of a policy. Policies define the permissions for team resources."]
module GetIdentitySourceResponse =
  struct
    type nonrec t =
      {
      identitySourceType: IdentitySourceType.t option
        [@ocaml.doc
          "The type of resource that provided identities to the identity source. For example, an IAM Identity Center instance."];
      identitySourceParameters: IdentitySourceParametersForGet.t option
        [@ocaml.doc
          "A IdentitySourceParameters object. Contains details for the resource that provides identities to the identity source. For example, an IAM Identity Center instance."];
      identitySourceArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the identity source."];
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the identity source was created."];
      status: IdentitySourceStatus.t option
        [@ocaml.doc
          "Status for the identity source. For example, if the identity source is ACTIVE."];
      statusCode: IdentitySourceStatusCode.t option
        [@ocaml.doc "Status code of the identity source."];
      statusMessage: String_.t option
        [@ocaml.doc "Message describing the status for the identity source."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identitySourceType =
      fun ?identitySourceParameters ->
        fun ?identitySourceArn ->
          fun ?creationTime ->
            fun ?status ->
              fun ?statusCode ->
                fun ?statusMessage ->
                  fun () ->
                    {
                      identitySourceType;
                      identitySourceParameters;
                      identitySourceArn;
                      creationTime;
                      status;
                      statusCode;
                      statusMessage
                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("IdentitySourceType",
           (Option.map x.identitySourceType ~f:IdentitySourceType.to_value));
        ("IdentitySourceParameters",
          (Option.map x.identitySourceParameters
             ~f:IdentitySourceParametersForGet.to_value));
        ("IdentitySourceArn",
          (Option.map x.identitySourceArn ~f:String_.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("Status", (Option.map x.status ~f:IdentitySourceStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:IdentitySourceStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:IdentitySourceStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:IdentitySourceStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let identitySourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "IdentitySourceArn") in
      let identitySourceParameters =
        (Option.map ~f:IdentitySourceParametersForGet.of_xml)
          (Xml.child xml_arg0 "IdentitySourceParameters") in
      let identitySourceType =
        (Option.map ~f:IdentitySourceType.of_xml)
          (Xml.child xml_arg0 "IdentitySourceType") in
      make ?statusMessage ?statusCode ?status ?creationTime
        ?identitySourceArn ?identitySourceParameters ?identitySourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage = field_map json__ "StatusMessage" String_.of_json in
      let statusCode =
        field_map json__ "StatusCode" IdentitySourceStatusCode.of_json in
      let status = field_map json__ "Status" IdentitySourceStatus.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      let identitySourceArn =
        field_map json__ "IdentitySourceArn" String_.of_json in
      let identitySourceParameters =
        field_map json__ "IdentitySourceParameters"
          IdentitySourceParametersForGet.of_json in
      let identitySourceType =
        field_map json__ "IdentitySourceType" IdentitySourceType.of_json in
      make ?statusMessage ?statusCode ?status ?creationTime
        ?identitySourceArn ?identitySourceParameters ?identitySourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for an identity source. For more information, see Identity Source in the Multi-party approval User Guide."]
module GetIdentitySourceRequest =
  struct
    type nonrec t =
      {
      identitySourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the identity source."]}
    let context_ = "GetIdentitySourceRequest"
    let make ~identitySourceArn = fun () -> { identitySourceArn }
    let to_value x =
      structure_to_value
        [("IdentitySourceArn", (Some (String_.to_value x.identitySourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identitySourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentitySourceArn") in
      make ~identitySourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identitySourceArn =
        field_map_exn json__ "IdentitySourceArn" String_.of_json in
      make ~identitySourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns details for an identity source. For more information, see Identity Source in the Multi-party approval User Guide."]
module GetApprovalTeamResponse =
  struct
    type nonrec t =
      {
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the team was created."];
      approvalStrategy: ApprovalStrategyResponse.t option
        [@ocaml.doc
          "An ApprovalStrategyResponse object. Contains details for how the team grants approval."];
      numberOfApprovers: Integer.t option
        [@ocaml.doc "Total number of approvers in the team."];
      approvers: GetApprovalTeamResponseApprovers.t option
        [@ocaml.doc
          "An array of GetApprovalTeamResponseApprover objects. Contains details for the approvers in the team."];
      arn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."];
      description: Description.t option
        [@ocaml.doc "Description for the team."];
      name: String_.t option [@ocaml.doc "Name of the approval team."];
      status: ApprovalTeamStatus.t option
        [@ocaml.doc
          "Status for the team. For more information, see Team health in the Multi-party approval User Guide."];
      statusCode: ApprovalTeamStatusCode.t option
        [@ocaml.doc
          "Status code for the approval team. For more information, see Team health in the Multi-party approval User Guide."];
      statusMessage: Message.t option
        [@ocaml.doc "Message describing the status for the team."];
      updateSessionArn: String_.t option
        [@ocaml.doc "Amazon Resource Name (ARN) for the session."];
      versionId: String_.t option [@ocaml.doc "Version ID for the team."];
      policies: PoliciesReferences.t option
        [@ocaml.doc
          "An array of PolicyReference objects. Contains a list of policies that define the permissions for team resources."];
      lastUpdateTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the team was last updated."];
      pendingUpdate: PendingUpdate.t option
        [@ocaml.doc
          "A PendingUpdate object. Contains details for the pending updates for the team, if applicable."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?creationTime =
      fun ?approvalStrategy ->
        fun ?numberOfApprovers ->
          fun ?approvers ->
            fun ?arn ->
              fun ?description ->
                fun ?name ->
                  fun ?status ->
                    fun ?statusCode ->
                      fun ?statusMessage ->
                        fun ?updateSessionArn ->
                          fun ?versionId ->
                            fun ?policies ->
                              fun ?lastUpdateTime ->
                                fun ?pendingUpdate ->
                                  fun () ->
                                    {
                                      creationTime;
                                      approvalStrategy;
                                      numberOfApprovers;
                                      approvers;
                                      arn;
                                      description;
                                      name;
                                      status;
                                      statusCode;
                                      statusMessage;
                                      updateSessionArn;
                                      versionId;
                                      policies;
                                      lastUpdateTime;
                                      pendingUpdate
                                    }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("CreationTime",
           (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("ApprovalStrategy",
          (Option.map x.approvalStrategy ~f:ApprovalStrategyResponse.to_value));
        ("NumberOfApprovers",
          (Option.map x.numberOfApprovers ~f:Integer.to_value));
        ("Approvers",
          (Option.map x.approvers
             ~f:GetApprovalTeamResponseApprovers.to_value));
        ("Arn", (Option.map x.arn ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("Status", (Option.map x.status ~f:ApprovalTeamStatus.to_value));
        ("StatusCode",
          (Option.map x.statusCode ~f:ApprovalTeamStatusCode.to_value));
        ("StatusMessage", (Option.map x.statusMessage ~f:Message.to_value));
        ("UpdateSessionArn",
          (Option.map x.updateSessionArn ~f:String_.to_value));
        ("VersionId", (Option.map x.versionId ~f:String_.to_value));
        ("Policies", (Option.map x.policies ~f:PoliciesReferences.to_value));
        ("LastUpdateTime",
          (Option.map x.lastUpdateTime ~f:IsoTimestamp.to_value));
        ("PendingUpdate",
          (Option.map x.pendingUpdate ~f:PendingUpdate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pendingUpdate =
        (Option.map ~f:PendingUpdate.of_xml)
          (Xml.child xml_arg0 "PendingUpdate") in
      let lastUpdateTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateTime") in
      let policies =
        (Option.map ~f:PoliciesReferences.of_xml)
          (Xml.child xml_arg0 "Policies") in
      let versionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VersionId") in
      let updateSessionArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "UpdateSessionArn") in
      let statusMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "StatusMessage") in
      let statusCode =
        (Option.map ~f:ApprovalTeamStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      let status =
        (Option.map ~f:ApprovalTeamStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let arn = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Arn") in
      let approvers =
        (Option.map ~f:GetApprovalTeamResponseApprovers.of_xml)
          (Xml.child xml_arg0 "Approvers") in
      let numberOfApprovers =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NumberOfApprovers") in
      let approvalStrategy =
        (Option.map ~f:ApprovalStrategyResponse.of_xml)
          (Xml.child xml_arg0 "ApprovalStrategy") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      make ?pendingUpdate ?lastUpdateTime ?policies ?versionId
        ?updateSessionArn ?statusMessage ?statusCode ?status ?name
        ?description ?arn ?approvers ?numberOfApprovers ?approvalStrategy
        ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pendingUpdate =
        field_map json__ "PendingUpdate" PendingUpdate.of_json in
      let lastUpdateTime =
        field_map json__ "LastUpdateTime" IsoTimestamp.of_json in
      let policies = field_map json__ "Policies" PoliciesReferences.of_json in
      let versionId = field_map json__ "VersionId" String_.of_json in
      let updateSessionArn =
        field_map json__ "UpdateSessionArn" String_.of_json in
      let statusMessage = field_map json__ "StatusMessage" Message.of_json in
      let statusCode =
        field_map json__ "StatusCode" ApprovalTeamStatusCode.of_json in
      let status = field_map json__ "Status" ApprovalTeamStatus.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let arn = field_map json__ "Arn" String_.of_json in
      let approvers =
        field_map json__ "Approvers" GetApprovalTeamResponseApprovers.of_json in
      let numberOfApprovers =
        field_map json__ "NumberOfApprovers" Integer.of_json in
      let approvalStrategy =
        field_map json__ "ApprovalStrategy" ApprovalStrategyResponse.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      make ?pendingUpdate ?lastUpdateTime ?policies ?versionId
        ?updateSessionArn ?statusMessage ?statusCode ?status ?name
        ?description ?arn ?approvers ?numberOfApprovers ?approvalStrategy
        ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details for an approval team."]
module GetApprovalTeamRequest =
  struct
    type nonrec t =
      {
      arn: ApprovalTeamArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the team."]}
    let context_ = "GetApprovalTeamRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("Arn", (Some (ApprovalTeamArn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn =
        ApprovalTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "Arn" ApprovalTeamArn.of_json in
      make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details for an approval team."]
module DeleteInactiveApprovalTeamVersionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
       "Deletes an inactive approval team. For more information, see Team health in the Multi-party approval User Guide. You can also use this operation to delete a team draft. For more information, see Interacting with drafts in the Multi-party approval User Guide."]
module DeleteInactiveApprovalTeamVersionRequest =
  struct
    type nonrec t =
      {
      arn: ApprovalTeamArn.t
        [@ocaml.doc "Amaazon Resource Name (ARN) for the team."];
      versionId: String_.t [@ocaml.doc "Version ID for the team."]}
    let context_ = "DeleteInactiveApprovalTeamVersionRequest"
    let make ~arn = fun ~versionId -> fun () -> { arn; versionId }
    let to_value x =
      structure_to_value
        [("Arn", (Some (ApprovalTeamArn.to_value x.arn)));
        ("VersionId", (Some (String_.to_value x.versionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionId =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let arn =
        ApprovalTeamArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arn") in
      make ~versionId ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionId = field_map_exn json__ "VersionId" String_.of_json in
      let arn = field_map_exn json__ "Arn" ApprovalTeamArn.of_json in
      make ~versionId ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an inactive approval team. For more information, see Team health in the Multi-party approval User Guide. You can also use this operation to delete a team draft. For more information, see Interacting with drafts in the Multi-party approval User Guide."]
module DeleteIdentitySourceRequest =
  struct
    type nonrec t =
      {
      identitySourceArn: String_.t
        [@ocaml.doc "Amazon Resource Name (ARN) for identity source."]}
    let context_ = "DeleteIdentitySourceRequest"
    let make ~identitySourceArn = fun () -> { identitySourceArn }
    let to_value x =
      structure_to_value
        [("IdentitySourceArn", (Some (String_.to_value x.identitySourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identitySourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentitySourceArn") in
      make ~identitySourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identitySourceArn =
        field_map_exn json__ "IdentitySourceArn" String_.of_json in
      make ~identitySourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an identity source. For more information, see Identity Source in the Multi-party approval User Guide."]
module CreateIdentitySourceResponse =
  struct
    type nonrec t =
      {
      identitySourceType: IdentitySourceType.t option
        [@ocaml.doc
          "The type of resource that provided identities to the identity source. For example, an IAM Identity Center instance."];
      identitySourceArn: String_.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the identity source that was created."];
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the identity source was created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identitySourceType =
      fun ?identitySourceArn ->
        fun ?creationTime ->
          fun () -> { identitySourceType; identitySourceArn; creationTime }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("IdentitySourceType",
           (Option.map x.identitySourceType ~f:IdentitySourceType.to_value));
        ("IdentitySourceArn",
          (Option.map x.identitySourceArn ~f:String_.to_value));
        ("CreationTime",
          (Option.map x.creationTime ~f:IsoTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      let identitySourceArn =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "IdentitySourceArn") in
      let identitySourceType =
        (Option.map ~f:IdentitySourceType.of_xml)
          (Xml.child xml_arg0 "IdentitySourceType") in
      make ?creationTime ?identitySourceArn ?identitySourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      let identitySourceArn =
        field_map json__ "IdentitySourceArn" String_.of_json in
      let identitySourceType =
        field_map json__ "IdentitySourceType" IdentitySourceType.of_json in
      make ?creationTime ?identitySourceArn ?identitySourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new identity source. For more information, see Identity Source in the Multi-party approval User Guide."]
module CreateIdentitySourceRequest =
  struct
    type nonrec t =
      {
      identitySourceParameters: IdentitySourceParameters.t
        [@ocaml.doc
          "A IdentitySourceParameters object. Contains details for the resource that provides identities to the identity source. For example, an IAM Identity Center instance."];
      clientToken: Token.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If not provided, the Amazon Web Services populates this field. What is idempotency? When you make a mutating API request, the request typically returns a result before the operation's asynchronous workflows have completed. Operations might also time out or encounter other server issues before they complete, even though the request has already returned a result. This could make it difficult to determine whether the request succeeded or not, and could lead to multiple retries to ensure that the operation completes successfully. However, if the original request and the subsequent retries are successful, the operation is completed multiple times. This means that you might create more resources than you intended. Idempotency ensures that an API request completes no more than one time. With an idempotent request, if the original request completes successfully, any subsequent retries complete successfully without performing any further actions."];
      tags: Tags.t option
        [@ocaml.doc "Tag you want to attach to the identity source."]}
    let context_ = "CreateIdentitySourceRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~identitySourceParameters ->
          fun () -> { clientToken; tags; identitySourceParameters }
    let to_value x =
      structure_to_value
        [("IdentitySourceParameters",
           (Some
              (IdentitySourceParameters.to_value x.identitySourceParameters)));
        ("ClientToken", (Option.map x.clientToken ~f:Token.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "ClientToken") in
      let identitySourceParameters =
        IdentitySourceParameters.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "IdentitySourceParameters") in
      make ?tags ?clientToken ~identitySourceParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let clientToken = field_map json__ "ClientToken" Token.of_json in
      let identitySourceParameters =
        field_map_exn json__ "IdentitySourceParameters"
          IdentitySourceParameters.of_json in
      make ?tags ?clientToken ~identitySourceParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new identity source. For more information, see Identity Source in the Multi-party approval User Guide."]
module CreateApprovalTeamResponse =
  struct
    type nonrec t =
      {
      creationTime: IsoTimestamp.t option
        [@ocaml.doc "Timestamp when the team was created."];
      arn: ApprovalTeamArn.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) for the team that was created."];
      name: String_.t option
        [@ocaml.doc "Name of the team that was created."];
      versionId: String_.t option
        [@ocaml.doc
          "Version ID for the team that was created. When a team is updated, the version ID changes."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?creationTime =
      fun ?arn ->
        fun ?name ->
          fun ?versionId -> fun () -> { creationTime; arn; name; versionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("CreationTime",
           (Option.map x.creationTime ~f:IsoTimestamp.to_value));
        ("Arn", (Option.map x.arn ~f:ApprovalTeamArn.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("VersionId", (Option.map x.versionId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VersionId") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let arn =
        (Option.map ~f:ApprovalTeamArn.of_xml) (Xml.child xml_arg0 "Arn") in
      let creationTime =
        (Option.map ~f:IsoTimestamp.of_xml)
          (Xml.child xml_arg0 "CreationTime") in
      make ?versionId ?name ?arn ?creationTime ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionId = field_map json__ "VersionId" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let arn = field_map json__ "Arn" ApprovalTeamArn.of_json in
      let creationTime = field_map json__ "CreationTime" IsoTimestamp.of_json in
      make ?versionId ?name ?arn ?creationTime ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new approval team. For more information, see Approval team in the Multi-party approval User Guide."]
module CreateApprovalTeamRequest =
  struct
    type nonrec t =
      {
      clientToken: Token.t option
        [@ocaml.doc
          "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If not provided, the Amazon Web Services populates this field. What is idempotency? When you make a mutating API request, the request typically returns a result before the operation's asynchronous workflows have completed. Operations might also time out or encounter other server issues before they complete, even though the request has already returned a result. This could make it difficult to determine whether the request succeeded or not, and could lead to multiple retries to ensure that the operation completes successfully. However, if the original request and the subsequent retries are successful, the operation is completed multiple times. This means that you might create more resources than you intended. Idempotency ensures that an API request completes no more than one time. With an idempotent request, if the original request completes successfully, any subsequent retries complete successfully without performing any further actions."];
      approvalStrategy: ApprovalStrategy.t
        [@ocaml.doc
          "An ApprovalStrategy object. Contains details for how the team grants approval."];
      approvers: ApprovalTeamRequestApprovers.t
        [@ocaml.doc
          "An array of ApprovalTeamRequesterApprovers objects. Contains details for the approvers in the team."];
      description: Description.t [@ocaml.doc "Description for the team."];
      policies: PoliciesReferences.t
        [@ocaml.doc
          "An array of PolicyReference objects. Contains a list of policies that define the permissions for team resources."];
      name: ApprovalTeamName.t [@ocaml.doc "Name of the team."];
      tags: Tags.t option [@ocaml.doc "Tags you want to attach to the team."]}
    let context_ = "CreateApprovalTeamRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~approvalStrategy ->
          fun ~approvers ->
            fun ~description ->
              fun ~policies ->
                fun ~name ->
                  fun () ->
                    {
                      clientToken;
                      tags;
                      approvalStrategy;
                      approvers;
                      description;
                      policies;
                      name
                    }
    let to_value x =
      structure_to_value
        [("ClientToken", (Option.map x.clientToken ~f:Token.to_value));
        ("ApprovalStrategy",
          (Some (ApprovalStrategy.to_value x.approvalStrategy)));
        ("Approvers",
          (Some (ApprovalTeamRequestApprovers.to_value x.approvers)));
        ("Description", (Some (Description.to_value x.description)));
        ("Policies", (Some (PoliciesReferences.to_value x.policies)));
        ("Name", (Some (ApprovalTeamName.to_value x.name)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let name =
        ApprovalTeamName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let policies =
        PoliciesReferences.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Policies") in
      let description =
        Description.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Description") in
      let approvers =
        ApprovalTeamRequestApprovers.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Approvers") in
      let approvalStrategy =
        ApprovalStrategy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApprovalStrategy") in
      let clientToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?tags ~name ~policies ~description ~approvers ~approvalStrategy
        ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let name = field_map_exn json__ "Name" ApprovalTeamName.of_json in
      let policies =
        field_map_exn json__ "Policies" PoliciesReferences.of_json in
      let description =
        field_map_exn json__ "Description" Description.of_json in
      let approvers =
        field_map_exn json__ "Approvers" ApprovalTeamRequestApprovers.of_json in
      let approvalStrategy =
        field_map_exn json__ "ApprovalStrategy" ApprovalStrategy.of_json in
      let clientToken = field_map json__ "ClientToken" Token.of_json in
      make ?tags ~name ~policies ~description ~approvers ~approvalStrategy
        ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new approval team. For more information, see Approval team in the Multi-party approval User Guide."]
module CancelSessionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
       "Cancels an approval session. For more information, see Session in the Multi-party approval User Guide."]
module CancelSessionRequest =
  struct
    type nonrec t =
      {
      sessionArn: SessionArn.t
        [@ocaml.doc "Amazon Resource Name (ARN) for the session."]}
    let context_ = "CancelSessionRequest"
    let make ~sessionArn = fun () -> { sessionArn }
    let to_value x =
      structure_to_value
        [("SessionArn", (Some (SessionArn.to_value x.sessionArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionArn =
        SessionArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SessionArn") in
      make ~sessionArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionArn = field_map_exn json__ "SessionArn" SessionArn.of_json in
      make ~sessionArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels an approval session. For more information, see Session in the Multi-party approval User Guide."]