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.chime_sdk_voice
let apiVersion = "2022-08-03"
let endpointPrefix = "voice-chime"
let serviceFullName = "Amazon Chime SDK Voice"
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 ConfidenceScore =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:1.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Float x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a float" xml_arg0)
    let of_json j = float_of_json ~kind:"a float" j
    let to_json = simple_to_json to_value
  end
module NonEmptyString256 =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString256"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyString256" j
    let to_json = simple_to_json to_value
  end
module NonEmptyString =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:".*\\S.*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyString" j
    let to_json = simple_to_json to_value
  end
module VoiceConnectorItemPriority =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:99) >>= (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 VoiceConnectorItemPriority"
           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 SipApplicationPriority =
  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 SipApplicationPriority" 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 String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module FunctionArn =
  struct
    type nonrec t = string
    let context_ = "FunctionArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:(aws[a-zA-Z-]*)?:lambda:[a-z]{2}((-gov)|(-iso(b?)))?-[a-z]+-\\d{1}:\\d{12}:function:[a-zA-Z0-9-_]+(:(\\$LATEST|[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:"FunctionArn" j
    let to_json = simple_to_json to_value
  end
module E164PhoneNumber =
  struct
    type nonrec t = string
    let context_ = "E164PhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^\\+?[1-9]\\d{1,14}$"); 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:"E164PhoneNumber" j
    let to_json = simple_to_json to_value
  end
module Iso8601Timestamp =
  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 PhoneNumberAssociationName =
  struct
    type nonrec t =
      | VoiceConnectorId 
      | VoiceConnectorGroupId 
      | SipRuleId 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VoiceConnectorId -> "VoiceConnectorId"
      | VoiceConnectorGroupId -> "VoiceConnectorGroupId"
      | SipRuleId -> "SipRuleId"
      | Non_static_id s -> s
    let of_string =
      function
      | "VoiceConnectorId" -> VoiceConnectorId
      | "VoiceConnectorGroupId" -> VoiceConnectorGroupId
      | "SipRuleId" -> SipRuleId
      | 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 PhoneNumberAssociationName"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberAssociationName" j)
    let to_json = simple_to_json to_value
  end
module OrderedPhoneNumberStatus =
  struct
    type nonrec t =
      | Processing 
      | Acquired 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Processing -> "Processing"
      | Acquired -> "Acquired"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Processing" -> Processing
      | "Acquired" -> Acquired
      | "Failed" -> Failed
      | 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 OrderedPhoneNumberStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"OrderedPhoneNumberStatus" j)
    let to_json = simple_to_json to_value
  end
module SpeakerSearchResult =
  struct
    type nonrec t =
      {
      confidenceScore: ConfidenceScore.t option
        [@ocaml.doc "The confidence score in the speaker search analysis."];
      voiceProfileId: NonEmptyString256.t option
        [@ocaml.doc "The voice profile ID."]}
    let make ?confidenceScore =
      fun ?voiceProfileId -> fun () -> { confidenceScore; voiceProfileId }
    let to_value x =
      structure_to_value
        [("ConfidenceScore",
           (Option.map x.confidenceScore ~f:ConfidenceScore.to_value));
        ("VoiceProfileId",
          (Option.map x.voiceProfileId ~f:NonEmptyString256.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileId") in
      let confidenceScore =
        (Option.map ~f:ConfidenceScore.of_xml)
          (Xml.child xml_arg0 "ConfidenceScore") in
      make ?voiceProfileId ?confidenceScore ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileId =
        field_map json__ "VoiceProfileId" NonEmptyString256.of_json in
      let confidenceScore =
        field_map json__ "ConfidenceScore" ConfidenceScore.of_json in
      make ?voiceProfileId ?confidenceScore ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of a speaker search analysis."]
module NotificationTarget =
  struct
    type nonrec t =
      | EventBridge 
      | SNS 
      | SQS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EventBridge -> "EventBridge"
      | SNS -> "SNS"
      | SQS -> "SQS"
      | Non_static_id s -> s
    let of_string =
      function
      | "EventBridge" -> EventBridge
      | "SNS" -> SNS
      | "SQS" -> SQS
      | 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 NotificationTarget" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NotificationTarget" j)
    let to_json = simple_to_json to_value
  end
module OriginationRoutePriority =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (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 OriginationRoutePriority"
           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 OriginationRouteProtocol =
  struct
    type nonrec t =
      | TCP 
      | UDP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TCP -> "TCP" | UDP -> "UDP" | Non_static_id s -> s
    let of_string =
      function | "TCP" -> TCP | "UDP" -> UDP | 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 OriginationRouteProtocol" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"OriginationRouteProtocol" j)
    let to_json = simple_to_json to_value
  end
module OriginationRouteWeight =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (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 OriginationRouteWeight" 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 Port =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:65535) >>=
             (fun () -> check_int_min i ~min:0));
        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 Port" 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 Alpha2CountryCode =
  struct
    type nonrec t = string
    let context_ = "Alpha2CountryCode"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[A-Z]{2}"); 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:"Alpha2CountryCode" j
    let to_json = simple_to_json to_value
  end
module VoiceConnectorItem =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      priority: VoiceConnectorItemPriority.t
        [@ocaml.doc
          "The priority setting of a Voice Connector item. Calls are routed to hosts in priority order, with 1 as the highest priority. When hosts have equal priority, the system distributes calls among them based on their relative weight."]}
    let context_ = "VoiceConnectorItem"
    let make ~voiceConnectorId =
      fun ~priority -> fun () -> { voiceConnectorId; priority }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("Priority", (Some (VoiceConnectorItemPriority.to_value x.priority)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let priority =
        VoiceConnectorItemPriority.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Priority") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ~priority ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let priority =
        field_map_exn json__ "Priority" VoiceConnectorItemPriority.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~priority ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For Amazon Chime SDK Voice Connector groups, the Amazon Chime SDK Voice Connectors to which you route inbound calls. Includes priority configuration settings. Limit: 3 VoiceConnectorItems per Voice Connector group."]
module PhoneNumberType =
  struct
    type nonrec t =
      | Local 
      | TollFree 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Local -> "Local"
      | TollFree -> "TollFree"
      | Non_static_id s -> s
    let of_string =
      function
      | "Local" -> Local
      | "TollFree" -> TollFree
      | 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 PhoneNumberType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PhoneNumberType" j)
    let to_json = simple_to_json to_value
  end
module SipRuleTargetApplication =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t option
        [@ocaml.doc "The ID of a rule's target SIP media application."];
      priority: SipApplicationPriority.t option
        [@ocaml.doc
          "The priority setting of a rule's target SIP media application."];
      awsRegion: String_.t option
        [@ocaml.doc
          "The AWS Region of a rule's target SIP media application."]}
    let make ?sipMediaApplicationId =
      fun ?priority ->
        fun ?awsRegion ->
          fun () -> { sipMediaApplicationId; priority; awsRegion }
    let to_value x =
      structure_to_value
        [("SipMediaApplicationId",
           (Option.map x.sipMediaApplicationId ~f:NonEmptyString.to_value));
        ("Priority",
          (Option.map x.priority ~f:SipApplicationPriority.to_value));
        ("AwsRegion", (Option.map x.awsRegion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AwsRegion") in
      let priority =
        (Option.map ~f:SipApplicationPriority.of_xml)
          (Xml.child xml_arg0 "Priority") in
      let sipMediaApplicationId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationId") in
      make ?awsRegion ?priority ?sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsRegion = field_map json__ "AwsRegion" String_.of_json in
      let priority =
        field_map json__ "Priority" SipApplicationPriority.of_json in
      let sipMediaApplicationId =
        field_map json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ?awsRegion ?priority ?sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A target SIP media application and other details, such as priority and AWS Region, to be specified in the SIP rule. Only one SIP rule per AWS Region can be provided."]
module SipMediaApplicationEndpoint =
  struct
    type nonrec t =
      {
      lambdaArn: FunctionArn.t option
        [@ocaml.doc
          "Valid Amazon Resource Name (ARN) of the Lambda function, version, or alias. The function must be created in the same AWS Region as the SIP media application."]}
    let make ?lambdaArn = fun () -> { lambdaArn }
    let to_value x =
      structure_to_value
        [("LambdaArn", (Option.map x.lambdaArn ~f:FunctionArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lambdaArn =
        (Option.map ~f:FunctionArn.of_xml) (Xml.child xml_arg0 "LambdaArn") in
      make ?lambdaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lambdaArn = field_map json__ "LambdaArn" FunctionArn.of_json in
      make ?lambdaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The endpoint assigned to a SIP media application."]
module Capability =
  struct
    type nonrec t =
      | Voice 
      | SMS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Voice -> "Voice" | SMS -> "SMS" | Non_static_id s -> s
    let of_string =
      function | "Voice" -> Voice | "SMS" -> SMS | 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 Capability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Capability" j)
    let to_json = simple_to_json to_value
  end
module AreaCode =
  struct
    type nonrec t = string
    let context_ = "AreaCode"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^$|^[0-9]{3,3}$"); 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:"AreaCode" j
    let to_json = simple_to_json to_value
  end
module Country =
  struct
    type nonrec t = string
    let context_ = "Country"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^$|^[A-Z]{2,2}$"); 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:"Country" j
    let to_json = simple_to_json to_value
  end
module Participant =
  struct
    type nonrec t =
      {
      phoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The participant's phone number."];
      proxyPhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The participant's proxy phone number."]}
    let make ?phoneNumber =
      fun ?proxyPhoneNumber -> fun () -> { phoneNumber; proxyPhoneNumber }
    let to_value x =
      structure_to_value
        [("PhoneNumber",
           (Option.map x.phoneNumber ~f:E164PhoneNumber.to_value));
        ("ProxyPhoneNumber",
          (Option.map x.proxyPhoneNumber ~f:E164PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxyPhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "ProxyPhoneNumber") in
      let phoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "PhoneNumber") in
      make ?proxyPhoneNumber ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxyPhoneNumber =
        field_map json__ "ProxyPhoneNumber" E164PhoneNumber.of_json in
      let phoneNumber =
        field_map json__ "PhoneNumber" E164PhoneNumber.of_json in
      make ?proxyPhoneNumber ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number and proxy phone number for a participant in an Amazon Chime SDK Voice Connector proxy session."]
module PhoneNumberAssociation =
  struct
    type nonrec t =
      {
      value: String_.t option
        [@ocaml.doc "Contains the ID for the entity specified in Name."];
      name: PhoneNumberAssociationName.t option
        [@ocaml.doc
          "Defines the association with an Amazon Chime SDK account ID, user ID, Voice Connector ID, or Voice Connector group ID."];
      associatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The timestamp of the phone number association, in ISO 8601 format."]}
    let make ?value =
      fun ?name ->
        fun ?associatedTimestamp ->
          fun () -> { value; name; associatedTimestamp }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:PhoneNumberAssociationName.to_value));
        ("AssociatedTimestamp",
          (Option.map x.associatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let associatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "AssociatedTimestamp") in
      let name =
        (Option.map ~f:PhoneNumberAssociationName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let value = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Value") in
      make ?associatedTimestamp ?name ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let associatedTimestamp =
        field_map json__ "AssociatedTimestamp" Iso8601Timestamp.of_json in
      let name = field_map json__ "Name" PhoneNumberAssociationName.of_json in
      let value = field_map json__ "Value" String_.of_json in
      make ?associatedTimestamp ?name ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number associations, such as an Amazon Chime SDK account ID, user ID, Voice Connector ID, or Voice Connector group ID."]
module NullableBoolean =
  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 OrderedPhoneNumber =
  struct
    type nonrec t =
      {
      e164PhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The phone number, in E.164 format."];
      status: OrderedPhoneNumberStatus.t option
        [@ocaml.doc "The phone number status."]}
    let make ?e164PhoneNumber =
      fun ?status -> fun () -> { e164PhoneNumber; status }
    let to_value x =
      structure_to_value
        [("E164PhoneNumber",
           (Option.map x.e164PhoneNumber ~f:E164PhoneNumber.to_value));
        ("Status",
          (Option.map x.status ~f:OrderedPhoneNumberStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:OrderedPhoneNumberStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let e164PhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumber") in
      make ?status ?e164PhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" OrderedPhoneNumberStatus.of_json in
      let e164PhoneNumber =
        field_map json__ "E164PhoneNumber" E164PhoneNumber.of_json in
      make ?status ?e164PhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A phone number for which an order has been placed."]
module SensitiveNonEmptyString =
  struct
    type nonrec t = string
    let context_ = "SensitiveNonEmptyString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:".*\\S.*"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveNonEmptyString" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn[\\/\\:\\-\\_\\.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:"Arn" 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 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 NonEmptyString128 =
  struct
    type nonrec t = string
    let context_ = "NonEmptyString128"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonEmptyString128" j
    let to_json = simple_to_json to_value
  end
module SpeakerSearchResultList =
  struct
    type nonrec t = SpeakerSearchResult.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SpeakerSearchResult.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:SpeakerSearchResult.of_xml)
    let of_json j =
      list_of_json ~kind:"SpeakerSearchResultList"
        ~of_json:SpeakerSearchResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module CallingRegion =
  struct
    type nonrec t = string
    let context_ = "CallingRegion"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CallingRegion" j
    let to_json = simple_to_json to_value
  end
module SensitiveString =
  struct
    type nonrec t = string
    let context_ = "SensitiveString"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SensitiveString" j
    let to_json = simple_to_json to_value
  end
module StreamingNotificationTarget =
  struct
    type nonrec t =
      {
      notificationTarget: NotificationTarget.t option
        [@ocaml.doc "The streaming notification target."]}
    let make ?notificationTarget = fun () -> { notificationTarget }
    let to_value x =
      structure_to_value
        [("NotificationTarget",
           (Option.map x.notificationTarget ~f:NotificationTarget.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationTarget =
        (Option.map ~f:NotificationTarget.of_xml)
          (Xml.child xml_arg0 "NotificationTarget") in
      make ?notificationTarget ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationTarget =
        field_map json__ "NotificationTarget" NotificationTarget.of_json in
      make ?notificationTarget ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The target recipient for a streaming configuration notification."]
module OriginationRoute =
  struct
    type nonrec t =
      {
      host: String_.t option
        [@ocaml.doc
          "The FQDN or IP address to contact for origination traffic."];
      port: Port.t option
        [@ocaml.doc
          "The designated origination route port. Defaults to 5060."];
      protocol: OriginationRouteProtocol.t option
        [@ocaml.doc
          "The protocol to use for the origination route. Encryption-enabled Amazon Chime SDK Voice Connectors use TCP protocol by default."];
      priority: OriginationRoutePriority.t option
        [@ocaml.doc
          "The priority associated with the host, with 1 being the highest priority. Higher priority hosts are attempted first."];
      weight: OriginationRouteWeight.t option
        [@ocaml.doc
          "The weight assigned to an origination route. When hosts have equal priority, calls are distributed between them based on their relative weights."]}
    let make ?host =
      fun ?port ->
        fun ?protocol ->
          fun ?priority ->
            fun ?weight ->
              fun () -> { host; port; protocol; priority; weight }
    let to_value x =
      structure_to_value
        [("Host", (Option.map x.host ~f:String_.to_value));
        ("Port", (Option.map x.port ~f:Port.to_value));
        ("Protocol",
          (Option.map x.protocol ~f:OriginationRouteProtocol.to_value));
        ("Priority",
          (Option.map x.priority ~f:OriginationRoutePriority.to_value));
        ("Weight", (Option.map x.weight ~f:OriginationRouteWeight.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let weight =
        (Option.map ~f:OriginationRouteWeight.of_xml)
          (Xml.child xml_arg0 "Weight") in
      let priority =
        (Option.map ~f:OriginationRoutePriority.of_xml)
          (Xml.child xml_arg0 "Priority") in
      let protocol =
        (Option.map ~f:OriginationRouteProtocol.of_xml)
          (Xml.child xml_arg0 "Protocol") in
      let port = (Option.map ~f:Port.of_xml) (Xml.child xml_arg0 "Port") in
      let host = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Host") in
      make ?weight ?priority ?protocol ?port ?host ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let weight = field_map json__ "Weight" OriginationRouteWeight.of_json in
      let priority =
        field_map json__ "Priority" OriginationRoutePriority.of_json in
      let protocol =
        field_map json__ "Protocol" OriginationRouteProtocol.of_json in
      let port = field_map json__ "Port" Port.of_json in
      let host = field_map json__ "Host" String_.of_json in
      make ?weight ?priority ?protocol ?port ?host ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Origination routes define call distribution properties for your SIP hosts to receive inbound calls using an Amazon Chime SDK Voice Connector. Limit: Ten origination routes for each Voice Connector. The parameters listed below are not required, but you must use at least one."]
module ContactCenterSystemType =
  struct
    type nonrec t =
      | GENESYS_ENGAGE_ON_PREMISES 
      | AVAYA_AURA_CALL_CENTER_ELITE 
      | AVAYA_AURA_CONTACT_CENTER 
      | CISCO_UNIFIED_CONTACT_CENTER_ENTERPRISE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GENESYS_ENGAGE_ON_PREMISES -> "GENESYS_ENGAGE_ON_PREMISES"
      | AVAYA_AURA_CALL_CENTER_ELITE -> "AVAYA_AURA_CALL_CENTER_ELITE"
      | AVAYA_AURA_CONTACT_CENTER -> "AVAYA_AURA_CONTACT_CENTER"
      | CISCO_UNIFIED_CONTACT_CENTER_ENTERPRISE ->
          "CISCO_UNIFIED_CONTACT_CENTER_ENTERPRISE"
      | Non_static_id s -> s
    let of_string =
      function
      | "GENESYS_ENGAGE_ON_PREMISES" -> GENESYS_ENGAGE_ON_PREMISES
      | "AVAYA_AURA_CALL_CENTER_ELITE" -> AVAYA_AURA_CALL_CENTER_ELITE
      | "AVAYA_AURA_CONTACT_CENTER" -> AVAYA_AURA_CONTACT_CENTER
      | "CISCO_UNIFIED_CONTACT_CENTER_ENTERPRISE" ->
          CISCO_UNIFIED_CONTACT_CENTER_ENTERPRISE
      | 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 ContactCenterSystemType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ContactCenterSystemType" j)
    let to_json = simple_to_json to_value
  end
module SessionBorderControllerType =
  struct
    type nonrec t =
      | RIBBON_SBC 
      | ORACLE_ACME_PACKET_SBC 
      | AVAYA_SBCE 
      | CISCO_UNIFIED_BORDER_ELEMENT 
      | AUDIOCODES_MEDIANT_SBC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RIBBON_SBC -> "RIBBON_SBC"
      | ORACLE_ACME_PACKET_SBC -> "ORACLE_ACME_PACKET_SBC"
      | AVAYA_SBCE -> "AVAYA_SBCE"
      | CISCO_UNIFIED_BORDER_ELEMENT -> "CISCO_UNIFIED_BORDER_ELEMENT"
      | AUDIOCODES_MEDIANT_SBC -> "AUDIOCODES_MEDIANT_SBC"
      | Non_static_id s -> s
    let of_string =
      function
      | "RIBBON_SBC" -> RIBBON_SBC
      | "ORACLE_ACME_PACKET_SBC" -> ORACLE_ACME_PACKET_SBC
      | "AVAYA_SBCE" -> AVAYA_SBCE
      | "CISCO_UNIFIED_BORDER_ELEMENT" -> CISCO_UNIFIED_BORDER_ELEMENT
      | "AUDIOCODES_MEDIANT_SBC" -> AUDIOCODES_MEDIANT_SBC
      | 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 SessionBorderControllerType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SessionBorderControllerType" j)
    let to_json = simple_to_json to_value
  end
module DNISEmergencyCallingConfiguration =
  struct
    type nonrec t =
      {
      emergencyPhoneNumber: E164PhoneNumber.t
        [@ocaml.doc
          "The DNIS phone number that you route emergency calls to, in E.164 format."];
      testPhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc
          "The DNIS phone number for routing test emergency calls to, in E.164 format."];
      callingCountry: Alpha2CountryCode.t
        [@ocaml.doc
          "The country from which emergency calls are allowed, in ISO 3166-1 alpha-2 format."]}
    let context_ = "DNISEmergencyCallingConfiguration"
    let make ?testPhoneNumber =
      fun ~emergencyPhoneNumber ->
        fun ~callingCountry ->
          fun () -> { testPhoneNumber; emergencyPhoneNumber; callingCountry }
    let to_value x =
      structure_to_value
        [("EmergencyPhoneNumber",
           (Some (E164PhoneNumber.to_value x.emergencyPhoneNumber)));
        ("TestPhoneNumber",
          (Option.map x.testPhoneNumber ~f:E164PhoneNumber.to_value));
        ("CallingCountry",
          (Some (Alpha2CountryCode.to_value x.callingCountry)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingCountry =
        Alpha2CountryCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CallingCountry") in
      let testPhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "TestPhoneNumber") in
      let emergencyPhoneNumber =
        E164PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EmergencyPhoneNumber") in
      make ~callingCountry ?testPhoneNumber ~emergencyPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingCountry =
        field_map_exn json__ "CallingCountry" Alpha2CountryCode.of_json in
      let testPhoneNumber =
        field_map json__ "TestPhoneNumber" E164PhoneNumber.of_json in
      let emergencyPhoneNumber =
        field_map_exn json__ "EmergencyPhoneNumber" E164PhoneNumber.of_json in
      make ~callingCountry ?testPhoneNumber ~emergencyPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Dialed Number Identification Service (DNIS) emergency calling configuration details associated with an Amazon Chime SDK Voice Connector's emergency calling configuration."]
module AlexaSkillId =
  struct
    type nonrec t = string
    let context_ = "AlexaSkillId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"amzn1\\.application-oa2-client\\.[0-9a-fA-F]{32}"));
        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:"AlexaSkillId" j
    let to_json = simple_to_json to_value
  end
module VoiceProfileDomainDescription =
  struct
    type nonrec t = string
    let context_ = "VoiceProfileDomainDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"VoiceProfileDomainDescription" j
    let to_json = simple_to_json to_value
  end
module VoiceProfileDomainName =
  struct
    type nonrec t = string
    let context_ = "VoiceProfileDomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"VoiceProfileDomainName" j
    let to_json = simple_to_json to_value
  end
module NetworkType =
  struct
    type nonrec t =
      | IPV4_ONLY 
      | DUAL_STACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4_ONLY -> "IPV4_ONLY"
      | DUAL_STACK -> "DUAL_STACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4_ONLY" -> IPV4_ONLY
      | "DUAL_STACK" -> DUAL_STACK
      | 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 NetworkType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"NetworkType" j)
    let to_json = simple_to_json to_value
  end
module VoiceConnectorAwsRegion =
  struct
    type nonrec t =
      | Us_east_1 
      | Us_west_2 
      | Ca_central_1 
      | Eu_central_1 
      | Eu_west_1 
      | Eu_west_2 
      | Ap_northeast_2 
      | Ap_northeast_1 
      | Ap_southeast_1 
      | Ap_southeast_2 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Us_east_1 -> "us-east-1"
      | Us_west_2 -> "us-west-2"
      | Ca_central_1 -> "ca-central-1"
      | Eu_central_1 -> "eu-central-1"
      | Eu_west_1 -> "eu-west-1"
      | Eu_west_2 -> "eu-west-2"
      | Ap_northeast_2 -> "ap-northeast-2"
      | Ap_northeast_1 -> "ap-northeast-1"
      | Ap_southeast_1 -> "ap-southeast-1"
      | Ap_southeast_2 -> "ap-southeast-2"
      | Non_static_id s -> s
    let of_string =
      function
      | "us-east-1" -> Us_east_1
      | "us-west-2" -> Us_west_2
      | "ca-central-1" -> Ca_central_1
      | "eu-central-1" -> Eu_central_1
      | "eu-west-1" -> Eu_west_1
      | "eu-west-2" -> Eu_west_2
      | "ap-northeast-2" -> Ap_northeast_2
      | "ap-northeast-1" -> Ap_northeast_1
      | "ap-southeast-1" -> Ap_southeast_1
      | "ap-southeast-2" -> Ap_southeast_2
      | 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 VoiceConnectorAwsRegion" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VoiceConnectorAwsRegion" j)
    let to_json = simple_to_json to_value
  end
module VoiceConnectorIntegrationType =
  struct
    type nonrec t =
      | CONNECT_CALL_TRANSFER_CONNECTOR 
      | CONNECT_ANALYTICS_CONNECTOR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONNECT_CALL_TRANSFER_CONNECTOR -> "CONNECT_CALL_TRANSFER_CONNECTOR"
      | CONNECT_ANALYTICS_CONNECTOR -> "CONNECT_ANALYTICS_CONNECTOR"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONNECT_CALL_TRANSFER_CONNECTOR" -> CONNECT_CALL_TRANSFER_CONNECTOR
      | "CONNECT_ANALYTICS_CONNECTOR" -> CONNECT_ANALYTICS_CONNECTOR
      | 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 VoiceConnectorIntegrationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VoiceConnectorIntegrationType" j)
    let to_json = simple_to_json to_value
  end
module VoiceConnectorName =
  struct
    type nonrec t = string
    let context_ = "VoiceConnectorName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"VoiceConnectorName" j
    let to_json = simple_to_json to_value
  end
module VoiceConnectorGroupName =
  struct
    type nonrec t = string
    let context_ = "VoiceConnectorGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"VoiceConnectorGroupName" j
    let to_json = simple_to_json to_value
  end
module VoiceConnectorItemList =
  struct
    type nonrec t = VoiceConnectorItem.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VoiceConnectorItem.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:VoiceConnectorItem.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceConnectorItemList"
        ~of_json:VoiceConnectorItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberTypeList =
  struct
    type nonrec t = PhoneNumberType.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumberType.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:PhoneNumberType.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberTypeList"
        ~of_json:PhoneNumberType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SipRuleName =
  struct
    type nonrec t = string
    let context_ = "SipRuleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"SipRuleName" j
    let to_json = simple_to_json to_value
  end
module SipRuleTargetApplicationList =
  struct
    type nonrec t = SipRuleTargetApplication.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (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:SipRuleTargetApplication.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:SipRuleTargetApplication.of_xml)
    let of_json j =
      list_of_json ~kind:"SipRuleTargetApplicationList"
        ~of_json:SipRuleTargetApplication.of_json j
    let to_json v = composed_to_json to_value v
  end
module SipRuleTriggerType =
  struct
    type nonrec t =
      | ToPhoneNumber 
      | RequestUriHostname 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ToPhoneNumber -> "ToPhoneNumber"
      | RequestUriHostname -> "RequestUriHostname"
      | Non_static_id s -> s
    let of_string =
      function
      | "ToPhoneNumber" -> ToPhoneNumber
      | "RequestUriHostname" -> RequestUriHostname
      | 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 SipRuleTriggerType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SipRuleTriggerType" j)
    let to_json = simple_to_json to_value
  end
module SipMediaApplicationEndpointList =
  struct
    type nonrec t = SipMediaApplicationEndpoint.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:SipMediaApplicationEndpoint.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:SipMediaApplicationEndpoint.of_xml)
    let of_json j =
      list_of_json ~kind:"SipMediaApplicationEndpointList"
        ~of_json:SipMediaApplicationEndpoint.of_json j
    let to_json v = composed_to_json to_value v
  end
module SipMediaApplicationName =
  struct
    type nonrec t = string
    let context_ = "SipMediaApplicationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (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:"SipMediaApplicationName" j
    let to_json = simple_to_json to_value
  end
module CapabilityList =
  struct
    type nonrec t = Capability.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Capability.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:Capability.of_xml)
    let of_json j =
      list_of_json ~kind:"CapabilityList" ~of_json:Capability.of_json j
    let to_json v = composed_to_json to_value v
  end
module GeoMatchLevel =
  struct
    type nonrec t =
      | Country 
      | AreaCode 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Country -> "Country"
      | AreaCode -> "AreaCode"
      | Non_static_id s -> s
    let of_string =
      function
      | "Country" -> Country
      | "AreaCode" -> AreaCode
      | 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 GeoMatchLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GeoMatchLevel" j)
    let to_json = simple_to_json to_value
  end
module GeoMatchParams =
  struct
    type nonrec t =
      {
      country: Country.t [@ocaml.doc "The country."];
      areaCode: AreaCode.t [@ocaml.doc "The area code."]}
    let context_ = "GeoMatchParams"
    let make ~country = fun ~areaCode -> fun () -> { country; areaCode }
    let to_value x =
      structure_to_value
        [("Country", (Some (Country.to_value x.country)));
        ("AreaCode", (Some (AreaCode.to_value x.areaCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let areaCode =
        AreaCode.of_xml (Xml.child_exn ~context:context_ xml_arg0 "AreaCode") in
      let country =
        Country.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Country") in
      make ~areaCode ~country ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let areaCode = field_map_exn json__ "AreaCode" AreaCode.of_json in
      let country = field_map_exn json__ "Country" Country.of_json in
      make ~areaCode ~country ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The country and area code for a proxy phone number in a proxy phone session."]
module NumberSelectionBehavior =
  struct
    type nonrec t =
      | PreferSticky 
      | AvoidSticky 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PreferSticky -> "PreferSticky"
      | AvoidSticky -> "AvoidSticky"
      | Non_static_id s -> s
    let of_string =
      function
      | "PreferSticky" -> PreferSticky
      | "AvoidSticky" -> AvoidSticky
      | 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 NumberSelectionBehavior" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"NumberSelectionBehavior" j)
    let to_json = simple_to_json to_value
  end
module Participants =
  struct
    type nonrec t = Participant.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Participant.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:Participant.of_xml)
    let of_json j =
      list_of_json ~kind:"Participants" ~of_json:Participant.of_json j
    let to_json v = composed_to_json to_value v
  end
module PositiveInteger =
  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 PositiveInteger" 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 ProxySessionStatus =
  struct
    type nonrec t =
      | Open 
      | InProgress 
      | Closed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Open -> "Open"
      | InProgress -> "InProgress"
      | Closed -> "Closed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Open" -> Open
      | "InProgress" -> InProgress
      | "Closed" -> Closed
      | 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 ProxySessionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ProxySessionStatus" j)
    let to_json = simple_to_json to_value
  end
module String128 =
  struct
    type nonrec t = string
    let context_ = "String128"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:128); 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:"String128" j
    let to_json = simple_to_json to_value
  end
module CallingName =
  struct
    type nonrec t = string
    let context_ = "CallingName"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^$|^[a-zA-Z0-9 ]{2,15}$");
        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:"CallingName" j
    let to_json = simple_to_json to_value
  end
module CallingNameStatus =
  struct
    type nonrec t =
      | Unassigned 
      | UpdateInProgress 
      | UpdateSucceeded 
      | UpdateFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Unassigned -> "Unassigned"
      | UpdateInProgress -> "UpdateInProgress"
      | UpdateSucceeded -> "UpdateSucceeded"
      | UpdateFailed -> "UpdateFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Unassigned" -> Unassigned
      | "UpdateInProgress" -> UpdateInProgress
      | "UpdateSucceeded" -> UpdateSucceeded
      | "UpdateFailed" -> UpdateFailed
      | 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 CallingNameStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CallingNameStatus" j)
    let to_json = simple_to_json to_value
  end
module GuidString =
  struct
    type nonrec t = string
    let context_ = "GuidString"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-fA-F0-9]{8}(?:-[a-fA-F0-9]{4}){3}-[a-fA-F0-9]{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:"GuidString" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberAssociationList =
  struct
    type nonrec t = PhoneNumberAssociation.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumberAssociation.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:PhoneNumberAssociation.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberAssociationList"
        ~of_json:PhoneNumberAssociation.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberCapabilities =
  struct
    type nonrec t =
      {
      inboundCall: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound calling for the specified phone number."];
      outboundCall: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies outbound calling for the specified phone number."];
      inboundSMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound SMS messaging for the specified phone number."];
      outboundSMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies outbound SMS messaging for the specified phone number."];
      inboundMMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound MMS messaging for the specified phone number."];
      outboundMMS: NullableBoolean.t option
        [@ocaml.doc
          "Allows or denies inbound MMS messaging for the specified phone number."]}
    let make ?inboundCall =
      fun ?outboundCall ->
        fun ?inboundSMS ->
          fun ?outboundSMS ->
            fun ?inboundMMS ->
              fun ?outboundMMS ->
                fun () ->
                  {
                    inboundCall;
                    outboundCall;
                    inboundSMS;
                    outboundSMS;
                    inboundMMS;
                    outboundMMS
                  }
    let to_value x =
      structure_to_value
        [("InboundCall",
           (Option.map x.inboundCall ~f:NullableBoolean.to_value));
        ("OutboundCall",
          (Option.map x.outboundCall ~f:NullableBoolean.to_value));
        ("InboundSMS", (Option.map x.inboundSMS ~f:NullableBoolean.to_value));
        ("OutboundSMS",
          (Option.map x.outboundSMS ~f:NullableBoolean.to_value));
        ("InboundMMS", (Option.map x.inboundMMS ~f:NullableBoolean.to_value));
        ("OutboundMMS",
          (Option.map x.outboundMMS ~f:NullableBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outboundMMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "OutboundMMS") in
      let inboundMMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "InboundMMS") in
      let outboundSMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "OutboundSMS") in
      let inboundSMS =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "InboundSMS") in
      let outboundCall =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "OutboundCall") in
      let inboundCall =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "InboundCall") in
      make ?outboundMMS ?inboundMMS ?outboundSMS ?inboundSMS ?outboundCall
        ?inboundCall ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outboundMMS =
        field_map json__ "OutboundMMS" NullableBoolean.of_json in
      let inboundMMS = field_map json__ "InboundMMS" NullableBoolean.of_json in
      let outboundSMS =
        field_map json__ "OutboundSMS" NullableBoolean.of_json in
      let inboundSMS = field_map json__ "InboundSMS" NullableBoolean.of_json in
      let outboundCall =
        field_map json__ "OutboundCall" NullableBoolean.of_json in
      let inboundCall =
        field_map json__ "InboundCall" NullableBoolean.of_json in
      make ?outboundMMS ?inboundMMS ?outboundSMS ?inboundSMS ?outboundCall
        ?inboundCall ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number capabilities for Amazon Chime SDK phone numbers, such as enabled inbound and outbound calling, and text messaging."]
module PhoneNumberName =
  struct
    type nonrec t = string
    let context_ = "PhoneNumberName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^$|^[a-zA-Z0-9\\,\\.\\_\\-]+(\\s+[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:"PhoneNumberName" j
    let to_json = simple_to_json to_value
  end
module PhoneNumberProductType =
  struct
    type nonrec t =
      | VoiceConnector 
      | SipMediaApplicationDialIn 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VoiceConnector -> "VoiceConnector"
      | SipMediaApplicationDialIn -> "SipMediaApplicationDialIn"
      | Non_static_id s -> s
    let of_string =
      function
      | "VoiceConnector" -> VoiceConnector
      | "SipMediaApplicationDialIn" -> SipMediaApplicationDialIn
      | 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 PhoneNumberProductType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberProductType" j)
    let to_json = simple_to_json to_value
  end
module PhoneNumberStatus =
  struct
    type nonrec t =
      | Cancelled 
      | PortinCancelRequested 
      | PortinInProgress 
      | AcquireInProgress 
      | AcquireFailed 
      | Unassigned 
      | Assigned 
      | ReleaseInProgress 
      | DeleteInProgress 
      | ReleaseFailed 
      | DeleteFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Cancelled -> "Cancelled"
      | PortinCancelRequested -> "PortinCancelRequested"
      | PortinInProgress -> "PortinInProgress"
      | AcquireInProgress -> "AcquireInProgress"
      | AcquireFailed -> "AcquireFailed"
      | Unassigned -> "Unassigned"
      | Assigned -> "Assigned"
      | ReleaseInProgress -> "ReleaseInProgress"
      | DeleteInProgress -> "DeleteInProgress"
      | ReleaseFailed -> "ReleaseFailed"
      | DeleteFailed -> "DeleteFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Cancelled" -> Cancelled
      | "PortinCancelRequested" -> PortinCancelRequested
      | "PortinInProgress" -> PortinInProgress
      | "AcquireInProgress" -> AcquireInProgress
      | "AcquireFailed" -> AcquireFailed
      | "Unassigned" -> Unassigned
      | "Assigned" -> Assigned
      | "ReleaseInProgress" -> ReleaseInProgress
      | "DeleteInProgress" -> DeleteInProgress
      | "ReleaseFailed" -> ReleaseFailed
      | "DeleteFailed" -> DeleteFailed
      | 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 PhoneNumberStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PhoneNumberStatus" j)
    let to_json = simple_to_json to_value
  end
module OrderedPhoneNumberList =
  struct
    type nonrec t = OrderedPhoneNumber.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OrderedPhoneNumber.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:OrderedPhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"OrderedPhoneNumberList"
        ~of_json:OrderedPhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberOrderStatus =
  struct
    type nonrec t =
      | Processing 
      | Successful 
      | Failed 
      | Partial 
      | PendingDocuments 
      | Submitted 
      | FOC 
      | ChangeRequested 
      | Exception 
      | CancelRequested 
      | Cancelled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Processing -> "Processing"
      | Successful -> "Successful"
      | Failed -> "Failed"
      | Partial -> "Partial"
      | PendingDocuments -> "PendingDocuments"
      | Submitted -> "Submitted"
      | FOC -> "FOC"
      | ChangeRequested -> "ChangeRequested"
      | Exception -> "Exception"
      | CancelRequested -> "CancelRequested"
      | Cancelled -> "Cancelled"
      | Non_static_id s -> s
    let of_string =
      function
      | "Processing" -> Processing
      | "Successful" -> Successful
      | "Failed" -> Failed
      | "Partial" -> Partial
      | "PendingDocuments" -> PendingDocuments
      | "Submitted" -> Submitted
      | "FOC" -> FOC
      | "ChangeRequested" -> ChangeRequested
      | "Exception" -> Exception
      | "CancelRequested" -> CancelRequested
      | "Cancelled" -> Cancelled
      | 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 PhoneNumberOrderStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PhoneNumberOrderStatus" j)
    let to_json = simple_to_json to_value
  end
module PhoneNumberOrderType =
  struct
    type nonrec t =
      | New 
      | Porting 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | New -> "New" | Porting -> "Porting" | Non_static_id s -> s
    let of_string =
      function | "New" -> New | "Porting" -> Porting | 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 PhoneNumberOrderType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PhoneNumberOrderType" j)
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t =
      | BadRequest 
      | Conflict 
      | Forbidden 
      | NotFound 
      | PreconditionFailed 
      | ResourceLimitExceeded 
      | ServiceFailure 
      | AccessDenied 
      | ServiceUnavailable 
      | Throttled 
      | Throttling 
      | Unauthorized 
      | Unprocessable 
      | VoiceConnectorGroupAssociationsExist 
      | PhoneNumberAssociationsExist 
      | Gone 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | BadRequest -> "BadRequest"
      | Conflict -> "Conflict"
      | Forbidden -> "Forbidden"
      | NotFound -> "NotFound"
      | PreconditionFailed -> "PreconditionFailed"
      | ResourceLimitExceeded -> "ResourceLimitExceeded"
      | ServiceFailure -> "ServiceFailure"
      | AccessDenied -> "AccessDenied"
      | ServiceUnavailable -> "ServiceUnavailable"
      | Throttled -> "Throttled"
      | Throttling -> "Throttling"
      | Unauthorized -> "Unauthorized"
      | Unprocessable -> "Unprocessable"
      | VoiceConnectorGroupAssociationsExist ->
          "VoiceConnectorGroupAssociationsExist"
      | PhoneNumberAssociationsExist -> "PhoneNumberAssociationsExist"
      | Gone -> "Gone"
      | Non_static_id s -> s
    let of_string =
      function
      | "BadRequest" -> BadRequest
      | "Conflict" -> Conflict
      | "Forbidden" -> Forbidden
      | "NotFound" -> NotFound
      | "PreconditionFailed" -> PreconditionFailed
      | "ResourceLimitExceeded" -> ResourceLimitExceeded
      | "ServiceFailure" -> ServiceFailure
      | "AccessDenied" -> AccessDenied
      | "ServiceUnavailable" -> ServiceUnavailable
      | "Throttled" -> Throttled
      | "Throttling" -> Throttling
      | "Unauthorized" -> Unauthorized
      | "Unprocessable" -> Unprocessable
      | "VoiceConnectorGroupAssociationsExist" ->
          VoiceConnectorGroupAssociationsExist
      | "PhoneNumberAssociationsExist" -> PhoneNumberAssociationsExist
      | "Gone" -> Gone
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCode" j)
    let to_json = simple_to_json to_value
  end
module CandidateAddress =
  struct
    type nonrec t =
      {
      streetInfo: SensitiveNonEmptyString.t option
        [@ocaml.doc "The street information of the candidate address."];
      streetNumber: SensitiveNonEmptyString.t option
        [@ocaml.doc "The numeric portion of the candidate address."];
      city: SensitiveNonEmptyString.t option
        [@ocaml.doc "The city of the candidate address."];
      state: SensitiveNonEmptyString.t option
        [@ocaml.doc "The state of the candidate address."];
      postalCode: SensitiveNonEmptyString.t option
        [@ocaml.doc "The postal code of the candidate address."];
      postalCodePlus4: SensitiveNonEmptyString.t option
        [@ocaml.doc
          "The zip + 4 or postal code +4 of the candidate address."];
      country: SensitiveNonEmptyString.t option
        [@ocaml.doc "The country of the candidate address."]}
    let make ?streetInfo =
      fun ?streetNumber ->
        fun ?city ->
          fun ?state ->
            fun ?postalCode ->
              fun ?postalCodePlus4 ->
                fun ?country ->
                  fun () ->
                    {
                      streetInfo;
                      streetNumber;
                      city;
                      state;
                      postalCode;
                      postalCodePlus4;
                      country
                    }
    let to_value x =
      structure_to_value
        [("streetInfo",
           (Option.map x.streetInfo ~f:SensitiveNonEmptyString.to_value));
        ("streetNumber",
          (Option.map x.streetNumber ~f:SensitiveNonEmptyString.to_value));
        ("city", (Option.map x.city ~f:SensitiveNonEmptyString.to_value));
        ("state", (Option.map x.state ~f:SensitiveNonEmptyString.to_value));
        ("postalCode",
          (Option.map x.postalCode ~f:SensitiveNonEmptyString.to_value));
        ("postalCodePlus4",
          (Option.map x.postalCodePlus4 ~f:SensitiveNonEmptyString.to_value));
        ("country",
          (Option.map x.country ~f:SensitiveNonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let country =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "country") in
      let postalCodePlus4 =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "postalCodePlus4") in
      let postalCode =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "postalCode") in
      let state =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "state") in
      let city =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "city") in
      let streetNumber =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "streetNumber") in
      let streetInfo =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "streetInfo") in
      make ?country ?postalCodePlus4 ?postalCode ?state ?city ?streetNumber
        ?streetInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let country =
        field_map json__ "country" SensitiveNonEmptyString.of_json in
      let postalCodePlus4 =
        field_map json__ "postalCodePlus4" SensitiveNonEmptyString.of_json in
      let postalCode =
        field_map json__ "postalCode" SensitiveNonEmptyString.of_json in
      let state = field_map json__ "state" SensitiveNonEmptyString.of_json in
      let city = field_map json__ "city" SensitiveNonEmptyString.of_json in
      let streetNumber =
        field_map json__ "streetNumber" SensitiveNonEmptyString.of_json in
      let streetInfo =
        field_map json__ "streetInfo" SensitiveNonEmptyString.of_json in
      make ?country ?postalCodePlus4 ?postalCode ?state ?city ?streetNumber
        ?streetInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A suggested address."]
module ServerSideEncryptionConfiguration =
  struct
    type nonrec t =
      {
      kmsKeyArn: Arn.t
        [@ocaml.doc
          "The ARN of the KMS key used to encrypt the enrollment data in a voice profile domain. Asymmetric customer managed keys are not supported."]}
    let context_ = "ServerSideEncryptionConfiguration"
    let make ~kmsKeyArn = fun () -> { kmsKeyArn }
    let to_value x =
      structure_to_value [("KmsKeyArn", (Some (Arn.to_value x.kmsKeyArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "KmsKeyArn") in
      make ~kmsKeyArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyArn = field_map_exn json__ "KmsKeyArn" Arn.of_json in
      make ~kmsKeyArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that contains the configuration settings for server-side encryption. We only support symmetric keys. Do not use asymmetric or HMAC keys, or KMS aliases."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The tag's key."];
      value: TagValue.t [@ocaml.doc "The tag's value."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a tag applied to a resource."]
module CallDetails =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t option
        [@ocaml.doc "The Voice Connector ID."];
      transactionId: NonEmptyString256.t option
        [@ocaml.doc "The transaction ID of a Voice Connector call."];
      isCaller: Boolean.t option
        [@ocaml.doc "Identifies a person as the caller or the callee."]}
    let make ?voiceConnectorId =
      fun ?transactionId ->
        fun ?isCaller ->
          fun () -> { voiceConnectorId; transactionId; isCaller }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Option.map x.voiceConnectorId ~f:NonEmptyString128.to_value));
        ("TransactionId",
          (Option.map x.transactionId ~f:NonEmptyString256.to_value));
        ("IsCaller", (Option.map x.isCaller ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isCaller =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsCaller") in
      let transactionId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "TransactionId") in
      let voiceConnectorId =
        (Option.map ~f:NonEmptyString128.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorId") in
      make ?isCaller ?transactionId ?voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isCaller = field_map json__ "IsCaller" Boolean.of_json in
      let transactionId =
        field_map json__ "TransactionId" NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?isCaller ?transactionId ?voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of an Amazon Chime SDK Voice Connector call."]
module SpeakerSearchDetails =
  struct
    type nonrec t =
      {
      results: SpeakerSearchResultList.t option
        [@ocaml.doc "The result value in the speaker search details."];
      voiceprintGenerationStatus: NonEmptyString256.t option
        [@ocaml.doc
          "The status of a voice print generation operation, VoiceprintGenerationSuccess or VoiceprintGenerationFailure.."]}
    let make ?results =
      fun ?voiceprintGenerationStatus ->
        fun () -> { results; voiceprintGenerationStatus }
    let to_value x =
      structure_to_value
        [("Results",
           (Option.map x.results ~f:SpeakerSearchResultList.to_value));
        ("VoiceprintGenerationStatus",
          (Option.map x.voiceprintGenerationStatus
             ~f:NonEmptyString256.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceprintGenerationStatus =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceprintGenerationStatus") in
      let results =
        (Option.map ~f:SpeakerSearchResultList.of_xml)
          (Xml.child xml_arg0 "Results") in
      make ?voiceprintGenerationStatus ?results ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceprintGenerationStatus =
        field_map json__ "VoiceprintGenerationStatus"
          NonEmptyString256.of_json in
      let results =
        field_map json__ "Results" SpeakerSearchResultList.of_json in
      make ?voiceprintGenerationStatus ?results ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a speaker search task."]
module CallingRegionList =
  struct
    type nonrec t = CallingRegion.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CallingRegion.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:CallingRegion.of_xml)
    let of_json j =
      list_of_json ~kind:"CallingRegionList" ~of_json:CallingRegion.of_json j
    let to_json v = composed_to_json to_value v
  end
module CpsLimit =
  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 CpsLimit" 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 StringList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"StringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Credential =
  struct
    type nonrec t =
      {
      username: SensitiveString.t option
        [@ocaml.doc
          "The RFC2617 compliant user name associated with the SIP credentials, in US-ASCII format."];
      password: SensitiveString.t option
        [@ocaml.doc
          "The RFC2617 compliant password associated with the SIP credentials, in US-ASCII format."]}
    let make ?username = fun ?password -> fun () -> { username; password }
    let to_value x =
      structure_to_value
        [("Username", (Option.map x.username ~f:SensitiveString.to_value));
        ("Password", (Option.map x.password ~f:SensitiveString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "Password") in
      let username =
        (Option.map ~f:SensitiveString.of_xml)
          (Xml.child xml_arg0 "Username") in
      make ?password ?username ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password = field_map json__ "Password" SensitiveString.of_json in
      let username = field_map json__ "Username" SensitiveString.of_json in
      make ?password ?username ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The SIP credentials used to authenticate requests to an Amazon Chime SDK Voice Connector."]
module DataRetentionInHours =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); 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 DataRetentionInHours" 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 MediaInsightsConfiguration =
  struct
    type nonrec t =
      {
      disabled: Boolean.t option
        [@ocaml.doc "Denotes the configuration as enabled or disabled."];
      configurationArn: Arn.t option [@ocaml.doc "The configuration's ARN."]}
    let make ?disabled =
      fun ?configurationArn -> fun () -> { disabled; configurationArn }
    let to_value x =
      structure_to_value
        [("Disabled", (Option.map x.disabled ~f:Boolean.to_value));
        ("ConfigurationArn", (Option.map x.configurationArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ConfigurationArn") in
      let disabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Disabled") in
      make ?configurationArn ?disabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationArn = field_map json__ "ConfigurationArn" Arn.of_json in
      let disabled = field_map json__ "Disabled" Boolean.of_json in
      make ?configurationArn ?disabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration for a call analytics task."]
module StreamingNotificationTargetList =
  struct
    type nonrec t = StreamingNotificationTarget.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (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:StreamingNotificationTarget.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:StreamingNotificationTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"StreamingNotificationTargetList"
        ~of_json:StreamingNotificationTarget.of_json j
    let to_json v = composed_to_json to_value v
  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 OriginationRouteList =
  struct
    type nonrec t = OriginationRoute.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OriginationRoute.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:OriginationRoute.of_xml)
    let of_json j =
      list_of_json ~kind:"OriginationRouteList"
        ~of_json:OriginationRoute.of_json j
    let to_json v = composed_to_json to_value v
  end
module ContactCenterSystemTypeList =
  struct
    type nonrec t = ContactCenterSystemType.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ContactCenterSystemType.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:ContactCenterSystemType.of_xml)
    let of_json j =
      list_of_json ~kind:"ContactCenterSystemTypeList"
        ~of_json:ContactCenterSystemType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SessionBorderControllerTypeList =
  struct
    type nonrec t = SessionBorderControllerType.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SessionBorderControllerType.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:SessionBorderControllerType.of_xml)
    let of_json j =
      list_of_json ~kind:"SessionBorderControllerTypeList"
        ~of_json:SessionBorderControllerType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DNISEmergencyCallingConfigurationList =
  struct
    type nonrec t = DNISEmergencyCallingConfiguration.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DNISEmergencyCallingConfiguration.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:DNISEmergencyCallingConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"DNISEmergencyCallingConfigurationList"
        ~of_json:DNISEmergencyCallingConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module AlexaSkillIdList =
  struct
    type nonrec t = AlexaSkillId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (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:AlexaSkillId.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:AlexaSkillId.of_xml)
    let of_json j =
      list_of_json ~kind:"AlexaSkillIdList" ~of_json:AlexaSkillId.of_json j
    let to_json v = composed_to_json to_value v
  end
module AlexaSkillStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | 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 AlexaSkillStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AlexaSkillStatus" j)
    let to_json = simple_to_json to_value
  end
module VoiceProfileSummary =
  struct
    type nonrec t =
      {
      voiceProfileId: NonEmptyString256.t option
        [@ocaml.doc
          "The ID of the voice profile in a voice profile summary."];
      voiceProfileArn: Arn.t option
        [@ocaml.doc
          "The ARN of the voice profile in a voice profile summary."];
      voiceProfileDomainId: NonEmptyString256.t option
        [@ocaml.doc
          "The ID of the voice profile domain in a voice profile summary."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which a voice profile summary was created."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which a voice profile summary was last updated."];
      expirationTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "Extends the life of the voice profile. You can use UpdateVoiceProfile to refresh an existing voice profile's voice print and extend the life of the summary."]}
    let make ?voiceProfileId =
      fun ?voiceProfileArn ->
        fun ?voiceProfileDomainId ->
          fun ?createdTimestamp ->
            fun ?updatedTimestamp ->
              fun ?expirationTimestamp ->
                fun () ->
                  {
                    voiceProfileId;
                    voiceProfileArn;
                    voiceProfileDomainId;
                    createdTimestamp;
                    updatedTimestamp;
                    expirationTimestamp
                  }
    let to_value x =
      structure_to_value
        [("VoiceProfileId",
           (Option.map x.voiceProfileId ~f:NonEmptyString256.to_value));
        ("VoiceProfileArn", (Option.map x.voiceProfileArn ~f:Arn.to_value));
        ("VoiceProfileDomainId",
          (Option.map x.voiceProfileDomainId ~f:NonEmptyString256.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("ExpirationTimestamp",
          (Option.map x.expirationTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let voiceProfileDomainId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomainId") in
      let voiceProfileArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "VoiceProfileArn") in
      let voiceProfileId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileId") in
      make ?expirationTimestamp ?updatedTimestamp ?createdTimestamp
        ?voiceProfileDomainId ?voiceProfileArn ?voiceProfileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTimestamp =
        field_map json__ "ExpirationTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let voiceProfileDomainId =
        field_map json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      let voiceProfileArn = field_map json__ "VoiceProfileArn" Arn.of_json in
      let voiceProfileId =
        field_map json__ "VoiceProfileId" NonEmptyString256.of_json in
      make ?expirationTimestamp ?updatedTimestamp ?createdTimestamp
        ?voiceProfileDomainId ?voiceProfileArn ?voiceProfileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A high-level summary of a voice profile."]
module VoiceProfileDomainSummary =
  struct
    type nonrec t =
      {
      voiceProfileDomainId: NonEmptyString256.t option
        [@ocaml.doc "The ID of the voice profile domain summary."];
      voiceProfileDomainArn: Arn.t option
        [@ocaml.doc
          "The ARN of a voice profile in a voice profile domain summary."];
      name: VoiceProfileDomainName.t option
        [@ocaml.doc "The name of the voice profile domain summary."];
      description: VoiceProfileDomainDescription.t option
        [@ocaml.doc "Describes the voice profile domain summary."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the voice profile domain summary was created."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the voice profile domain summary was last updated."]}
    let make ?voiceProfileDomainId =
      fun ?voiceProfileDomainArn ->
        fun ?name ->
          fun ?description ->
            fun ?createdTimestamp ->
              fun ?updatedTimestamp ->
                fun () ->
                  {
                    voiceProfileDomainId;
                    voiceProfileDomainArn;
                    name;
                    description;
                    createdTimestamp;
                    updatedTimestamp
                  }
    let to_value x =
      structure_to_value
        [("VoiceProfileDomainId",
           (Option.map x.voiceProfileDomainId ~f:NonEmptyString256.to_value));
        ("VoiceProfileDomainArn",
          (Option.map x.voiceProfileDomainArn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:VoiceProfileDomainName.to_value));
        ("Description",
          (Option.map x.description ~f:VoiceProfileDomainDescription.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let description =
        (Option.map ~f:VoiceProfileDomainDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:VoiceProfileDomainName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let voiceProfileDomainArn =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomainArn") in
      let voiceProfileDomainId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomainId") in
      make ?updatedTimestamp ?createdTimestamp ?description ?name
        ?voiceProfileDomainArn ?voiceProfileDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let description =
        field_map json__ "Description" VoiceProfileDomainDescription.of_json in
      let name = field_map json__ "Name" VoiceProfileDomainName.of_json in
      let voiceProfileDomainArn =
        field_map json__ "VoiceProfileDomainArn" Arn.of_json in
      let voiceProfileDomainId =
        field_map json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      make ?updatedTimestamp ?createdTimestamp ?description ?name
        ?voiceProfileDomainArn ?voiceProfileDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A high-level overview of a voice profile domain."]
module VoiceConnector =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t option
        [@ocaml.doc "The Voice Connector's ID."];
      awsRegion: VoiceConnectorAwsRegion.t option
        [@ocaml.doc
          "The AWS Region in which the Voice Connector is created. Default: us-east-1."];
      name: VoiceConnectorName.t option
        [@ocaml.doc "The Voice Connector's name."];
      outboundHostName: String_.t option
        [@ocaml.doc "The outbound host name for the Voice Connector."];
      requireEncryption: Boolean.t option
        [@ocaml.doc
          "Enables or disables encryption for the Voice Connector."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The Voice Connector's creation timestamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The Voice Connector's updated timestamp, in ISO 8601 format."];
      voiceConnectorArn: NonEmptyString.t option
        [@ocaml.doc "The ARN of the Voice Connector."];
      integrationType: VoiceConnectorIntegrationType.t option
        [@ocaml.doc "The connectors for use with Amazon Connect."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The type of network of the Voice Connector. Either IPv4 only or dual-stack (IPv4 and IPv6)."]}
    let make ?voiceConnectorId =
      fun ?awsRegion ->
        fun ?name ->
          fun ?outboundHostName ->
            fun ?requireEncryption ->
              fun ?createdTimestamp ->
                fun ?updatedTimestamp ->
                  fun ?voiceConnectorArn ->
                    fun ?integrationType ->
                      fun ?networkType ->
                        fun () ->
                          {
                            voiceConnectorId;
                            awsRegion;
                            name;
                            outboundHostName;
                            requireEncryption;
                            createdTimestamp;
                            updatedTimestamp;
                            voiceConnectorArn;
                            integrationType;
                            networkType
                          }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Option.map x.voiceConnectorId ~f:NonEmptyString.to_value));
        ("AwsRegion",
          (Option.map x.awsRegion ~f:VoiceConnectorAwsRegion.to_value));
        ("Name", (Option.map x.name ~f:VoiceConnectorName.to_value));
        ("OutboundHostName",
          (Option.map x.outboundHostName ~f:String_.to_value));
        ("RequireEncryption",
          (Option.map x.requireEncryption ~f:Boolean.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("VoiceConnectorArn",
          (Option.map x.voiceConnectorArn ~f:NonEmptyString.to_value));
        ("IntegrationType",
          (Option.map x.integrationType
             ~f:VoiceConnectorIntegrationType.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let integrationType =
        (Option.map ~f:VoiceConnectorIntegrationType.of_xml)
          (Xml.child xml_arg0 "IntegrationType") in
      let voiceConnectorArn =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorArn") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let requireEncryption =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "RequireEncryption") in
      let outboundHostName =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "OutboundHostName") in
      let name =
        (Option.map ~f:VoiceConnectorName.of_xml) (Xml.child xml_arg0 "Name") in
      let awsRegion =
        (Option.map ~f:VoiceConnectorAwsRegion.of_xml)
          (Xml.child xml_arg0 "AwsRegion") in
      let voiceConnectorId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorId") in
      make ?networkType ?integrationType ?voiceConnectorArn ?updatedTimestamp
        ?createdTimestamp ?requireEncryption ?outboundHostName ?name
        ?awsRegion ?voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let integrationType =
        field_map json__ "IntegrationType"
          VoiceConnectorIntegrationType.of_json in
      let voiceConnectorArn =
        field_map json__ "VoiceConnectorArn" NonEmptyString.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let requireEncryption =
        field_map json__ "RequireEncryption" Boolean.of_json in
      let outboundHostName =
        field_map json__ "OutboundHostName" String_.of_json in
      let name = field_map json__ "Name" VoiceConnectorName.of_json in
      let awsRegion =
        field_map json__ "AwsRegion" VoiceConnectorAwsRegion.of_json in
      let voiceConnectorId =
        field_map json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ?networkType ?integrationType ?voiceConnectorArn ?updatedTimestamp
        ?createdTimestamp ?requireEncryption ?outboundHostName ?name
        ?awsRegion ?voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Chime SDK Voice Connector configuration, including outbound host name and encryption settings."]
module VoiceConnectorGroup =
  struct
    type nonrec t =
      {
      voiceConnectorGroupId: NonEmptyString.t option
        [@ocaml.doc "The ID of a Voice Connector group."];
      name: VoiceConnectorGroupName.t option
        [@ocaml.doc "The name of a Voice Connector group."];
      voiceConnectorItems: VoiceConnectorItemList.t option
        [@ocaml.doc "The Voice Connectors to which you route inbound calls."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The Voice Connector group's creation time stamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The Voice Connector group's creation time stamp, in ISO 8601 format."];
      voiceConnectorGroupArn: NonEmptyString.t option
        [@ocaml.doc "The ARN of the Voice Connector group."]}
    let make ?voiceConnectorGroupId =
      fun ?name ->
        fun ?voiceConnectorItems ->
          fun ?createdTimestamp ->
            fun ?updatedTimestamp ->
              fun ?voiceConnectorGroupArn ->
                fun () ->
                  {
                    voiceConnectorGroupId;
                    name;
                    voiceConnectorItems;
                    createdTimestamp;
                    updatedTimestamp;
                    voiceConnectorGroupArn
                  }
    let to_value x =
      structure_to_value
        [("VoiceConnectorGroupId",
           (Option.map x.voiceConnectorGroupId ~f:NonEmptyString.to_value));
        ("Name", (Option.map x.name ~f:VoiceConnectorGroupName.to_value));
        ("VoiceConnectorItems",
          (Option.map x.voiceConnectorItems
             ~f:VoiceConnectorItemList.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("VoiceConnectorGroupArn",
          (Option.map x.voiceConnectorGroupArn ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorGroupArn =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorGroupArn") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let voiceConnectorItems =
        (Option.map ~f:VoiceConnectorItemList.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorItems") in
      let name =
        (Option.map ~f:VoiceConnectorGroupName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let voiceConnectorGroupId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorGroupId") in
      make ?voiceConnectorGroupArn ?updatedTimestamp ?createdTimestamp
        ?voiceConnectorItems ?name ?voiceConnectorGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorGroupArn =
        field_map json__ "VoiceConnectorGroupArn" NonEmptyString.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let voiceConnectorItems =
        field_map json__ "VoiceConnectorItems" VoiceConnectorItemList.of_json in
      let name = field_map json__ "Name" VoiceConnectorGroupName.of_json in
      let voiceConnectorGroupId =
        field_map json__ "VoiceConnectorGroupId" NonEmptyString.of_json in
      make ?voiceConnectorGroupArn ?updatedTimestamp ?createdTimestamp
        ?voiceConnectorItems ?name ?voiceConnectorGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Chime SDK Voice Connector group configuration, including associated Voice Connectors. You can include Voice Connectors from different AWS Regions in a group. This creates a fault tolerant mechanism for fallback in case of availability events."]
module PhoneNumberCountry =
  struct
    type nonrec t =
      {
      countryCode: Alpha2CountryCode.t option
        [@ocaml.doc
          "The phone number country code. Format: ISO 3166-1 alpha-2."];
      supportedPhoneNumberTypes: PhoneNumberTypeList.t option
        [@ocaml.doc "The supported phone number types."]}
    let make ?countryCode =
      fun ?supportedPhoneNumberTypes ->
        fun () -> { countryCode; supportedPhoneNumberTypes }
    let to_value x =
      structure_to_value
        [("CountryCode",
           (Option.map x.countryCode ~f:Alpha2CountryCode.to_value));
        ("SupportedPhoneNumberTypes",
          (Option.map x.supportedPhoneNumberTypes
             ~f:PhoneNumberTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportedPhoneNumberTypes =
        (Option.map ~f:PhoneNumberTypeList.of_xml)
          (Xml.child xml_arg0 "SupportedPhoneNumberTypes") in
      let countryCode =
        (Option.map ~f:Alpha2CountryCode.of_xml)
          (Xml.child xml_arg0 "CountryCode") in
      make ?supportedPhoneNumberTypes ?countryCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportedPhoneNumberTypes =
        field_map json__ "SupportedPhoneNumberTypes"
          PhoneNumberTypeList.of_json in
      let countryCode =
        field_map json__ "CountryCode" Alpha2CountryCode.of_json in
      make ?supportedPhoneNumberTypes ?countryCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The phone number's country."]
module SipRule =
  struct
    type nonrec t =
      {
      sipRuleId: NonEmptyString.t option [@ocaml.doc "A SIP rule's ID."];
      name: SipRuleName.t option [@ocaml.doc "A SIP rule's name."];
      disabled: Boolean.t option
        [@ocaml.doc
          "Indicates whether the SIP rule is enabled or disabled. You must disable a rule before you can delete it."];
      triggerType: SipRuleTriggerType.t option
        [@ocaml.doc
          "The type of trigger set for a SIP rule, either a phone number or a URI request host name."];
      triggerValue: NonEmptyString.t option
        [@ocaml.doc
          "The value set for a SIP rule's trigger type. Either a phone number or a URI hostname."];
      targetApplications: SipRuleTargetApplicationList.t option
        [@ocaml.doc
          "The target SIP media application and other details, such as priority and AWS Region, to be specified in the SIP rule. Only one SIP rule per AWS Region can be provided."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the SIP rule was created, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the SIP rule was updated, in ISO 8601 format."]}
    let make ?sipRuleId =
      fun ?name ->
        fun ?disabled ->
          fun ?triggerType ->
            fun ?triggerValue ->
              fun ?targetApplications ->
                fun ?createdTimestamp ->
                  fun ?updatedTimestamp ->
                    fun () ->
                      {
                        sipRuleId;
                        name;
                        disabled;
                        triggerType;
                        triggerValue;
                        targetApplications;
                        createdTimestamp;
                        updatedTimestamp
                      }
    let to_value x =
      structure_to_value
        [("SipRuleId", (Option.map x.sipRuleId ~f:NonEmptyString.to_value));
        ("Name", (Option.map x.name ~f:SipRuleName.to_value));
        ("Disabled", (Option.map x.disabled ~f:Boolean.to_value));
        ("TriggerType",
          (Option.map x.triggerType ~f:SipRuleTriggerType.to_value));
        ("TriggerValue",
          (Option.map x.triggerValue ~f:NonEmptyString.to_value));
        ("TargetApplications",
          (Option.map x.targetApplications
             ~f:SipRuleTargetApplicationList.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let targetApplications =
        (Option.map ~f:SipRuleTargetApplicationList.of_xml)
          (Xml.child xml_arg0 "TargetApplications") in
      let triggerValue =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "TriggerValue") in
      let triggerType =
        (Option.map ~f:SipRuleTriggerType.of_xml)
          (Xml.child xml_arg0 "TriggerType") in
      let disabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Disabled") in
      let name =
        (Option.map ~f:SipRuleName.of_xml) (Xml.child xml_arg0 "Name") in
      let sipRuleId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "SipRuleId") in
      make ?updatedTimestamp ?createdTimestamp ?targetApplications
        ?triggerValue ?triggerType ?disabled ?name ?sipRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let targetApplications =
        field_map json__ "TargetApplications"
          SipRuleTargetApplicationList.of_json in
      let triggerValue =
        field_map json__ "TriggerValue" NonEmptyString.of_json in
      let triggerType =
        field_map json__ "TriggerType" SipRuleTriggerType.of_json in
      let disabled = field_map json__ "Disabled" Boolean.of_json in
      let name = field_map json__ "Name" SipRuleName.of_json in
      let sipRuleId = field_map json__ "SipRuleId" NonEmptyString.of_json in
      make ?updatedTimestamp ?createdTimestamp ?targetApplications
        ?triggerValue ?triggerType ?disabled ?name ?sipRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of a SIP rule, including name, triggers, and target applications. An AWS account can have multiple SIP rules."]
module SipMediaApplication =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t option
        [@ocaml.doc "A SIP media application's ID."];
      awsRegion: String_.t option
        [@ocaml.doc
          "The AWS Region in which the SIP media application is created."];
      name: SipMediaApplicationName.t option
        [@ocaml.doc "The SIP media application's name."];
      endpoints: SipMediaApplicationEndpointList.t option
        [@ocaml.doc
          "List of endpoints for a SIP media application. Currently, only one endpoint per SIP media application is permitted."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The SIP media application creation timestamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the SIP media application was updated."];
      sipMediaApplicationArn: NonEmptyString.t option
        [@ocaml.doc "The ARN of the SIP media application."]}
    let make ?sipMediaApplicationId =
      fun ?awsRegion ->
        fun ?name ->
          fun ?endpoints ->
            fun ?createdTimestamp ->
              fun ?updatedTimestamp ->
                fun ?sipMediaApplicationArn ->
                  fun () ->
                    {
                      sipMediaApplicationId;
                      awsRegion;
                      name;
                      endpoints;
                      createdTimestamp;
                      updatedTimestamp;
                      sipMediaApplicationArn
                    }
    let to_value x =
      structure_to_value
        [("SipMediaApplicationId",
           (Option.map x.sipMediaApplicationId ~f:NonEmptyString.to_value));
        ("AwsRegion", (Option.map x.awsRegion ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:SipMediaApplicationName.to_value));
        ("Endpoints",
          (Option.map x.endpoints ~f:SipMediaApplicationEndpointList.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("SipMediaApplicationArn",
          (Option.map x.sipMediaApplicationArn ~f:NonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationArn =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationArn") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let endpoints =
        (Option.map ~f:SipMediaApplicationEndpointList.of_xml)
          (Xml.child xml_arg0 "Endpoints") in
      let name =
        (Option.map ~f:SipMediaApplicationName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let awsRegion =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AwsRegion") in
      let sipMediaApplicationId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationId") in
      make ?sipMediaApplicationArn ?updatedTimestamp ?createdTimestamp
        ?endpoints ?name ?awsRegion ?sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationArn =
        field_map json__ "SipMediaApplicationArn" NonEmptyString.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let endpoints =
        field_map json__ "Endpoints" SipMediaApplicationEndpointList.of_json in
      let name = field_map json__ "Name" SipMediaApplicationName.of_json in
      let awsRegion = field_map json__ "AwsRegion" String_.of_json in
      let sipMediaApplicationId =
        field_map json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ?sipMediaApplicationArn ?updatedTimestamp ?createdTimestamp
        ?endpoints ?name ?awsRegion ?sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The details of the SIP media application, including name and endpoints. An AWS account can have multiple SIP media applications."]
module ProxySession =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t option
        [@ocaml.doc "The Voice Connector ID."];
      proxySessionId: NonEmptyString128.t option
        [@ocaml.doc "The proxy session ID."];
      name: String128.t option [@ocaml.doc "The proxy session name."];
      status: ProxySessionStatus.t option
        [@ocaml.doc "The proxy session status."];
      expiryMinutes: PositiveInteger.t option
        [@ocaml.doc "The number of minutes allowed for the proxy session."];
      capabilities: CapabilityList.t option
        [@ocaml.doc "The proxy session capabilities."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The created time stamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The updated time stamp, in ISO 8601 format."];
      endedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The ended time stamp, in ISO 8601 format."];
      participants: Participants.t option
        [@ocaml.doc "The proxy session participants."];
      numberSelectionBehavior: NumberSelectionBehavior.t option
        [@ocaml.doc
          "The preference for proxy phone number reuse, or stickiness, between the same participants across sessions."];
      geoMatchLevel: GeoMatchLevel.t option
        [@ocaml.doc
          "The preference for matching the country or area code of the proxy phone number with that of the first participant."];
      geoMatchParams: GeoMatchParams.t option
        [@ocaml.doc "The country and area code for the proxy phone number."]}
    let make ?voiceConnectorId =
      fun ?proxySessionId ->
        fun ?name ->
          fun ?status ->
            fun ?expiryMinutes ->
              fun ?capabilities ->
                fun ?createdTimestamp ->
                  fun ?updatedTimestamp ->
                    fun ?endedTimestamp ->
                      fun ?participants ->
                        fun ?numberSelectionBehavior ->
                          fun ?geoMatchLevel ->
                            fun ?geoMatchParams ->
                              fun () ->
                                {
                                  voiceConnectorId;
                                  proxySessionId;
                                  name;
                                  status;
                                  expiryMinutes;
                                  capabilities;
                                  createdTimestamp;
                                  updatedTimestamp;
                                  endedTimestamp;
                                  participants;
                                  numberSelectionBehavior;
                                  geoMatchLevel;
                                  geoMatchParams
                                }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Option.map x.voiceConnectorId ~f:NonEmptyString128.to_value));
        ("ProxySessionId",
          (Option.map x.proxySessionId ~f:NonEmptyString128.to_value));
        ("Name", (Option.map x.name ~f:String128.to_value));
        ("Status", (Option.map x.status ~f:ProxySessionStatus.to_value));
        ("ExpiryMinutes",
          (Option.map x.expiryMinutes ~f:PositiveInteger.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:CapabilityList.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("EndedTimestamp",
          (Option.map x.endedTimestamp ~f:Iso8601Timestamp.to_value));
        ("Participants",
          (Option.map x.participants ~f:Participants.to_value));
        ("NumberSelectionBehavior",
          (Option.map x.numberSelectionBehavior
             ~f:NumberSelectionBehavior.to_value));
        ("GeoMatchLevel",
          (Option.map x.geoMatchLevel ~f:GeoMatchLevel.to_value));
        ("GeoMatchParams",
          (Option.map x.geoMatchParams ~f:GeoMatchParams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let geoMatchParams =
        (Option.map ~f:GeoMatchParams.of_xml)
          (Xml.child xml_arg0 "GeoMatchParams") in
      let geoMatchLevel =
        (Option.map ~f:GeoMatchLevel.of_xml)
          (Xml.child xml_arg0 "GeoMatchLevel") in
      let numberSelectionBehavior =
        (Option.map ~f:NumberSelectionBehavior.of_xml)
          (Xml.child xml_arg0 "NumberSelectionBehavior") in
      let participants =
        (Option.map ~f:Participants.of_xml)
          (Xml.child xml_arg0 "Participants") in
      let endedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "EndedTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let capabilities =
        (Option.map ~f:CapabilityList.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let expiryMinutes =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "ExpiryMinutes") in
      let status =
        (Option.map ~f:ProxySessionStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let name = (Option.map ~f:String128.of_xml) (Xml.child xml_arg0 "Name") in
      let proxySessionId =
        (Option.map ~f:NonEmptyString128.of_xml)
          (Xml.child xml_arg0 "ProxySessionId") in
      let voiceConnectorId =
        (Option.map ~f:NonEmptyString128.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorId") in
      make ?geoMatchParams ?geoMatchLevel ?numberSelectionBehavior
        ?participants ?endedTimestamp ?updatedTimestamp ?createdTimestamp
        ?capabilities ?expiryMinutes ?status ?name ?proxySessionId
        ?voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let geoMatchParams =
        field_map json__ "GeoMatchParams" GeoMatchParams.of_json in
      let geoMatchLevel =
        field_map json__ "GeoMatchLevel" GeoMatchLevel.of_json in
      let numberSelectionBehavior =
        field_map json__ "NumberSelectionBehavior"
          NumberSelectionBehavior.of_json in
      let participants = field_map json__ "Participants" Participants.of_json in
      let endedTimestamp =
        field_map json__ "EndedTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let capabilities =
        field_map json__ "Capabilities" CapabilityList.of_json in
      let expiryMinutes =
        field_map json__ "ExpiryMinutes" PositiveInteger.of_json in
      let status = field_map json__ "Status" ProxySessionStatus.of_json in
      let name = field_map json__ "Name" String128.of_json in
      let proxySessionId =
        field_map json__ "ProxySessionId" NonEmptyString128.of_json in
      let voiceConnectorId =
        field_map json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?geoMatchParams ?geoMatchLevel ?numberSelectionBehavior
        ?participants ?endedTimestamp ?updatedTimestamp ?createdTimestamp
        ?capabilities ?expiryMinutes ?status ?name ?proxySessionId
        ?voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The proxy session for an Amazon Chime SDK Voice Connector."]
module PhoneNumber =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t option
        [@ocaml.doc "The phone number's ID."];
      e164PhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The phone number, in E.164 format."];
      country: Alpha2CountryCode.t option
        [@ocaml.doc
          "The phone number's country. Format: ISO 3166-1 alpha-2."];
      type_: PhoneNumberType.t option [@ocaml.doc "The phone number's type."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The phone number's product type."];
      status: PhoneNumberStatus.t option
        [@ocaml.doc "The phone number's status."];
      capabilities: PhoneNumberCapabilities.t option
        [@ocaml.doc "The phone number's capabilities."];
      associations: PhoneNumberAssociationList.t option
        [@ocaml.doc "The phone number's associations."];
      callingName: CallingName.t option
        [@ocaml.doc
          "The outbound calling name associated with the phone number."];
      callingNameStatus: CallingNameStatus.t option
        [@ocaml.doc "The outbound calling name status."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The phone number creation timestamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The updated phone number timestamp, in ISO 8601 format."];
      deletionTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The deleted phone number timestamp, in ISO 8601 format."];
      orderId: GuidString.t option
        [@ocaml.doc "The phone number's order ID."];
      name: PhoneNumberName.t option
        [@ocaml.doc "The name of the phone number."]}
    let make ?phoneNumberId =
      fun ?e164PhoneNumber ->
        fun ?country ->
          fun ?type_ ->
            fun ?productType ->
              fun ?status ->
                fun ?capabilities ->
                  fun ?associations ->
                    fun ?callingName ->
                      fun ?callingNameStatus ->
                        fun ?createdTimestamp ->
                          fun ?updatedTimestamp ->
                            fun ?deletionTimestamp ->
                              fun ?orderId ->
                                fun ?name ->
                                  fun () ->
                                    {
                                      phoneNumberId;
                                      e164PhoneNumber;
                                      country;
                                      type_;
                                      productType;
                                      status;
                                      capabilities;
                                      associations;
                                      callingName;
                                      callingNameStatus;
                                      createdTimestamp;
                                      updatedTimestamp;
                                      deletionTimestamp;
                                      orderId;
                                      name
                                    }
    let to_value x =
      structure_to_value
        [("PhoneNumberId",
           (Option.map x.phoneNumberId ~f:SensitiveNonEmptyString.to_value));
        ("E164PhoneNumber",
          (Option.map x.e164PhoneNumber ~f:E164PhoneNumber.to_value));
        ("Country", (Option.map x.country ~f:Alpha2CountryCode.to_value));
        ("Type", (Option.map x.type_ ~f:PhoneNumberType.to_value));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("Status", (Option.map x.status ~f:PhoneNumberStatus.to_value));
        ("Capabilities",
          (Option.map x.capabilities ~f:PhoneNumberCapabilities.to_value));
        ("Associations",
          (Option.map x.associations ~f:PhoneNumberAssociationList.to_value));
        ("CallingName", (Option.map x.callingName ~f:CallingName.to_value));
        ("CallingNameStatus",
          (Option.map x.callingNameStatus ~f:CallingNameStatus.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("DeletionTimestamp",
          (Option.map x.deletionTimestamp ~f:Iso8601Timestamp.to_value));
        ("OrderId", (Option.map x.orderId ~f:GuidString.to_value));
        ("Name", (Option.map x.name ~f:PhoneNumberName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:PhoneNumberName.of_xml) (Xml.child xml_arg0 "Name") in
      let orderId =
        (Option.map ~f:GuidString.of_xml) (Xml.child xml_arg0 "OrderId") in
      let deletionTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "DeletionTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let callingNameStatus =
        (Option.map ~f:CallingNameStatus.of_xml)
          (Xml.child xml_arg0 "CallingNameStatus") in
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      let associations =
        (Option.map ~f:PhoneNumberAssociationList.of_xml)
          (Xml.child xml_arg0 "Associations") in
      let capabilities =
        (Option.map ~f:PhoneNumberCapabilities.of_xml)
          (Xml.child xml_arg0 "Capabilities") in
      let status =
        (Option.map ~f:PhoneNumberStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let type_ =
        (Option.map ~f:PhoneNumberType.of_xml) (Xml.child xml_arg0 "Type") in
      let country =
        (Option.map ~f:Alpha2CountryCode.of_xml)
          (Xml.child xml_arg0 "Country") in
      let e164PhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumber") in
      let phoneNumberId =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "PhoneNumberId") in
      make ?name ?orderId ?deletionTimestamp ?updatedTimestamp
        ?createdTimestamp ?callingNameStatus ?callingName ?associations
        ?capabilities ?status ?productType ?type_ ?country ?e164PhoneNumber
        ?phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" PhoneNumberName.of_json in
      let orderId = field_map json__ "OrderId" GuidString.of_json in
      let deletionTimestamp =
        field_map json__ "DeletionTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let callingNameStatus =
        field_map json__ "CallingNameStatus" CallingNameStatus.of_json in
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      let associations =
        field_map json__ "Associations" PhoneNumberAssociationList.of_json in
      let capabilities =
        field_map json__ "Capabilities" PhoneNumberCapabilities.of_json in
      let status = field_map json__ "Status" PhoneNumberStatus.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let type_ = field_map json__ "Type" PhoneNumberType.of_json in
      let country = field_map json__ "Country" Alpha2CountryCode.of_json in
      let e164PhoneNumber =
        field_map json__ "E164PhoneNumber" E164PhoneNumber.of_json in
      let phoneNumberId =
        field_map json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ?name ?orderId ?deletionTimestamp ?updatedTimestamp
        ?createdTimestamp ?callingNameStatus ?callingName ?associations
        ?capabilities ?status ?productType ?type_ ?country ?e164PhoneNumber
        ?phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A phone number used to call an Amazon Chime SDK Voice Connector."]
module PhoneNumberOrder =
  struct
    type nonrec t =
      {
      phoneNumberOrderId: GuidString.t option
        [@ocaml.doc "The ID of the phone order."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The phone number order product type."];
      status: PhoneNumberOrderStatus.t option
        [@ocaml.doc "The status of the phone number order."];
      orderType: PhoneNumberOrderType.t option
        [@ocaml.doc
          "The type of phone number being ordered, local or toll-free."];
      orderedPhoneNumbers: OrderedPhoneNumberList.t option
        [@ocaml.doc
          "The ordered phone number details, such as the phone number in E.164 format and the phone number status."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The phone number order creation time stamp, in ISO 8601 format."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The updated phone number order time stamp, in ISO 8601 format."];
      focDate: Iso8601Timestamp.t option
        [@ocaml.doc
          "The Firm Order Commitment (FOC) date for phone number porting orders. This field is null if a phone number order is not a porting order."]}
    let make ?phoneNumberOrderId =
      fun ?productType ->
        fun ?status ->
          fun ?orderType ->
            fun ?orderedPhoneNumbers ->
              fun ?createdTimestamp ->
                fun ?updatedTimestamp ->
                  fun ?focDate ->
                    fun () ->
                      {
                        phoneNumberOrderId;
                        productType;
                        status;
                        orderType;
                        orderedPhoneNumbers;
                        createdTimestamp;
                        updatedTimestamp;
                        focDate
                      }
    let to_value x =
      structure_to_value
        [("PhoneNumberOrderId",
           (Option.map x.phoneNumberOrderId ~f:GuidString.to_value));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("Status", (Option.map x.status ~f:PhoneNumberOrderStatus.to_value));
        ("OrderType",
          (Option.map x.orderType ~f:PhoneNumberOrderType.to_value));
        ("OrderedPhoneNumbers",
          (Option.map x.orderedPhoneNumbers
             ~f:OrderedPhoneNumberList.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("FocDate", (Option.map x.focDate ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let focDate =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "FocDate") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let orderedPhoneNumbers =
        (Option.map ~f:OrderedPhoneNumberList.of_xml)
          (Xml.child xml_arg0 "OrderedPhoneNumbers") in
      let orderType =
        (Option.map ~f:PhoneNumberOrderType.of_xml)
          (Xml.child xml_arg0 "OrderType") in
      let status =
        (Option.map ~f:PhoneNumberOrderStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let phoneNumberOrderId =
        (Option.map ~f:GuidString.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrderId") in
      make ?focDate ?updatedTimestamp ?createdTimestamp ?orderedPhoneNumbers
        ?orderType ?status ?productType ?phoneNumberOrderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let focDate = field_map json__ "FocDate" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let orderedPhoneNumbers =
        field_map json__ "OrderedPhoneNumbers" OrderedPhoneNumberList.of_json in
      let orderType =
        field_map json__ "OrderType" PhoneNumberOrderType.of_json in
      let status = field_map json__ "Status" PhoneNumberOrderStatus.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let phoneNumberOrderId =
        field_map json__ "PhoneNumberOrderId" GuidString.of_json in
      make ?focDate ?updatedTimestamp ?createdTimestamp ?orderedPhoneNumbers
        ?orderType ?status ?productType ?phoneNumberOrderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of an Amazon Chime SDK phone number order."]
module PhoneNumberError =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t option
        [@ocaml.doc "The phone number ID for which the action failed."];
      errorCode: ErrorCode.t option [@ocaml.doc "The error code."];
      errorMessage: String_.t option [@ocaml.doc "The error message."]}
    let make ?phoneNumberId =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { phoneNumberId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("PhoneNumberId",
           (Option.map x.phoneNumberId ~f:SensitiveNonEmptyString.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      let phoneNumberId =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "PhoneNumberId") in
      make ?errorMessage ?errorCode ?phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" String_.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      let phoneNumberId =
        field_map json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ?errorMessage ?errorCode ?phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If a phone number action fails for one or more of the phone numbers in a request, a list of the failed phone numbers is returned, along with error codes and error messages."]
module UpdatePhoneNumberRequestItem =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t
        [@ocaml.doc "The phone number ID to update."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The product type to update."];
      callingName: CallingName.t option
        [@ocaml.doc "The outbound calling name to update."];
      name: PhoneNumberName.t option
        [@ocaml.doc "The name of the phone number."]}
    let context_ = "UpdatePhoneNumberRequestItem"
    let make ?productType =
      fun ?callingName ->
        fun ?name ->
          fun ~phoneNumberId ->
            fun () -> { productType; callingName; name; phoneNumberId }
    let to_value x =
      structure_to_value
        [("PhoneNumberId",
           (Some (SensitiveNonEmptyString.to_value x.phoneNumberId)));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("CallingName", (Option.map x.callingName ~f:CallingName.to_value));
        ("Name", (Option.map x.name ~f:PhoneNumberName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:PhoneNumberName.of_xml) (Xml.child xml_arg0 "Name") in
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let phoneNumberId =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumberId") in
      make ?name ?callingName ?productType ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" PhoneNumberName.of_json in
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ?name ?callingName ?productType ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The phone number ID, product type, or calling name fields to update, used with the BatchUpdatePhoneNumber and UpdatePhoneNumber actions."]
module AccessDeniedException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "You don't have the permissions needed to run this action."]
module Address =
  struct
    type nonrec t =
      {
      streetName: SensitiveNonEmptyString.t option
        [@ocaml.doc "The address street, such as 8th Avenue."];
      streetSuffix: SensitiveNonEmptyString.t option
        [@ocaml.doc "The address suffix, such as the N in 8th Avenue N."];
      postDirectional: SensitiveNonEmptyString.t option
        [@ocaml.doc
          "An address suffix location, such as the S. Unit A in Central Park S. Unit A."];
      preDirectional: SensitiveNonEmptyString.t option
        [@ocaml.doc
          "An address prefix location, such as the N in N. Third St."];
      streetNumber: SensitiveNonEmptyString.t option
        [@ocaml.doc "The numeric portion of an address."];
      city: SensitiveNonEmptyString.t option
        [@ocaml.doc "The city of an address."];
      state: SensitiveNonEmptyString.t option
        [@ocaml.doc "The state of an address."];
      postalCode: SensitiveNonEmptyString.t option
        [@ocaml.doc "The postal code of an address."];
      postalCodePlus4: SensitiveNonEmptyString.t option
        [@ocaml.doc "The zip + 4 or postal code + 4 of an address."];
      country: SensitiveNonEmptyString.t option
        [@ocaml.doc "The country of an address."]}
    let make ?streetName =
      fun ?streetSuffix ->
        fun ?postDirectional ->
          fun ?preDirectional ->
            fun ?streetNumber ->
              fun ?city ->
                fun ?state ->
                  fun ?postalCode ->
                    fun ?postalCodePlus4 ->
                      fun ?country ->
                        fun () ->
                          {
                            streetName;
                            streetSuffix;
                            postDirectional;
                            preDirectional;
                            streetNumber;
                            city;
                            state;
                            postalCode;
                            postalCodePlus4;
                            country
                          }
    let to_value x =
      structure_to_value
        [("streetName",
           (Option.map x.streetName ~f:SensitiveNonEmptyString.to_value));
        ("streetSuffix",
          (Option.map x.streetSuffix ~f:SensitiveNonEmptyString.to_value));
        ("postDirectional",
          (Option.map x.postDirectional ~f:SensitiveNonEmptyString.to_value));
        ("preDirectional",
          (Option.map x.preDirectional ~f:SensitiveNonEmptyString.to_value));
        ("streetNumber",
          (Option.map x.streetNumber ~f:SensitiveNonEmptyString.to_value));
        ("city", (Option.map x.city ~f:SensitiveNonEmptyString.to_value));
        ("state", (Option.map x.state ~f:SensitiveNonEmptyString.to_value));
        ("postalCode",
          (Option.map x.postalCode ~f:SensitiveNonEmptyString.to_value));
        ("postalCodePlus4",
          (Option.map x.postalCodePlus4 ~f:SensitiveNonEmptyString.to_value));
        ("country",
          (Option.map x.country ~f:SensitiveNonEmptyString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let country =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "country") in
      let postalCodePlus4 =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "postalCodePlus4") in
      let postalCode =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "postalCode") in
      let state =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "state") in
      let city =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "city") in
      let streetNumber =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "streetNumber") in
      let preDirectional =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "preDirectional") in
      let postDirectional =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "postDirectional") in
      let streetSuffix =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "streetSuffix") in
      let streetName =
        (Option.map ~f:SensitiveNonEmptyString.of_xml)
          (Xml.child xml_arg0 "streetName") in
      make ?country ?postalCodePlus4 ?postalCode ?state ?city ?streetNumber
        ?preDirectional ?postDirectional ?streetSuffix ?streetName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let country =
        field_map json__ "country" SensitiveNonEmptyString.of_json in
      let postalCodePlus4 =
        field_map json__ "postalCodePlus4" SensitiveNonEmptyString.of_json in
      let postalCode =
        field_map json__ "postalCode" SensitiveNonEmptyString.of_json in
      let state = field_map json__ "state" SensitiveNonEmptyString.of_json in
      let city = field_map json__ "city" SensitiveNonEmptyString.of_json in
      let streetNumber =
        field_map json__ "streetNumber" SensitiveNonEmptyString.of_json in
      let preDirectional =
        field_map json__ "preDirectional" SensitiveNonEmptyString.of_json in
      let postDirectional =
        field_map json__ "postDirectional" SensitiveNonEmptyString.of_json in
      let streetSuffix =
        field_map json__ "streetSuffix" SensitiveNonEmptyString.of_json in
      let streetName =
        field_map json__ "streetName" SensitiveNonEmptyString.of_json in
      make ?country ?postalCodePlus4 ?postalCode ?state ?city ?streetNumber
        ?preDirectional ?postDirectional ?streetSuffix ?streetName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A validated address."]
module BadRequestException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "The input parameters don't match the service's restrictions."]
module CandidateAddressList =
  struct
    type nonrec t = CandidateAddress.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CandidateAddress.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:CandidateAddress.of_xml)
    let of_json j =
      list_of_json ~kind:"CandidateAddressList"
        ~of_json:CandidateAddress.of_json j
    let to_json v = composed_to_json to_value v
  end
module ForbiddenException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "The client is permanently forbidden from making the request."]
module NotFoundException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "The requested resource couldn't be found."]
module ServiceFailureException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "The service encountered an unexpected error."]
module ServiceUnavailableException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "The service is currently unavailable."]
module ThrottledClientException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "The number of customer requests exceeds the request rate limit."]
module UnauthorizedClientException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "The client isn't authorized to request a resource."]
module ValidationResult =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2) >>= (fun () -> check_int_min i ~min:0));
        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 ValidationResult" 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 ConflictException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "Multiple instances of the same request were made simultaneously."]
module GoneException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "Access to the target resource is no longer available at the origin server. This condition is likely to be permanent."]
module VoiceProfile =
  struct
    type nonrec t =
      {
      voiceProfileId: NonEmptyString256.t option
        [@ocaml.doc "The ID of the voice profile."];
      voiceProfileArn: Arn.t option
        [@ocaml.doc "The ARN of the voice profile."];
      voiceProfileDomainId: NonEmptyString256.t option
        [@ocaml.doc "The ID of the domain that contains the voice profile."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the voice profile was created and enrolled."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which the voice profile was last updated."];
      expirationTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which a voice profile expires unless you re-enroll the caller via the UpdateVoiceProfile API."]}
    let make ?voiceProfileId =
      fun ?voiceProfileArn ->
        fun ?voiceProfileDomainId ->
          fun ?createdTimestamp ->
            fun ?updatedTimestamp ->
              fun ?expirationTimestamp ->
                fun () ->
                  {
                    voiceProfileId;
                    voiceProfileArn;
                    voiceProfileDomainId;
                    createdTimestamp;
                    updatedTimestamp;
                    expirationTimestamp
                  }
    let to_value x =
      structure_to_value
        [("VoiceProfileId",
           (Option.map x.voiceProfileId ~f:NonEmptyString256.to_value));
        ("VoiceProfileArn", (Option.map x.voiceProfileArn ~f:Arn.to_value));
        ("VoiceProfileDomainId",
          (Option.map x.voiceProfileDomainId ~f:NonEmptyString256.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("ExpirationTimestamp",
          (Option.map x.expirationTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expirationTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let voiceProfileDomainId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomainId") in
      let voiceProfileArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "VoiceProfileArn") in
      let voiceProfileId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileId") in
      make ?expirationTimestamp ?updatedTimestamp ?createdTimestamp
        ?voiceProfileDomainId ?voiceProfileArn ?voiceProfileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expirationTimestamp =
        field_map json__ "ExpirationTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let voiceProfileDomainId =
        field_map json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      let voiceProfileArn = field_map json__ "VoiceProfileArn" Arn.of_json in
      let voiceProfileId =
        field_map json__ "VoiceProfileId" NonEmptyString256.of_json in
      make ?expirationTimestamp ?updatedTimestamp ?createdTimestamp
        ?voiceProfileDomainId ?voiceProfileArn ?voiceProfileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The combination of a voice print and caller ID."]
module VoiceProfileDomain =
  struct
    type nonrec t =
      {
      voiceProfileDomainId: NonEmptyString256.t option
        [@ocaml.doc "The ID of the voice profile domain."];
      voiceProfileDomainArn: Arn.t option
        [@ocaml.doc
          "The voice profile domain's Amazon Resource Number (ARN)."];
      name: VoiceProfileDomainName.t option
        [@ocaml.doc "The name of the voice profile domain."];
      description: VoiceProfileDomainDescription.t option
        [@ocaml.doc "The description of the voice profile domain."];
      serverSideEncryptionConfiguration:
        ServerSideEncryptionConfiguration.t option
        [@ocaml.doc
          "A structure that contains the configuration settings for server-side encryption."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which the voice profile domain was created."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which the voice profile was last updated."]}
    let make ?voiceProfileDomainId =
      fun ?voiceProfileDomainArn ->
        fun ?name ->
          fun ?description ->
            fun ?serverSideEncryptionConfiguration ->
              fun ?createdTimestamp ->
                fun ?updatedTimestamp ->
                  fun () ->
                    {
                      voiceProfileDomainId;
                      voiceProfileDomainArn;
                      name;
                      description;
                      serverSideEncryptionConfiguration;
                      createdTimestamp;
                      updatedTimestamp
                    }
    let to_value x =
      structure_to_value
        [("VoiceProfileDomainId",
           (Option.map x.voiceProfileDomainId ~f:NonEmptyString256.to_value));
        ("VoiceProfileDomainArn",
          (Option.map x.voiceProfileDomainArn ~f:Arn.to_value));
        ("Name", (Option.map x.name ~f:VoiceProfileDomainName.to_value));
        ("Description",
          (Option.map x.description ~f:VoiceProfileDomainDescription.to_value));
        ("ServerSideEncryptionConfiguration",
          (Option.map x.serverSideEncryptionConfiguration
             ~f:ServerSideEncryptionConfiguration.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let serverSideEncryptionConfiguration =
        (Option.map ~f:ServerSideEncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "ServerSideEncryptionConfiguration") in
      let description =
        (Option.map ~f:VoiceProfileDomainDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:VoiceProfileDomainName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let voiceProfileDomainArn =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomainArn") in
      let voiceProfileDomainId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomainId") in
      make ?updatedTimestamp ?createdTimestamp
        ?serverSideEncryptionConfiguration ?description ?name
        ?voiceProfileDomainArn ?voiceProfileDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let serverSideEncryptionConfiguration =
        field_map json__ "ServerSideEncryptionConfiguration"
          ServerSideEncryptionConfiguration.of_json in
      let description =
        field_map json__ "Description" VoiceProfileDomainDescription.of_json in
      let name = field_map json__ "Name" VoiceProfileDomainName.of_json in
      let voiceProfileDomainArn =
        field_map json__ "VoiceProfileDomainArn" Arn.of_json in
      let voiceProfileDomainId =
        field_map json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      make ?updatedTimestamp ?createdTimestamp
        ?serverSideEncryptionConfiguration ?description ?name
        ?voiceProfileDomainArn ?voiceProfileDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A collection of voice profiles."]
module ResourceLimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    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 "The request exceeds the resource limit."]
module SipMediaApplicationCall =
  struct
    type nonrec t =
      {
      transactionId: GuidString.t option
        [@ocaml.doc "The call's transaction ID."]}
    let make ?transactionId = fun () -> { transactionId }
    let to_value x =
      structure_to_value
        [("TransactionId",
           (Option.map x.transactionId ~f:GuidString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transactionId =
        (Option.map ~f:GuidString.of_xml)
          (Xml.child xml_arg0 "TransactionId") in
      make ?transactionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transactionId = field_map json__ "TransactionId" GuidString.of_json in
      make ?transactionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A Call instance for a SIP media application."]
module SMAUpdateCallArgumentsMap =
  struct
    type nonrec t = (SensitiveString.t * SensitiveString.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_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 ->
                            ((SensitiveString.of_string chopped),
                              (SensitiveString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SensitiveString.to_value x) |>
                    (fun x ->
                       (SensitiveString.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:SensitiveString.of_string
        ~of_json:SensitiveString.of_json j
    let to_json v = composed_to_json to_value v
  end
module VoiceConnectorSettings =
  struct
    type nonrec t =
      {
      cdrBucket: String_.t option
        [@ocaml.doc
          "The S3 bucket that stores the Voice Connector's call detail records."]}
    let make ?cdrBucket = fun () -> { cdrBucket }
    let to_value x =
      structure_to_value
        [("CdrBucket", (Option.map x.cdrBucket ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cdrBucket =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "CdrBucket") in
      make ?cdrBucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cdrBucket = field_map json__ "CdrBucket" String_.of_json in
      make ?cdrBucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Chime SDK Voice Connector settings. Includes any Amazon S3 buckets designated for storing call detail records."]
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: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: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 TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (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:Tag.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:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module UnprocessableEntityException =
  struct
    type nonrec t = unit
    let make () = ()
    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
       "A well-formed request couldn't be followed due to semantic errors."]
module VoiceToneAnalysisTask =
  struct
    type nonrec t =
      {
      voiceToneAnalysisTaskId: NonEmptyString256.t option
        [@ocaml.doc "The ID of the voice tone analysis task."];
      voiceToneAnalysisTaskStatus: NonEmptyString.t option
        [@ocaml.doc
          "The status of a voice tone analysis task, IN_QUEUE, IN_PROGRESS, PARTIAL_SUCCESS, SUCCEEDED, FAILED, or STOPPED."];
      callDetails: CallDetails.t option
        [@ocaml.doc "The call details of a voice tone analysis task."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which a voice tone analysis task was created."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The time at which a voice tone analysis task was updated."];
      startedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which a voice tone analysis task started."];
      statusMessage: String_.t option
        [@ocaml.doc "The status of a voice tone analysis task."]}
    let make ?voiceToneAnalysisTaskId =
      fun ?voiceToneAnalysisTaskStatus ->
        fun ?callDetails ->
          fun ?createdTimestamp ->
            fun ?updatedTimestamp ->
              fun ?startedTimestamp ->
                fun ?statusMessage ->
                  fun () ->
                    {
                      voiceToneAnalysisTaskId;
                      voiceToneAnalysisTaskStatus;
                      callDetails;
                      createdTimestamp;
                      updatedTimestamp;
                      startedTimestamp;
                      statusMessage
                    }
    let to_value x =
      structure_to_value
        [("VoiceToneAnalysisTaskId",
           (Option.map x.voiceToneAnalysisTaskId
              ~f:NonEmptyString256.to_value));
        ("VoiceToneAnalysisTaskStatus",
          (Option.map x.voiceToneAnalysisTaskStatus
             ~f:NonEmptyString.to_value));
        ("CallDetails", (Option.map x.callDetails ~f:CallDetails.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("StartedTimestamp",
          (Option.map x.startedTimestamp ~f:Iso8601Timestamp.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 startedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "StartedTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let callDetails =
        (Option.map ~f:CallDetails.of_xml) (Xml.child xml_arg0 "CallDetails") in
      let voiceToneAnalysisTaskStatus =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "VoiceToneAnalysisTaskStatus") in
      let voiceToneAnalysisTaskId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "VoiceToneAnalysisTaskId") in
      make ?statusMessage ?startedTimestamp ?updatedTimestamp
        ?createdTimestamp ?callDetails ?voiceToneAnalysisTaskStatus
        ?voiceToneAnalysisTaskId ()
    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 startedTimestamp =
        field_map json__ "StartedTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let callDetails = field_map json__ "CallDetails" CallDetails.of_json in
      let voiceToneAnalysisTaskStatus =
        field_map json__ "VoiceToneAnalysisTaskStatus" NonEmptyString.of_json in
      let voiceToneAnalysisTaskId =
        field_map json__ "VoiceToneAnalysisTaskId" NonEmptyString256.of_json in
      make ?statusMessage ?startedTimestamp ?updatedTimestamp
        ?createdTimestamp ?callDetails ?voiceToneAnalysisTaskStatus
        ?voiceToneAnalysisTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of an asynchronous request to perform voice tone analysis on a Voice Connector call."]
module ClientRequestId =
  struct
    type nonrec t = string
    let context_ = "ClientRequestId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[-_a-zA-Z0-9]*${2,64}$");
        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:"ClientRequestId" j
    let to_json = simple_to_json to_value
  end
module LanguageCode =
  struct
    type nonrec t =
      | En_US 
      | Non_static_id of string 
    let make i = i
    let to_string = function | En_US -> "en-US" | Non_static_id s -> s
    let of_string = function | "en-US" -> En_US | 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 LanguageCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LanguageCode" j)
    let to_json = simple_to_json to_value
  end
module SpeakerSearchTask =
  struct
    type nonrec t =
      {
      speakerSearchTaskId: NonEmptyString256.t option
        [@ocaml.doc "The speaker search task ID."];
      speakerSearchTaskStatus: NonEmptyString.t option
        [@ocaml.doc
          "The status of the speaker search task, IN_QUEUE, IN_PROGRESS, PARTIAL_SUCCESS, SUCCEEDED, FAILED, or STOPPED."];
      callDetails: CallDetails.t option
        [@ocaml.doc "The call details of a speaker search task."];
      speakerSearchDetails: SpeakerSearchDetails.t option
        [@ocaml.doc "The details of a speaker search task."];
      createdTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which a speaker search task was created."];
      updatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which a speaker search task was updated."];
      startedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The time at which the speaker search task began."];
      statusMessage: String_.t option
        [@ocaml.doc
          "A detailed message about the status of a speaker search."]}
    let make ?speakerSearchTaskId =
      fun ?speakerSearchTaskStatus ->
        fun ?callDetails ->
          fun ?speakerSearchDetails ->
            fun ?createdTimestamp ->
              fun ?updatedTimestamp ->
                fun ?startedTimestamp ->
                  fun ?statusMessage ->
                    fun () ->
                      {
                        speakerSearchTaskId;
                        speakerSearchTaskStatus;
                        callDetails;
                        speakerSearchDetails;
                        createdTimestamp;
                        updatedTimestamp;
                        startedTimestamp;
                        statusMessage
                      }
    let to_value x =
      structure_to_value
        [("SpeakerSearchTaskId",
           (Option.map x.speakerSearchTaskId ~f:NonEmptyString256.to_value));
        ("SpeakerSearchTaskStatus",
          (Option.map x.speakerSearchTaskStatus ~f:NonEmptyString.to_value));
        ("CallDetails", (Option.map x.callDetails ~f:CallDetails.to_value));
        ("SpeakerSearchDetails",
          (Option.map x.speakerSearchDetails ~f:SpeakerSearchDetails.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:Iso8601Timestamp.to_value));
        ("UpdatedTimestamp",
          (Option.map x.updatedTimestamp ~f:Iso8601Timestamp.to_value));
        ("StartedTimestamp",
          (Option.map x.startedTimestamp ~f:Iso8601Timestamp.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 startedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "StartedTimestamp") in
      let updatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "UpdatedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let speakerSearchDetails =
        (Option.map ~f:SpeakerSearchDetails.of_xml)
          (Xml.child xml_arg0 "SpeakerSearchDetails") in
      let callDetails =
        (Option.map ~f:CallDetails.of_xml) (Xml.child xml_arg0 "CallDetails") in
      let speakerSearchTaskStatus =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "SpeakerSearchTaskStatus") in
      let speakerSearchTaskId =
        (Option.map ~f:NonEmptyString256.of_xml)
          (Xml.child xml_arg0 "SpeakerSearchTaskId") in
      make ?statusMessage ?startedTimestamp ?updatedTimestamp
        ?createdTimestamp ?speakerSearchDetails ?callDetails
        ?speakerSearchTaskStatus ?speakerSearchTaskId ()
    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 startedTimestamp =
        field_map json__ "StartedTimestamp" Iso8601Timestamp.of_json in
      let updatedTimestamp =
        field_map json__ "UpdatedTimestamp" Iso8601Timestamp.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" Iso8601Timestamp.of_json in
      let speakerSearchDetails =
        field_map json__ "SpeakerSearchDetails" SpeakerSearchDetails.of_json in
      let callDetails = field_map json__ "CallDetails" CallDetails.of_json in
      let speakerSearchTaskStatus =
        field_map json__ "SpeakerSearchTaskStatus" NonEmptyString.of_json in
      let speakerSearchTaskId =
        field_map json__ "SpeakerSearchTaskId" NonEmptyString256.of_json in
      make ?statusMessage ?startedTimestamp ?updatedTimestamp
        ?createdTimestamp ?speakerSearchDetails ?callDetails
        ?speakerSearchTaskStatus ?speakerSearchTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A representation of an asynchronous request to perform speaker search analysis on a Voice Connector call."]
module CallLegType =
  struct
    type nonrec t =
      | Caller 
      | Callee 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Caller -> "Caller"
      | Callee -> "Callee"
      | Non_static_id s -> s
    let of_string =
      function
      | "Caller" -> Caller
      | "Callee" -> Callee
      | 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 CallLegType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CallLegType" j)
    let to_json = simple_to_json to_value
  end
module E164PhoneNumberList =
  struct
    type nonrec t = E164PhoneNumber.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:E164PhoneNumber.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:E164PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"E164PhoneNumberList"
        ~of_json:E164PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:500) >>= (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 PhoneNumberMaxResults" 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 TollFreePrefix =
  struct
    type nonrec t = string
    let context_ = "TollFreePrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:3) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^8(00|33|44|55|66|77|88)$")));
        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:"TollFreePrefix" j
    let to_json = simple_to_json to_value
  end
module Termination =
  struct
    type nonrec t =
      {
      cpsLimit: CpsLimit.t option
        [@ocaml.doc
          "The limit on calls per second. Max value based on account service quota. Default value of 1."];
      defaultPhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc "The default outbound calling number."];
      callingRegions: CallingRegionList.t option
        [@ocaml.doc
          "The countries to which calls are allowed, in ISO 3166-1 alpha-2 format. Required."];
      cidrAllowedList: StringList.t option
        [@ocaml.doc
          "The IP addresses allowed to make calls, in CIDR format."];
      disabled: Boolean.t option
        [@ocaml.doc
          "When termination is disabled, outbound calls cannot be made."]}
    let make ?cpsLimit =
      fun ?defaultPhoneNumber ->
        fun ?callingRegions ->
          fun ?cidrAllowedList ->
            fun ?disabled ->
              fun () ->
                {
                  cpsLimit;
                  defaultPhoneNumber;
                  callingRegions;
                  cidrAllowedList;
                  disabled
                }
    let to_value x =
      structure_to_value
        [("CpsLimit", (Option.map x.cpsLimit ~f:CpsLimit.to_value));
        ("DefaultPhoneNumber",
          (Option.map x.defaultPhoneNumber ~f:E164PhoneNumber.to_value));
        ("CallingRegions",
          (Option.map x.callingRegions ~f:CallingRegionList.to_value));
        ("CidrAllowedList",
          (Option.map x.cidrAllowedList ~f:StringList.to_value));
        ("Disabled", (Option.map x.disabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Disabled") in
      let cidrAllowedList =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "CidrAllowedList") in
      let callingRegions =
        (Option.map ~f:CallingRegionList.of_xml)
          (Xml.child xml_arg0 "CallingRegions") in
      let defaultPhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "DefaultPhoneNumber") in
      let cpsLimit =
        (Option.map ~f:CpsLimit.of_xml) (Xml.child xml_arg0 "CpsLimit") in
      make ?disabled ?cidrAllowedList ?callingRegions ?defaultPhoneNumber
        ?cpsLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disabled = field_map json__ "Disabled" Boolean.of_json in
      let cidrAllowedList =
        field_map json__ "CidrAllowedList" StringList.of_json in
      let callingRegions =
        field_map json__ "CallingRegions" CallingRegionList.of_json in
      let defaultPhoneNumber =
        field_map json__ "DefaultPhoneNumber" E164PhoneNumber.of_json in
      let cpsLimit = field_map json__ "CpsLimit" CpsLimit.of_json in
      make ?disabled ?cidrAllowedList ?callingRegions ?defaultPhoneNumber
        ?cpsLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Termination settings enable SIP hosts to make outbound calls using an Amazon Chime SDK Voice Connector."]
module CredentialList =
  struct
    type nonrec t = Credential.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Credential.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:Credential.of_xml)
    let of_json j =
      list_of_json ~kind:"CredentialList" ~of_json:Credential.of_json j
    let to_json v = composed_to_json to_value v
  end
module StreamingConfiguration =
  struct
    type nonrec t =
      {
      dataRetentionInHours: DataRetentionInHours.t
        [@ocaml.doc "The amount of time, in hours, to the Kinesis data."];
      disabled: Boolean.t
        [@ocaml.doc "When true, streaming to Kinesis is off."];
      streamingNotificationTargets: StreamingNotificationTargetList.t option
        [@ocaml.doc "The streaming notification targets."];
      mediaInsightsConfiguration: MediaInsightsConfiguration.t option
        [@ocaml.doc "The call analytics configuration."]}
    let context_ = "StreamingConfiguration"
    let make ?streamingNotificationTargets =
      fun ?mediaInsightsConfiguration ->
        fun ~dataRetentionInHours ->
          fun ~disabled ->
            fun () ->
              {
                streamingNotificationTargets;
                mediaInsightsConfiguration;
                dataRetentionInHours;
                disabled
              }
    let to_value x =
      structure_to_value
        [("DataRetentionInHours",
           (Some (DataRetentionInHours.to_value x.dataRetentionInHours)));
        ("Disabled", (Some (Boolean.to_value x.disabled)));
        ("StreamingNotificationTargets",
          (Option.map x.streamingNotificationTargets
             ~f:StreamingNotificationTargetList.to_value));
        ("MediaInsightsConfiguration",
          (Option.map x.mediaInsightsConfiguration
             ~f:MediaInsightsConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mediaInsightsConfiguration =
        (Option.map ~f:MediaInsightsConfiguration.of_xml)
          (Xml.child xml_arg0 "MediaInsightsConfiguration") in
      let streamingNotificationTargets =
        (Option.map ~f:StreamingNotificationTargetList.of_xml)
          (Xml.child xml_arg0 "StreamingNotificationTargets") in
      let disabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Disabled") in
      let dataRetentionInHours =
        DataRetentionInHours.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataRetentionInHours") in
      make ?mediaInsightsConfiguration ?streamingNotificationTargets
        ~disabled ~dataRetentionInHours ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mediaInsightsConfiguration =
        field_map json__ "MediaInsightsConfiguration"
          MediaInsightsConfiguration.of_json in
      let streamingNotificationTargets =
        field_map json__ "StreamingNotificationTargets"
          StreamingNotificationTargetList.of_json in
      let disabled = field_map_exn json__ "Disabled" Boolean.of_json in
      let dataRetentionInHours =
        field_map_exn json__ "DataRetentionInHours"
          DataRetentionInHours.of_json in
      make ?mediaInsightsConfiguration ?streamingNotificationTargets
        ~disabled ~dataRetentionInHours ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The streaming configuration associated with an Amazon Chime SDK Voice Connector. Specifies whether media streaming is enabled for sending to Amazon Kinesis, and shows the retention period for the Amazon Kinesis data, in hours."]
module Proxy =
  struct
    type nonrec t =
      {
      defaultSessionExpiryMinutes: Integer.t option
        [@ocaml.doc
          "The default number of minutes allowed for proxy sessions."];
      disabled: Boolean.t option
        [@ocaml.doc
          "When true, stops proxy sessions from being created on the specified Amazon Chime SDK Voice Connector."];
      fallBackPhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc
          "The phone number to route calls to after a proxy session expires."];
      phoneNumberCountries: StringList.t option
        [@ocaml.doc
          "The countries for proxy phone numbers to be selected from."]}
    let make ?defaultSessionExpiryMinutes =
      fun ?disabled ->
        fun ?fallBackPhoneNumber ->
          fun ?phoneNumberCountries ->
            fun () ->
              {
                defaultSessionExpiryMinutes;
                disabled;
                fallBackPhoneNumber;
                phoneNumberCountries
              }
    let to_value x =
      structure_to_value
        [("DefaultSessionExpiryMinutes",
           (Option.map x.defaultSessionExpiryMinutes ~f:Integer.to_value));
        ("Disabled", (Option.map x.disabled ~f:Boolean.to_value));
        ("FallBackPhoneNumber",
          (Option.map x.fallBackPhoneNumber ~f:E164PhoneNumber.to_value));
        ("PhoneNumberCountries",
          (Option.map x.phoneNumberCountries ~f:StringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberCountries =
        (Option.map ~f:StringList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberCountries") in
      let fallBackPhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "FallBackPhoneNumber") in
      let disabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Disabled") in
      let defaultSessionExpiryMinutes =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "DefaultSessionExpiryMinutes") in
      make ?phoneNumberCountries ?fallBackPhoneNumber ?disabled
        ?defaultSessionExpiryMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberCountries =
        field_map json__ "PhoneNumberCountries" StringList.of_json in
      let fallBackPhoneNumber =
        field_map json__ "FallBackPhoneNumber" E164PhoneNumber.of_json in
      let disabled = field_map json__ "Disabled" Boolean.of_json in
      let defaultSessionExpiryMinutes =
        field_map json__ "DefaultSessionExpiryMinutes" Integer.of_json in
      make ?phoneNumberCountries ?fallBackPhoneNumber ?disabled
        ?defaultSessionExpiryMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The proxy configuration for an Amazon Chime SDK Voice Connector."]
module CountryList =
  struct
    type nonrec t = Country.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:Country.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:Country.of_xml)
    let of_json j =
      list_of_json ~kind:"CountryList" ~of_json:Country.of_json j
    let to_json v = composed_to_json to_value v
  end
module Origination =
  struct
    type nonrec t =
      {
      routes: OriginationRouteList.t option
        [@ocaml.doc
          "The call distribution properties defined for your SIP hosts. Valid range: Minimum value of 1. Maximum value of 20. This parameter is not required, but you must specify this parameter or Disabled."];
      disabled: Boolean.t option
        [@ocaml.doc
          "When origination settings are disabled, inbound calls are not enabled for your Amazon Chime SDK Voice Connector. This parameter is not required, but you must specify this parameter or Routes."]}
    let make ?routes = fun ?disabled -> fun () -> { routes; disabled }
    let to_value x =
      structure_to_value
        [("Routes", (Option.map x.routes ~f:OriginationRouteList.to_value));
        ("Disabled", (Option.map x.disabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Disabled") in
      let routes =
        (Option.map ~f:OriginationRouteList.of_xml)
          (Xml.child xml_arg0 "Routes") in
      make ?disabled ?routes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disabled = field_map json__ "Disabled" Boolean.of_json in
      let routes = field_map json__ "Routes" OriginationRouteList.of_json in
      make ?disabled ?routes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Origination settings enable your SIP hosts to receive inbound calls using your Amazon Chime SDK Voice Connector. The parameters listed below are not required, but you must use at least one."]
module LoggingConfiguration =
  struct
    type nonrec t =
      {
      enableSIPLogs: Boolean.t option
        [@ocaml.doc
          "Boolean that enables sending SIP message logs to Amazon CloudWatch."];
      enableMediaMetricLogs: Boolean.t option
        [@ocaml.doc "Enables or disables media metrics logging."]}
    let make ?enableSIPLogs =
      fun ?enableMediaMetricLogs ->
        fun () -> { enableSIPLogs; enableMediaMetricLogs }
    let to_value x =
      structure_to_value
        [("EnableSIPLogs", (Option.map x.enableSIPLogs ~f:Boolean.to_value));
        ("EnableMediaMetricLogs",
          (Option.map x.enableMediaMetricLogs ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableMediaMetricLogs =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnableMediaMetricLogs") in
      let enableSIPLogs =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "EnableSIPLogs") in
      make ?enableMediaMetricLogs ?enableSIPLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableMediaMetricLogs =
        field_map json__ "EnableMediaMetricLogs" Boolean.of_json in
      let enableSIPLogs = field_map json__ "EnableSIPLogs" Boolean.of_json in
      make ?enableMediaMetricLogs ?enableSIPLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The logging configuration associated with an Amazon Chime SDK Voice Connector. Specifies whether SIP message logs can be sent to Amazon CloudWatch Logs."]
module ExternalSystemsConfiguration =
  struct
    type nonrec t =
      {
      sessionBorderControllerTypes: SessionBorderControllerTypeList.t option
        [@ocaml.doc "The session border controllers."];
      contactCenterSystemTypes: ContactCenterSystemTypeList.t option
        [@ocaml.doc "The contact center system."]}
    let make ?sessionBorderControllerTypes =
      fun ?contactCenterSystemTypes ->
        fun () -> { sessionBorderControllerTypes; contactCenterSystemTypes }
    let to_value x =
      structure_to_value
        [("SessionBorderControllerTypes",
           (Option.map x.sessionBorderControllerTypes
              ~f:SessionBorderControllerTypeList.to_value));
        ("ContactCenterSystemTypes",
          (Option.map x.contactCenterSystemTypes
             ~f:ContactCenterSystemTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactCenterSystemTypes =
        (Option.map ~f:ContactCenterSystemTypeList.of_xml)
          (Xml.child xml_arg0 "ContactCenterSystemTypes") in
      let sessionBorderControllerTypes =
        (Option.map ~f:SessionBorderControllerTypeList.of_xml)
          (Xml.child xml_arg0 "SessionBorderControllerTypes") in
      make ?contactCenterSystemTypes ?sessionBorderControllerTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactCenterSystemTypes =
        field_map json__ "ContactCenterSystemTypes"
          ContactCenterSystemTypeList.of_json in
      let sessionBorderControllerTypes =
        field_map json__ "SessionBorderControllerTypes"
          SessionBorderControllerTypeList.of_json in
      make ?contactCenterSystemTypes ?sessionBorderControllerTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an external systems configuration for a Voice Connector."]
module EmergencyCallingConfiguration =
  struct
    type nonrec t =
      {
      dNIS: DNISEmergencyCallingConfigurationList.t option
        [@ocaml.doc
          "The Dialed Number Identification Service (DNIS) emergency calling configuration details."]}
    let make ?dNIS = fun () -> { dNIS }
    let to_value x =
      structure_to_value
        [("DNIS",
           (Option.map x.dNIS
              ~f:DNISEmergencyCallingConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dNIS =
        (Option.map ~f:DNISEmergencyCallingConfigurationList.of_xml)
          (Xml.child xml_arg0 "DNIS") in
      make ?dNIS ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dNIS =
        field_map json__ "DNIS" DNISEmergencyCallingConfigurationList.of_json in
      make ?dNIS ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The emergency calling configuration details associated with an Amazon Chime SDK Voice Connector."]
module SipMediaApplicationLoggingConfiguration =
  struct
    type nonrec t =
      {
      enableSipMediaApplicationMessageLogs: Boolean.t option
        [@ocaml.doc
          "Enables message logging for the specified SIP media application."]}
    let make ?enableSipMediaApplicationMessageLogs =
      fun () -> { enableSipMediaApplicationMessageLogs }
    let to_value x =
      structure_to_value
        [("EnableSipMediaApplicationMessageLogs",
           (Option.map x.enableSipMediaApplicationMessageLogs
              ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let enableSipMediaApplicationMessageLogs =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "EnableSipMediaApplicationMessageLogs") in
      make ?enableSipMediaApplicationMessageLogs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let enableSipMediaApplicationMessageLogs =
        field_map json__ "EnableSipMediaApplicationMessageLogs"
          Boolean.of_json in
      make ?enableSipMediaApplicationMessageLogs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The logging configuration of a SIP media application."]
module SipMediaApplicationAlexaSkillConfiguration =
  struct
    type nonrec t =
      {
      alexaSkillStatus: AlexaSkillStatus.t
        [@ocaml.doc "The status of the Alexa Skill configuration."];
      alexaSkillIds: AlexaSkillIdList.t
        [@ocaml.doc "The ID of the Alexa Skill configuration."]}
    let context_ = "SipMediaApplicationAlexaSkillConfiguration"
    let make ~alexaSkillStatus =
      fun ~alexaSkillIds -> fun () -> { alexaSkillStatus; alexaSkillIds }
    let to_value x =
      structure_to_value
        [("AlexaSkillStatus",
           (Some (AlexaSkillStatus.to_value x.alexaSkillStatus)));
        ("AlexaSkillIds", (Some (AlexaSkillIdList.to_value x.alexaSkillIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alexaSkillIds =
        AlexaSkillIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AlexaSkillIds") in
      let alexaSkillStatus =
        AlexaSkillStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AlexaSkillStatus") in
      make ~alexaSkillIds ~alexaSkillStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alexaSkillIds =
        field_map_exn json__ "AlexaSkillIds" AlexaSkillIdList.of_json in
      let alexaSkillStatus =
        field_map_exn json__ "AlexaSkillStatus" AlexaSkillStatus.of_json in
      make ~alexaSkillIds ~alexaSkillStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Alexa Skill configuration of a SIP media application. Due to changes made by the Amazon Alexa service, this data type is no longer available for use. For more information, refer to the Alexa Smart Properties page."]
module VoiceProfileSummaryList =
  struct
    type nonrec t = VoiceProfileSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VoiceProfileSummary.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:VoiceProfileSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceProfileSummaryList"
        ~of_json:VoiceProfileSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResultMax =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (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 ResultMax" 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 VoiceProfileDomainSummaryList =
  struct
    type nonrec t = VoiceProfileDomainSummary.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VoiceProfileDomainSummary.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:VoiceProfileDomainSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceProfileDomainSummaryList"
        ~of_json:VoiceProfileDomainSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module VoiceConnectorList =
  struct
    type nonrec t = VoiceConnector.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VoiceConnector.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:VoiceConnector.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceConnectorList" ~of_json:VoiceConnector.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SensitiveStringList =
  struct
    type nonrec t = SensitiveString.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SensitiveString.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:SensitiveString.of_xml)
    let of_json j =
      list_of_json ~kind:"SensitiveStringList"
        ~of_json:SensitiveString.of_json j
    let to_json v = composed_to_json to_value v
  end
module VoiceConnectorGroupList =
  struct
    type nonrec t = VoiceConnectorGroup.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VoiceConnectorGroup.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:VoiceConnectorGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceConnectorGroupList"
        ~of_json:VoiceConnectorGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberCountriesList =
  struct
    type nonrec t = PhoneNumberCountry.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumberCountry.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:PhoneNumberCountry.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberCountriesList"
        ~of_json:PhoneNumberCountry.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextTokenString =
  struct
    type nonrec t = string
    let context_ = "NextTokenString"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:65535); 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:"NextTokenString" j
    let to_json = simple_to_json to_value
  end
module SipRuleList =
  struct
    type nonrec t = SipRule.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SipRule.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:SipRule.of_xml)
    let of_json j =
      list_of_json ~kind:"SipRuleList" ~of_json:SipRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module SipMediaApplicationList =
  struct
    type nonrec t = SipMediaApplication.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SipMediaApplication.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:SipMediaApplication.of_xml)
    let of_json j =
      list_of_json ~kind:"SipMediaApplicationList"
        ~of_json:SipMediaApplication.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxySessions =
  struct
    type nonrec t = ProxySession.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ProxySession.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:ProxySession.of_xml)
    let of_json j =
      list_of_json ~kind:"ProxySessions" ~of_json:ProxySession.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberList =
  struct
    type nonrec t = PhoneNumber.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumber.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:PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberList" ~of_json:PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module PhoneNumberOrderList =
  struct
    type nonrec t = PhoneNumberOrder.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumberOrder.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:PhoneNumberOrder.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberOrderList"
        ~of_json:PhoneNumberOrder.of_json j
    let to_json v = composed_to_json to_value v
  end
module VoiceConnectorAwsRegionList =
  struct
    type nonrec t = VoiceConnectorAwsRegion.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:VoiceConnectorAwsRegion.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:VoiceConnectorAwsRegion.of_xml)
    let of_json j =
      list_of_json ~kind:"VoiceConnectorAwsRegionList"
        ~of_json:VoiceConnectorAwsRegion.of_json j
    let to_json v = composed_to_json to_value v
  end
module TerminationHealth =
  struct
    type nonrec t =
      {
      timestamp: Iso8601Timestamp.t option
        [@ocaml.doc "The timestamp, in ISO 8601 format."];
      source: String_.t option [@ocaml.doc "The source IP address."]}
    let make ?timestamp = fun ?source -> fun () -> { timestamp; source }
    let to_value x =
      structure_to_value
        [("Timestamp", (Option.map x.timestamp ~f:Iso8601Timestamp.to_value));
        ("Source", (Option.map x.source ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let source =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Source") in
      let timestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "Timestamp") in
      make ?source ?timestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let source = field_map json__ "Source" String_.of_json in
      let timestamp = field_map json__ "Timestamp" Iso8601Timestamp.of_json in
      make ?source ?timestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The termination health details, including the source IP address and timestamp of the last successful SIP OPTIONS message from your SIP infrastructure."]
module PhoneNumberErrorList =
  struct
    type nonrec t = PhoneNumberError.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PhoneNumberError.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:PhoneNumberError.of_xml)
    let of_json j =
      list_of_json ~kind:"PhoneNumberErrorList"
        ~of_json:PhoneNumberError.of_json j
    let to_json v = composed_to_json to_value v
  end
module SMACreateCallArgumentsMap =
  struct
    type nonrec t = (SensitiveString.t * SensitiveString.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_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 ->
                            ((SensitiveString.of_string chopped),
                              (SensitiveString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SensitiveString.to_value x) |>
                    (fun x ->
                       (SensitiveString.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:SensitiveString.of_string
        ~of_json:SensitiveString.of_json j
    let to_json v = composed_to_json to_value v
  end
module SipHeadersMap =
  struct
    type nonrec t = (SensitiveString.t * SensitiveString.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_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 ->
                            ((SensitiveString.of_string chopped),
                              (SensitiveString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SensitiveString.to_value x) |>
                    (fun x ->
                       (SensitiveString.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:SensitiveString.of_string
        ~of_json:SensitiveString.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParticipantPhoneNumberList =
  struct
    type nonrec t = E164PhoneNumber.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:2));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:E164PhoneNumber.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:E164PhoneNumber.of_xml)
    let of_json j =
      list_of_json ~kind:"ParticipantPhoneNumberList"
        ~of_json:E164PhoneNumber.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProxySessionNameString =
  struct
    type nonrec t = string
    let context_ = "ProxySessionNameString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^$|^[a-zA-Z0-9 ]{0,30}$");
        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:"ProxySessionNameString" j
    let to_json = simple_to_json to_value
  end
module UpdatePhoneNumberRequestItemList =
  struct
    type nonrec t = UpdatePhoneNumberRequestItem.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UpdatePhoneNumberRequestItem.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:UpdatePhoneNumberRequestItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdatePhoneNumberRequestItemList"
        ~of_json:UpdatePhoneNumberRequestItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module NonEmptyStringList =
  struct
    type nonrec t = String_.t list
    let make i =
      let open Result in ok_or_failwith (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:String_.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:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"NonEmptyStringList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidateE911AddressResponse =
  struct
    type nonrec t =
      {
      validationResult: ValidationResult.t option
        [@ocaml.doc
          "Number indicating the result of address validation. Each possible result is defined as follows: 0 - Address validation succeeded. 1 - Address validation succeeded. The address was a close enough match and has been corrected as part of the address object. 2 - Address validation failed. You should re-submit the validation request with candidates from the CandidateAddressList result, if it's a close match."];
      addressExternalId: String_.t option
        [@ocaml.doc "The ID that represents the address."];
      address: Address.t option [@ocaml.doc "The validated address."];
      candidateAddressList: CandidateAddressList.t option
        [@ocaml.doc "The list of address suggestions.."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?validationResult =
      fun ?addressExternalId ->
        fun ?address ->
          fun ?candidateAddressList ->
            fun () ->
              {
                validationResult;
                addressExternalId;
                address;
                candidateAddressList
              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ValidationResult",
           (Option.map x.validationResult ~f:ValidationResult.to_value));
        ("AddressExternalId",
          (Option.map x.addressExternalId ~f:String_.to_value));
        ("Address", (Option.map x.address ~f:Address.to_value));
        ("CandidateAddressList",
          (Option.map x.candidateAddressList ~f:CandidateAddressList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let candidateAddressList =
        (Option.map ~f:CandidateAddressList.of_xml)
          (Xml.child xml_arg0 "CandidateAddressList") in
      let address =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "Address") in
      let addressExternalId =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "AddressExternalId") in
      let validationResult =
        (Option.map ~f:ValidationResult.of_xml)
          (Xml.child xml_arg0 "ValidationResult") in
      make ?candidateAddressList ?address ?addressExternalId
        ?validationResult ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let candidateAddressList =
        field_map json__ "CandidateAddressList" CandidateAddressList.of_json in
      let address = field_map json__ "Address" Address.of_json in
      let addressExternalId =
        field_map json__ "AddressExternalId" String_.of_json in
      let validationResult =
        field_map json__ "ValidationResult" ValidationResult.of_json in
      make ?candidateAddressList ?address ?addressExternalId
        ?validationResult ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Validates an address to be used for 911 calls made with Amazon Chime SDK Voice Connectors. You can use validated addresses in a Presence Information Data Format Location Object file that you include in SIP requests. That helps ensure that addresses are routed to the appropriate Public Safety Answering Point."]
module ValidateE911AddressRequest =
  struct
    type nonrec t =
      {
      awsAccountId: NonEmptyString.t [@ocaml.doc "The AWS account ID."];
      streetNumber: SensitiveNonEmptyString.t
        [@ocaml.doc "The address street number, such as 200 or 2121."];
      streetInfo: SensitiveNonEmptyString.t
        [@ocaml.doc "The address street information, such as 8th Avenue."];
      city: SensitiveNonEmptyString.t
        [@ocaml.doc "The address city, such as Portland."];
      state: SensitiveNonEmptyString.t
        [@ocaml.doc "The address state, such as ME."];
      country: SensitiveNonEmptyString.t
        [@ocaml.doc
          "The country in the address being validated as two-letter country code in ISO 3166-1 alpha-2 format, such as US. For more information, see ISO 3166-1 alpha-2 in Wikipedia."];
      postalCode: SensitiveNonEmptyString.t
        [@ocaml.doc "The dress postal code, such 04352."]}
    let context_ = "ValidateE911AddressRequest"
    let make ~awsAccountId =
      fun ~streetNumber ->
        fun ~streetInfo ->
          fun ~city ->
            fun ~state ->
              fun ~country ->
                fun ~postalCode ->
                  fun () ->
                    {
                      awsAccountId;
                      streetNumber;
                      streetInfo;
                      city;
                      state;
                      country;
                      postalCode
                    }
    let to_value x =
      structure_to_value
        [("AwsAccountId", (Some (NonEmptyString.to_value x.awsAccountId)));
        ("StreetNumber",
          (Some (SensitiveNonEmptyString.to_value x.streetNumber)));
        ("StreetInfo",
          (Some (SensitiveNonEmptyString.to_value x.streetInfo)));
        ("City", (Some (SensitiveNonEmptyString.to_value x.city)));
        ("State", (Some (SensitiveNonEmptyString.to_value x.state)));
        ("Country", (Some (SensitiveNonEmptyString.to_value x.country)));
        ("PostalCode",
          (Some (SensitiveNonEmptyString.to_value x.postalCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let postalCode =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PostalCode") in
      let country =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Country") in
      let state =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "State") in
      let city =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "City") in
      let streetInfo =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StreetInfo") in
      let streetNumber =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StreetNumber") in
      let awsAccountId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AwsAccountId") in
      make ~postalCode ~country ~state ~city ~streetInfo ~streetNumber
        ~awsAccountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let postalCode =
        field_map_exn json__ "PostalCode" SensitiveNonEmptyString.of_json in
      let country =
        field_map_exn json__ "Country" SensitiveNonEmptyString.of_json in
      let state =
        field_map_exn json__ "State" SensitiveNonEmptyString.of_json in
      let city = field_map_exn json__ "City" SensitiveNonEmptyString.of_json in
      let streetInfo =
        field_map_exn json__ "StreetInfo" SensitiveNonEmptyString.of_json in
      let streetNumber =
        field_map_exn json__ "StreetNumber" SensitiveNonEmptyString.of_json in
      let awsAccountId =
        field_map_exn json__ "AwsAccountId" NonEmptyString.of_json in
      make ~postalCode ~country ~state ~city ~streetInfo ~streetNumber
        ~awsAccountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Validates an address to be used for 911 calls made with Amazon Chime SDK Voice Connectors. You can use validated addresses in a Presence Information Data Format Location Object file that you include in SIP requests. That helps ensure that addresses are routed to the appropriate Public Safety Answering Point."]
module UpdateVoiceProfileResponse =
  struct
    type nonrec t =
      {
      voiceProfile: VoiceProfile.t option
        [@ocaml.doc "The updated voice profile settings."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `GoneException of GoneException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfile = fun () -> { voiceProfile }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "GoneException" -> `GoneException (GoneException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "GoneException" -> `GoneException (GoneException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `GoneException e ->
          `Assoc
            [("error", (`String "GoneException"));
            ("details", (GoneException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfile",
           (Option.map x.voiceProfile ~f:VoiceProfile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfile =
        (Option.map ~f:VoiceProfile.of_xml)
          (Xml.child xml_arg0 "VoiceProfile") in
      make ?voiceProfile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfile = field_map json__ "VoiceProfile" VoiceProfile.of_json in
      make ?voiceProfile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified voice profile\226\128\153s voice print and refreshes its expiration timestamp. As a condition of using this feature, you acknowledge that the collection, use, storage, and retention of your caller\226\128\153s biometric identifiers and biometric information (\226\128\156biometric data\226\128\157) in the form of a digital voiceprint requires the caller\226\128\153s informed consent via a written release. Such consent is required under various state laws, including biometrics laws in Illinois, Texas, Washington and other state privacy laws. You must provide a written release to each caller through a process that clearly reflects each caller\226\128\153s informed consent before using Amazon Chime SDK Voice Insights service, as required under the terms of your agreement with AWS governing your use of the service."]
module UpdateVoiceProfileRequest =
  struct
    type nonrec t =
      {
      voiceProfileId: NonEmptyString256.t [@ocaml.doc "The profile ID."];
      speakerSearchTaskId: NonEmptyString256.t
        [@ocaml.doc "The ID of the speaker search task."]}
    let context_ = "UpdateVoiceProfileRequest"
    let make ~voiceProfileId =
      fun ~speakerSearchTaskId ->
        fun () -> { voiceProfileId; speakerSearchTaskId }
    let to_value x =
      structure_to_value
        [("VoiceProfileId",
           (Some (NonEmptyString256.to_value x.voiceProfileId)));
        ("SpeakerSearchTaskId",
          (Some (NonEmptyString256.to_value x.speakerSearchTaskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speakerSearchTaskId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SpeakerSearchTaskId") in
      let voiceProfileId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileId") in
      make ~speakerSearchTaskId ~voiceProfileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speakerSearchTaskId =
        field_map_exn json__ "SpeakerSearchTaskId" NonEmptyString256.of_json in
      let voiceProfileId =
        field_map_exn json__ "VoiceProfileId" NonEmptyString256.of_json in
      make ~speakerSearchTaskId ~voiceProfileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified voice profile\226\128\153s voice print and refreshes its expiration timestamp. As a condition of using this feature, you acknowledge that the collection, use, storage, and retention of your caller\226\128\153s biometric identifiers and biometric information (\226\128\156biometric data\226\128\157) in the form of a digital voiceprint requires the caller\226\128\153s informed consent via a written release. Such consent is required under various state laws, including biometrics laws in Illinois, Texas, Washington and other state privacy laws. You must provide a written release to each caller through a process that clearly reflects each caller\226\128\153s informed consent before using Amazon Chime SDK Voice Insights service, as required under the terms of your agreement with AWS governing your use of the service."]
module UpdateVoiceProfileDomainResponse =
  struct
    type nonrec t =
      {
      voiceProfileDomain: VoiceProfileDomain.t option
        [@ocaml.doc "The updated details of the voice profile domain."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfileDomain = fun () -> { voiceProfileDomain }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfileDomain",
           (Option.map x.voiceProfileDomain ~f:VoiceProfileDomain.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileDomain =
        (Option.map ~f:VoiceProfileDomain.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomain") in
      make ?voiceProfileDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileDomain =
        field_map json__ "VoiceProfileDomain" VoiceProfileDomain.of_json in
      make ?voiceProfileDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the settings for the specified voice profile domain."]
module UpdateVoiceProfileDomainRequest =
  struct
    type nonrec t =
      {
      voiceProfileDomainId: NonEmptyString256.t [@ocaml.doc "The domain ID."];
      name: VoiceProfileDomainName.t option
        [@ocaml.doc "The name of the voice profile domain."];
      description: VoiceProfileDomainDescription.t option
        [@ocaml.doc "The description of the voice profile domain."]}
    let context_ = "UpdateVoiceProfileDomainRequest"
    let make ?name =
      fun ?description ->
        fun ~voiceProfileDomainId ->
          fun () -> { name; description; voiceProfileDomainId }
    let to_value x =
      structure_to_value
        [("VoiceProfileDomainId",
           (Some (NonEmptyString256.to_value x.voiceProfileDomainId)));
        ("Name", (Option.map x.name ~f:VoiceProfileDomainName.to_value));
        ("Description",
          (Option.map x.description ~f:VoiceProfileDomainDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:VoiceProfileDomainDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        (Option.map ~f:VoiceProfileDomainName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let voiceProfileDomainId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileDomainId") in
      make ?description ?name ~voiceProfileDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" VoiceProfileDomainDescription.of_json in
      let name = field_map json__ "Name" VoiceProfileDomainName.of_json in
      let voiceProfileDomainId =
        field_map_exn json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      make ?description ?name ~voiceProfileDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the settings for the specified voice profile domain."]
module UpdateVoiceConnectorResponse =
  struct
    type nonrec t =
      {
      voiceConnector: VoiceConnector.t option
        [@ocaml.doc "The updated Voice Connector details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnector = fun () -> { voiceConnector }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnector",
           (Option.map x.voiceConnector ~f:VoiceConnector.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnector.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      make ?voiceConnector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnector.of_json in
      make ?voiceConnector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details for the specified Amazon Chime SDK Voice Connector."]
module UpdateVoiceConnectorRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      name: VoiceConnectorName.t
        [@ocaml.doc "The name of the Voice Connector."];
      requireEncryption: Boolean.t
        [@ocaml.doc
          "When enabled, requires encryption for the Voice Connector."]}
    let context_ = "UpdateVoiceConnectorRequest"
    let make ~voiceConnectorId =
      fun ~name ->
        fun ~requireEncryption ->
          fun () -> { voiceConnectorId; name; requireEncryption }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("Name", (Some (VoiceConnectorName.to_value x.name)));
        ("RequireEncryption", (Some (Boolean.to_value x.requireEncryption)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requireEncryption =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RequireEncryption") in
      let name =
        VoiceConnectorName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~requireEncryption ~name ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requireEncryption =
        field_map_exn json__ "RequireEncryption" Boolean.of_json in
      let name = field_map_exn json__ "Name" VoiceConnectorName.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~requireEncryption ~name ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details for the specified Amazon Chime SDK Voice Connector."]
module UpdateVoiceConnectorGroupResponse =
  struct
    type nonrec t =
      {
      voiceConnectorGroup: VoiceConnectorGroup.t option
        [@ocaml.doc "The updated Voice Connector group."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnectorGroup = fun () -> { voiceConnectorGroup }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnectorGroup",
           (Option.map x.voiceConnectorGroup ~f:VoiceConnectorGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorGroup =
        (Option.map ~f:VoiceConnectorGroup.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorGroup") in
      make ?voiceConnectorGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorGroup =
        field_map json__ "VoiceConnectorGroup" VoiceConnectorGroup.of_json in
      make ?voiceConnectorGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the settings for the specified Amazon Chime SDK Voice Connector group."]
module UpdateVoiceConnectorGroupRequest =
  struct
    type nonrec t =
      {
      voiceConnectorGroupId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      name: VoiceConnectorGroupName.t
        [@ocaml.doc "The name of the Voice Connector group."];
      voiceConnectorItems: VoiceConnectorItemList.t
        [@ocaml.doc
          "The VoiceConnectorItems to associate with the Voice Connector group."]}
    let context_ = "UpdateVoiceConnectorGroupRequest"
    let make ~voiceConnectorGroupId =
      fun ~name ->
        fun ~voiceConnectorItems ->
          fun () -> { voiceConnectorGroupId; name; voiceConnectorItems }
    let to_value x =
      structure_to_value
        [("voiceConnectorGroupId",
           (Some (NonEmptyString.to_value x.voiceConnectorGroupId)));
        ("Name", (Some (VoiceConnectorGroupName.to_value x.name)));
        ("VoiceConnectorItems",
          (Some (VoiceConnectorItemList.to_value x.voiceConnectorItems)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorItems =
        VoiceConnectorItemList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorItems") in
      let name =
        VoiceConnectorGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let voiceConnectorGroupId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorGroupId") in
      make ~voiceConnectorItems ~name ~voiceConnectorGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorItems =
        field_map_exn json__ "VoiceConnectorItems"
          VoiceConnectorItemList.of_json in
      let name = field_map_exn json__ "Name" VoiceConnectorGroupName.of_json in
      let voiceConnectorGroupId =
        field_map_exn json__ "VoiceConnectorGroupId" NonEmptyString.of_json in
      make ~voiceConnectorItems ~name ~voiceConnectorGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the settings for the specified Amazon Chime SDK Voice Connector group."]
module UpdateSipRuleResponse =
  struct
    type nonrec t =
      {
      sipRule: SipRule.t option [@ocaml.doc "The updated SIP rule details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipRule = fun () -> { sipRule }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipRule", (Option.map x.sipRule ~f:SipRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipRule =
        (Option.map ~f:SipRule.of_xml) (Xml.child xml_arg0 "SipRule") in
      make ?sipRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipRule = field_map json__ "SipRule" SipRule.of_json in
      make ?sipRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the details of the specified SIP rule."]
module UpdateSipRuleRequest =
  struct
    type nonrec t =
      {
      sipRuleId: NonEmptyString.t [@ocaml.doc "The SIP rule ID."];
      name: SipRuleName.t
        [@ocaml.doc "The new name for the specified SIP rule."];
      disabled: NullableBoolean.t option
        [@ocaml.doc
          "The new value that indicates whether the rule is disabled."];
      targetApplications: SipRuleTargetApplicationList.t option
        [@ocaml.doc "The new list of target applications."]}
    let context_ = "UpdateSipRuleRequest"
    let make ?disabled =
      fun ?targetApplications ->
        fun ~sipRuleId ->
          fun ~name ->
            fun () -> { disabled; targetApplications; sipRuleId; name }
    let to_value x =
      structure_to_value
        [("sipRuleId", (Some (NonEmptyString.to_value x.sipRuleId)));
        ("Name", (Some (SipRuleName.to_value x.name)));
        ("Disabled", (Option.map x.disabled ~f:NullableBoolean.to_value));
        ("TargetApplications",
          (Option.map x.targetApplications
             ~f:SipRuleTargetApplicationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetApplications =
        (Option.map ~f:SipRuleTargetApplicationList.of_xml)
          (Xml.child xml_arg0 "TargetApplications") in
      let disabled =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "Disabled") in
      let name =
        SipRuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let sipRuleId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipRuleId") in
      make ?targetApplications ?disabled ~name ~sipRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetApplications =
        field_map json__ "TargetApplications"
          SipRuleTargetApplicationList.of_json in
      let disabled = field_map json__ "Disabled" NullableBoolean.of_json in
      let name = field_map_exn json__ "Name" SipRuleName.of_json in
      let sipRuleId = field_map_exn json__ "SipRuleId" NonEmptyString.of_json in
      make ?targetApplications ?disabled ~name ~sipRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the details of the specified SIP rule."]
module UpdateSipMediaApplicationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplication: SipMediaApplication.t option
        [@ocaml.doc
          "The updated SIP media application\226\128\153s details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplication = fun () -> { sipMediaApplication }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplication",
           (Option.map x.sipMediaApplication ~f:SipMediaApplication.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplication =
        (Option.map ~f:SipMediaApplication.of_xml)
          (Xml.child xml_arg0 "SipMediaApplication") in
      make ?sipMediaApplication ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplication =
        field_map json__ "SipMediaApplication" SipMediaApplication.of_json in
      make ?sipMediaApplication ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details of the specified SIP media application."]
module UpdateSipMediaApplicationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID."];
      name: SipMediaApplicationName.t option
        [@ocaml.doc "The new name for the specified SIP media application."];
      endpoints: SipMediaApplicationEndpointList.t option
        [@ocaml.doc
          "The new set of endpoints for the specified SIP media application."]}
    let context_ = "UpdateSipMediaApplicationRequest"
    let make ?name =
      fun ?endpoints ->
        fun ~sipMediaApplicationId ->
          fun () -> { name; endpoints; sipMediaApplicationId }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)));
        ("Name", (Option.map x.name ~f:SipMediaApplicationName.to_value));
        ("Endpoints",
          (Option.map x.endpoints ~f:SipMediaApplicationEndpointList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpoints =
        (Option.map ~f:SipMediaApplicationEndpointList.of_xml)
          (Xml.child xml_arg0 "Endpoints") in
      let name =
        (Option.map ~f:SipMediaApplicationName.of_xml)
          (Xml.child xml_arg0 "Name") in
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ?endpoints ?name ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpoints =
        field_map json__ "Endpoints" SipMediaApplicationEndpointList.of_json in
      let name = field_map json__ "Name" SipMediaApplicationName.of_json in
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ?endpoints ?name ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the details of the specified SIP media application."]
module UpdateSipMediaApplicationCallResponse =
  struct
    type nonrec t =
      {
      sipMediaApplicationCall: SipMediaApplicationCall.t option
        [@ocaml.doc "A Call instance for a SIP media application."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplicationCall = fun () -> { sipMediaApplicationCall }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplicationCall",
           (Option.map x.sipMediaApplicationCall
              ~f:SipMediaApplicationCall.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationCall =
        (Option.map ~f:SipMediaApplicationCall.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationCall") in
      make ?sipMediaApplicationCall ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationCall =
        field_map json__ "SipMediaApplicationCall"
          SipMediaApplicationCall.of_json in
      make ?sipMediaApplicationCall ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Invokes the AWS Lambda function associated with the SIP media application and transaction ID in an update request. The Lambda function can then return a new set of actions."]
module UpdateSipMediaApplicationCallRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The ID of the SIP media application handling the call."];
      transactionId: NonEmptyString.t
        [@ocaml.doc "The ID of the call transaction."];
      arguments: SMAUpdateCallArgumentsMap.t
        [@ocaml.doc
          "Arguments made available to the Lambda function as part of the CALL_UPDATE_REQUESTED event. Can contain 0-20 key-value pairs."]}
    let context_ = "UpdateSipMediaApplicationCallRequest"
    let make ~sipMediaApplicationId =
      fun ~transactionId ->
        fun ~arguments ->
          fun () -> { sipMediaApplicationId; transactionId; arguments }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)));
        ("transactionId", (Some (NonEmptyString.to_value x.transactionId)));
        ("Arguments",
          (Some (SMAUpdateCallArgumentsMap.to_value x.arguments)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arguments =
        SMAUpdateCallArgumentsMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Arguments") in
      let transactionId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transactionId") in
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ~arguments ~transactionId ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arguments =
        field_map_exn json__ "Arguments" SMAUpdateCallArgumentsMap.of_json in
      let transactionId =
        field_map_exn json__ "TransactionId" NonEmptyString.of_json in
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ~arguments ~transactionId ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Invokes the AWS Lambda function associated with the SIP media application and transaction ID in an update request. The Lambda function can then return a new set of actions."]
module UpdateProxySessionResponse =
  struct
    type nonrec t =
      {
      proxySession: ProxySession.t option
        [@ocaml.doc "The updated proxy session details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxySession = fun () -> { proxySession }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ProxySession",
           (Option.map x.proxySession ~f:ProxySession.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxySession =
        (Option.map ~f:ProxySession.of_xml)
          (Xml.child xml_arg0 "ProxySession") in
      make ?proxySession ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxySession = field_map json__ "ProxySession" ProxySession.of_json in
      make ?proxySession ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified proxy session details, such as voice or SMS capabilities."]
module UpdateProxySessionRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      proxySessionId: NonEmptyString128.t
        [@ocaml.doc "The proxy session ID."];
      capabilities: CapabilityList.t
        [@ocaml.doc "The proxy session capabilities."];
      expiryMinutes: PositiveInteger.t option
        [@ocaml.doc "The number of minutes allowed for the proxy session."]}
    let context_ = "UpdateProxySessionRequest"
    let make ?expiryMinutes =
      fun ~voiceConnectorId ->
        fun ~proxySessionId ->
          fun ~capabilities ->
            fun () ->
              { expiryMinutes; voiceConnectorId; proxySessionId; capabilities
              }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("proxySessionId",
          (Some (NonEmptyString128.to_value x.proxySessionId)));
        ("Capabilities", (Some (CapabilityList.to_value x.capabilities)));
        ("ExpiryMinutes",
          (Option.map x.expiryMinutes ~f:PositiveInteger.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiryMinutes =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "ExpiryMinutes") in
      let capabilities =
        CapabilityList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Capabilities") in
      let proxySessionId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "proxySessionId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?expiryMinutes ~capabilities ~proxySessionId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiryMinutes =
        field_map json__ "ExpiryMinutes" PositiveInteger.of_json in
      let capabilities =
        field_map_exn json__ "Capabilities" CapabilityList.of_json in
      let proxySessionId =
        field_map_exn json__ "ProxySessionId" NonEmptyString128.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?expiryMinutes ~capabilities ~proxySessionId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified proxy session details, such as voice or SMS capabilities."]
module UpdatePhoneNumberSettingsRequest =
  struct
    type nonrec t =
      {
      callingName: CallingName.t
        [@ocaml.doc "The default outbound calling name for the account."]}
    let context_ = "UpdatePhoneNumberSettingsRequest"
    let make ~callingName = fun () -> { callingName }
    let to_value x =
      structure_to_value
        [("CallingName", (Some (CallingName.to_value x.callingName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingName =
        CallingName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CallingName") in
      make ~callingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingName =
        field_map_exn json__ "CallingName" CallingName.of_json in
      make ~callingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the phone number settings for the administrator's AWS account, such as the default outbound calling name. You can update the default outbound calling name once every seven days. Outbound calling names can take up to 72 hours to update."]
module UpdatePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The updated phone number details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber = fun () -> { phoneNumber }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      make ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      make ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number details, such as product type, calling name, or phone number name for the specified phone number ID. You can update one phone number detail at a time. For example, you can update either the product type, calling name, or phone number name in one action. For numbers outside the U.S., you must use the Amazon Chime SDK SIP Media Application Dial-In product type. Updates to outbound calling names can take 72 hours to complete. Pending updates to outbound calling names must be complete before you can request another update."]
module UpdatePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t
        [@ocaml.doc "The phone number ID."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The product type."];
      callingName: CallingName.t option
        [@ocaml.doc
          "The outbound calling name associated with the phone number."];
      name: PhoneNumberName.t option
        [@ocaml.doc
          "Specifies the updated name assigned to one or more phone numbers."]}
    let context_ = "UpdatePhoneNumberRequest"
    let make ?productType =
      fun ?callingName ->
        fun ?name ->
          fun ~phoneNumberId ->
            fun () -> { productType; callingName; name; phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId",
           (Some (SensitiveNonEmptyString.to_value x.phoneNumberId)));
        ("ProductType",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("CallingName", (Option.map x.callingName ~f:CallingName.to_value));
        ("Name", (Option.map x.name ~f:PhoneNumberName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:PhoneNumberName.of_xml) (Xml.child xml_arg0 "Name") in
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "ProductType") in
      let phoneNumberId =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ?name ?callingName ?productType ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" PhoneNumberName.of_json in
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ?name ?callingName ?productType ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number details, such as product type, calling name, or phone number name for the specified phone number ID. You can update one phone number detail at a time. For example, you can update either the product type, calling name, or phone number name in one action. For numbers outside the U.S., you must use the Amazon Chime SDK SIP Media Application Dial-In product type. Updates to outbound calling names can take 72 hours to complete. Pending updates to outbound calling names must be complete before you can request another update."]
module UpdateGlobalSettingsRequest =
  struct
    type nonrec t =
      {
      voiceConnector: VoiceConnectorSettings.t option
        [@ocaml.doc "The Voice Connector settings."]}
    let make ?voiceConnector = fun () -> { voiceConnector }
    let to_value x =
      structure_to_value
        [("VoiceConnector",
           (Option.map x.voiceConnector ~f:VoiceConnectorSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnectorSettings.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      make ?voiceConnector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnectorSettings.of_json in
      make ?voiceConnector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates global settings for the Amazon Chime SDK Voice Connectors in an AWS account."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: Arn.t
        [@ocaml.doc "The ARN of the resource having its tags removed."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The keys of the tags being removed from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (Arn.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 =
        Arn.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" Arn.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: Arn.t [@ocaml.doc "The ARN of the resource being tagged."];
      tags: TagList.t
        [@ocaml.doc "A list of the tags being added to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (Arn.to_value x.resourceARN)));
        ("Tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        Arn.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" TagList.of_json in
      let resourceARN = field_map_exn json__ "ResourceARN" Arn.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a tag to the specified resource."]
module StopVoiceToneAnalysisTaskRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      voiceToneAnalysisTaskId: NonEmptyString256.t
        [@ocaml.doc "The ID of the voice tone analysis task."]}
    let context_ = "StopVoiceToneAnalysisTaskRequest"
    let make ~voiceConnectorId =
      fun ~voiceToneAnalysisTaskId ->
        fun () -> { voiceConnectorId; voiceToneAnalysisTaskId }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("VoiceToneAnalysisTaskId",
          (Some (NonEmptyString256.to_value x.voiceToneAnalysisTaskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceToneAnalysisTaskId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceToneAnalysisTaskId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ~voiceToneAnalysisTaskId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceToneAnalysisTaskId =
        field_map_exn json__ "VoiceToneAnalysisTaskId"
          NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~voiceToneAnalysisTaskId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops a voice tone analysis task."]
module StopSpeakerSearchTaskRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      speakerSearchTaskId: NonEmptyString256.t
        [@ocaml.doc "The speaker search task ID."]}
    let context_ = "StopSpeakerSearchTaskRequest"
    let make ~voiceConnectorId =
      fun ~speakerSearchTaskId ->
        fun () -> { voiceConnectorId; speakerSearchTaskId }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("SpeakerSearchTaskId",
          (Some (NonEmptyString256.to_value x.speakerSearchTaskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speakerSearchTaskId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SpeakerSearchTaskId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ~speakerSearchTaskId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speakerSearchTaskId =
        field_map_exn json__ "SpeakerSearchTaskId" NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~speakerSearchTaskId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops a speaker search task."]
module StartVoiceToneAnalysisTaskResponse =
  struct
    type nonrec t =
      {
      voiceToneAnalysisTask: VoiceToneAnalysisTask.t option
        [@ocaml.doc "The details of the voice tone analysis task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `GoneException of GoneException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceToneAnalysisTask = fun () -> { voiceToneAnalysisTask }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "GoneException" -> `GoneException (GoneException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "GoneException" -> `GoneException (GoneException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `GoneException e ->
          `Assoc
            [("error", (`String "GoneException"));
            ("details", (GoneException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("VoiceToneAnalysisTask",
           (Option.map x.voiceToneAnalysisTask
              ~f:VoiceToneAnalysisTask.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceToneAnalysisTask =
        (Option.map ~f:VoiceToneAnalysisTask.of_xml)
          (Xml.child xml_arg0 "VoiceToneAnalysisTask") in
      make ?voiceToneAnalysisTask ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceToneAnalysisTask =
        field_map json__ "VoiceToneAnalysisTask"
          VoiceToneAnalysisTask.of_json in
      make ?voiceToneAnalysisTask ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a voice tone analysis task. For more information about voice tone analysis, see Using Amazon Chime SDK voice analytics in the Amazon Chime SDK Developer Guide. Before starting any voice tone analysis tasks, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK."]
module StartVoiceToneAnalysisTaskRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      transactionId: NonEmptyString256.t [@ocaml.doc "The transaction ID."];
      languageCode: LanguageCode.t [@ocaml.doc "The language code."];
      clientRequestToken: ClientRequestId.t option
        [@ocaml.doc
          "The unique identifier for the client request. Use a different token for different voice tone analysis tasks."]}
    let context_ = "StartVoiceToneAnalysisTaskRequest"
    let make ?clientRequestToken =
      fun ~voiceConnectorId ->
        fun ~transactionId ->
          fun ~languageCode ->
            fun () ->
              {
                clientRequestToken;
                voiceConnectorId;
                transactionId;
                languageCode
              }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("TransactionId",
          (Some (NonEmptyString256.to_value x.transactionId)));
        ("LanguageCode", (Some (LanguageCode.to_value x.languageCode)));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestId.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let languageCode =
        LanguageCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LanguageCode") in
      let transactionId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransactionId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ?clientRequestToken ~languageCode ~transactionId ~voiceConnectorId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestId.of_json in
      let languageCode =
        field_map_exn json__ "LanguageCode" LanguageCode.of_json in
      let transactionId =
        field_map_exn json__ "TransactionId" NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?clientRequestToken ~languageCode ~transactionId ~voiceConnectorId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a voice tone analysis task. For more information about voice tone analysis, see Using Amazon Chime SDK voice analytics in the Amazon Chime SDK Developer Guide. Before starting any voice tone analysis tasks, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK."]
module StartSpeakerSearchTaskResponse =
  struct
    type nonrec t =
      {
      speakerSearchTask: SpeakerSearchTask.t option
        [@ocaml.doc "The details of the speaker search task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `GoneException of GoneException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `UnprocessableEntityException of UnprocessableEntityException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?speakerSearchTask = fun () -> { speakerSearchTask }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "GoneException" -> `GoneException (GoneException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "GoneException" -> `GoneException (GoneException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | "UnprocessableEntityException" ->
          `UnprocessableEntityException
            (UnprocessableEntityException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `GoneException e ->
          `Assoc
            [("error", (`String "GoneException"));
            ("details", (GoneException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.to_json e))]
      | `UnprocessableEntityException e ->
          `Assoc
            [("error", (`String "UnprocessableEntityException"));
            ("details", (UnprocessableEntityException.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
        [("SpeakerSearchTask",
           (Option.map x.speakerSearchTask ~f:SpeakerSearchTask.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speakerSearchTask =
        (Option.map ~f:SpeakerSearchTask.of_xml)
          (Xml.child xml_arg0 "SpeakerSearchTask") in
      make ?speakerSearchTask ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speakerSearchTask =
        field_map json__ "SpeakerSearchTask" SpeakerSearchTask.of_json in
      make ?speakerSearchTask ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a speaker search task. Before starting any speaker search tasks, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK."]
module StartSpeakerSearchTaskRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      transactionId: NonEmptyString256.t
        [@ocaml.doc "The transaction ID of the call being analyzed."];
      voiceProfileDomainId: NonEmptyString256.t
        [@ocaml.doc
          "The ID of the voice profile domain that will store the voice profile."];
      clientRequestToken: ClientRequestId.t option
        [@ocaml.doc
          "The unique identifier for the client request. Use a different token for different speaker search tasks."];
      callLeg: CallLegType.t option
        [@ocaml.doc "Specifies which call leg to stream for speaker search."]}
    let context_ = "StartSpeakerSearchTaskRequest"
    let make ?clientRequestToken =
      fun ?callLeg ->
        fun ~voiceConnectorId ->
          fun ~transactionId ->
            fun ~voiceProfileDomainId ->
              fun () ->
                {
                  clientRequestToken;
                  callLeg;
                  voiceConnectorId;
                  transactionId;
                  voiceProfileDomainId
                }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("TransactionId",
          (Some (NonEmptyString256.to_value x.transactionId)));
        ("VoiceProfileDomainId",
          (Some (NonEmptyString256.to_value x.voiceProfileDomainId)));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestId.to_value));
        ("CallLeg", (Option.map x.callLeg ~f:CallLegType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callLeg =
        (Option.map ~f:CallLegType.of_xml) (Xml.child xml_arg0 "CallLeg") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestId.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let voiceProfileDomainId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileDomainId") in
      let transactionId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TransactionId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ?callLeg ?clientRequestToken ~voiceProfileDomainId ~transactionId
        ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callLeg = field_map json__ "CallLeg" CallLegType.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestId.of_json in
      let voiceProfileDomainId =
        field_map_exn json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      let transactionId =
        field_map_exn json__ "TransactionId" NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?callLeg ?clientRequestToken ~voiceProfileDomainId ~transactionId
        ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a speaker search task. Before starting any speaker search tasks, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK."]
module SearchAvailablePhoneNumbersResponse =
  struct
    type nonrec t =
      {
      e164PhoneNumbers: E164PhoneNumberList.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers in the E.164 format."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?e164PhoneNumbers =
      fun ?nextToken -> fun () -> { e164PhoneNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("E164PhoneNumbers",
           (Option.map x.e164PhoneNumbers ~f:E164PhoneNumberList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let e164PhoneNumbers =
        (Option.map ~f:E164PhoneNumberList.of_xml)
          (Xml.child xml_arg0 "E164PhoneNumbers") in
      make ?nextToken ?e164PhoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let e164PhoneNumbers =
        field_map json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      make ?nextToken ?e164PhoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches the provisioned phone numbers in an organization."]
module SearchAvailablePhoneNumbersRequest =
  struct
    type nonrec t =
      {
      areaCode: String_.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers associated with the specified area code."];
      city: String_.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers associated with the specified city."];
      country: Alpha2CountryCode.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers associated with the specified country."];
      state: String_.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers associated with the specified state."];
      tollFreePrefix: TollFreePrefix.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers associated with the specified toll-free prefix."];
      phoneNumberType: PhoneNumberType.t option
        [@ocaml.doc
          "Confines a search to just the phone numbers associated with the specified phone number type, either local or toll-free."];
      maxResults: PhoneNumberMaxResults.t option
        [@ocaml.doc "The maximum number of results to return."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    let make ?areaCode =
      fun ?city ->
        fun ?country ->
          fun ?state ->
            fun ?tollFreePrefix ->
              fun ?phoneNumberType ->
                fun ?maxResults ->
                  fun ?nextToken ->
                    fun () ->
                      {
                        areaCode;
                        city;
                        country;
                        state;
                        tollFreePrefix;
                        phoneNumberType;
                        maxResults;
                        nextToken
                      }
    let to_value x =
      structure_to_value
        [("area-code", (Option.map x.areaCode ~f:String_.to_value));
        ("city", (Option.map x.city ~f:String_.to_value));
        ("country", (Option.map x.country ~f:Alpha2CountryCode.to_value));
        ("state", (Option.map x.state ~f:String_.to_value));
        ("toll-free-prefix",
          (Option.map x.tollFreePrefix ~f:TollFreePrefix.to_value));
        ("phone-number-type",
          (Option.map x.phoneNumberType ~f:PhoneNumberType.to_value));
        ("max-results",
          (Option.map x.maxResults ~f:PhoneNumberMaxResults.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:PhoneNumberMaxResults.of_xml)
          (Xml.child xml_arg0 "max-results") in
      let phoneNumberType =
        (Option.map ~f:PhoneNumberType.of_xml)
          (Xml.child xml_arg0 "phone-number-type") in
      let tollFreePrefix =
        (Option.map ~f:TollFreePrefix.of_xml)
          (Xml.child xml_arg0 "toll-free-prefix") in
      let state = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "state") in
      let country =
        (Option.map ~f:Alpha2CountryCode.of_xml)
          (Xml.child xml_arg0 "country") in
      let city = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "city") in
      let areaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "area-code") in
      make ?nextToken ?maxResults ?phoneNumberType ?tollFreePrefix ?state
        ?country ?city ?areaCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults =
        field_map json__ "MaxResults" PhoneNumberMaxResults.of_json in
      let phoneNumberType =
        field_map json__ "PhoneNumberType" PhoneNumberType.of_json in
      let tollFreePrefix =
        field_map json__ "TollFreePrefix" TollFreePrefix.of_json in
      let state = field_map json__ "State" String_.of_json in
      let country = field_map json__ "Country" Alpha2CountryCode.of_json in
      let city = field_map json__ "City" String_.of_json in
      let areaCode = field_map json__ "AreaCode" String_.of_json in
      make ?nextToken ?maxResults ?phoneNumberType ?tollFreePrefix ?state
        ?country ?city ?areaCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches the provisioned phone numbers in an organization."]
module RestorePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The restored phone number."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber = fun () -> { phoneNumber }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      make ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      make ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Restores a deleted phone number."]
module RestorePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t
        [@ocaml.doc "The ID of the phone number being restored."]}
    let context_ = "RestorePhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId",
           (Some (SensitiveNonEmptyString.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Restores a deleted phone number."]
module PutVoiceConnectorTerminationResponse =
  struct
    type nonrec t =
      {
      termination: Termination.t option
        [@ocaml.doc "The updated termination settings."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?termination = fun () -> { termination }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Termination", (Option.map x.termination ~f:Termination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let termination =
        (Option.map ~f:Termination.of_xml) (Xml.child xml_arg0 "Termination") in
      make ?termination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let termination = field_map json__ "Termination" Termination.of_json in
      make ?termination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's termination settings."]
module PutVoiceConnectorTerminationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      termination: Termination.t
        [@ocaml.doc "The termination settings to be updated."]}
    let context_ = "PutVoiceConnectorTerminationRequest"
    let make ~voiceConnectorId =
      fun ~termination -> fun () -> { voiceConnectorId; termination }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("Termination", (Some (Termination.to_value x.termination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let termination =
        Termination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Termination") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~termination ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let termination =
        field_map_exn json__ "Termination" Termination.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~termination ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's termination settings."]
module PutVoiceConnectorTerminationCredentialsRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      credentials: CredentialList.t option
        [@ocaml.doc "The termination credentials being updated."]}
    let context_ = "PutVoiceConnectorTerminationCredentialsRequest"
    let make ?credentials =
      fun ~voiceConnectorId -> fun () -> { credentials; voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("Credentials",
          (Option.map x.credentials ~f:CredentialList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let credentials =
        (Option.map ~f:CredentialList.of_xml)
          (Xml.child xml_arg0 "Credentials") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?credentials ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let credentials = field_map json__ "Credentials" CredentialList.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ?credentials ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's termination credentials."]
module PutVoiceConnectorStreamingConfigurationResponse =
  struct
    type nonrec t =
      {
      streamingConfiguration: StreamingConfiguration.t option
        [@ocaml.doc "The updated streaming settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?streamingConfiguration = fun () -> { streamingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("StreamingConfiguration",
           (Option.map x.streamingConfiguration
              ~f:StreamingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamingConfiguration =
        (Option.map ~f:StreamingConfiguration.of_xml)
          (Xml.child xml_arg0 "StreamingConfiguration") in
      make ?streamingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamingConfiguration =
        field_map json__ "StreamingConfiguration"
          StreamingConfiguration.of_json in
      make ?streamingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Voice Connector's streaming configuration settings."]
module PutVoiceConnectorStreamingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      streamingConfiguration: StreamingConfiguration.t
        [@ocaml.doc "The streaming settings being updated."]}
    let context_ = "PutVoiceConnectorStreamingConfigurationRequest"
    let make ~voiceConnectorId =
      fun ~streamingConfiguration ->
        fun () -> { voiceConnectorId; streamingConfiguration }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("StreamingConfiguration",
          (Some (StreamingConfiguration.to_value x.streamingConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamingConfiguration =
        StreamingConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StreamingConfiguration") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~streamingConfiguration ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamingConfiguration =
        field_map_exn json__ "StreamingConfiguration"
          StreamingConfiguration.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~streamingConfiguration ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Voice Connector's streaming configuration settings."]
module PutVoiceConnectorProxyResponse =
  struct
    type nonrec t =
      {
      proxy: Proxy.t option [@ocaml.doc "The proxy configuration details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxy = fun () -> { proxy }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Proxy", (Option.map x.proxy ~f:Proxy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxy = (Option.map ~f:Proxy.of_xml) (Xml.child xml_arg0 "Proxy") in
      make ?proxy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxy = field_map json__ "Proxy" Proxy.of_json in make ?proxy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Puts the specified proxy configuration to the specified Amazon Chime SDK Voice Connector."]
module PutVoiceConnectorProxyRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      defaultSessionExpiryMinutes: Integer.t
        [@ocaml.doc
          "The default number of minutes allowed for proxy session."];
      phoneNumberPoolCountries: CountryList.t
        [@ocaml.doc
          "The countries for proxy phone numbers to be selected from."];
      fallBackPhoneNumber: E164PhoneNumber.t option
        [@ocaml.doc
          "The phone number to route calls to after a proxy session expires."];
      disabled: Boolean.t option
        [@ocaml.doc
          "When true, stops proxy sessions from being created on the specified Amazon Chime SDK Voice Connector."]}
    let context_ = "PutVoiceConnectorProxyRequest"
    let make ?fallBackPhoneNumber =
      fun ?disabled ->
        fun ~voiceConnectorId ->
          fun ~defaultSessionExpiryMinutes ->
            fun ~phoneNumberPoolCountries ->
              fun () ->
                {
                  fallBackPhoneNumber;
                  disabled;
                  voiceConnectorId;
                  defaultSessionExpiryMinutes;
                  phoneNumberPoolCountries
                }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("DefaultSessionExpiryMinutes",
          (Some (Integer.to_value x.defaultSessionExpiryMinutes)));
        ("PhoneNumberPoolCountries",
          (Some (CountryList.to_value x.phoneNumberPoolCountries)));
        ("FallBackPhoneNumber",
          (Option.map x.fallBackPhoneNumber ~f:E164PhoneNumber.to_value));
        ("Disabled", (Option.map x.disabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Disabled") in
      let fallBackPhoneNumber =
        (Option.map ~f:E164PhoneNumber.of_xml)
          (Xml.child xml_arg0 "FallBackPhoneNumber") in
      let phoneNumberPoolCountries =
        CountryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "PhoneNumberPoolCountries") in
      let defaultSessionExpiryMinutes =
        Integer.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "DefaultSessionExpiryMinutes") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?disabled ?fallBackPhoneNumber ~phoneNumberPoolCountries
        ~defaultSessionExpiryMinutes ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disabled = field_map json__ "Disabled" Boolean.of_json in
      let fallBackPhoneNumber =
        field_map json__ "FallBackPhoneNumber" E164PhoneNumber.of_json in
      let phoneNumberPoolCountries =
        field_map_exn json__ "PhoneNumberPoolCountries" CountryList.of_json in
      let defaultSessionExpiryMinutes =
        field_map_exn json__ "DefaultSessionExpiryMinutes" Integer.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?disabled ?fallBackPhoneNumber ~phoneNumberPoolCountries
        ~defaultSessionExpiryMinutes ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Puts the specified proxy configuration to the specified Amazon Chime SDK Voice Connector."]
module PutVoiceConnectorOriginationResponse =
  struct
    type nonrec t =
      {
      origination: Origination.t option
        [@ocaml.doc "The updated origination settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?origination = fun () -> { origination }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Origination", (Option.map x.origination ~f:Origination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "Origination") in
      make ?origination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let origination = field_map json__ "Origination" Origination.of_json in
      make ?origination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's origination settings."]
module PutVoiceConnectorOriginationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      origination: Origination.t
        [@ocaml.doc "The origination settings being updated."]}
    let context_ = "PutVoiceConnectorOriginationRequest"
    let make ~voiceConnectorId =
      fun ~origination -> fun () -> { voiceConnectorId; origination }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("Origination", (Some (Origination.to_value x.origination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let origination =
        Origination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Origination") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~origination ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let origination =
        field_map_exn json__ "Origination" Origination.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~origination ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's origination settings."]
module PutVoiceConnectorLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      loggingConfiguration: LoggingConfiguration.t option
        [@ocaml.doc "The updated logging configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?loggingConfiguration = fun () -> { loggingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("LoggingConfiguration",
           (Option.map x.loggingConfiguration
              ~f:LoggingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfiguration =
        (Option.map ~f:LoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "LoggingConfiguration") in
      make ?loggingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfiguration =
        field_map json__ "LoggingConfiguration" LoggingConfiguration.of_json in
      make ?loggingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's logging configuration."]
module PutVoiceConnectorLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      loggingConfiguration: LoggingConfiguration.t
        [@ocaml.doc "The logging configuration being updated."]}
    let context_ = "PutVoiceConnectorLoggingConfigurationRequest"
    let make ~voiceConnectorId =
      fun ~loggingConfiguration ->
        fun () -> { voiceConnectorId; loggingConfiguration }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("LoggingConfiguration",
          (Some (LoggingConfiguration.to_value x.loggingConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfiguration =
        LoggingConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LoggingConfiguration") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~loggingConfiguration ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfiguration =
        field_map_exn json__ "LoggingConfiguration"
          LoggingConfiguration.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~loggingConfiguration ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a Voice Connector's logging configuration."]
module PutVoiceConnectorExternalSystemsConfigurationResponse =
  struct
    type nonrec t =
      {
      externalSystemsConfiguration: ExternalSystemsConfiguration.t option
        [@ocaml.doc
          "An object that contains information about an external systems configuration for a Voice Connector."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?externalSystemsConfiguration =
      fun () -> { externalSystemsConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ExternalSystemsConfiguration",
           (Option.map x.externalSystemsConfiguration
              ~f:ExternalSystemsConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalSystemsConfiguration =
        (Option.map ~f:ExternalSystemsConfiguration.of_xml)
          (Xml.child xml_arg0 "ExternalSystemsConfiguration") in
      make ?externalSystemsConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalSystemsConfiguration =
        field_map json__ "ExternalSystemsConfiguration"
          ExternalSystemsConfiguration.of_json in
      make ?externalSystemsConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds an external systems configuration to a Voice Connector."]
module PutVoiceConnectorExternalSystemsConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc
          "The ID of the Voice Connector for which to add the external system configuration."];
      sessionBorderControllerTypes: SessionBorderControllerTypeList.t option
        [@ocaml.doc "The session border controllers to use."];
      contactCenterSystemTypes: ContactCenterSystemTypeList.t option
        [@ocaml.doc "The contact center system to use."]}
    let context_ = "PutVoiceConnectorExternalSystemsConfigurationRequest"
    let make ?sessionBorderControllerTypes =
      fun ?contactCenterSystemTypes ->
        fun ~voiceConnectorId ->
          fun () ->
            {
              sessionBorderControllerTypes;
              contactCenterSystemTypes;
              voiceConnectorId
            }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("SessionBorderControllerTypes",
          (Option.map x.sessionBorderControllerTypes
             ~f:SessionBorderControllerTypeList.to_value));
        ("ContactCenterSystemTypes",
          (Option.map x.contactCenterSystemTypes
             ~f:ContactCenterSystemTypeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactCenterSystemTypes =
        (Option.map ~f:ContactCenterSystemTypeList.of_xml)
          (Xml.child xml_arg0 "ContactCenterSystemTypes") in
      let sessionBorderControllerTypes =
        (Option.map ~f:SessionBorderControllerTypeList.of_xml)
          (Xml.child xml_arg0 "SessionBorderControllerTypes") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?contactCenterSystemTypes ?sessionBorderControllerTypes
        ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactCenterSystemTypes =
        field_map json__ "ContactCenterSystemTypes"
          ContactCenterSystemTypeList.of_json in
      let sessionBorderControllerTypes =
        field_map json__ "SessionBorderControllerTypes"
          SessionBorderControllerTypeList.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?contactCenterSystemTypes ?sessionBorderControllerTypes
        ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds an external systems configuration to a Voice Connector."]
module PutVoiceConnectorEmergencyCallingConfigurationResponse =
  struct
    type nonrec t =
      {
      emergencyCallingConfiguration: EmergencyCallingConfiguration.t option
        [@ocaml.doc "The updated configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?emergencyCallingConfiguration =
      fun () -> { emergencyCallingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("EmergencyCallingConfiguration",
           (Option.map x.emergencyCallingConfiguration
              ~f:EmergencyCallingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emergencyCallingConfiguration =
        (Option.map ~f:EmergencyCallingConfiguration.of_xml)
          (Xml.child xml_arg0 "EmergencyCallingConfiguration") in
      make ?emergencyCallingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emergencyCallingConfiguration =
        field_map json__ "EmergencyCallingConfiguration"
          EmergencyCallingConfiguration.of_json in
      make ?emergencyCallingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Voice Connector's emergency calling configuration."]
module PutVoiceConnectorEmergencyCallingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      emergencyCallingConfiguration: EmergencyCallingConfiguration.t
        [@ocaml.doc "The configuration being updated."]}
    let context_ = "PutVoiceConnectorEmergencyCallingConfigurationRequest"
    let make ~voiceConnectorId =
      fun ~emergencyCallingConfiguration ->
        fun () -> { voiceConnectorId; emergencyCallingConfiguration }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("EmergencyCallingConfiguration",
          (Some
             (EmergencyCallingConfiguration.to_value
                x.emergencyCallingConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emergencyCallingConfiguration =
        EmergencyCallingConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "EmergencyCallingConfiguration") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~emergencyCallingConfiguration ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emergencyCallingConfiguration =
        field_map_exn json__ "EmergencyCallingConfiguration"
          EmergencyCallingConfiguration.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~emergencyCallingConfiguration ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a Voice Connector's emergency calling configuration."]
module PutSipMediaApplicationLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplicationLoggingConfiguration:
        SipMediaApplicationLoggingConfiguration.t option
        [@ocaml.doc
          "The updated logging configuration for the specified SIP media application."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplicationLoggingConfiguration =
      fun () -> { sipMediaApplicationLoggingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplicationLoggingConfiguration",
           (Option.map x.sipMediaApplicationLoggingConfiguration
              ~f:SipMediaApplicationLoggingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationLoggingConfiguration =
        (Option.map ~f:SipMediaApplicationLoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationLoggingConfiguration") in
      make ?sipMediaApplicationLoggingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationLoggingConfiguration =
        field_map json__ "SipMediaApplicationLoggingConfiguration"
          SipMediaApplicationLoggingConfiguration.of_json in
      make ?sipMediaApplicationLoggingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the logging configuration for the specified SIP media application."]
module PutSipMediaApplicationLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID."];
      sipMediaApplicationLoggingConfiguration:
        SipMediaApplicationLoggingConfiguration.t option
        [@ocaml.doc
          "The logging configuration for the specified SIP media application."]}
    let context_ = "PutSipMediaApplicationLoggingConfigurationRequest"
    let make ?sipMediaApplicationLoggingConfiguration =
      fun ~sipMediaApplicationId ->
        fun () ->
          { sipMediaApplicationLoggingConfiguration; sipMediaApplicationId }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)));
        ("SipMediaApplicationLoggingConfiguration",
          (Option.map x.sipMediaApplicationLoggingConfiguration
             ~f:SipMediaApplicationLoggingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationLoggingConfiguration =
        (Option.map ~f:SipMediaApplicationLoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationLoggingConfiguration") in
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ?sipMediaApplicationLoggingConfiguration ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationLoggingConfiguration =
        field_map json__ "SipMediaApplicationLoggingConfiguration"
          SipMediaApplicationLoggingConfiguration.of_json in
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ?sipMediaApplicationLoggingConfiguration ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the logging configuration for the specified SIP media application."]
module PutSipMediaApplicationAlexaSkillConfigurationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplicationAlexaSkillConfiguration:
        SipMediaApplicationAlexaSkillConfiguration.t option
        [@ocaml.doc "Returns the Alexa Skill configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplicationAlexaSkillConfiguration =
      fun () -> { sipMediaApplicationAlexaSkillConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplicationAlexaSkillConfiguration",
           (Option.map x.sipMediaApplicationAlexaSkillConfiguration
              ~f:SipMediaApplicationAlexaSkillConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationAlexaSkillConfiguration =
        (Option.map ~f:SipMediaApplicationAlexaSkillConfiguration.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationAlexaSkillConfiguration") in
      make ?sipMediaApplicationAlexaSkillConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationAlexaSkillConfiguration =
        field_map json__ "SipMediaApplicationAlexaSkillConfiguration"
          SipMediaApplicationAlexaSkillConfiguration.of_json in
      make ?sipMediaApplicationAlexaSkillConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the Alexa Skill configuration for the SIP media application. Due to changes made by the Amazon Alexa service, this API is no longer available for use. For more information, refer to the Alexa Smart Properties page."]
module PutSipMediaApplicationAlexaSkillConfigurationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID."];
      sipMediaApplicationAlexaSkillConfiguration:
        SipMediaApplicationAlexaSkillConfiguration.t option
        [@ocaml.doc "The Alexa Skill configuration."]}
    let context_ = "PutSipMediaApplicationAlexaSkillConfigurationRequest"
    let make ?sipMediaApplicationAlexaSkillConfiguration =
      fun ~sipMediaApplicationId ->
        fun () ->
          { sipMediaApplicationAlexaSkillConfiguration; sipMediaApplicationId
          }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)));
        ("SipMediaApplicationAlexaSkillConfiguration",
          (Option.map x.sipMediaApplicationAlexaSkillConfiguration
             ~f:SipMediaApplicationAlexaSkillConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationAlexaSkillConfiguration =
        (Option.map ~f:SipMediaApplicationAlexaSkillConfiguration.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationAlexaSkillConfiguration") in
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ?sipMediaApplicationAlexaSkillConfiguration ~sipMediaApplicationId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationAlexaSkillConfiguration =
        field_map json__ "SipMediaApplicationAlexaSkillConfiguration"
          SipMediaApplicationAlexaSkillConfiguration.of_json in
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ?sipMediaApplicationAlexaSkillConfiguration ~sipMediaApplicationId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the Alexa Skill configuration for the SIP media application. Due to changes made by the Amazon Alexa service, this API is no longer available for use. For more information, refer to the Alexa Smart Properties page."]
module ListVoiceProfilesResponse =
  struct
    type nonrec t =
      {
      voiceProfiles: VoiceProfileSummaryList.t option
        [@ocaml.doc "The list of voice profiles."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfiles =
      fun ?nextToken -> fun () -> { voiceProfiles; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfiles",
           (Option.map x.voiceProfiles ~f:VoiceProfileSummaryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let voiceProfiles =
        (Option.map ~f:VoiceProfileSummaryList.of_xml)
          (Xml.child xml_arg0 "VoiceProfiles") in
      make ?nextToken ?voiceProfiles ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let voiceProfiles =
        field_map json__ "VoiceProfiles" VoiceProfileSummaryList.of_json in
      make ?nextToken ?voiceProfiles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the voice profiles in a voice profile domain."]
module ListVoiceProfilesRequest =
  struct
    type nonrec t =
      {
      voiceProfileDomainId: NonEmptyString256.t
        [@ocaml.doc "The ID of the voice profile domain."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to retrieve the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc "The maximum number of results in the request."]}
    let context_ = "ListVoiceProfilesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~voiceProfileDomainId ->
          fun () -> { nextToken; maxResults; voiceProfileDomainId }
    let to_value x =
      structure_to_value
        [("voice-profile-domain-id",
           (Some (NonEmptyString256.to_value x.voiceProfileDomainId)));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let voiceProfileDomainId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voice-profile-domain-id") in
      make ?maxResults ?nextToken ~voiceProfileDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let voiceProfileDomainId =
        field_map_exn json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      make ?maxResults ?nextToken ~voiceProfileDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the voice profiles in a voice profile domain."]
module ListVoiceProfileDomainsResponse =
  struct
    type nonrec t =
      {
      voiceProfileDomains: VoiceProfileDomainSummaryList.t option
        [@ocaml.doc "The list of voice profile domains."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfileDomains =
      fun ?nextToken -> fun () -> { voiceProfileDomains; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfileDomains",
           (Option.map x.voiceProfileDomains
              ~f:VoiceProfileDomainSummaryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let voiceProfileDomains =
        (Option.map ~f:VoiceProfileDomainSummaryList.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomains") in
      make ?nextToken ?voiceProfileDomains ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let voiceProfileDomains =
        field_map json__ "VoiceProfileDomains"
          VoiceProfileDomainSummaryList.of_json in
      make ?nextToken ?voiceProfileDomains ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the specified voice profile domains in the administrator's AWS account."]
module ListVoiceProfileDomainsRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the specified voice profile domains in the administrator's AWS account."]
module ListVoiceConnectorsResponse =
  struct
    type nonrec t =
      {
      voiceConnectors: VoiceConnectorList.t option
        [@ocaml.doc "The details of the Voice Connectors."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnectors =
      fun ?nextToken -> fun () -> { voiceConnectors; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnectors",
           (Option.map x.voiceConnectors ~f:VoiceConnectorList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let voiceConnectors =
        (Option.map ~f:VoiceConnectorList.of_xml)
          (Xml.child xml_arg0 "VoiceConnectors") in
      make ?nextToken ?voiceConnectors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let voiceConnectors =
        field_map json__ "VoiceConnectors" VoiceConnectorList.of_json in
      make ?nextToken ?voiceConnectors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Chime SDK Voice Connectors in the administrators AWS account."]
module ListVoiceConnectorsRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Chime SDK Voice Connectors in the administrators AWS account."]
module ListVoiceConnectorTerminationCredentialsResponse =
  struct
    type nonrec t =
      {
      usernames: SensitiveStringList.t option
        [@ocaml.doc "A list of user names."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?usernames = fun () -> { usernames }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Usernames",
           (Option.map x.usernames ~f:SensitiveStringList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usernames =
        (Option.map ~f:SensitiveStringList.of_xml)
          (Xml.child xml_arg0 "Usernames") in
      make ?usernames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usernames =
        field_map json__ "Usernames" SensitiveStringList.of_json in
      make ?usernames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SIP credentials for the specified Amazon Chime SDK Voice Connector."]
module ListVoiceConnectorTerminationCredentialsRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "ListVoiceConnectorTerminationCredentialsRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SIP credentials for the specified Amazon Chime SDK Voice Connector."]
module ListVoiceConnectorGroupsResponse =
  struct
    type nonrec t =
      {
      voiceConnectorGroups: VoiceConnectorGroupList.t option
        [@ocaml.doc "The details of the Voice Connector groups."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnectorGroups =
      fun ?nextToken -> fun () -> { voiceConnectorGroups; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnectorGroups",
           (Option.map x.voiceConnectorGroups
              ~f:VoiceConnectorGroupList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let voiceConnectorGroups =
        (Option.map ~f:VoiceConnectorGroupList.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorGroups") in
      make ?nextToken ?voiceConnectorGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let voiceConnectorGroups =
        field_map json__ "VoiceConnectorGroups"
          VoiceConnectorGroupList.of_json in
      make ?nextToken ?voiceConnectorGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Chime SDK Voice Connector groups in the administrator's AWS account."]
module ListVoiceConnectorGroupsRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Chime SDK Voice Connector groups in the administrator's AWS account."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option [@ocaml.doc "The tags in the list."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.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" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of the tags in a given resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t = {
      resourceARN: Arn.t [@ocaml.doc "The resource ARN."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value [("arn", (Some (Arn.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") 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" Arn.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of the tags in a given resource."]
module ListSupportedPhoneNumberCountriesResponse =
  struct
    type nonrec t =
      {
      phoneNumberCountries: PhoneNumberCountriesList.t option
        [@ocaml.doc "The supported phone number countries."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberCountries = fun () -> { phoneNumberCountries }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberCountries",
           (Option.map x.phoneNumberCountries
              ~f:PhoneNumberCountriesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberCountries =
        (Option.map ~f:PhoneNumberCountriesList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberCountries") in
      make ?phoneNumberCountries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberCountries =
        field_map json__ "PhoneNumberCountries"
          PhoneNumberCountriesList.of_json in
      make ?phoneNumberCountries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the countries that you can order phone numbers from."]
module ListSupportedPhoneNumberCountriesRequest =
  struct
    type nonrec t =
      {
      productType: PhoneNumberProductType.t
        [@ocaml.doc "The phone number product type."]}
    let context_ = "ListSupportedPhoneNumberCountriesRequest"
    let make ~productType = fun () -> { productType }
    let to_value x =
      structure_to_value
        [("product-type",
           (Some (PhoneNumberProductType.to_value x.productType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let productType =
        PhoneNumberProductType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "product-type") in
      make ~productType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let productType =
        field_map_exn json__ "ProductType" PhoneNumberProductType.of_json in
      make ~productType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the countries that you can order phone numbers from."]
module ListSipRulesResponse =
  struct
    type nonrec t =
      {
      sipRules: SipRuleList.t option
        [@ocaml.doc "The list of SIP rules and details."];
      nextToken: NextTokenString.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipRules = fun ?nextToken -> fun () -> { sipRules; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipRules", (Option.map x.sipRules ~f:SipRuleList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let sipRules =
        (Option.map ~f:SipRuleList.of_xml) (Xml.child xml_arg0 "SipRules") in
      make ?nextToken ?sipRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let sipRules = field_map json__ "SipRules" SipRuleList.of_json in
      make ?nextToken ?sipRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SIP rules under the administrator's AWS account."]
module ListSipRulesRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t option
        [@ocaml.doc "The SIP media application ID."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Defaults to 100."];
      nextToken: NextTokenString.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    let make ?sipMediaApplicationId =
      fun ?maxResults ->
        fun ?nextToken ->
          fun () -> { sipMediaApplicationId; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("sip-media-application",
           (Option.map x.sipMediaApplicationId ~f:NonEmptyString.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let sipMediaApplicationId =
        (Option.map ~f:NonEmptyString.of_xml)
          (Xml.child xml_arg0 "sip-media-application") in
      make ?nextToken ?maxResults ?sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let sipMediaApplicationId =
        field_map json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ?nextToken ?maxResults ?sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SIP rules under the administrator's AWS account."]
module ListSipMediaApplicationsResponse =
  struct
    type nonrec t =
      {
      sipMediaApplications: SipMediaApplicationList.t option
        [@ocaml.doc
          "The list of SIP media applications and application details."];
      nextToken: NextTokenString.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplications =
      fun ?nextToken -> fun () -> { sipMediaApplications; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplications",
           (Option.map x.sipMediaApplications
              ~f:SipMediaApplicationList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let sipMediaApplications =
        (Option.map ~f:SipMediaApplicationList.of_xml)
          (Xml.child xml_arg0 "SipMediaApplications") in
      make ?nextToken ?sipMediaApplications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let sipMediaApplications =
        field_map json__ "SipMediaApplications"
          SipMediaApplicationList.of_json in
      make ?nextToken ?sipMediaApplications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SIP media applications under the administrator's AWS account."]
module ListSipMediaApplicationsRequest =
  struct
    type nonrec t =
      {
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call. Defaults to 100."];
      nextToken: NextTokenString.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") 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" NextTokenString.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the SIP media applications under the administrator's AWS account."]
module ListProxySessionsResponse =
  struct
    type nonrec t =
      {
      proxySessions: ProxySessions.t option
        [@ocaml.doc "The proxy sessions' details."];
      nextToken: NextTokenString.t option
        [@ocaml.doc "The token used to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxySessions =
      fun ?nextToken -> fun () -> { proxySessions; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ProxySessions",
           (Option.map x.proxySessions ~f:ProxySessions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextTokenString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "NextToken") in
      let proxySessions =
        (Option.map ~f:ProxySessions.of_xml)
          (Xml.child xml_arg0 "ProxySessions") in
      make ?nextToken ?proxySessions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let proxySessions =
        field_map json__ "ProxySessions" ProxySessions.of_json in
      make ?nextToken ?proxySessions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the proxy sessions for the specified Amazon Chime SDK Voice Connector."]
module ListProxySessionsRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      status: ProxySessionStatus.t option
        [@ocaml.doc "The proxy session status."];
      nextToken: NextTokenString.t option
        [@ocaml.doc "The token used to retrieve the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let context_ = "ListProxySessionsRequest"
    let make ?status =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~voiceConnectorId ->
            fun () -> { status; nextToken; maxResults; voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("status", (Option.map x.status ~f:ProxySessionStatus.to_value));
        ("next-token", (Option.map x.nextToken ~f:NextTokenString.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:NextTokenString.of_xml)
          (Xml.child xml_arg0 "next-token") in
      let status =
        (Option.map ~f:ProxySessionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?maxResults ?nextToken ?status ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" NextTokenString.of_json in
      let status = field_map json__ "Status" ProxySessionStatus.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?maxResults ?nextToken ?status ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the proxy sessions for the specified Amazon Chime SDK Voice Connector."]
module ListPhoneNumbersResponse =
  struct
    type nonrec t =
      {
      phoneNumbers: PhoneNumberList.t option
        [@ocaml.doc "The phone number details."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumbers =
      fun ?nextToken -> fun () -> { phoneNumbers; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumbers",
           (Option.map x.phoneNumbers ~f:PhoneNumberList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let phoneNumbers =
        (Option.map ~f:PhoneNumberList.of_xml)
          (Xml.child xml_arg0 "PhoneNumbers") in
      make ?nextToken ?phoneNumbers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let phoneNumbers =
        field_map json__ "PhoneNumbers" PhoneNumberList.of_json in
      make ?nextToken ?phoneNumbers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone numbers for the specified Amazon Chime SDK account, Amazon Chime SDK user, Amazon Chime SDK Voice Connector, or Amazon Chime SDK Voice Connector group."]
module ListPhoneNumbersRequest =
  struct
    type nonrec t =
      {
      status: String_.t option
        [@ocaml.doc "The status of your organization's phone numbers."];
      productType: PhoneNumberProductType.t option
        [@ocaml.doc "The phone number product types."];
      filterName: PhoneNumberAssociationName.t option
        [@ocaml.doc "The filter to limit the number of results."];
      filterValue: String_.t option [@ocaml.doc "The filter value."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to return the next page of results."]}
    let make ?status =
      fun ?productType ->
        fun ?filterName ->
          fun ?filterValue ->
            fun ?maxResults ->
              fun ?nextToken ->
                fun () ->
                  {
                    status;
                    productType;
                    filterName;
                    filterValue;
                    maxResults;
                    nextToken
                  }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:String_.to_value));
        ("product-type",
          (Option.map x.productType ~f:PhoneNumberProductType.to_value));
        ("filter-name",
          (Option.map x.filterName ~f:PhoneNumberAssociationName.to_value));
        ("filter-value", (Option.map x.filterValue ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value));
        ("next-token", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let filterValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "filter-value") in
      let filterName =
        (Option.map ~f:PhoneNumberAssociationName.of_xml)
          (Xml.child xml_arg0 "filter-name") in
      let productType =
        (Option.map ~f:PhoneNumberProductType.of_xml)
          (Xml.child xml_arg0 "product-type") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      make ?nextToken ?maxResults ?filterValue ?filterName ?productType
        ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let filterValue = field_map json__ "FilterValue" String_.of_json in
      let filterName =
        field_map json__ "FilterName" PhoneNumberAssociationName.of_json in
      let productType =
        field_map json__ "ProductType" PhoneNumberProductType.of_json in
      let status = field_map json__ "Status" String_.of_json in
      make ?nextToken ?maxResults ?filterValue ?filterName ?productType
        ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone numbers for the specified Amazon Chime SDK account, Amazon Chime SDK user, Amazon Chime SDK Voice Connector, or Amazon Chime SDK Voice Connector group."]
module ListPhoneNumberOrdersResponse =
  struct
    type nonrec t =
      {
      phoneNumberOrders: PhoneNumberOrderList.t option
        [@ocaml.doc "The phone number order details."];
      nextToken: String_.t option
        [@ocaml.doc "The token used to retrieve the next page of results."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberOrders =
      fun ?nextToken -> fun () -> { phoneNumberOrders; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberOrders",
           (Option.map x.phoneNumberOrders ~f:PhoneNumberOrderList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let phoneNumberOrders =
        (Option.map ~f:PhoneNumberOrderList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrders") in
      make ?nextToken ?phoneNumberOrders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let phoneNumberOrders =
        field_map json__ "PhoneNumberOrders" PhoneNumberOrderList.of_json in
      make ?nextToken ?phoneNumberOrders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone numbers for an administrator's Amazon Chime SDK account."]
module ListPhoneNumberOrdersRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc "The token used to retrieve the next page of results."];
      maxResults: ResultMax.t option
        [@ocaml.doc
          "The maximum number of results to return in a single call."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("next-token", (Option.map x.nextToken ~f:String_.to_value));
        ("max-results", (Option.map x.maxResults ~f:ResultMax.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultMax.of_xml) (Xml.child xml_arg0 "max-results") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "next-token") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" ResultMax.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the phone numbers for an administrator's Amazon Chime SDK account."]
module ListAvailableVoiceConnectorRegionsResponse =
  struct
    type nonrec t =
      {
      voiceConnectorRegions: VoiceConnectorAwsRegionList.t option
        [@ocaml.doc "The list of AWS Regions."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnectorRegions = fun () -> { voiceConnectorRegions }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnectorRegions",
           (Option.map x.voiceConnectorRegions
              ~f:VoiceConnectorAwsRegionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorRegions =
        (Option.map ~f:VoiceConnectorAwsRegionList.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorRegions") in
      make ?voiceConnectorRegions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorRegions =
        field_map json__ "VoiceConnectorRegions"
          VoiceConnectorAwsRegionList.of_json in
      make ?voiceConnectorRegions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the available AWS Regions in which you can create an Amazon Chime SDK Voice Connector."]
module GetVoiceToneAnalysisTaskResponse =
  struct
    type nonrec t =
      {
      voiceToneAnalysisTask: VoiceToneAnalysisTask.t option
        [@ocaml.doc "The details of the voice tone analysis task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceToneAnalysisTask = fun () -> { voiceToneAnalysisTask }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceToneAnalysisTask",
           (Option.map x.voiceToneAnalysisTask
              ~f:VoiceToneAnalysisTask.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceToneAnalysisTask =
        (Option.map ~f:VoiceToneAnalysisTask.of_xml)
          (Xml.child xml_arg0 "VoiceToneAnalysisTask") in
      make ?voiceToneAnalysisTask ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceToneAnalysisTask =
        field_map json__ "VoiceToneAnalysisTask"
          VoiceToneAnalysisTask.of_json in
      make ?voiceToneAnalysisTask ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of a voice tone analysis task."]
module GetVoiceToneAnalysisTaskRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      voiceToneAnalysisTaskId: NonEmptyString256.t
        [@ocaml.doc "The ID of the voice tone analysis task."];
      isCaller: Boolean.t
        [@ocaml.doc
          "Specifies whether the voice being analyzed is the caller (originator) or the callee (responder)."]}
    let context_ = "GetVoiceToneAnalysisTaskRequest"
    let make ~voiceConnectorId =
      fun ~voiceToneAnalysisTaskId ->
        fun ~isCaller ->
          fun () -> { voiceConnectorId; voiceToneAnalysisTaskId; isCaller }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("VoiceToneAnalysisTaskId",
          (Some (NonEmptyString256.to_value x.voiceToneAnalysisTaskId)));
        ("isCaller", (Some (Boolean.to_value x.isCaller)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isCaller =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "isCaller") in
      let voiceToneAnalysisTaskId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceToneAnalysisTaskId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ~isCaller ~voiceToneAnalysisTaskId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isCaller = field_map_exn json__ "IsCaller" Boolean.of_json in
      let voiceToneAnalysisTaskId =
        field_map_exn json__ "VoiceToneAnalysisTaskId"
          NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~isCaller ~voiceToneAnalysisTaskId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of a voice tone analysis task."]
module GetVoiceProfileResponse =
  struct
    type nonrec t =
      {
      voiceProfile: VoiceProfile.t option
        [@ocaml.doc "The voice profile details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfile = fun () -> { voiceProfile }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfile",
           (Option.map x.voiceProfile ~f:VoiceProfile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfile =
        (Option.map ~f:VoiceProfile.of_xml)
          (Xml.child xml_arg0 "VoiceProfile") in
      make ?voiceProfile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfile = field_map json__ "VoiceProfile" VoiceProfile.of_json in
      make ?voiceProfile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of the specified voice profile."]
module GetVoiceProfileRequest =
  struct
    type nonrec t =
      {
      voiceProfileId: NonEmptyString256.t
        [@ocaml.doc "The voice profile ID."]}
    let context_ = "GetVoiceProfileRequest"
    let make ~voiceProfileId = fun () -> { voiceProfileId }
    let to_value x =
      structure_to_value
        [("VoiceProfileId",
           (Some (NonEmptyString256.to_value x.voiceProfileId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileId") in
      make ~voiceProfileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileId =
        field_map_exn json__ "VoiceProfileId" NonEmptyString256.of_json in
      make ~voiceProfileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of the specified voice profile."]
module GetVoiceProfileDomainResponse =
  struct
    type nonrec t =
      {
      voiceProfileDomain: VoiceProfileDomain.t option
        [@ocaml.doc "The details of the voice profile domain."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfileDomain = fun () -> { voiceProfileDomain }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfileDomain",
           (Option.map x.voiceProfileDomain ~f:VoiceProfileDomain.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileDomain =
        (Option.map ~f:VoiceProfileDomain.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomain") in
      make ?voiceProfileDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileDomain =
        field_map json__ "VoiceProfileDomain" VoiceProfileDomain.of_json in
      make ?voiceProfileDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of the specified voice profile domain."]
module GetVoiceProfileDomainRequest =
  struct
    type nonrec t =
      {
      voiceProfileDomainId: NonEmptyString256.t
        [@ocaml.doc "The voice profile domain ID."]}
    let context_ = "GetVoiceProfileDomainRequest"
    let make ~voiceProfileDomainId = fun () -> { voiceProfileDomainId }
    let to_value x =
      structure_to_value
        [("VoiceProfileDomainId",
           (Some (NonEmptyString256.to_value x.voiceProfileDomainId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileDomainId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileDomainId") in
      make ~voiceProfileDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileDomainId =
        field_map_exn json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      make ~voiceProfileDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of the specified voice profile domain."]
module GetVoiceConnectorTerminationResponse =
  struct
    type nonrec t =
      {
      termination: Termination.t option
        [@ocaml.doc "The termination setting details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?termination = fun () -> { termination }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Termination", (Option.map x.termination ~f:Termination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let termination =
        (Option.map ~f:Termination.of_xml) (Xml.child xml_arg0 "Termination") in
      make ?termination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let termination = field_map json__ "Termination" Termination.of_json in
      make ?termination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the termination setting details for the specified Voice Connector."]
module GetVoiceConnectorTerminationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorTerminationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the termination setting details for the specified Voice Connector."]
module GetVoiceConnectorTerminationHealthResponse =
  struct
    type nonrec t =
      {
      terminationHealth: TerminationHealth.t option
        [@ocaml.doc "The termination health details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?terminationHealth = fun () -> { terminationHealth }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("TerminationHealth",
           (Option.map x.terminationHealth ~f:TerminationHealth.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let terminationHealth =
        (Option.map ~f:TerminationHealth.of_xml)
          (Xml.child xml_arg0 "TerminationHealth") in
      make ?terminationHealth ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let terminationHealth =
        field_map json__ "TerminationHealth" TerminationHealth.of_json in
      make ?terminationHealth ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the last time a SIP OPTIONS ping was received from your SIP infrastructure for the specified Amazon Chime SDK Voice Connector."]
module GetVoiceConnectorTerminationHealthRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorTerminationHealthRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the last time a SIP OPTIONS ping was received from your SIP infrastructure for the specified Amazon Chime SDK Voice Connector."]
module GetVoiceConnectorStreamingConfigurationResponse =
  struct
    type nonrec t =
      {
      streamingConfiguration: StreamingConfiguration.t option
        [@ocaml.doc "The details of the streaming configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?streamingConfiguration = fun () -> { streamingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("StreamingConfiguration",
           (Option.map x.streamingConfiguration
              ~f:StreamingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamingConfiguration =
        (Option.map ~f:StreamingConfiguration.of_xml)
          (Xml.child xml_arg0 "StreamingConfiguration") in
      make ?streamingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamingConfiguration =
        field_map json__ "StreamingConfiguration"
          StreamingConfiguration.of_json in
      make ?streamingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the streaming configuration details for the specified Amazon Chime SDK Voice Connector. Shows whether media streaming is enabled for sending to Amazon Kinesis. It also shows the retention period, in hours, for the Amazon Kinesis data."]
module GetVoiceConnectorStreamingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorStreamingConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the streaming configuration details for the specified Amazon Chime SDK Voice Connector. Shows whether media streaming is enabled for sending to Amazon Kinesis. It also shows the retention period, in hours, for the Amazon Kinesis data."]
module GetVoiceConnectorResponse =
  struct
    type nonrec t =
      {
      voiceConnector: VoiceConnector.t option
        [@ocaml.doc "The Voice Connector details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnector = fun () -> { voiceConnector }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnector",
           (Option.map x.voiceConnector ~f:VoiceConnector.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnector.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      make ?voiceConnector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnector.of_json in
      make ?voiceConnector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified Amazon Chime SDK Voice Connector, such as timestamps,name, outbound host, and encryption requirements."]
module GetVoiceConnectorRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified Amazon Chime SDK Voice Connector, such as timestamps,name, outbound host, and encryption requirements."]
module GetVoiceConnectorProxyResponse =
  struct
    type nonrec t =
      {
      proxy: Proxy.t option [@ocaml.doc "The proxy configuration details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxy = fun () -> { proxy }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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 [("Proxy", (Option.map x.proxy ~f:Proxy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxy = (Option.map ~f:Proxy.of_xml) (Xml.child xml_arg0 "Proxy") in
      make ?proxy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxy = field_map json__ "Proxy" Proxy.of_json in make ?proxy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the proxy configuration details for the specified Amazon Chime SDK Voice Connector."]
module GetVoiceConnectorProxyRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorProxyRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the proxy configuration details for the specified Amazon Chime SDK Voice Connector."]
module GetVoiceConnectorOriginationResponse =
  struct
    type nonrec t =
      {
      origination: Origination.t option
        [@ocaml.doc "The origination setting details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?origination = fun () -> { origination }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("Origination", (Option.map x.origination ~f:Origination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let origination =
        (Option.map ~f:Origination.of_xml) (Xml.child xml_arg0 "Origination") in
      make ?origination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let origination = field_map json__ "Origination" Origination.of_json in
      make ?origination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the origination settings for the specified Voice Connector."]
module GetVoiceConnectorOriginationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorOriginationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the origination settings for the specified Voice Connector."]
module GetVoiceConnectorLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      loggingConfiguration: LoggingConfiguration.t option
        [@ocaml.doc "The logging configuration details ."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?loggingConfiguration = fun () -> { loggingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("LoggingConfiguration",
           (Option.map x.loggingConfiguration
              ~f:LoggingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let loggingConfiguration =
        (Option.map ~f:LoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "LoggingConfiguration") in
      make ?loggingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let loggingConfiguration =
        field_map json__ "LoggingConfiguration" LoggingConfiguration.of_json in
      make ?loggingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the logging configuration settings for the specified Voice Connector. Shows whether SIP message logs are enabled for sending to Amazon CloudWatch Logs."]
module GetVoiceConnectorLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorLoggingConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the logging configuration settings for the specified Voice Connector. Shows whether SIP message logs are enabled for sending to Amazon CloudWatch Logs."]
module GetVoiceConnectorGroupResponse =
  struct
    type nonrec t =
      {
      voiceConnectorGroup: VoiceConnectorGroup.t option
        [@ocaml.doc "The details of the Voice Connector group."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnectorGroup = fun () -> { voiceConnectorGroup }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnectorGroup",
           (Option.map x.voiceConnectorGroup ~f:VoiceConnectorGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorGroup =
        (Option.map ~f:VoiceConnectorGroup.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorGroup") in
      make ?voiceConnectorGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorGroup =
        field_map json__ "VoiceConnectorGroup" VoiceConnectorGroup.of_json in
      make ?voiceConnectorGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified Amazon Chime SDK Voice Connector group, such as timestamps,name, and associated VoiceConnectorItems."]
module GetVoiceConnectorGroupRequest =
  struct
    type nonrec t =
      {
      voiceConnectorGroupId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector group ID."]}
    let context_ = "GetVoiceConnectorGroupRequest"
    let make ~voiceConnectorGroupId = fun () -> { voiceConnectorGroupId }
    let to_value x =
      structure_to_value
        [("voiceConnectorGroupId",
           (Some (NonEmptyString.to_value x.voiceConnectorGroupId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorGroupId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorGroupId") in
      make ~voiceConnectorGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorGroupId =
        field_map_exn json__ "VoiceConnectorGroupId" NonEmptyString.of_json in
      make ~voiceConnectorGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified Amazon Chime SDK Voice Connector group, such as timestamps,name, and associated VoiceConnectorItems."]
module GetVoiceConnectorExternalSystemsConfigurationResponse =
  struct
    type nonrec t =
      {
      externalSystemsConfiguration: ExternalSystemsConfiguration.t option
        [@ocaml.doc
          "An object that contains information about an external systems configuration for a Voice Connector."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?externalSystemsConfiguration =
      fun () -> { externalSystemsConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ExternalSystemsConfiguration",
           (Option.map x.externalSystemsConfiguration
              ~f:ExternalSystemsConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let externalSystemsConfiguration =
        (Option.map ~f:ExternalSystemsConfiguration.of_xml)
          (Xml.child xml_arg0 "ExternalSystemsConfiguration") in
      make ?externalSystemsConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let externalSystemsConfiguration =
        field_map json__ "ExternalSystemsConfiguration"
          ExternalSystemsConfiguration.of_json in
      make ?externalSystemsConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about an external systems configuration for a Voice Connector."]
module GetVoiceConnectorExternalSystemsConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc
          "The ID of the Voice Connector for which to return information about the external system configuration."]}
    let context_ = "GetVoiceConnectorExternalSystemsConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about an external systems configuration for a Voice Connector."]
module GetVoiceConnectorEmergencyCallingConfigurationResponse =
  struct
    type nonrec t =
      {
      emergencyCallingConfiguration: EmergencyCallingConfiguration.t option
        [@ocaml.doc "The details of the emergency calling configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?emergencyCallingConfiguration =
      fun () -> { emergencyCallingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("EmergencyCallingConfiguration",
           (Option.map x.emergencyCallingConfiguration
              ~f:EmergencyCallingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emergencyCallingConfiguration =
        (Option.map ~f:EmergencyCallingConfiguration.of_xml)
          (Xml.child xml_arg0 "EmergencyCallingConfiguration") in
      make ?emergencyCallingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emergencyCallingConfiguration =
        field_map json__ "EmergencyCallingConfiguration"
          EmergencyCallingConfiguration.of_json in
      make ?emergencyCallingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the emergency calling configuration details for the specified Voice Connector."]
module GetVoiceConnectorEmergencyCallingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "GetVoiceConnectorEmergencyCallingConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the emergency calling configuration details for the specified Voice Connector."]
module GetSpeakerSearchTaskResponse =
  struct
    type nonrec t =
      {
      speakerSearchTask: SpeakerSearchTask.t option
        [@ocaml.doc "The details of the speaker search task."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?speakerSearchTask = fun () -> { speakerSearchTask }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SpeakerSearchTask",
           (Option.map x.speakerSearchTask ~f:SpeakerSearchTask.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speakerSearchTask =
        (Option.map ~f:SpeakerSearchTask.of_xml)
          (Xml.child xml_arg0 "SpeakerSearchTask") in
      make ?speakerSearchTask ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speakerSearchTask =
        field_map json__ "SpeakerSearchTask" SpeakerSearchTask.of_json in
      make ?speakerSearchTask ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of the specified speaker search task."]
module GetSpeakerSearchTaskRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      speakerSearchTaskId: NonEmptyString256.t
        [@ocaml.doc "The ID of the speaker search task."]}
    let context_ = "GetSpeakerSearchTaskRequest"
    let make ~voiceConnectorId =
      fun ~speakerSearchTaskId ->
        fun () -> { voiceConnectorId; speakerSearchTaskId }
    let to_value x =
      structure_to_value
        [("VoiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("SpeakerSearchTaskId",
          (Some (NonEmptyString256.to_value x.speakerSearchTaskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speakerSearchTaskId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SpeakerSearchTaskId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceConnectorId") in
      make ~speakerSearchTaskId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speakerSearchTaskId =
        field_map_exn json__ "SpeakerSearchTaskId" NonEmptyString256.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~speakerSearchTaskId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of the specified speaker search task."]
module GetSipRuleResponse =
  struct
    type nonrec t =
      {
      sipRule: SipRule.t option [@ocaml.doc "The SIP rule details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipRule = fun () -> { sipRule }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipRule", (Option.map x.sipRule ~f:SipRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipRule =
        (Option.map ~f:SipRule.of_xml) (Xml.child xml_arg0 "SipRule") in
      make ?sipRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipRule = field_map json__ "SipRule" SipRule.of_json in
      make ?sipRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of a SIP rule, such as the rule ID, name, triggers, and target endpoints."]
module GetSipRuleRequest =
  struct
    type nonrec t =
      {
      sipRuleId: NonEmptyString.t [@ocaml.doc "The SIP rule ID."]}
    let context_ = "GetSipRuleRequest"
    let make ~sipRuleId = fun () -> { sipRuleId }
    let to_value x =
      structure_to_value
        [("sipRuleId", (Some (NonEmptyString.to_value x.sipRuleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipRuleId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipRuleId") in
      make ~sipRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipRuleId = field_map_exn json__ "SipRuleId" NonEmptyString.of_json in
      make ~sipRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the details of a SIP rule, such as the rule ID, name, triggers, and target endpoints."]
module GetSipMediaApplicationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplication: SipMediaApplication.t option
        [@ocaml.doc "The details of the SIP media application."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplication = fun () -> { sipMediaApplication }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplication",
           (Option.map x.sipMediaApplication ~f:SipMediaApplication.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplication =
        (Option.map ~f:SipMediaApplication.of_xml)
          (Xml.child xml_arg0 "SipMediaApplication") in
      make ?sipMediaApplication ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplication =
        field_map json__ "SipMediaApplication" SipMediaApplication.of_json in
      make ?sipMediaApplication ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the information for a SIP media application, including name, AWS Region, and endpoints."]
module GetSipMediaApplicationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID ."]}
    let context_ = "GetSipMediaApplicationRequest"
    let make ~sipMediaApplicationId = fun () -> { sipMediaApplicationId }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the information for a SIP media application, including name, AWS Region, and endpoints."]
module GetSipMediaApplicationLoggingConfigurationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplicationLoggingConfiguration:
        SipMediaApplicationLoggingConfiguration.t option
        [@ocaml.doc "The actual logging configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplicationLoggingConfiguration =
      fun () -> { sipMediaApplicationLoggingConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplicationLoggingConfiguration",
           (Option.map x.sipMediaApplicationLoggingConfiguration
              ~f:SipMediaApplicationLoggingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationLoggingConfiguration =
        (Option.map ~f:SipMediaApplicationLoggingConfiguration.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationLoggingConfiguration") in
      make ?sipMediaApplicationLoggingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationLoggingConfiguration =
        field_map json__ "SipMediaApplicationLoggingConfiguration"
          SipMediaApplicationLoggingConfiguration.of_json in
      make ?sipMediaApplicationLoggingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the logging configuration for the specified SIP media application."]
module GetSipMediaApplicationLoggingConfigurationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID."]}
    let context_ = "GetSipMediaApplicationLoggingConfigurationRequest"
    let make ~sipMediaApplicationId = fun () -> { sipMediaApplicationId }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the logging configuration for the specified SIP media application."]
module GetSipMediaApplicationAlexaSkillConfigurationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplicationAlexaSkillConfiguration:
        SipMediaApplicationAlexaSkillConfiguration.t option
        [@ocaml.doc "Returns the Alexa Skill configuration."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplicationAlexaSkillConfiguration =
      fun () -> { sipMediaApplicationAlexaSkillConfiguration }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplicationAlexaSkillConfiguration",
           (Option.map x.sipMediaApplicationAlexaSkillConfiguration
              ~f:SipMediaApplicationAlexaSkillConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationAlexaSkillConfiguration =
        (Option.map ~f:SipMediaApplicationAlexaSkillConfiguration.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationAlexaSkillConfiguration") in
      make ?sipMediaApplicationAlexaSkillConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationAlexaSkillConfiguration =
        field_map json__ "SipMediaApplicationAlexaSkillConfiguration"
          SipMediaApplicationAlexaSkillConfiguration.of_json in
      make ?sipMediaApplicationAlexaSkillConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the Alexa Skill configuration for the SIP media application. Due to changes made by the Amazon Alexa service, this API is no longer available for use. For more information, refer to the Alexa Smart Properties page."]
module GetSipMediaApplicationAlexaSkillConfigurationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID."]}
    let context_ = "GetSipMediaApplicationAlexaSkillConfigurationRequest"
    let make ~sipMediaApplicationId = fun () -> { sipMediaApplicationId }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the Alexa Skill configuration for the SIP media application. Due to changes made by the Amazon Alexa service, this API is no longer available for use. For more information, refer to the Alexa Smart Properties page."]
module GetProxySessionResponse =
  struct
    type nonrec t =
      {
      proxySession: ProxySession.t option
        [@ocaml.doc "The proxy session details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxySession = fun () -> { proxySession }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ProxySession",
           (Option.map x.proxySession ~f:ProxySession.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxySession =
        (Option.map ~f:ProxySession.of_xml)
          (Xml.child xml_arg0 "ProxySession") in
      make ?proxySession ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxySession = field_map json__ "ProxySession" ProxySession.of_json in
      make ?proxySession ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified proxy session details for the specified Amazon Chime SDK Voice Connector."]
module GetProxySessionRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      proxySessionId: NonEmptyString128.t
        [@ocaml.doc "The proxy session ID."]}
    let context_ = "GetProxySessionRequest"
    let make ~voiceConnectorId =
      fun ~proxySessionId -> fun () -> { voiceConnectorId; proxySessionId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("proxySessionId",
          (Some (NonEmptyString128.to_value x.proxySessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxySessionId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "proxySessionId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~proxySessionId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxySessionId =
        field_map_exn json__ "ProxySessionId" NonEmptyString128.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~proxySessionId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the specified proxy session details for the specified Amazon Chime SDK Voice Connector."]
module GetPhoneNumberSettingsResponse =
  struct
    type nonrec t =
      {
      callingName: CallingName.t option
        [@ocaml.doc "The default outbound calling name for the account."];
      callingNameUpdatedTimestamp: Iso8601Timestamp.t option
        [@ocaml.doc
          "The updated outbound calling name timestamp, in ISO 8601 format."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?callingName =
      fun ?callingNameUpdatedTimestamp ->
        fun () -> { callingName; callingNameUpdatedTimestamp }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("CallingName", (Option.map x.callingName ~f:CallingName.to_value));
        ("CallingNameUpdatedTimestamp",
          (Option.map x.callingNameUpdatedTimestamp
             ~f:Iso8601Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let callingNameUpdatedTimestamp =
        (Option.map ~f:Iso8601Timestamp.of_xml)
          (Xml.child xml_arg0 "CallingNameUpdatedTimestamp") in
      let callingName =
        (Option.map ~f:CallingName.of_xml) (Xml.child xml_arg0 "CallingName") in
      make ?callingNameUpdatedTimestamp ?callingName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let callingNameUpdatedTimestamp =
        field_map json__ "CallingNameUpdatedTimestamp"
          Iso8601Timestamp.of_json in
      let callingName = field_map json__ "CallingName" CallingName.of_json in
      make ?callingNameUpdatedTimestamp ?callingName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the phone number settings for the administrator's AWS account, such as the default outbound calling name."]
module GetPhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumber = fun () -> { phoneNumber }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      make ?phoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      make ?phoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number ID, such as associations, capabilities, and product type."]
module GetPhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t
        [@ocaml.doc "The phone number ID."]}
    let context_ = "GetPhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId",
           (Some (SensitiveNonEmptyString.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number ID, such as associations, capabilities, and product type."]
module GetPhoneNumberOrderResponse =
  struct
    type nonrec t =
      {
      phoneNumberOrder: PhoneNumberOrder.t option
        [@ocaml.doc "The phone number order details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberOrder = fun () -> { phoneNumberOrder }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberOrder",
           (Option.map x.phoneNumberOrder ~f:PhoneNumberOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberOrder =
        (Option.map ~f:PhoneNumberOrder.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrder") in
      make ?phoneNumberOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberOrder =
        field_map json__ "PhoneNumberOrder" PhoneNumberOrder.of_json in
      make ?phoneNumberOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number order, such as the order creation timestamp, phone numbers in E.164 format, product type, and order status."]
module GetPhoneNumberOrderRequest =
  struct
    type nonrec t =
      {
      phoneNumberOrderId: GuidString.t
        [@ocaml.doc "The ID of the phone number order ."]}
    let context_ = "GetPhoneNumberOrderRequest"
    let make ~phoneNumberOrderId = fun () -> { phoneNumberOrderId }
    let to_value x =
      structure_to_value
        [("phoneNumberOrderId",
           (Some (GuidString.to_value x.phoneNumberOrderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberOrderId =
        GuidString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberOrderId") in
      make ~phoneNumberOrderId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberOrderId =
        field_map_exn json__ "PhoneNumberOrderId" GuidString.of_json in
      make ~phoneNumberOrderId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details for the specified phone number order, such as the order creation timestamp, phone numbers in E.164 format, product type, and order status."]
module GetGlobalSettingsResponse =
  struct
    type nonrec t =
      {
      voiceConnector: VoiceConnectorSettings.t option
        [@ocaml.doc "The Voice Connector settings."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnector = fun () -> { voiceConnector }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnector",
           (Option.map x.voiceConnector ~f:VoiceConnectorSettings.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnectorSettings.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      make ?voiceConnector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnectorSettings.of_json in
      make ?voiceConnector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the global settings for the Amazon Chime SDK Voice Connectors in an AWS account."]
module DisassociatePhoneNumbersFromVoiceConnectorResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified phone numbers from the specified Amazon Chime SDK Voice Connector."]
module DisassociatePhoneNumbersFromVoiceConnectorRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      e164PhoneNumbers: E164PhoneNumberList.t
        [@ocaml.doc "List of phone numbers, in E.164 format."]}
    let context_ = "DisassociatePhoneNumbersFromVoiceConnectorRequest"
    let make ~voiceConnectorId =
      fun ~e164PhoneNumbers ->
        fun () -> { voiceConnectorId; e164PhoneNumbers }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("E164PhoneNumbers",
          (Some (E164PhoneNumberList.to_value x.e164PhoneNumbers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let e164PhoneNumbers =
        E164PhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumbers") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~e164PhoneNumbers ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let e164PhoneNumbers =
        field_map_exn json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~e164PhoneNumbers ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified phone numbers from the specified Amazon Chime SDK Voice Connector."]
module DisassociatePhoneNumbersFromVoiceConnectorGroupResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified phone numbers from the specified Amazon Chime SDK Voice Connector group."]
module DisassociatePhoneNumbersFromVoiceConnectorGroupRequest =
  struct
    type nonrec t =
      {
      voiceConnectorGroupId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector group ID."];
      e164PhoneNumbers: E164PhoneNumberList.t
        [@ocaml.doc "The list of phone numbers, in E.164 format."]}
    let context_ = "DisassociatePhoneNumbersFromVoiceConnectorGroupRequest"
    let make ~voiceConnectorGroupId =
      fun ~e164PhoneNumbers ->
        fun () -> { voiceConnectorGroupId; e164PhoneNumbers }
    let to_value x =
      structure_to_value
        [("voiceConnectorGroupId",
           (Some (NonEmptyString.to_value x.voiceConnectorGroupId)));
        ("E164PhoneNumbers",
          (Some (E164PhoneNumberList.to_value x.e164PhoneNumbers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let e164PhoneNumbers =
        E164PhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumbers") in
      let voiceConnectorGroupId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorGroupId") in
      make ~e164PhoneNumbers ~voiceConnectorGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let e164PhoneNumbers =
        field_map_exn json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      let voiceConnectorGroupId =
        field_map_exn json__ "VoiceConnectorGroupId" NonEmptyString.of_json in
      make ~e164PhoneNumbers ~voiceConnectorGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates the specified phone numbers from the specified Amazon Chime SDK Voice Connector group."]
module DeleteVoiceProfileRequest =
  struct
    type nonrec t =
      {
      voiceProfileId: NonEmptyString256.t
        [@ocaml.doc "The voice profile ID."]}
    let context_ = "DeleteVoiceProfileRequest"
    let make ~voiceProfileId = fun () -> { voiceProfileId }
    let to_value x =
      structure_to_value
        [("VoiceProfileId",
           (Some (NonEmptyString256.to_value x.voiceProfileId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileId") in
      make ~voiceProfileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileId =
        field_map_exn json__ "VoiceProfileId" NonEmptyString256.of_json in
      make ~voiceProfileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a voice profile, including its voice print and enrollment data. WARNING: This action is not reversible."]
module DeleteVoiceProfileDomainRequest =
  struct
    type nonrec t =
      {
      voiceProfileDomainId: NonEmptyString256.t
        [@ocaml.doc "The voice profile domain ID."]}
    let context_ = "DeleteVoiceProfileDomainRequest"
    let make ~voiceProfileDomainId = fun () -> { voiceProfileDomainId }
    let to_value x =
      structure_to_value
        [("VoiceProfileDomainId",
           (Some (NonEmptyString256.to_value x.voiceProfileDomainId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileDomainId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VoiceProfileDomainId") in
      make ~voiceProfileDomainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileDomainId =
        field_map_exn json__ "VoiceProfileDomainId" NonEmptyString256.of_json in
      make ~voiceProfileDomainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes all voice profiles in the domain. WARNING: This action is not reversible."]
module DeleteVoiceConnectorTerminationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "DeleteVoiceConnectorTerminationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the termination settings for the specified Amazon Chime SDK Voice Connector. If emergency calling is configured for the Voice Connector, it must be deleted prior to deleting the termination settings."]
module DeleteVoiceConnectorTerminationCredentialsRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      usernames: SensitiveStringList.t
        [@ocaml.doc
          "The RFC2617 compliant username associated with the SIP credentials, in US-ASCII format."]}
    let context_ = "DeleteVoiceConnectorTerminationCredentialsRequest"
    let make ~voiceConnectorId =
      fun ~usernames -> fun () -> { voiceConnectorId; usernames }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("Usernames", (Some (SensitiveStringList.to_value x.usernames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usernames =
        SensitiveStringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Usernames") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~usernames ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usernames =
        field_map_exn json__ "Usernames" SensitiveStringList.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~usernames ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified SIP credentials used by your equipment to authenticate during call termination."]
module DeleteVoiceConnectorStreamingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "DeleteVoiceConnectorStreamingConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Voice Connector's streaming configuration."]
module DeleteVoiceConnectorRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "DeleteVoiceConnectorRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an Amazon Chime SDK Voice Connector. Any phone numbers associated with the Amazon Chime SDK Voice Connector must be disassociated from it before it can be deleted."]
module DeleteVoiceConnectorProxyRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "DeleteVoiceConnectorProxyRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the proxy configuration from the specified Amazon Chime SDK Voice Connector."]
module DeleteVoiceConnectorOriginationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "DeleteVoiceConnectorOriginationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the origination settings for the specified Amazon Chime SDK Voice Connector. If emergency calling is configured for the Voice Connector, it must be deleted prior to deleting the origination settings."]
module DeleteVoiceConnectorGroupRequest =
  struct
    type nonrec t =
      {
      voiceConnectorGroupId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector Group ID."]}
    let context_ = "DeleteVoiceConnectorGroupRequest"
    let make ~voiceConnectorGroupId = fun () -> { voiceConnectorGroupId }
    let to_value x =
      structure_to_value
        [("voiceConnectorGroupId",
           (Some (NonEmptyString.to_value x.voiceConnectorGroupId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorGroupId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorGroupId") in
      make ~voiceConnectorGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorGroupId =
        field_map_exn json__ "VoiceConnectorGroupId" NonEmptyString.of_json in
      make ~voiceConnectorGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an Amazon Chime SDK Voice Connector group. Any VoiceConnectorItems and phone numbers associated with the group must be removed before it can be deleted."]
module DeleteVoiceConnectorExternalSystemsConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc
          "The ID of the Voice Connector for which to delete the external system configuration."]}
    let context_ = "DeleteVoiceConnectorExternalSystemsConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the external systems configuration for a Voice Connector."]
module DeleteVoiceConnectorEmergencyCallingConfigurationRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."]}
    let context_ = "DeleteVoiceConnectorEmergencyCallingConfigurationRequest"
    let make ~voiceConnectorId = fun () -> { voiceConnectorId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the emergency calling details from the specified Amazon Chime SDK Voice Connector."]
module DeleteSipRuleRequest =
  struct
    type nonrec t =
      {
      sipRuleId: NonEmptyString.t [@ocaml.doc "The SIP rule ID."]}
    let context_ = "DeleteSipRuleRequest"
    let make ~sipRuleId = fun () -> { sipRuleId }
    let to_value x =
      structure_to_value
        [("sipRuleId", (Some (NonEmptyString.to_value x.sipRuleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipRuleId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipRuleId") in
      make ~sipRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipRuleId = field_map_exn json__ "SipRuleId" NonEmptyString.of_json in
      make ~sipRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a SIP rule."]
module DeleteSipMediaApplicationRequest =
  struct
    type nonrec t =
      {
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The SIP media application ID."]}
    let context_ = "DeleteSipMediaApplicationRequest"
    let make ~sipMediaApplicationId = fun () -> { sipMediaApplicationId }
    let to_value x =
      structure_to_value
        [("sipMediaApplicationId",
           (Some (NonEmptyString.to_value x.sipMediaApplicationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      make ~sipMediaApplicationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      make ~sipMediaApplicationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a SIP media application."]
module DeleteProxySessionRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      proxySessionId: NonEmptyString128.t
        [@ocaml.doc "The proxy session ID."]}
    let context_ = "DeleteProxySessionRequest"
    let make ~voiceConnectorId =
      fun ~proxySessionId -> fun () -> { voiceConnectorId; proxySessionId }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("proxySessionId",
          (Some (NonEmptyString128.to_value x.proxySessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxySessionId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "proxySessionId") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ~proxySessionId ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxySessionId =
        field_map_exn json__ "ProxySessionId" NonEmptyString128.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ~proxySessionId ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified proxy session from the specified Amazon Chime SDK Voice Connector."]
module DeletePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberId: SensitiveNonEmptyString.t
        [@ocaml.doc "The phone number ID."]}
    let context_ = "DeletePhoneNumberRequest"
    let make ~phoneNumberId = fun () -> { phoneNumberId }
    let to_value x =
      structure_to_value
        [("phoneNumberId",
           (Some (SensitiveNonEmptyString.to_value x.phoneNumberId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberId =
        SensitiveNonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phoneNumberId") in
      make ~phoneNumberId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberId =
        field_map_exn json__ "PhoneNumberId" SensitiveNonEmptyString.of_json in
      make ~phoneNumberId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves the specified phone number into the Deletion queue. A phone number must be disassociated from any users or Amazon Chime SDK Voice Connectors before it can be deleted. Deleted phone numbers remain in the Deletion queue queue for 7 days before they are deleted permanently."]
module CreateVoiceProfileResponse =
  struct
    type nonrec t =
      {
      voiceProfile: VoiceProfile.t option
        [@ocaml.doc "The requested voice profile."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `GoneException of GoneException.t 
      | `NotFoundException of NotFoundException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfile = fun () -> { voiceProfile }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "GoneException" -> `GoneException (GoneException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "GoneException" -> `GoneException (GoneException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `GoneException e ->
          `Assoc
            [("error", (`String "GoneException"));
            ("details", (GoneException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfile",
           (Option.map x.voiceProfile ~f:VoiceProfile.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfile =
        (Option.map ~f:VoiceProfile.of_xml)
          (Xml.child xml_arg0 "VoiceProfile") in
      make ?voiceProfile ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfile = field_map json__ "VoiceProfile" VoiceProfile.of_json in
      make ?voiceProfile ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a voice profile, which consists of an enrolled user and their latest voice print. Before creating any voice profiles, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK. For more information about voice profiles and voice analytics, see Using Amazon Chime SDK Voice Analytics in the Amazon Chime SDK Developer Guide."]
module CreateVoiceProfileRequest =
  struct
    type nonrec t =
      {
      speakerSearchTaskId: NonEmptyString256.t
        [@ocaml.doc "The ID of the speaker search task."]}
    let context_ = "CreateVoiceProfileRequest"
    let make ~speakerSearchTaskId = fun () -> { speakerSearchTaskId }
    let to_value x =
      structure_to_value
        [("SpeakerSearchTaskId",
           (Some (NonEmptyString256.to_value x.speakerSearchTaskId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let speakerSearchTaskId =
        NonEmptyString256.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SpeakerSearchTaskId") in
      make ~speakerSearchTaskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let speakerSearchTaskId =
        field_map_exn json__ "SpeakerSearchTaskId" NonEmptyString256.of_json in
      make ~speakerSearchTaskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a voice profile, which consists of an enrolled user and their latest voice print. Before creating any voice profiles, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK. For more information about voice profiles and voice analytics, see Using Amazon Chime SDK Voice Analytics in the Amazon Chime SDK Developer Guide."]
module CreateVoiceProfileDomainResponse =
  struct
    type nonrec t =
      {
      voiceProfileDomain: VoiceProfileDomain.t option
        [@ocaml.doc "The requested voice profile domain."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceProfileDomain = fun () -> { voiceProfileDomain }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceProfileDomain",
           (Option.map x.voiceProfileDomain ~f:VoiceProfileDomain.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceProfileDomain =
        (Option.map ~f:VoiceProfileDomain.of_xml)
          (Xml.child xml_arg0 "VoiceProfileDomain") in
      make ?voiceProfileDomain ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceProfileDomain =
        field_map json__ "VoiceProfileDomain" VoiceProfileDomain.of_json in
      make ?voiceProfileDomain ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a voice profile domain, a collection of voice profiles, their voice prints, and encrypted enrollment audio. Before creating any voice profiles, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK. For more information about voice profile domains, see Using Amazon Chime SDK Voice Analytics in the Amazon Chime SDK Developer Guide."]
module CreateVoiceProfileDomainRequest =
  struct
    type nonrec t =
      {
      name: VoiceProfileDomainName.t
        [@ocaml.doc "The name of the voice profile domain."];
      description: VoiceProfileDomainDescription.t option
        [@ocaml.doc "A description of the voice profile domain."];
      serverSideEncryptionConfiguration: ServerSideEncryptionConfiguration.t
        [@ocaml.doc
          "The server-side encryption configuration for the request."];
      clientRequestToken: ClientRequestId.t option
        [@ocaml.doc
          "The unique identifier for the client request. Use a different token for different domain creation requests."];
      tags: TagList.t option [@ocaml.doc "The tags assigned to the domain."]}
    let context_ = "CreateVoiceProfileDomainRequest"
    let make ?description =
      fun ?clientRequestToken ->
        fun ?tags ->
          fun ~name ->
            fun ~serverSideEncryptionConfiguration ->
              fun () ->
                {
                  description;
                  clientRequestToken;
                  tags;
                  name;
                  serverSideEncryptionConfiguration
                }
    let to_value x =
      structure_to_value
        [("Name", (Some (VoiceProfileDomainName.to_value x.name)));
        ("Description",
          (Option.map x.description ~f:VoiceProfileDomainDescription.to_value));
        ("ServerSideEncryptionConfiguration",
          (Some
             (ServerSideEncryptionConfiguration.to_value
                x.serverSideEncryptionConfiguration)));
        ("ClientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestId.to_value));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestId.of_xml)
          (Xml.child xml_arg0 "ClientRequestToken") in
      let serverSideEncryptionConfiguration =
        ServerSideEncryptionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ServerSideEncryptionConfiguration") in
      let description =
        (Option.map ~f:VoiceProfileDomainDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        VoiceProfileDomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?tags ?clientRequestToken ~serverSideEncryptionConfiguration
        ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let clientRequestToken =
        field_map json__ "ClientRequestToken" ClientRequestId.of_json in
      let serverSideEncryptionConfiguration =
        field_map_exn json__ "ServerSideEncryptionConfiguration"
          ServerSideEncryptionConfiguration.of_json in
      let description =
        field_map json__ "Description" VoiceProfileDomainDescription.of_json in
      let name = field_map_exn json__ "Name" VoiceProfileDomainName.of_json in
      make ?tags ?clientRequestToken ~serverSideEncryptionConfiguration
        ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a voice profile domain, a collection of voice profiles, their voice prints, and encrypted enrollment audio. Before creating any voice profiles, you must provide all notices and obtain all consents from the speaker as required under applicable privacy and biometrics laws, and as required under the AWS service terms for the Amazon Chime SDK. For more information about voice profile domains, see Using Amazon Chime SDK Voice Analytics in the Amazon Chime SDK Developer Guide."]
module CreateVoiceConnectorResponse =
  struct
    type nonrec t =
      {
      voiceConnector: VoiceConnector.t option
        [@ocaml.doc "The details of the Voice Connector."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnector = fun () -> { voiceConnector }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnector",
           (Option.map x.voiceConnector ~f:VoiceConnector.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnector =
        (Option.map ~f:VoiceConnector.of_xml)
          (Xml.child xml_arg0 "VoiceConnector") in
      make ?voiceConnector ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnector =
        field_map json__ "VoiceConnector" VoiceConnector.of_json in
      make ?voiceConnector ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime SDK Voice Connector. For more information about Voice Connectors, see Managing Amazon Chime SDK Voice Connector groups in the Amazon Chime SDK Administrator Guide."]
module CreateVoiceConnectorRequest =
  struct
    type nonrec t =
      {
      name: VoiceConnectorName.t
        [@ocaml.doc "The name of the Voice Connector."];
      awsRegion: VoiceConnectorAwsRegion.t option
        [@ocaml.doc
          "The AWS Region in which the Amazon Chime SDK Voice Connector is created. Default value: us-east-1 ."];
      requireEncryption: Boolean.t
        [@ocaml.doc
          "Enables or disables encryption for the Voice Connector."];
      tags: TagList.t option
        [@ocaml.doc "The tags assigned to the Voice Connector."];
      integrationType: VoiceConnectorIntegrationType.t option
        [@ocaml.doc
          "The connectors for use with Amazon Connect. The following options are available: CONNECT_CALL_TRANSFER_CONNECTOR - Enables enterprises to integrate Amazon Connect with other voice systems to directly transfer voice calls and metadata without using the public telephone network. They can use Amazon Connect telephony and Interactive Voice Response (IVR) with their existing voice systems to modernize the IVR experience of their existing contact center and their enterprise and branch voice systems. Additionally, enterprises migrating their contact center to Amazon Connect can start with Connect telephony and IVR for immediate modernization ahead of agent migration. CONNECT_ANALYTICS_CONNECTOR - Enables enterprises to integrate Amazon Connect with other voice systems for real-time and post-call analytics. They can use Amazon Connect Contact Lens with their existing voice systems to provides call recordings, conversational analytics (including contact transcript, sensitive data redaction, content categorization, theme detection, sentiment analysis, real-time alerts, and post-contact summary), and agent performance evaluations (including evaluation forms, automated evaluation, supervisor review) with a rich user experience to display, search and filter customer interactions, and programmatic access to data streams and the data lake. Additionally, enterprises migrating their contact center to Amazon Connect can start with Contact Lens analytics and performance insights ahead of agent migration."];
      networkType: NetworkType.t option
        [@ocaml.doc
          "The type of network for the Voice Connector. Either IPv4 only or dual-stack (IPv4 and IPv6)."]}
    let context_ = "CreateVoiceConnectorRequest"
    let make ?awsRegion =
      fun ?tags ->
        fun ?integrationType ->
          fun ?networkType ->
            fun ~name ->
              fun ~requireEncryption ->
                fun () ->
                  {
                    awsRegion;
                    tags;
                    integrationType;
                    networkType;
                    name;
                    requireEncryption
                  }
    let to_value x =
      structure_to_value
        [("Name", (Some (VoiceConnectorName.to_value x.name)));
        ("AwsRegion",
          (Option.map x.awsRegion ~f:VoiceConnectorAwsRegion.to_value));
        ("RequireEncryption", (Some (Boolean.to_value x.requireEncryption)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value));
        ("IntegrationType",
          (Option.map x.integrationType
             ~f:VoiceConnectorIntegrationType.to_value));
        ("NetworkType", (Option.map x.networkType ~f:NetworkType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let networkType =
        (Option.map ~f:NetworkType.of_xml) (Xml.child xml_arg0 "NetworkType") in
      let integrationType =
        (Option.map ~f:VoiceConnectorIntegrationType.of_xml)
          (Xml.child xml_arg0 "IntegrationType") in
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let requireEncryption =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RequireEncryption") in
      let awsRegion =
        (Option.map ~f:VoiceConnectorAwsRegion.of_xml)
          (Xml.child xml_arg0 "AwsRegion") in
      let name =
        VoiceConnectorName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?networkType ?integrationType ?tags ~requireEncryption ?awsRegion
        ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let networkType = field_map json__ "NetworkType" NetworkType.of_json in
      let integrationType =
        field_map json__ "IntegrationType"
          VoiceConnectorIntegrationType.of_json in
      let tags = field_map json__ "Tags" TagList.of_json in
      let requireEncryption =
        field_map_exn json__ "RequireEncryption" Boolean.of_json in
      let awsRegion =
        field_map json__ "AwsRegion" VoiceConnectorAwsRegion.of_json in
      let name = field_map_exn json__ "Name" VoiceConnectorName.of_json in
      make ?networkType ?integrationType ?tags ~requireEncryption ?awsRegion
        ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime SDK Voice Connector. For more information about Voice Connectors, see Managing Amazon Chime SDK Voice Connector groups in the Amazon Chime SDK Administrator Guide."]
module CreateVoiceConnectorGroupResponse =
  struct
    type nonrec t =
      {
      voiceConnectorGroup: VoiceConnectorGroup.t option
        [@ocaml.doc "The details of the Voice Connector group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?voiceConnectorGroup = fun () -> { voiceConnectorGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("VoiceConnectorGroup",
           (Option.map x.voiceConnectorGroup ~f:VoiceConnectorGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorGroup =
        (Option.map ~f:VoiceConnectorGroup.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorGroup") in
      make ?voiceConnectorGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorGroup =
        field_map json__ "VoiceConnectorGroup" VoiceConnectorGroup.of_json in
      make ?voiceConnectorGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime SDK Voice Connector group under the administrator's AWS account. You can associate Amazon Chime SDK Voice Connectors with the Voice Connector group by including VoiceConnectorItems in the request. You can include Voice Connectors from different AWS Regions in your group. This creates a fault tolerant mechanism for fallback in case of availability events."]
module CreateVoiceConnectorGroupRequest =
  struct
    type nonrec t =
      {
      name: VoiceConnectorGroupName.t
        [@ocaml.doc "The name of the Voice Connector group."];
      voiceConnectorItems: VoiceConnectorItemList.t option
        [@ocaml.doc
          "Lists the Voice Connectors that inbound calls are routed to."]}
    let context_ = "CreateVoiceConnectorGroupRequest"
    let make ?voiceConnectorItems =
      fun ~name -> fun () -> { voiceConnectorItems; name }
    let to_value x =
      structure_to_value
        [("Name", (Some (VoiceConnectorGroupName.to_value x.name)));
        ("VoiceConnectorItems",
          (Option.map x.voiceConnectorItems
             ~f:VoiceConnectorItemList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let voiceConnectorItems =
        (Option.map ~f:VoiceConnectorItemList.of_xml)
          (Xml.child xml_arg0 "VoiceConnectorItems") in
      let name =
        VoiceConnectorGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?voiceConnectorItems ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let voiceConnectorItems =
        field_map json__ "VoiceConnectorItems" VoiceConnectorItemList.of_json in
      let name = field_map_exn json__ "Name" VoiceConnectorGroupName.of_json in
      make ?voiceConnectorItems ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an Amazon Chime SDK Voice Connector group under the administrator's AWS account. You can associate Amazon Chime SDK Voice Connectors with the Voice Connector group by including VoiceConnectorItems in the request. You can include Voice Connectors from different AWS Regions in your group. This creates a fault tolerant mechanism for fallback in case of availability events."]
module CreateSipRuleResponse =
  struct
    type nonrec t =
      {
      sipRule: SipRule.t option
        [@ocaml.doc
          "The SIP rule information, including the rule ID, triggers, and target applications."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipRule = fun () -> { sipRule }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipRule", (Option.map x.sipRule ~f:SipRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipRule =
        (Option.map ~f:SipRule.of_xml) (Xml.child xml_arg0 "SipRule") in
      make ?sipRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipRule = field_map json__ "SipRule" SipRule.of_json in
      make ?sipRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a SIP rule, which can be used to run a SIP media application as a target for a specific trigger type. For more information about SIP rules, see Managing SIP media applications and rules in the Amazon Chime SDK Administrator Guide."]
module CreateSipRuleRequest =
  struct
    type nonrec t =
      {
      name: SipRuleName.t [@ocaml.doc "The name of the SIP rule."];
      triggerType: SipRuleTriggerType.t
        [@ocaml.doc
          "The type of trigger assigned to the SIP rule in TriggerValue, currently RequestUriHostname or ToPhoneNumber."];
      triggerValue: NonEmptyString.t
        [@ocaml.doc
          "If TriggerType is RequestUriHostname, the value can be the outbound host name of a Voice Connector. If TriggerType is ToPhoneNumber, the value can be a customer-owned phone number in the E164 format. The SipMediaApplication specified in the SipRule is triggered if the request URI in an incoming SIP request matches the RequestUriHostname, or if the To header in the incoming SIP request matches the ToPhoneNumber value."];
      disabled: NullableBoolean.t option
        [@ocaml.doc
          "Disables or enables a SIP rule. You must disable SIP rules before you can delete them."];
      targetApplications: SipRuleTargetApplicationList.t option
        [@ocaml.doc
          "List of SIP media applications, with priority and AWS Region. Only one SIP application per AWS Region can be used."]}
    let context_ = "CreateSipRuleRequest"
    let make ?disabled =
      fun ?targetApplications ->
        fun ~name ->
          fun ~triggerType ->
            fun ~triggerValue ->
              fun () ->
                {
                  disabled;
                  targetApplications;
                  name;
                  triggerType;
                  triggerValue
                }
    let to_value x =
      structure_to_value
        [("Name", (Some (SipRuleName.to_value x.name)));
        ("TriggerType", (Some (SipRuleTriggerType.to_value x.triggerType)));
        ("TriggerValue", (Some (NonEmptyString.to_value x.triggerValue)));
        ("Disabled", (Option.map x.disabled ~f:NullableBoolean.to_value));
        ("TargetApplications",
          (Option.map x.targetApplications
             ~f:SipRuleTargetApplicationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetApplications =
        (Option.map ~f:SipRuleTargetApplicationList.of_xml)
          (Xml.child xml_arg0 "TargetApplications") in
      let disabled =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "Disabled") in
      let triggerValue =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TriggerValue") in
      let triggerType =
        SipRuleTriggerType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TriggerType") in
      let name =
        SipRuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ?targetApplications ?disabled ~triggerValue ~triggerType ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetApplications =
        field_map json__ "TargetApplications"
          SipRuleTargetApplicationList.of_json in
      let disabled = field_map json__ "Disabled" NullableBoolean.of_json in
      let triggerValue =
        field_map_exn json__ "TriggerValue" NonEmptyString.of_json in
      let triggerType =
        field_map_exn json__ "TriggerType" SipRuleTriggerType.of_json in
      let name = field_map_exn json__ "Name" SipRuleName.of_json in
      make ?targetApplications ?disabled ~triggerValue ~triggerType ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a SIP rule, which can be used to run a SIP media application as a target for a specific trigger type. For more information about SIP rules, see Managing SIP media applications and rules in the Amazon Chime SDK Administrator Guide."]
module CreateSipMediaApplicationResponse =
  struct
    type nonrec t =
      {
      sipMediaApplication: SipMediaApplication.t option
        [@ocaml.doc "The SIP media application details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplication = fun () -> { sipMediaApplication }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplication",
           (Option.map x.sipMediaApplication ~f:SipMediaApplication.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplication =
        (Option.map ~f:SipMediaApplication.of_xml)
          (Xml.child xml_arg0 "SipMediaApplication") in
      make ?sipMediaApplication ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplication =
        field_map json__ "SipMediaApplication" SipMediaApplication.of_json in
      make ?sipMediaApplication ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a SIP media application. For more information about SIP media applications, see Managing SIP media applications and rules in the Amazon Chime SDK Administrator Guide."]
module CreateSipMediaApplicationRequest =
  struct
    type nonrec t =
      {
      awsRegion: String_.t
        [@ocaml.doc "The AWS Region assigned to the SIP media application."];
      name: SipMediaApplicationName.t
        [@ocaml.doc "The SIP media application's name."];
      endpoints: SipMediaApplicationEndpointList.t
        [@ocaml.doc
          "List of endpoints (Lambda ARNs) specified for the SIP media application."];
      tags: TagList.t option
        [@ocaml.doc "The tags assigned to the SIP media application."]}
    let context_ = "CreateSipMediaApplicationRequest"
    let make ?tags =
      fun ~awsRegion ->
        fun ~name ->
          fun ~endpoints -> fun () -> { tags; awsRegion; name; endpoints }
    let to_value x =
      structure_to_value
        [("AwsRegion", (Some (String_.to_value x.awsRegion)));
        ("Name", (Some (SipMediaApplicationName.to_value x.name)));
        ("Endpoints",
          (Some (SipMediaApplicationEndpointList.to_value x.endpoints)));
        ("Tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "Tags") in
      let endpoints =
        SipMediaApplicationEndpointList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Endpoints") in
      let name =
        SipMediaApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let awsRegion =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "AwsRegion") in
      make ?tags ~endpoints ~name ~awsRegion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" TagList.of_json in
      let endpoints =
        field_map_exn json__ "Endpoints"
          SipMediaApplicationEndpointList.of_json in
      let name = field_map_exn json__ "Name" SipMediaApplicationName.of_json in
      let awsRegion = field_map_exn json__ "AwsRegion" String_.of_json in
      make ?tags ~endpoints ~name ~awsRegion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a SIP media application. For more information about SIP media applications, see Managing SIP media applications and rules in the Amazon Chime SDK Administrator Guide."]
module CreateSipMediaApplicationCallResponse =
  struct
    type nonrec t =
      {
      sipMediaApplicationCall: SipMediaApplicationCall.t option
        [@ocaml.doc "The actual call."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sipMediaApplicationCall = fun () -> { sipMediaApplicationCall }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("SipMediaApplicationCall",
           (Option.map x.sipMediaApplicationCall
              ~f:SipMediaApplicationCall.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sipMediaApplicationCall =
        (Option.map ~f:SipMediaApplicationCall.of_xml)
          (Xml.child xml_arg0 "SipMediaApplicationCall") in
      make ?sipMediaApplicationCall ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sipMediaApplicationCall =
        field_map json__ "SipMediaApplicationCall"
          SipMediaApplicationCall.of_json in
      make ?sipMediaApplicationCall ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an outbound call to a phone number from the phone number specified in the request, and it invokes the endpoint of the specified sipMediaApplicationId."]
module CreateSipMediaApplicationCallRequest =
  struct
    type nonrec t =
      {
      fromPhoneNumber: E164PhoneNumber.t
        [@ocaml.doc
          "The phone number that a user calls from. This is a phone number in your Amazon Chime SDK phone number inventory."];
      toPhoneNumber: E164PhoneNumber.t
        [@ocaml.doc "The phone number that the service should call."];
      sipMediaApplicationId: NonEmptyString.t
        [@ocaml.doc "The ID of the SIP media application."];
      sipHeaders: SipHeadersMap.t option
        [@ocaml.doc "The SIP headers added to an outbound call leg."];
      argumentsMap: SMACreateCallArgumentsMap.t option
        [@ocaml.doc
          "Context passed to a CreateSipMediaApplication API call. For example, you could pass key-value pairs such as: \"FirstName\": \"John\", \"LastName\": \"Doe\""]}
    let context_ = "CreateSipMediaApplicationCallRequest"
    let make ?sipHeaders =
      fun ?argumentsMap ->
        fun ~fromPhoneNumber ->
          fun ~toPhoneNumber ->
            fun ~sipMediaApplicationId ->
              fun () ->
                {
                  sipHeaders;
                  argumentsMap;
                  fromPhoneNumber;
                  toPhoneNumber;
                  sipMediaApplicationId
                }
    let to_value x =
      structure_to_value
        [("FromPhoneNumber",
           (Some (E164PhoneNumber.to_value x.fromPhoneNumber)));
        ("ToPhoneNumber", (Some (E164PhoneNumber.to_value x.toPhoneNumber)));
        ("sipMediaApplicationId",
          (Some (NonEmptyString.to_value x.sipMediaApplicationId)));
        ("SipHeaders", (Option.map x.sipHeaders ~f:SipHeadersMap.to_value));
        ("ArgumentsMap",
          (Option.map x.argumentsMap ~f:SMACreateCallArgumentsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let argumentsMap =
        (Option.map ~f:SMACreateCallArgumentsMap.of_xml)
          (Xml.child xml_arg0 "ArgumentsMap") in
      let sipHeaders =
        (Option.map ~f:SipHeadersMap.of_xml)
          (Xml.child xml_arg0 "SipHeaders") in
      let sipMediaApplicationId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sipMediaApplicationId") in
      let toPhoneNumber =
        E164PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ToPhoneNumber") in
      let fromPhoneNumber =
        E164PhoneNumber.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FromPhoneNumber") in
      make ?argumentsMap ?sipHeaders ~sipMediaApplicationId ~toPhoneNumber
        ~fromPhoneNumber ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let argumentsMap =
        field_map json__ "ArgumentsMap" SMACreateCallArgumentsMap.of_json in
      let sipHeaders = field_map json__ "SipHeaders" SipHeadersMap.of_json in
      let sipMediaApplicationId =
        field_map_exn json__ "SipMediaApplicationId" NonEmptyString.of_json in
      let toPhoneNumber =
        field_map_exn json__ "ToPhoneNumber" E164PhoneNumber.of_json in
      let fromPhoneNumber =
        field_map_exn json__ "FromPhoneNumber" E164PhoneNumber.of_json in
      make ?argumentsMap ?sipHeaders ~sipMediaApplicationId ~toPhoneNumber
        ~fromPhoneNumber ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an outbound call to a phone number from the phone number specified in the request, and it invokes the endpoint of the specified sipMediaApplicationId."]
module CreateProxySessionResponse =
  struct
    type nonrec t =
      {
      proxySession: ProxySession.t option
        [@ocaml.doc "The proxy session details."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?proxySession = fun () -> { proxySession }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("ProxySession",
           (Option.map x.proxySession ~f:ProxySession.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let proxySession =
        (Option.map ~f:ProxySession.of_xml)
          (Xml.child xml_arg0 "ProxySession") in
      make ?proxySession ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let proxySession = field_map json__ "ProxySession" ProxySession.of_json in
      make ?proxySession ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a proxy session for the specified Amazon Chime SDK Voice Connector for the specified participant phone numbers."]
module CreateProxySessionRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString128.t
        [@ocaml.doc "The Voice Connector ID."];
      participantPhoneNumbers: ParticipantPhoneNumberList.t
        [@ocaml.doc "The participant phone numbers."];
      name: ProxySessionNameString.t option
        [@ocaml.doc "The name of the proxy session."];
      expiryMinutes: PositiveInteger.t option
        [@ocaml.doc "The number of minutes allowed for the proxy session."];
      capabilities: CapabilityList.t
        [@ocaml.doc "The proxy session's capabilities."];
      numberSelectionBehavior: NumberSelectionBehavior.t option
        [@ocaml.doc
          "The preference for proxy phone number reuse, or stickiness, between the same participants across sessions."];
      geoMatchLevel: GeoMatchLevel.t option
        [@ocaml.doc
          "The preference for matching the country or area code of the proxy phone number with that of the first participant."];
      geoMatchParams: GeoMatchParams.t option
        [@ocaml.doc "The country and area code for the proxy phone number."]}
    let context_ = "CreateProxySessionRequest"
    let make ?name =
      fun ?expiryMinutes ->
        fun ?numberSelectionBehavior ->
          fun ?geoMatchLevel ->
            fun ?geoMatchParams ->
              fun ~voiceConnectorId ->
                fun ~participantPhoneNumbers ->
                  fun ~capabilities ->
                    fun () ->
                      {
                        name;
                        expiryMinutes;
                        numberSelectionBehavior;
                        geoMatchLevel;
                        geoMatchParams;
                        voiceConnectorId;
                        participantPhoneNumbers;
                        capabilities
                      }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString128.to_value x.voiceConnectorId)));
        ("ParticipantPhoneNumbers",
          (Some
             (ParticipantPhoneNumberList.to_value x.participantPhoneNumbers)));
        ("Name", (Option.map x.name ~f:ProxySessionNameString.to_value));
        ("ExpiryMinutes",
          (Option.map x.expiryMinutes ~f:PositiveInteger.to_value));
        ("Capabilities", (Some (CapabilityList.to_value x.capabilities)));
        ("NumberSelectionBehavior",
          (Option.map x.numberSelectionBehavior
             ~f:NumberSelectionBehavior.to_value));
        ("GeoMatchLevel",
          (Option.map x.geoMatchLevel ~f:GeoMatchLevel.to_value));
        ("GeoMatchParams",
          (Option.map x.geoMatchParams ~f:GeoMatchParams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let geoMatchParams =
        (Option.map ~f:GeoMatchParams.of_xml)
          (Xml.child xml_arg0 "GeoMatchParams") in
      let geoMatchLevel =
        (Option.map ~f:GeoMatchLevel.of_xml)
          (Xml.child xml_arg0 "GeoMatchLevel") in
      let numberSelectionBehavior =
        (Option.map ~f:NumberSelectionBehavior.of_xml)
          (Xml.child xml_arg0 "NumberSelectionBehavior") in
      let capabilities =
        CapabilityList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Capabilities") in
      let expiryMinutes =
        (Option.map ~f:PositiveInteger.of_xml)
          (Xml.child xml_arg0 "ExpiryMinutes") in
      let name =
        (Option.map ~f:ProxySessionNameString.of_xml)
          (Xml.child xml_arg0 "Name") in
      let participantPhoneNumbers =
        ParticipantPhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ParticipantPhoneNumbers") in
      let voiceConnectorId =
        NonEmptyString128.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?geoMatchParams ?geoMatchLevel ?numberSelectionBehavior
        ~capabilities ?expiryMinutes ?name ~participantPhoneNumbers
        ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let geoMatchParams =
        field_map json__ "GeoMatchParams" GeoMatchParams.of_json in
      let geoMatchLevel =
        field_map json__ "GeoMatchLevel" GeoMatchLevel.of_json in
      let numberSelectionBehavior =
        field_map json__ "NumberSelectionBehavior"
          NumberSelectionBehavior.of_json in
      let capabilities =
        field_map_exn json__ "Capabilities" CapabilityList.of_json in
      let expiryMinutes =
        field_map json__ "ExpiryMinutes" PositiveInteger.of_json in
      let name = field_map json__ "Name" ProxySessionNameString.of_json in
      let participantPhoneNumbers =
        field_map_exn json__ "ParticipantPhoneNumbers"
          ParticipantPhoneNumberList.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString128.of_json in
      make ?geoMatchParams ?geoMatchLevel ?numberSelectionBehavior
        ~capabilities ?expiryMinutes ?name ~participantPhoneNumbers
        ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a proxy session for the specified Amazon Chime SDK Voice Connector for the specified participant phone numbers."]
module CreatePhoneNumberOrderResponse =
  struct
    type nonrec t =
      {
      phoneNumberOrder: PhoneNumberOrder.t option
        [@ocaml.doc "The phone number order details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `ResourceLimitExceededException of ResourceLimitExceededException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberOrder = fun () -> { phoneNumberOrder }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "ResourceLimitExceededException" ->
          `ResourceLimitExceededException
            (ResourceLimitExceededException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `ResourceLimitExceededException e ->
          `Assoc
            [("error", (`String "ResourceLimitExceededException"));
            ("details", (ResourceLimitExceededException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberOrder",
           (Option.map x.phoneNumberOrder ~f:PhoneNumberOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberOrder =
        (Option.map ~f:PhoneNumberOrder.of_xml)
          (Xml.child xml_arg0 "PhoneNumberOrder") in
      make ?phoneNumberOrder ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberOrder =
        field_map json__ "PhoneNumberOrder" PhoneNumberOrder.of_json in
      make ?phoneNumberOrder ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an order for phone numbers to be provisioned. For numbers outside the U.S., you must use the Amazon Chime SDK SIP media application dial-in product type."]
module CreatePhoneNumberOrderRequest =
  struct
    type nonrec t =
      {
      productType: PhoneNumberProductType.t
        [@ocaml.doc "The phone number product type."];
      e164PhoneNumbers: E164PhoneNumberList.t
        [@ocaml.doc "List of phone numbers, in E.164 format."];
      name: PhoneNumberName.t option
        [@ocaml.doc
          "Specifies the name assigned to one or more phone numbers."]}
    let context_ = "CreatePhoneNumberOrderRequest"
    let make ?name =
      fun ~productType ->
        fun ~e164PhoneNumbers ->
          fun () -> { name; productType; e164PhoneNumbers }
    let to_value x =
      structure_to_value
        [("ProductType",
           (Some (PhoneNumberProductType.to_value x.productType)));
        ("E164PhoneNumbers",
          (Some (E164PhoneNumberList.to_value x.e164PhoneNumbers)));
        ("Name", (Option.map x.name ~f:PhoneNumberName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:PhoneNumberName.of_xml) (Xml.child xml_arg0 "Name") in
      let e164PhoneNumbers =
        E164PhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumbers") in
      let productType =
        PhoneNumberProductType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ProductType") in
      make ?name ~e164PhoneNumbers ~productType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" PhoneNumberName.of_json in
      let e164PhoneNumbers =
        field_map_exn json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      let productType =
        field_map_exn json__ "ProductType" PhoneNumberProductType.of_json in
      make ?name ~e164PhoneNumbers ~productType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an order for phone numbers to be provisioned. For numbers outside the U.S., you must use the Amazon Chime SDK SIP media application dial-in product type."]
module BatchUpdatePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "A list of failed phone numbers and their error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number product types, calling names, or phone number names. You can update one attribute at a time for each UpdatePhoneNumberRequestItem. For example, you can update the product type, the calling name, or phone name. You cannot have a duplicate phoneNumberId in a request."]
module BatchUpdatePhoneNumberRequest =
  struct
    type nonrec t =
      {
      updatePhoneNumberRequestItems: UpdatePhoneNumberRequestItemList.t
        [@ocaml.doc "Lists the phone numbers in the update request."]}
    let context_ = "BatchUpdatePhoneNumberRequest"
    let make ~updatePhoneNumberRequestItems =
      fun () -> { updatePhoneNumberRequestItems }
    let to_value x =
      structure_to_value
        [("UpdatePhoneNumberRequestItems",
           (Some
              (UpdatePhoneNumberRequestItemList.to_value
                 x.updatePhoneNumberRequestItems)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatePhoneNumberRequestItems =
        UpdatePhoneNumberRequestItemList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "UpdatePhoneNumberRequestItems") in
      make ~updatePhoneNumberRequestItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatePhoneNumberRequestItems =
        field_map_exn json__ "UpdatePhoneNumberRequestItems"
          UpdatePhoneNumberRequestItemList.of_json in
      make ~updatePhoneNumberRequestItems ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates phone number product types, calling names, or phone number names. You can update one attribute at a time for each UpdatePhoneNumberRequestItem. For example, you can update the product type, the calling name, or phone name. You cannot have a duplicate phoneNumberId in a request."]
module BatchDeletePhoneNumberResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves phone numbers into the Deletion queue. Phone numbers must be disassociated from any users or Amazon Chime SDK Voice Connectors before they can be deleted. Phone numbers remain in the Deletion queue for 7 days before they are deleted permanently."]
module BatchDeletePhoneNumberRequest =
  struct
    type nonrec t =
      {
      phoneNumberIds: NonEmptyStringList.t
        [@ocaml.doc "List of phone number IDs."]}
    let context_ = "BatchDeletePhoneNumberRequest"
    let make ~phoneNumberIds = fun () -> { phoneNumberIds }
    let to_value x =
      structure_to_value
        [("PhoneNumberIds",
           (Some (NonEmptyStringList.to_value x.phoneNumberIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberIds =
        NonEmptyStringList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PhoneNumberIds") in
      make ~phoneNumberIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberIds =
        field_map_exn json__ "PhoneNumberIds" NonEmptyStringList.of_json in
      make ~phoneNumberIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Moves phone numbers into the Deletion queue. Phone numbers must be disassociated from any users or Amazon Chime SDK Voice Connectors before they can be deleted. Phone numbers remain in the Deletion queue for 7 days before they are deleted permanently."]
module AssociatePhoneNumbersWithVoiceConnectorResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates phone numbers with the specified Amazon Chime SDK Voice Connector."]
module AssociatePhoneNumbersWithVoiceConnectorRequest =
  struct
    type nonrec t =
      {
      voiceConnectorId: NonEmptyString.t
        [@ocaml.doc "The Voice Connector ID."];
      e164PhoneNumbers: E164PhoneNumberList.t
        [@ocaml.doc "List of phone numbers, in E.164 format."];
      forceAssociate: NullableBoolean.t option
        [@ocaml.doc
          "If true, associates the provided phone numbers with the provided Amazon Chime SDK Voice Connector and removes any previously existing associations. If false, does not associate any phone numbers that have previously existing associations."]}
    let context_ = "AssociatePhoneNumbersWithVoiceConnectorRequest"
    let make ?forceAssociate =
      fun ~voiceConnectorId ->
        fun ~e164PhoneNumbers ->
          fun () -> { forceAssociate; voiceConnectorId; e164PhoneNumbers }
    let to_value x =
      structure_to_value
        [("voiceConnectorId",
           (Some (NonEmptyString.to_value x.voiceConnectorId)));
        ("E164PhoneNumbers",
          (Some (E164PhoneNumberList.to_value x.e164PhoneNumbers)));
        ("ForceAssociate",
          (Option.map x.forceAssociate ~f:NullableBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forceAssociate =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "ForceAssociate") in
      let e164PhoneNumbers =
        E164PhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumbers") in
      let voiceConnectorId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorId") in
      make ?forceAssociate ~e164PhoneNumbers ~voiceConnectorId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forceAssociate =
        field_map json__ "ForceAssociate" NullableBoolean.of_json in
      let e164PhoneNumbers =
        field_map_exn json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      let voiceConnectorId =
        field_map_exn json__ "VoiceConnectorId" NonEmptyString.of_json in
      make ?forceAssociate ~e164PhoneNumbers ~voiceConnectorId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates phone numbers with the specified Amazon Chime SDK Voice Connector."]
module AssociatePhoneNumbersWithVoiceConnectorGroupResponse =
  struct
    type nonrec t =
      {
      phoneNumberErrors: PhoneNumberErrorList.t option
        [@ocaml.doc
          "If the action fails for one or more of the phone numbers in the request, a list of the phone numbers is returned, along with error codes and error messages."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceFailureException of ServiceFailureException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `ThrottledClientException of ThrottledClientException.t 
      | `UnauthorizedClientException of UnauthorizedClientException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?phoneNumberErrors = fun () -> { phoneNumberErrors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_json json)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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)
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceFailureException" ->
          `ServiceFailureException (ServiceFailureException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "ThrottledClientException" ->
          `ThrottledClientException (ThrottledClientException.of_xml xml)
      | "UnauthorizedClientException" ->
          `UnauthorizedClientException
            (UnauthorizedClientException.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))]
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceFailureException e ->
          `Assoc
            [("error", (`String "ServiceFailureException"));
            ("details", (ServiceFailureException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `ThrottledClientException e ->
          `Assoc
            [("error", (`String "ThrottledClientException"));
            ("details", (ThrottledClientException.to_json e))]
      | `UnauthorizedClientException e ->
          `Assoc
            [("error", (`String "UnauthorizedClientException"));
            ("details", (UnauthorizedClientException.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
        [("PhoneNumberErrors",
           (Option.map x.phoneNumberErrors ~f:PhoneNumberErrorList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phoneNumberErrors =
        (Option.map ~f:PhoneNumberErrorList.of_xml)
          (Xml.child xml_arg0 "PhoneNumberErrors") in
      make ?phoneNumberErrors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phoneNumberErrors =
        field_map json__ "PhoneNumberErrors" PhoneNumberErrorList.of_json in
      make ?phoneNumberErrors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates phone numbers with the specified Amazon Chime SDK Voice Connector group."]
module AssociatePhoneNumbersWithVoiceConnectorGroupRequest =
  struct
    type nonrec t =
      {
      voiceConnectorGroupId: NonEmptyString.t
        [@ocaml.doc "The Amazon Chime SDK Voice Connector group ID."];
      e164PhoneNumbers: E164PhoneNumberList.t
        [@ocaml.doc "List of phone numbers, in E.164 format."];
      forceAssociate: NullableBoolean.t option
        [@ocaml.doc
          "If true, associates the provided phone numbers with the provided Amazon Chime SDK Voice Connector Group and removes any previously existing associations. If false, does not associate any phone numbers that have previously existing associations."]}
    let context_ = "AssociatePhoneNumbersWithVoiceConnectorGroupRequest"
    let make ?forceAssociate =
      fun ~voiceConnectorGroupId ->
        fun ~e164PhoneNumbers ->
          fun () ->
            { forceAssociate; voiceConnectorGroupId; e164PhoneNumbers }
    let to_value x =
      structure_to_value
        [("voiceConnectorGroupId",
           (Some (NonEmptyString.to_value x.voiceConnectorGroupId)));
        ("E164PhoneNumbers",
          (Some (E164PhoneNumberList.to_value x.e164PhoneNumbers)));
        ("ForceAssociate",
          (Option.map x.forceAssociate ~f:NullableBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forceAssociate =
        (Option.map ~f:NullableBoolean.of_xml)
          (Xml.child xml_arg0 "ForceAssociate") in
      let e164PhoneNumbers =
        E164PhoneNumberList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "E164PhoneNumbers") in
      let voiceConnectorGroupId =
        NonEmptyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "voiceConnectorGroupId") in
      make ?forceAssociate ~e164PhoneNumbers ~voiceConnectorGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forceAssociate =
        field_map json__ "ForceAssociate" NullableBoolean.of_json in
      let e164PhoneNumbers =
        field_map_exn json__ "E164PhoneNumbers" E164PhoneNumberList.of_json in
      let voiceConnectorGroupId =
        field_map_exn json__ "VoiceConnectorGroupId" NonEmptyString.of_json in
      make ?forceAssociate ~e164PhoneNumbers ~voiceConnectorGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates phone numbers with the specified Amazon Chime SDK Voice Connector group."]