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.connectcases
let apiVersion = "2022-10-03"
let endpointPrefix = "cases"
let serviceFullName = "Amazon Connect Cases"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "ConnectCases"
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 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 AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"Arn" j
    let to_json = simple_to_json to_value
  end
module AssociationTime =
  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 RelatedItemType =
  struct
    type nonrec t =
      | Contact 
      | Comment 
      | File 
      | Sla 
      | ConnectCase 
      | Custom 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Contact -> "Contact"
      | Comment -> "Comment"
      | File -> "File"
      | Sla -> "Sla"
      | ConnectCase -> "ConnectCase"
      | Custom -> "Custom"
      | Non_static_id s -> s
    let of_string =
      function
      | "Contact" -> Contact
      | "Comment" -> Comment
      | "File" -> File
      | "Sla" -> Sla
      | "ConnectCase" -> ConnectCase
      | "Custom" -> Custom
      | 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 RelatedItemType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RelatedItemType" j)
    let to_json = simple_to_json to_value
  end
module AuditEventType =
  struct
    type nonrec t =
      | Case_Created 
      | Case_Updated 
      | RelatedItem_Created 
      | RelatedItem_Deleted 
      | RelatedItem_Updated 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Case_Created -> "Case.Created"
      | Case_Updated -> "Case.Updated"
      | RelatedItem_Created -> "RelatedItem.Created"
      | RelatedItem_Deleted -> "RelatedItem.Deleted"
      | RelatedItem_Updated -> "RelatedItem.Updated"
      | Non_static_id s -> s
    let of_string =
      function
      | "Case.Created" -> Case_Created
      | "Case.Updated" -> Case_Updated
      | "RelatedItem.Created" -> RelatedItem_Created
      | "RelatedItem.Deleted" -> RelatedItem_Deleted
      | "RelatedItem.Updated" -> RelatedItem_Updated
      | 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 AuditEventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuditEventType" j)
    let to_json = simple_to_json to_value
  end
module UserArn =
  struct
    type nonrec t = string
    let context_ = "UserArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"UserArn" j
    let to_json = simple_to_json to_value
  end
module CustomEntity =
  struct
    type nonrec t = string
    let context_ = "CustomEntity"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9_\\-\\.@:/ ]*[a-zA-Z0-9_\\-\\.@:/]")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomEntity" j
    let to_json = simple_to_json to_value
  end
module UserUnion =
  struct
    type nonrec t =
      {
      userArn: UserArn.t option
        [@ocaml.doc "Represents the Amazon Connect ARN of the user."];
      customEntity: CustomEntity.t option [@ocaml.doc "Any provided entity."]}
    let make ?userArn =
      fun ?customEntity -> fun () -> { userArn; customEntity }
    let to_value x =
      structure_to_value
        [("userArn", (Option.map x.userArn ~f:UserArn.to_value));
        ("customEntity",
          (Option.map x.customEntity ~f:CustomEntity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customEntity =
        (Option.map ~f:CustomEntity.of_xml)
          (Xml.child xml_arg0 "customEntity") in
      let userArn =
        (Option.map ~f:UserArn.of_xml) (Xml.child xml_arg0 "userArn") in
      make ?customEntity ?userArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customEntity = field_map json__ "customEntity" CustomEntity.of_json in
      let userArn = field_map json__ "userArn" UserArn.of_json in
      make ?customEntity ?userArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the entity that performed the action."]
module IamPrincipalArn =
  struct
    type nonrec t = string
    let context_ = "IamPrincipalArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"IamPrincipalArn" j
    let to_json = simple_to_json to_value
  end
module AuditEventPerformedBy =
  struct
    type nonrec t =
      {
      user: UserUnion.t option ;
      iamPrincipalArn: IamPrincipalArn.t option
        [@ocaml.doc "Unique identifier of an IAM role."]}
    let make ?user =
      fun ?iamPrincipalArn -> fun () -> { user; iamPrincipalArn }
    let to_value x =
      structure_to_value
        [("user", (Option.map x.user ~f:UserUnion.to_value));
        ("iamPrincipalArn",
          (Option.map x.iamPrincipalArn ~f:IamPrincipalArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iamPrincipalArn =
        (Option.map ~f:IamPrincipalArn.of_xml)
          (Xml.child xml_arg0 "iamPrincipalArn") in
      let user = (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "user") in
      make ?iamPrincipalArn ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iamPrincipalArn =
        field_map json__ "iamPrincipalArn" IamPrincipalArn.of_json in
      let user = field_map json__ "user" UserUnion.of_json in
      make ?iamPrincipalArn ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information of the user which performed the audit."]
module AuditEventId =
  struct
    type nonrec t = string
    let context_ = "AuditEventId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"AuditEventId" j
    let to_json = simple_to_json to_value
  end
module EmptyFieldValue =
  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
       "An empty value. You cannot set EmptyFieldValue on a field that is required on a case template. This structure will never have any data members. It signifies an empty value on a case field."]
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double 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 double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" 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 AuditEventFieldValueUnionStringValueString =
  struct
    type nonrec t = string
    let context_ = "AuditEventFieldValueUnionStringValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4100) >>=
             (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:"AuditEventFieldValueUnionStringValueString" j
    let to_json = simple_to_json to_value
  end
module AuditEventFieldValueUnion =
  struct
    type nonrec t =
      {
      stringValue: AuditEventFieldValueUnionStringValueString.t option
        [@ocaml.doc
          "Can be either null, or have a String value type. Only one value can be provided."];
      doubleValue: Double.t option
        [@ocaml.doc
          "Can be either null, or have a Double value type. Only one value can be provided."];
      booleanValue: Boolean.t option
        [@ocaml.doc
          "Can be either null, or have a Boolean value type. Only one value can be provided."];
      emptyValue: EmptyFieldValue.t option ;
      userArnValue: String_.t option
        [@ocaml.doc
          "Can be either null, or have a String value type formatted as an ARN. Only one value can be provided."]}
    let make ?stringValue =
      fun ?doubleValue ->
        fun ?booleanValue ->
          fun ?emptyValue ->
            fun ?userArnValue ->
              fun () ->
                {
                  stringValue;
                  doubleValue;
                  booleanValue;
                  emptyValue;
                  userArnValue
                }
    let to_value x =
      structure_to_value
        [("stringValue",
           (Option.map x.stringValue
              ~f:AuditEventFieldValueUnionStringValueString.to_value));
        ("doubleValue", (Option.map x.doubleValue ~f:Double.to_value));
        ("booleanValue", (Option.map x.booleanValue ~f:Boolean.to_value));
        ("emptyValue", (Option.map x.emptyValue ~f:EmptyFieldValue.to_value));
        ("userArnValue", (Option.map x.userArnValue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userArnValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userArnValue") in
      let emptyValue =
        (Option.map ~f:EmptyFieldValue.of_xml)
          (Xml.child xml_arg0 "emptyValue") in
      let booleanValue =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "booleanValue") in
      let doubleValue =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "doubleValue") in
      let stringValue =
        (Option.map ~f:AuditEventFieldValueUnionStringValueString.of_xml)
          (Xml.child xml_arg0 "stringValue") in
      make ?userArnValue ?emptyValue ?booleanValue ?doubleValue ?stringValue
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userArnValue = field_map json__ "userArnValue" String_.of_json in
      let emptyValue = field_map json__ "emptyValue" EmptyFieldValue.of_json in
      let booleanValue = field_map json__ "booleanValue" Boolean.of_json in
      let doubleValue = field_map json__ "doubleValue" Double.of_json in
      let stringValue =
        field_map json__ "stringValue"
          AuditEventFieldValueUnionStringValueString.of_json in
      make ?userArnValue ?emptyValue ?booleanValue ?doubleValue ?stringValue
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object to store union of Field values."]
module AuditEventFieldId =
  struct
    type nonrec t = string
    let context_ = "AuditEventFieldId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"AuditEventFieldId" j
    let to_json = simple_to_json to_value
  end
module AuditEventField =
  struct
    type nonrec t =
      {
      eventFieldId: AuditEventFieldId.t option
        [@ocaml.doc "Unique identifier of field in an Audit History entry."];
      oldValue: AuditEventFieldValueUnion.t option
        [@ocaml.doc "Union of potential field value types."];
      newValue: AuditEventFieldValueUnion.t option
        [@ocaml.doc "Union of potential field value types."]}
    let make ?eventFieldId =
      fun ?oldValue ->
        fun ?newValue -> fun () -> { eventFieldId; oldValue; newValue }
    let to_value x =
      structure_to_value
        [("eventFieldId",
           (Option.map x.eventFieldId ~f:AuditEventFieldId.to_value));
        ("oldValue",
          (Option.map x.oldValue ~f:AuditEventFieldValueUnion.to_value));
        ("newValue",
          (Option.map x.newValue ~f:AuditEventFieldValueUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newValue =
        (Option.map ~f:AuditEventFieldValueUnion.of_xml)
          (Xml.child xml_arg0 "newValue") in
      let oldValue =
        (Option.map ~f:AuditEventFieldValueUnion.of_xml)
          (Xml.child xml_arg0 "oldValue") in
      let eventFieldId =
        (Option.map ~f:AuditEventFieldId.of_xml)
          (Xml.child xml_arg0 "eventFieldId") in
      make ?newValue ?oldValue ?eventFieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newValue =
        field_map json__ "newValue" AuditEventFieldValueUnion.of_json in
      let oldValue =
        field_map json__ "oldValue" AuditEventFieldValueUnion.of_json in
      let eventFieldId =
        field_map json__ "eventFieldId" AuditEventFieldId.of_json in
      make ?newValue ?oldValue ?eventFieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Fields for audit event."]
module AuditEventFieldList =
  struct
    type nonrec t = AuditEventField.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:AuditEventField.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:AuditEventField.of_xml)
    let of_json j =
      list_of_json ~kind:"AuditEventFieldList"
        ~of_json:AuditEventField.of_json j
    let to_json v = composed_to_json to_value v
  end
module AuditEventDateTime =
  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 AuditEvent =
  struct
    type nonrec t =
      {
      eventId: AuditEventId.t option
        [@ocaml.doc "Unique identifier of a case audit history event."];
      type_: AuditEventType.t option
        [@ocaml.doc
          "The type of audit history event. Valid Values: Case.Created | Case.Updated | RelatedItem.Created | RelatedItem.Updated | RelatedItem.Deleted"];
      relatedItemType: RelatedItemType.t option
        [@ocaml.doc "The Type of the related item."];
      performedTime: AuditEventDateTime.t option
        [@ocaml.doc "Time at which an Audit History event took place."];
      fields: AuditEventFieldList.t option
        [@ocaml.doc "A list of Case Audit History event fields."];
      performedBy: AuditEventPerformedBy.t option
        [@ocaml.doc "Information of the user which performed the audit."]}
    let make ?eventId =
      fun ?type_ ->
        fun ?relatedItemType ->
          fun ?performedTime ->
            fun ?fields ->
              fun ?performedBy ->
                fun () ->
                  {
                    eventId;
                    type_;
                    relatedItemType;
                    performedTime;
                    fields;
                    performedBy
                  }
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:AuditEventId.to_value));
        ("type", (Option.map x.type_ ~f:AuditEventType.to_value));
        ("relatedItemType",
          (Option.map x.relatedItemType ~f:RelatedItemType.to_value));
        ("performedTime",
          (Option.map x.performedTime ~f:AuditEventDateTime.to_value));
        ("fields", (Option.map x.fields ~f:AuditEventFieldList.to_value));
        ("performedBy",
          (Option.map x.performedBy ~f:AuditEventPerformedBy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performedBy =
        (Option.map ~f:AuditEventPerformedBy.of_xml)
          (Xml.child xml_arg0 "performedBy") in
      let fields =
        (Option.map ~f:AuditEventFieldList.of_xml)
          (Xml.child xml_arg0 "fields") in
      let performedTime =
        (Option.map ~f:AuditEventDateTime.of_xml)
          (Xml.child xml_arg0 "performedTime") in
      let relatedItemType =
        (Option.map ~f:RelatedItemType.of_xml)
          (Xml.child xml_arg0 "relatedItemType") in
      let type_ =
        (Option.map ~f:AuditEventType.of_xml) (Xml.child xml_arg0 "type") in
      let eventId =
        (Option.map ~f:AuditEventId.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?performedBy ?fields ?performedTime ?relatedItemType ?type_
        ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performedBy =
        field_map json__ "performedBy" AuditEventPerformedBy.of_json in
      let fields = field_map json__ "fields" AuditEventFieldList.of_json in
      let performedTime =
        field_map json__ "performedTime" AuditEventDateTime.of_json in
      let relatedItemType =
        field_map json__ "relatedItemType" RelatedItemType.of_json in
      let type_ = field_map json__ "type" AuditEventType.of_json in
      let eventId = field_map json__ "eventId" AuditEventId.of_json in
      make ?performedBy ?fields ?performedTime ?relatedItemType ?type_
        ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the content of a particular audit event."]
module FieldGroupNameString =
  struct
    type nonrec t = string
    let context_ = "FieldGroupNameString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FieldGroupNameString" j
    let to_json = simple_to_json to_value
  end
module FieldId =
  struct
    type nonrec t = string
    let context_ = "FieldId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"FieldId" j
    let to_json = simple_to_json to_value
  end
module FieldItem =
  struct
    type nonrec t =
      {
      id: FieldId.t [@ocaml.doc "Unique identifier of a field."]}
    let context_ = "FieldItem"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (FieldId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" FieldId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for field related information."]
module FieldGroupFieldsList =
  struct
    type nonrec t = FieldItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:220) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldItem.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:FieldItem.of_xml)
    let of_json j =
      list_of_json ~kind:"FieldGroupFieldsList" ~of_json:FieldItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldGroup =
  struct
    type nonrec t =
      {
      name: FieldGroupNameString.t option
        [@ocaml.doc "Name of the field group."];
      fields: FieldGroupFieldsList.t
        [@ocaml.doc
          "Represents an ordered list containing field related information."]}
    let context_ = "FieldGroup"
    let make ?name = fun ~fields -> fun () -> { name; fields }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:FieldGroupNameString.to_value));
        ("fields", (Some (FieldGroupFieldsList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        FieldGroupFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let name =
        (Option.map ~f:FieldGroupNameString.of_xml)
          (Xml.child xml_arg0 "name") in
      make ~fields ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map_exn json__ "fields" FieldGroupFieldsList.of_json in
      let name = field_map json__ "name" FieldGroupNameString.of_json in
      make ~fields ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for a group of fields and associated properties."]
module Section =
  struct
    type nonrec t =
      {
      fieldGroup: FieldGroup.t option
        [@ocaml.doc
          "Consists of a group of fields and associated properties."]}
    let make ?fieldGroup = fun () -> { fieldGroup }
    let to_value x =
      structure_to_value
        [("fieldGroup", (Option.map x.fieldGroup ~f:FieldGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldGroup =
        (Option.map ~f:FieldGroup.of_xml) (Xml.child xml_arg0 "fieldGroup") in
      make ?fieldGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldGroup = field_map json__ "fieldGroup" FieldGroup.of_json in
      make ?fieldGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This represents a sections within a panel or tab of the page layout."]
module SectionsList =
  struct
    type nonrec t = Section.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Section.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:Section.of_xml)
    let of_json j =
      list_of_json ~kind:"SectionsList" ~of_json:Section.of_json j
    let to_json v = composed_to_json to_value v
  end
module LayoutSections =
  struct
    type nonrec t = {
      sections: SectionsList.t option }
    let make ?sections = fun () -> { sections }
    let to_value x =
      structure_to_value
        [("sections", (Option.map x.sections ~f:SectionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sections =
        (Option.map ~f:SectionsList.of_xml) (Xml.child xml_arg0 "sections") in
      make ?sections ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sections = field_map json__ "sections" SectionsList.of_json in
      make ?sections ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Ordered list containing different kinds of sections that can be added. A LayoutSections object can only contain one section."]
module BasicLayout =
  struct
    type nonrec t =
      {
      topPanel: LayoutSections.t option
        [@ocaml.doc
          "This represents sections in a panel of the page layout."];
      moreInfo: LayoutSections.t option
        [@ocaml.doc "This represents sections in a tab of the page layout."]}
    let make ?topPanel = fun ?moreInfo -> fun () -> { topPanel; moreInfo }
    let to_value x =
      structure_to_value
        [("topPanel", (Option.map x.topPanel ~f:LayoutSections.to_value));
        ("moreInfo", (Option.map x.moreInfo ~f:LayoutSections.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let moreInfo =
        (Option.map ~f:LayoutSections.of_xml) (Xml.child xml_arg0 "moreInfo") in
      let topPanel =
        (Option.map ~f:LayoutSections.of_xml) (Xml.child xml_arg0 "topPanel") in
      make ?moreInfo ?topPanel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let moreInfo = field_map json__ "moreInfo" LayoutSections.of_json in
      let topPanel = field_map json__ "topPanel" LayoutSections.of_json in
      make ?moreInfo ?topPanel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Content specific to BasicLayout type. It configures fields in the top panel and More Info tab of agent application."]
module DomainId =
  struct
    type nonrec t = string
    let context_ = "DomainId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"DomainId" j
    let to_json = simple_to_json to_value
  end
module CaseRuleId =
  struct
    type nonrec t = string
    let context_ = "CaseRuleId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"CaseRuleId" j
    let to_json = simple_to_json to_value
  end
module CaseRuleIdentifier =
  struct
    type nonrec t =
      {
      id: CaseRuleId.t [@ocaml.doc "Unique identifier of a case rule."]}
    let context_ = "CaseRuleIdentifier"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (CaseRuleId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id =
        CaseRuleId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" CaseRuleId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object containing case rule identifier information."]
module CaseRuleIdentifierList =
  struct
    type nonrec t = CaseRuleIdentifier.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:CaseRuleIdentifier.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:CaseRuleIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseRuleIdentifierList"
        ~of_json:CaseRuleIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetCaseRuleRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "Unique identifier of a Cases domain."];
      caseRules: CaseRuleIdentifierList.t
        [@ocaml.doc "A list of case rule identifiers."]}
    let context_ = "BatchGetCaseRuleRequest"
    let make ~domainId = fun ~caseRules -> fun () -> { domainId; caseRules }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseRules", (Some (CaseRuleIdentifierList.to_value x.caseRules)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseRules =
        CaseRuleIdentifierList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "caseRules") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~caseRules ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseRules =
        field_map_exn json__ "caseRules" CaseRuleIdentifierList.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~caseRules ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a batch of case rules. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request isn't valid. Check the syntax and try again."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The rate has been exceeded for this API. Please try again after a few minutes."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "Unique identifier of the resource affected."];
      resourceType: String_.t option
        [@ocaml.doc "Type of the resource affected."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "We couldn't find the requested resource. Check that your resources exists and were created in the same Amazon Web Services Region as your request, and try your request again."]
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 InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "Advice to clients on when the call can be safely retried."]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "We couldn't process your request because of an issue with the server. Try again later."]
module BatchGetCaseRuleResponseUnprocessedCaseRulesList =
  struct
    type nonrec t = CaseRuleId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CaseRuleId.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:CaseRuleId.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetCaseRuleResponseUnprocessedCaseRulesList"
        ~of_json:CaseRuleId.of_json j
    let to_json v = composed_to_json to_value v
  end
module CaseRuleError =
  struct
    type nonrec t =
      {
      id: CaseRuleId.t option
        [@ocaml.doc "The case rule identifier that caused the error."];
      errorCode: String_.t option
        [@ocaml.doc "Error code from getting a case rule."];
      message: String_.t option
        [@ocaml.doc "Error message from getting a case rule."]}
    let make ?id =
      fun ?errorCode -> fun ?message -> fun () -> { id; errorCode; message }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:CaseRuleId.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let id = (Option.map ~f:CaseRuleId.of_xml) (Xml.child xml_arg0 "id") in
      make ?message ?errorCode ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let id = field_map json__ "id" CaseRuleId.of_json in
      make ?message ?errorCode ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Error for batch describe case rules API failure. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module BatchGetCaseRuleResponseErrorsList =
  struct
    type nonrec t = CaseRuleError.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CaseRuleError.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:CaseRuleError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetCaseRuleResponseErrorsList"
        ~of_json:CaseRuleError.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.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:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module LastModifiedTime =
  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 Deleted =
  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 CreatedTime =
  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 CaseRuleName =
  struct
    type nonrec t = string
    let context_ = "CaseRuleName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"CaseRuleName" j
    let to_json = simple_to_json to_value
  end
module OperandTwoStringValueString =
  struct
    type nonrec t = string
    let context_ = "OperandTwoStringValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1500) >>=
             (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:"OperandTwoStringValueString" j
    let to_json = simple_to_json to_value
  end
module EmptyOperandValue =
  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
       "Represents an empty operand value. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module OperandTwo =
  struct
    type nonrec t =
      {
      stringValue: OperandTwoStringValueString.t option
        [@ocaml.doc "String value type."];
      booleanValue: Boolean.t option [@ocaml.doc "Boolean value type."];
      doubleValue: Double.t option [@ocaml.doc "Double value type."];
      emptyValue: EmptyOperandValue.t option [@ocaml.doc "Empty value type."]}
    let make ?stringValue =
      fun ?booleanValue ->
        fun ?doubleValue ->
          fun ?emptyValue ->
            fun () -> { stringValue; booleanValue; doubleValue; emptyValue }
    let to_value x =
      structure_to_value
        [("stringValue",
           (Option.map x.stringValue ~f:OperandTwoStringValueString.to_value));
        ("booleanValue", (Option.map x.booleanValue ~f:Boolean.to_value));
        ("doubleValue", (Option.map x.doubleValue ~f:Double.to_value));
        ("emptyValue",
          (Option.map x.emptyValue ~f:EmptyOperandValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emptyValue =
        (Option.map ~f:EmptyOperandValue.of_xml)
          (Xml.child xml_arg0 "emptyValue") in
      let doubleValue =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "doubleValue") in
      let booleanValue =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "booleanValue") in
      let stringValue =
        (Option.map ~f:OperandTwoStringValueString.of_xml)
          (Xml.child xml_arg0 "stringValue") in
      make ?emptyValue ?doubleValue ?booleanValue ?stringValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emptyValue =
        field_map json__ "emptyValue" EmptyOperandValue.of_json in
      let doubleValue = field_map json__ "doubleValue" Double.of_json in
      let booleanValue = field_map json__ "booleanValue" Boolean.of_json in
      let stringValue =
        field_map json__ "stringValue" OperandTwoStringValueString.of_json in
      make ?emptyValue ?doubleValue ?booleanValue ?stringValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the right hand operand in the condition. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module OperandOne =
  struct
    type nonrec t =
      {
      fieldId: FieldId.t option
        [@ocaml.doc
          "The field ID that this operand should take the value of."]}
    let make ?fieldId = fun () -> { fieldId }
    let to_value x =
      structure_to_value
        [("fieldId", (Option.map x.fieldId ~f:FieldId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      make ?fieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      make ?fieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the left hand operand in the condition. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module BooleanOperands =
  struct
    type nonrec t =
      {
      operandOne: OperandOne.t
        [@ocaml.doc "Represents the left hand operand in the condition."];
      operandTwo: OperandTwo.t
        [@ocaml.doc "Represents the right hand operand in the condition."];
      result: Boolean.t
        [@ocaml.doc
          "The value of the outer rule if the condition evaluates to true."]}
    let context_ = "BooleanOperands"
    let make ~operandOne =
      fun ~operandTwo ->
        fun ~result -> fun () -> { operandOne; operandTwo; result }
    let to_value x =
      structure_to_value
        [("operandOne", (Some (OperandOne.to_value x.operandOne)));
        ("operandTwo", (Some (OperandTwo.to_value x.operandTwo)));
        ("result", (Some (Boolean.to_value x.result)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let result =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "result") in
      let operandTwo =
        OperandTwo.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operandTwo") in
      let operandOne =
        OperandOne.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operandOne") in
      make ~result ~operandTwo ~operandOne ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let result = field_map_exn json__ "result" Boolean.of_json in
      let operandTwo = field_map_exn json__ "operandTwo" OperandTwo.of_json in
      let operandOne = field_map_exn json__ "operandOne" OperandOne.of_json in
      make ~result ~operandTwo ~operandOne ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Boolean operands for a condition. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module rec
  BooleanCondition:sig
                     type nonrec t =
                       {
                       equalTo: BooleanOperands.t option
                         [@ocaml.doc
                           "Tests that operandOne is equal to operandTwo."];
                       notEqualTo: BooleanOperands.t option
                         [@ocaml.doc
                           "Tests that operandOne is not equal to operandTwo."];
                       andAll: CompoundCondition.t option
                         [@ocaml.doc
                           "Combines multiple conditions with AND operator. All conditions must be true for the compound condition to be true."];
                       orAll: CompoundCondition.t option
                         [@ocaml.doc
                           "Combines multiple conditions with OR operator. At least one condition must be true for the compound condition to be true."]}
                     val make :
                       ?equalTo:BooleanOperands.t ->
                         ?notEqualTo:BooleanOperands.t ->
                           ?andAll:CompoundCondition.t ->
                             ?orAll:CompoundCondition.t -> unit -> t
                     val to_value : t -> Botodata.value
                     val to_query : t -> Client.Query.t
                     val of_xml : Xml.t -> t
                     val of_json : Yojson.Safe.t -> t
                     val to_json : t -> Yojson.Safe.t
                   end =
  struct
    type nonrec t =
      {
      equalTo: BooleanOperands.t option
        [@ocaml.doc "Tests that operandOne is equal to operandTwo."];
      notEqualTo: BooleanOperands.t option
        [@ocaml.doc "Tests that operandOne is not equal to operandTwo."];
      andAll: CompoundCondition.t option
        [@ocaml.doc
          "Combines multiple conditions with AND operator. All conditions must be true for the compound condition to be true."];
      orAll: CompoundCondition.t option
        [@ocaml.doc
          "Combines multiple conditions with OR operator. At least one condition must be true for the compound condition to be true."]}
    let make ?equalTo =
      fun ?notEqualTo ->
        fun ?andAll ->
          fun ?orAll -> fun () -> { equalTo; notEqualTo; andAll; orAll }
    let to_value x =
      structure_to_value
        [("equalTo", (Option.map x.equalTo ~f:BooleanOperands.to_value));
        ("notEqualTo", (Option.map x.notEqualTo ~f:BooleanOperands.to_value));
        ("andAll", (Option.map x.andAll ~f:CompoundCondition.to_value));
        ("orAll", (Option.map x.orAll ~f:CompoundCondition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let orAll =
        (Option.map ~f:CompoundCondition.of_xml) (Xml.child xml_arg0 "orAll") in
      let andAll =
        (Option.map ~f:CompoundCondition.of_xml)
          (Xml.child xml_arg0 "andAll") in
      let notEqualTo =
        (Option.map ~f:BooleanOperands.of_xml)
          (Xml.child xml_arg0 "notEqualTo") in
      let equalTo =
        (Option.map ~f:BooleanOperands.of_xml) (Xml.child xml_arg0 "equalTo") in
      make ?orAll ?andAll ?notEqualTo ?equalTo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let orAll = field_map json__ "orAll" CompoundCondition.of_json in
      let andAll = field_map json__ "andAll" CompoundCondition.of_json in
      let notEqualTo = field_map json__ "notEqualTo" BooleanOperands.of_json in
      let equalTo = field_map json__ "equalTo" BooleanOperands.of_json in
      make ?orAll ?andAll ?notEqualTo ?equalTo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Boolean condition for a rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
 and
  BooleanConditionList:sig
                         type nonrec t = BooleanCondition.t list
                         val make : BooleanCondition.t list -> t
                         val to_value : t -> Botodata.value
                         val to_query : t -> Client.Query.t
                         val of_xml : Xml.t -> BooleanCondition.t list
                         val of_json : Yojson.Safe.t -> t
                         val to_json : t -> Yojson.Safe.t
                         val to_header : t -> string
                       end =
  struct
    type nonrec t = BooleanCondition.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BooleanCondition.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:BooleanCondition.of_xml)
    let of_json j =
      list_of_json ~kind:"BooleanConditionList"
        ~of_json:BooleanCondition.of_json j
    let to_json v = composed_to_json to_value v
  end and
       CompoundCondition:sig
                           type nonrec t =
                             {
                             conditions: BooleanConditionList.t
                               [@ocaml.doc
                                 "The list of conditions to combine using the logical operator. For API users: A case rule can have a maximum of 5 conditions, spread across a maximum of 2 levels of nesting."]}
                           val make :
                             conditions:BooleanConditionList.t -> unit -> t
                           val to_value : t -> Botodata.value
                           val to_query : t -> Client.Query.t
                           val of_xml : Xml.t -> t
                           val of_json : Yojson.Safe.t -> t
                           val to_json : t -> Yojson.Safe.t
                         end =
       struct
         type nonrec t =
           {
           conditions: BooleanConditionList.t
             [@ocaml.doc
               "The list of conditions to combine using the logical operator. For API users: A case rule can have a maximum of 5 conditions, spread across a maximum of 2 levels of nesting."]}
         let context_ = "CompoundCondition"
         let make ~conditions = fun () -> { conditions }
         let to_value x =
           structure_to_value
             [("conditions",
                (Some (BooleanConditionList.to_value x.conditions)))]
         let to_query v = to_query to_value v
         let of_xml xml_arg0 =
           let conditions =
             BooleanConditionList.of_xml
               (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
           make ~conditions ()
         let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning
                                                               "-32"]
         let of_json json__ =
           let conditions =
             field_map_exn json__ "conditions" BooleanConditionList.of_json in
           make ~conditions ()
         let to_json v = composed_to_json to_value v
       end[@@ocaml.doc
            "A compound condition that combines multiple boolean conditions using logical operators. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module RequiredCaseRule =
  struct
    type nonrec t =
      {
      defaultValue: Boolean.t
        [@ocaml.doc
          "The value of the rule (that is, whether the field is required) should none of the conditions evaluate to true."];
      conditions: BooleanConditionList.t
        [@ocaml.doc
          "List of conditions for the required rule; the first condition to evaluate to true dictates the value of the rule."]}
    let context_ = "RequiredCaseRule"
    let make ~defaultValue =
      fun ~conditions -> fun () -> { defaultValue; conditions }
    let to_value x =
      structure_to_value
        [("defaultValue", (Some (Boolean.to_value x.defaultValue)));
        ("conditions", (Some (BooleanConditionList.to_value x.conditions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        BooleanConditionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
      let defaultValue =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "defaultValue") in
      make ~conditions ~defaultValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions =
        field_map_exn json__ "conditions" BooleanConditionList.of_json in
      let defaultValue = field_map_exn json__ "defaultValue" Boolean.of_json in
      make ~conditions ~defaultValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Required rule type, used to indicate whether a field is required. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module HiddenCaseRule =
  struct
    type nonrec t =
      {
      defaultValue: Boolean.t
        [@ocaml.doc "Whether the field is hidden when no conditions match."];
      conditions: BooleanConditionList.t
        [@ocaml.doc "A list of conditions that determine field visibility."]}
    let context_ = "HiddenCaseRule"
    let make ~defaultValue =
      fun ~conditions -> fun () -> { defaultValue; conditions }
    let to_value x =
      structure_to_value
        [("defaultValue", (Some (Boolean.to_value x.defaultValue)));
        ("conditions", (Some (BooleanConditionList.to_value x.conditions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conditions =
        BooleanConditionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "conditions") in
      let defaultValue =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "defaultValue") in
      make ~conditions ~defaultValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conditions =
        field_map_exn json__ "conditions" BooleanConditionList.of_json in
      let defaultValue = field_map_exn json__ "defaultValue" Boolean.of_json in
      make ~conditions ~defaultValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A rule that controls field visibility based on conditions. Fields can be shown or hidden dynamically based on values in other fields."]
module ParentChildFieldOptionValue =
  struct
    type nonrec t = string
    let context_ = "ParentChildFieldOptionValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (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:"ParentChildFieldOptionValue" j
    let to_json = simple_to_json to_value
  end
module ParentChildFieldOptionsMappingChildFieldOptionValuesList =
  struct
    type nonrec t = ParentChildFieldOptionValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1500) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ParentChildFieldOptionValue.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:ParentChildFieldOptionValue.of_xml)
    let of_json j =
      list_of_json
        ~kind:"ParentChildFieldOptionsMappingChildFieldOptionValuesList"
        ~of_json:ParentChildFieldOptionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ParentChildFieldOptionsMapping =
  struct
    type nonrec t =
      {
      parentFieldOptionValue: ParentChildFieldOptionValue.t
        [@ocaml.doc "The value in the parent field."];
      childFieldOptionValues:
        ParentChildFieldOptionsMappingChildFieldOptionValuesList.t
        [@ocaml.doc "A list of allowed values in the child field."]}
    let context_ = "ParentChildFieldOptionsMapping"
    let make ~parentFieldOptionValue =
      fun ~childFieldOptionValues ->
        fun () -> { parentFieldOptionValue; childFieldOptionValues }
    let to_value x =
      structure_to_value
        [("parentFieldOptionValue",
           (Some
              (ParentChildFieldOptionValue.to_value x.parentFieldOptionValue)));
        ("childFieldOptionValues",
          (Some
             (ParentChildFieldOptionsMappingChildFieldOptionValuesList.to_value
                x.childFieldOptionValues)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let childFieldOptionValues =
        ParentChildFieldOptionsMappingChildFieldOptionValuesList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "childFieldOptionValues") in
      let parentFieldOptionValue =
        ParentChildFieldOptionValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parentFieldOptionValue") in
      make ~childFieldOptionValues ~parentFieldOptionValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let childFieldOptionValues =
        field_map_exn json__ "childFieldOptionValues"
          ParentChildFieldOptionsMappingChildFieldOptionValuesList.of_json in
      let parentFieldOptionValue =
        field_map_exn json__ "parentFieldOptionValue"
          ParentChildFieldOptionValue.of_json in
      make ~childFieldOptionValues ~parentFieldOptionValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A mapping between a parent field option value and child field option values."]
module ParentChildFieldOptionsMappingList =
  struct
    type nonrec t = ParentChildFieldOptionsMapping.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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:ParentChildFieldOptionsMapping.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:ParentChildFieldOptionsMapping.of_xml)
    let of_json j =
      list_of_json ~kind:"ParentChildFieldOptionsMappingList"
        ~of_json:ParentChildFieldOptionsMapping.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldOptionsCaseRule =
  struct
    type nonrec t =
      {
      parentFieldId: FieldId.t option
        [@ocaml.doc
          "The identifier of the parent field that controls options."];
      childFieldId: FieldId.t option
        [@ocaml.doc
          "The identifier of the child field whose options are controlled."];
      parentChildFieldOptionsMappings: ParentChildFieldOptionsMappingList.t
        [@ocaml.doc
          "A mapping between a parent field option value and child field option values."]}
    let context_ = "FieldOptionsCaseRule"
    let make ?parentFieldId =
      fun ?childFieldId ->
        fun ~parentChildFieldOptionsMappings ->
          fun () ->
            { parentFieldId; childFieldId; parentChildFieldOptionsMappings }
    let to_value x =
      structure_to_value
        [("parentFieldId", (Option.map x.parentFieldId ~f:FieldId.to_value));
        ("childFieldId", (Option.map x.childFieldId ~f:FieldId.to_value));
        ("parentChildFieldOptionsMappings",
          (Some
             (ParentChildFieldOptionsMappingList.to_value
                x.parentChildFieldOptionsMappings)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentChildFieldOptionsMappings =
        ParentChildFieldOptionsMappingList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "parentChildFieldOptionsMappings") in
      let childFieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "childFieldId") in
      let parentFieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "parentFieldId") in
      make ~parentChildFieldOptionsMappings ?childFieldId ?parentFieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentChildFieldOptionsMappings =
        field_map_exn json__ "parentChildFieldOptionsMappings"
          ParentChildFieldOptionsMappingList.of_json in
      let childFieldId = field_map json__ "childFieldId" FieldId.of_json in
      let parentFieldId = field_map json__ "parentFieldId" FieldId.of_json in
      make ~parentChildFieldOptionsMappings ?childFieldId ?parentFieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Rules that control which options are available in a child field based on the selected value in a parent field."]
module CaseRuleDetails =
  struct
    type nonrec t =
      {
      required: RequiredCaseRule.t option
        [@ocaml.doc
          "Required rule type, used to indicate whether a field is required."];
      fieldOptions: FieldOptionsCaseRule.t option
        [@ocaml.doc
          "Which options are available in a child field based on the selected value in a parent field."];
      hidden: HiddenCaseRule.t option
        [@ocaml.doc
          "Whether a field is visible, based on values in other fields."]}
    let make ?required =
      fun ?fieldOptions ->
        fun ?hidden -> fun () -> { required; fieldOptions; hidden }
    let to_value x =
      structure_to_value
        [("required", (Option.map x.required ~f:RequiredCaseRule.to_value));
        ("fieldOptions",
          (Option.map x.fieldOptions ~f:FieldOptionsCaseRule.to_value));
        ("hidden", (Option.map x.hidden ~f:HiddenCaseRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hidden =
        (Option.map ~f:HiddenCaseRule.of_xml) (Xml.child xml_arg0 "hidden") in
      let fieldOptions =
        (Option.map ~f:FieldOptionsCaseRule.of_xml)
          (Xml.child xml_arg0 "fieldOptions") in
      let required =
        (Option.map ~f:RequiredCaseRule.of_xml)
          (Xml.child xml_arg0 "required") in
      make ?hidden ?fieldOptions ?required ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hidden = field_map json__ "hidden" HiddenCaseRule.of_json in
      let fieldOptions =
        field_map json__ "fieldOptions" FieldOptionsCaseRule.of_json in
      let required = field_map json__ "required" RequiredCaseRule.of_json in
      make ?hidden ?fieldOptions ?required ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents what rule type should take place, under what conditions. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module CaseRuleDescription =
  struct
    type nonrec t = string
    let context_ = "CaseRuleDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"CaseRuleDescription" j
    let to_json = simple_to_json to_value
  end
module CaseRuleArn =
  struct
    type nonrec t = string
    let context_ = "CaseRuleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"CaseRuleArn" j
    let to_json = simple_to_json to_value
  end
module GetCaseRuleResponse =
  struct
    type nonrec t =
      {
      caseRuleId: CaseRuleId.t option
        [@ocaml.doc "Unique identifier of a case rule."];
      name: CaseRuleName.t option [@ocaml.doc "Name of the case rule."];
      caseRuleArn: CaseRuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the case rule."];
      rule: CaseRuleDetails.t option
        [@ocaml.doc
          "Represents what rule type should take place, under what conditions."];
      description: CaseRuleDescription.t option
        [@ocaml.doc "Description of a case rule."];
      deleted: Deleted.t option
        [@ocaml.doc "Indicates whether the resource has been deleted."];
      createdTime: CreatedTime.t option
        [@ocaml.doc "Timestamp when the resource was created."];
      lastModifiedTime: LastModifiedTime.t option
        [@ocaml.doc
          "Timestamp when the resource was created or last modified."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    let make ?caseRuleId =
      fun ?name ->
        fun ?caseRuleArn ->
          fun ?rule ->
            fun ?description ->
              fun ?deleted ->
                fun ?createdTime ->
                  fun ?lastModifiedTime ->
                    fun ?tags ->
                      fun () ->
                        {
                          caseRuleId;
                          name;
                          caseRuleArn;
                          rule;
                          description;
                          deleted;
                          createdTime;
                          lastModifiedTime;
                          tags
                        }
    let to_value x =
      structure_to_value
        [("caseRuleId", (Option.map x.caseRuleId ~f:CaseRuleId.to_value));
        ("name", (Option.map x.name ~f:CaseRuleName.to_value));
        ("caseRuleArn", (Option.map x.caseRuleArn ~f:CaseRuleArn.to_value));
        ("rule", (Option.map x.rule ~f:CaseRuleDetails.to_value));
        ("description",
          (Option.map x.description ~f:CaseRuleDescription.to_value));
        ("deleted", (Option.map x.deleted ~f:Deleted.to_value));
        ("createdTime", (Option.map x.createdTime ~f:CreatedTime.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastModifiedTime.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let lastModifiedTime =
        (Option.map ~f:LastModifiedTime.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:CreatedTime.of_xml) (Xml.child xml_arg0 "createdTime") in
      let deleted =
        (Option.map ~f:Deleted.of_xml) (Xml.child xml_arg0 "deleted") in
      let description =
        (Option.map ~f:CaseRuleDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let rule =
        (Option.map ~f:CaseRuleDetails.of_xml) (Xml.child xml_arg0 "rule") in
      let caseRuleArn =
        (Option.map ~f:CaseRuleArn.of_xml) (Xml.child xml_arg0 "caseRuleArn") in
      let name =
        (Option.map ~f:CaseRuleName.of_xml) (Xml.child xml_arg0 "name") in
      let caseRuleId =
        (Option.map ~f:CaseRuleId.of_xml) (Xml.child xml_arg0 "caseRuleId") in
      make ?tags ?lastModifiedTime ?createdTime ?deleted ?description ?rule
        ?caseRuleArn ?name ?caseRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" LastModifiedTime.of_json in
      let createdTime = field_map json__ "createdTime" CreatedTime.of_json in
      let deleted = field_map json__ "deleted" Deleted.of_json in
      let description =
        field_map json__ "description" CaseRuleDescription.of_json in
      let rule = field_map json__ "rule" CaseRuleDetails.of_json in
      let caseRuleArn = field_map json__ "caseRuleArn" CaseRuleArn.of_json in
      let name = field_map json__ "name" CaseRuleName.of_json in
      let caseRuleId = field_map json__ "caseRuleId" CaseRuleId.of_json in
      make ?tags ?lastModifiedTime ?createdTime ?deleted ?description ?rule
        ?caseRuleArn ?name ?caseRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Detailed case rule information. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module BatchGetCaseRuleResponseCaseRulesList =
  struct
    type nonrec t = GetCaseRuleResponse.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GetCaseRuleResponse.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:GetCaseRuleResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetCaseRuleResponseCaseRulesList"
        ~of_json:GetCaseRuleResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetCaseRuleResponse =
  struct
    type nonrec t =
      {
      caseRules: BatchGetCaseRuleResponseCaseRulesList.t option
        [@ocaml.doc "A list of detailed case rule information."];
      errors: BatchGetCaseRuleResponseErrorsList.t option
        [@ocaml.doc "A list of case rule errors."];
      unprocessedCaseRules:
        BatchGetCaseRuleResponseUnprocessedCaseRulesList.t option
        [@ocaml.doc "A list of unprocessed case rule identifiers."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseRules =
      fun ?errors ->
        fun ?unprocessedCaseRules ->
          fun () -> { caseRules; errors; unprocessedCaseRules }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseRules",
           (Option.map x.caseRules
              ~f:BatchGetCaseRuleResponseCaseRulesList.to_value));
        ("errors",
          (Option.map x.errors ~f:BatchGetCaseRuleResponseErrorsList.to_value));
        ("unprocessedCaseRules",
          (Option.map x.unprocessedCaseRules
             ~f:BatchGetCaseRuleResponseUnprocessedCaseRulesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unprocessedCaseRules =
        (Option.map
           ~f:BatchGetCaseRuleResponseUnprocessedCaseRulesList.of_xml)
          (Xml.child xml_arg0 "unprocessedCaseRules") in
      let errors =
        (Option.map ~f:BatchGetCaseRuleResponseErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let caseRules =
        (Option.map ~f:BatchGetCaseRuleResponseCaseRulesList.of_xml)
          (Xml.child xml_arg0 "caseRules") in
      make ?unprocessedCaseRules ?errors ?caseRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unprocessedCaseRules =
        field_map json__ "unprocessedCaseRules"
          BatchGetCaseRuleResponseUnprocessedCaseRulesList.of_json in
      let errors =
        field_map json__ "errors" BatchGetCaseRuleResponseErrorsList.of_json in
      let caseRules =
        field_map json__ "caseRules"
          BatchGetCaseRuleResponseCaseRulesList.of_json in
      make ?unprocessedCaseRules ?errors ?caseRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a batch of case rules. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module FieldIdentifier =
  struct
    type nonrec t =
      {
      id: FieldId.t [@ocaml.doc "Unique identifier of a field."]}
    let context_ = "FieldIdentifier"
    let make ~id = fun () -> { id }
    let to_value x =
      structure_to_value [("id", (Some (FieldId.to_value x.id)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let id = FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let id = field_map_exn json__ "id" FieldId.of_json in make ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for unique identifier of a field."]
module BatchGetFieldIdentifierList =
  struct
    type nonrec t = FieldIdentifier.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:FieldIdentifier.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:FieldIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetFieldIdentifierList"
        ~of_json:FieldIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetFieldRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      fields: BatchGetFieldIdentifierList.t
        [@ocaml.doc "A list of unique field identifiers."]}
    let context_ = "BatchGetFieldRequest"
    let make ~domainId = fun ~fields -> fun () -> { domainId; fields }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("fields", (Some (BatchGetFieldIdentifierList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        BatchGetFieldIdentifierList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~fields ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map_exn json__ "fields" BatchGetFieldIdentifierList.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~fields ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description for the list of fields in the request parameters."]
module FieldType =
  struct
    type nonrec t =
      | Text 
      | Number 
      | Boolean 
      | DateTime 
      | SingleSelect 
      | Url 
      | User 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Text -> "Text"
      | Number -> "Number"
      | Boolean -> "Boolean"
      | DateTime -> "DateTime"
      | SingleSelect -> "SingleSelect"
      | Url -> "Url"
      | User -> "User"
      | Non_static_id s -> s
    let of_string =
      function
      | "Text" -> Text
      | "Number" -> Number
      | "Boolean" -> Boolean
      | "DateTime" -> DateTime
      | "SingleSelect" -> SingleSelect
      | "Url" -> Url
      | "User" -> User
      | 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 FieldType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FieldType" j)
    let to_json = simple_to_json to_value
  end
module FieldNamespace =
  struct
    type nonrec t =
      | System 
      | Custom 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | System -> "System"
      | Custom -> "Custom"
      | Non_static_id s -> s
    let of_string =
      function
      | "System" -> System
      | "Custom" -> Custom
      | 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 FieldNamespace" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FieldNamespace" j)
    let to_json = simple_to_json to_value
  end
module FieldName =
  struct
    type nonrec t = string
    let context_ = "FieldName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"FieldName" j
    let to_json = simple_to_json to_value
  end
module FieldDescription =
  struct
    type nonrec t = string
    let context_ = "FieldDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"FieldDescription" j
    let to_json = simple_to_json to_value
  end
module TextAttributes =
  struct
    type nonrec t =
      {
      isMultiline: Boolean.t
        [@ocaml.doc
          "Attribute that defines rendering component and validation."]}
    let context_ = "TextAttributes"
    let make ~isMultiline = fun () -> { isMultiline }
    let to_value x =
      structure_to_value
        [("isMultiline", (Some (Boolean.to_value x.isMultiline)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isMultiline =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "isMultiline") in
      make ~isMultiline ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isMultiline = field_map_exn json__ "isMultiline" Boolean.of_json in
      make ~isMultiline ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Field attributes for Text field type."]
module FieldAttributes =
  struct
    type nonrec t =
      {
      text: TextAttributes.t option
        [@ocaml.doc "Field attributes for Text field type."]}
    let make ?text = fun () -> { text }
    let to_value x =
      structure_to_value
        [("text", (Option.map x.text ~f:TextAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let text =
        (Option.map ~f:TextAttributes.of_xml) (Xml.child xml_arg0 "text") in
      make ?text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let text = field_map json__ "text" TextAttributes.of_json in
      make ?text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Union of field attributes."]
module FieldArn =
  struct
    type nonrec t = string
    let context_ = "FieldArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"FieldArn" j
    let to_json = simple_to_json to_value
  end
module GetFieldResponse =
  struct
    type nonrec t =
      {
      fieldId: FieldId.t option
        [@ocaml.doc "Unique identifier of the field."];
      name: FieldName.t option [@ocaml.doc "Name of the field."];
      fieldArn: FieldArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the field."];
      description: FieldDescription.t option
        [@ocaml.doc "Description of the field."];
      type_: FieldType.t option [@ocaml.doc "Type of the field."];
      namespace: FieldNamespace.t option
        [@ocaml.doc "Namespace of the field."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."];
      deleted: Deleted.t option
        [@ocaml.doc "Denotes whether or not the resource has been deleted."];
      createdTime: CreatedTime.t option
        [@ocaml.doc "Timestamp at which the resource was created."];
      lastModifiedTime: LastModifiedTime.t option
        [@ocaml.doc
          "Timestamp at which the resource was created or last modified."];
      attributes: FieldAttributes.t option
        [@ocaml.doc "Union of field attributes."]}
    let make ?fieldId =
      fun ?name ->
        fun ?fieldArn ->
          fun ?description ->
            fun ?type_ ->
              fun ?namespace ->
                fun ?tags ->
                  fun ?deleted ->
                    fun ?createdTime ->
                      fun ?lastModifiedTime ->
                        fun ?attributes ->
                          fun () ->
                            {
                              fieldId;
                              name;
                              fieldArn;
                              description;
                              type_;
                              namespace;
                              tags;
                              deleted;
                              createdTime;
                              lastModifiedTime;
                              attributes
                            }
    let to_value x =
      structure_to_value
        [("fieldId", (Option.map x.fieldId ~f:FieldId.to_value));
        ("name", (Option.map x.name ~f:FieldName.to_value));
        ("fieldArn", (Option.map x.fieldArn ~f:FieldArn.to_value));
        ("description",
          (Option.map x.description ~f:FieldDescription.to_value));
        ("type", (Option.map x.type_ ~f:FieldType.to_value));
        ("namespace", (Option.map x.namespace ~f:FieldNamespace.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("deleted", (Option.map x.deleted ~f:Deleted.to_value));
        ("createdTime", (Option.map x.createdTime ~f:CreatedTime.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastModifiedTime.to_value));
        ("attributes", (Option.map x.attributes ~f:FieldAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:FieldAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let lastModifiedTime =
        (Option.map ~f:LastModifiedTime.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:CreatedTime.of_xml) (Xml.child xml_arg0 "createdTime") in
      let deleted =
        (Option.map ~f:Deleted.of_xml) (Xml.child xml_arg0 "deleted") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let namespace =
        (Option.map ~f:FieldNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      let type_ =
        (Option.map ~f:FieldType.of_xml) (Xml.child xml_arg0 "type") in
      let description =
        (Option.map ~f:FieldDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let fieldArn =
        (Option.map ~f:FieldArn.of_xml) (Xml.child xml_arg0 "fieldArn") in
      let name = (Option.map ~f:FieldName.of_xml) (Xml.child xml_arg0 "name") in
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      make ?attributes ?lastModifiedTime ?createdTime ?deleted ?tags
        ?namespace ?type_ ?description ?fieldArn ?name ?fieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" FieldAttributes.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" LastModifiedTime.of_json in
      let createdTime = field_map json__ "createdTime" CreatedTime.of_json in
      let deleted = field_map json__ "deleted" Deleted.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let namespace = field_map json__ "namespace" FieldNamespace.of_json in
      let type_ = field_map json__ "type" FieldType.of_json in
      let description =
        field_map json__ "description" FieldDescription.of_json in
      let fieldArn = field_map json__ "fieldArn" FieldArn.of_json in
      let name = field_map json__ "name" FieldName.of_json in
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      make ?attributes ?lastModifiedTime ?createdTime ?deleted ?tags
        ?namespace ?type_ ?description ?fieldArn ?name ?fieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object to store detailed field information."]
module BatchGetFieldResponseFieldsList =
  struct
    type nonrec t = GetFieldResponse.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GetFieldResponse.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:GetFieldResponse.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetFieldResponseFieldsList"
        ~of_json:GetFieldResponse.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldError =
  struct
    type nonrec t =
      {
      id: FieldId.t option
        [@ocaml.doc "The field identifier that caused the error."];
      errorCode: String_.t option
        [@ocaml.doc "The error code from getting a field."];
      message: String_.t option
        [@ocaml.doc "The error message from getting a field."]}
    let make ?id =
      fun ?errorCode -> fun ?message -> fun () -> { id; errorCode; message }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:FieldId.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let id = (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "id") in
      make ?message ?errorCode ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let id = field_map json__ "id" FieldId.of_json in
      make ?message ?errorCode ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for errors on fields."]
module BatchGetFieldResponseErrorsList =
  struct
    type nonrec t = FieldError.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldError.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:FieldError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetFieldResponseErrorsList"
        ~of_json:FieldError.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetFieldResponse =
  struct
    type nonrec t =
      {
      fields: BatchGetFieldResponseFieldsList.t option
        [@ocaml.doc "A list of detailed field information."];
      errors: BatchGetFieldResponseErrorsList.t option
        [@ocaml.doc "A list of field errors."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fields = fun ?errors -> fun () -> { fields; errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("fields",
           (Option.map x.fields ~f:BatchGetFieldResponseFieldsList.to_value));
        ("errors",
          (Option.map x.errors ~f:BatchGetFieldResponseErrorsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchGetFieldResponseErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let fields =
        (Option.map ~f:BatchGetFieldResponseFieldsList.of_xml)
          (Xml.child xml_arg0 "fields") in
      make ?errors ?fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" BatchGetFieldResponseErrorsList.of_json in
      let fields =
        field_map json__ "fields" BatchGetFieldResponseFieldsList.of_json in
      make ?errors ?fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description for the list of fields in the request parameters."]
module FieldOptionValue =
  struct
    type nonrec t = string
    let context_ = "FieldOptionValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"FieldOptionValue" j
    let to_json = simple_to_json to_value
  end
module FieldOptionName =
  struct
    type nonrec t = string
    let context_ = "FieldOptionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"FieldOptionName" j
    let to_json = simple_to_json to_value
  end
module FieldOption =
  struct
    type nonrec t =
      {
      name: FieldOptionName.t
        [@ocaml.doc
          "FieldOptionName has max length 100 and disallows trailing spaces."];
      value: FieldOptionValue.t
        [@ocaml.doc
          "FieldOptionValue has max length 100 and must be alphanumeric with hyphens and underscores."];
      active: Boolean.t
        [@ocaml.doc
          "Describes whether the FieldOption is active (displayed) or inactive."]}
    let context_ = "FieldOption"
    let make ~name =
      fun ~value -> fun ~active -> fun () -> { name; value; active }
    let to_value x =
      structure_to_value
        [("name", (Some (FieldOptionName.to_value x.name)));
        ("value", (Some (FieldOptionValue.to_value x.value)));
        ("active", (Some (Boolean.to_value x.active)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let active =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "active") in
      let value =
        FieldOptionValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let name =
        FieldOptionName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~active ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let active = field_map_exn json__ "active" Boolean.of_json in
      let value = field_map_exn json__ "value" FieldOptionValue.of_json in
      let name = field_map_exn json__ "name" FieldOptionName.of_json in
      make ~active ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for field Options information."]
module BatchPutFieldOptionsRequestOptionsList =
  struct
    type nonrec t = FieldOption.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldOption.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:FieldOption.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchPutFieldOptionsRequestOptionsList"
        ~of_json:FieldOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchPutFieldOptionsRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      fieldId: FieldId.t [@ocaml.doc "The unique identifier of a field."];
      options: BatchPutFieldOptionsRequestOptionsList.t
        [@ocaml.doc "A list of FieldOption objects."]}
    let context_ = "BatchPutFieldOptionsRequest"
    let make ~domainId =
      fun ~fieldId ->
        fun ~options -> fun () -> { domainId; fieldId; options }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("fieldId", (Some (FieldId.to_value x.fieldId)));
        ("options",
          (Some (BatchPutFieldOptionsRequestOptionsList.to_value x.options)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        BatchPutFieldOptionsRequestOptionsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "options") in
      let fieldId =
        FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fieldId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~options ~fieldId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map_exn json__ "options"
          BatchPutFieldOptionsRequestOptionsList.of_json in
      let fieldId = field_map_exn json__ "fieldId" FieldId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~options ~fieldId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates and updates a set of field options for a single select field in a Cases domain."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The service quota has been exceeded. For a list of service quotas, see Amazon Connect Service Quotas in the Amazon Connect Administrator Guide."]
module FieldOptionError =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc "Error message from creating or updating field option."];
      errorCode: String_.t option
        [@ocaml.doc "Error code from creating or updating field option."];
      value: FieldOptionValue.t option
        [@ocaml.doc "The field option value that caused the error."]}
    let make ?message =
      fun ?errorCode -> fun ?value -> fun () -> { message; errorCode; value }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("errorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("value", (Option.map x.value ~f:FieldOptionValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:FieldOptionValue.of_xml) (Xml.child xml_arg0 "value") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?value ?errorCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "value" FieldOptionValue.of_json in
      let errorCode = field_map json__ "errorCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?value ?errorCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for field Options errors."]
module BatchPutFieldOptionsResponseErrorsList =
  struct
    type nonrec t = FieldOptionError.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldOptionError.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:FieldOptionError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchPutFieldOptionsResponseErrorsList"
        ~of_json:FieldOptionError.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchPutFieldOptionsResponse =
  struct
    type nonrec t =
      {
      errors: BatchPutFieldOptionsResponseErrorsList.t option
        [@ocaml.doc "A list of field errors."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?errors = fun () -> { errors }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("errors",
           (Option.map x.errors
              ~f:BatchPutFieldOptionsResponseErrorsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchPutFieldOptionsResponseErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      make ?errors ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors"
          BatchPutFieldOptionsResponseErrorsList.of_json in
      make ?errors ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates and updates a set of field options for a single select field in a Cases domain."]
module CaseArn =
  struct
    type nonrec t = string
    let context_ = "CaseArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"CaseArn" j
    let to_json = simple_to_json to_value
  end
module CaseEventIncludedDataFieldsList =
  struct
    type nonrec t = FieldIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:400) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldIdentifier.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:FieldIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseEventIncludedDataFieldsList"
        ~of_json:FieldIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module CaseEventIncludedData =
  struct
    type nonrec t =
      {
      fields: CaseEventIncludedDataFieldsList.t
        [@ocaml.doc "List of field identifiers."]}
    let context_ = "CaseEventIncludedData"
    let make ~fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields",
           (Some (CaseEventIncludedDataFieldsList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        CaseEventIncludedDataFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map_exn json__ "fields" CaseEventIncludedDataFieldsList.of_json in
      make ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details of what case data is published through the case event stream."]
module TagValueString =
  struct
    type nonrec t = string
    let context_ = "TagValueString"
    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 _.:/=+\\-@]*)")));
        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:"TagValueString" j
    let to_json = simple_to_json to_value
  end
module SearchTagKey =
  struct
    type nonrec t = string
    let context_ = "SearchTagKey"
    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:"[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:"SearchTagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t =
      {
      key: SearchTagKey.t option
        [@ocaml.doc "The tag key in the tag filter value."];
      value: TagValueString.t option
        [@ocaml.doc "The tag value in the tag filter value."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Option.map x.key ~f:SearchTagKey.to_value));
        ("value", (Option.map x.value ~f:TagValueString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValueString.of_xml) (Xml.child xml_arg0 "value") in
      let key =
        (Option.map ~f:SearchTagKey.of_xml) (Xml.child 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 json__ "value" TagValueString.of_json in
      let key = field_map json__ "key" SearchTagKey.of_json in
      make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for case tag filter values."]
module TagFilter =
  struct
    type nonrec t =
      {
      equalTo: TagValue.t option
        [@ocaml.doc "Object containing tag key and value information."]}
    let make ?equalTo = fun () -> { equalTo }
    let to_value x =
      structure_to_value
        [("equalTo", (Option.map x.equalTo ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let equalTo =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "equalTo") in
      make ?equalTo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let equalTo = field_map json__ "equalTo" TagValue.of_json in
      make ?equalTo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for tags. Only one value can be provided."]
module FieldValueUnionStringValueString =
  struct
    type nonrec t = string
    let context_ = "FieldValueUnionStringValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4100) >>=
             (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:"FieldValueUnionStringValueString" j
    let to_json = simple_to_json to_value
  end
module FieldValueUnion =
  struct
    type nonrec t =
      {
      stringValue: FieldValueUnionStringValueString.t option
        [@ocaml.doc "String value type."];
      doubleValue: Double.t option
        [@ocaml.doc
          "Can be either null, or have a Double number value type. Only one value can be provided."];
      booleanValue: Boolean.t option
        [@ocaml.doc
          "Can be either null, or have a Boolean value type. Only one value can be provided."];
      emptyValue: EmptyFieldValue.t option [@ocaml.doc "An empty value."];
      userArnValue: String_.t option
        [@ocaml.doc "Represents the user that performed the audit."]}
    let make ?stringValue =
      fun ?doubleValue ->
        fun ?booleanValue ->
          fun ?emptyValue ->
            fun ?userArnValue ->
              fun () ->
                {
                  stringValue;
                  doubleValue;
                  booleanValue;
                  emptyValue;
                  userArnValue
                }
    let to_value x =
      structure_to_value
        [("stringValue",
           (Option.map x.stringValue
              ~f:FieldValueUnionStringValueString.to_value));
        ("doubleValue", (Option.map x.doubleValue ~f:Double.to_value));
        ("booleanValue", (Option.map x.booleanValue ~f:Boolean.to_value));
        ("emptyValue", (Option.map x.emptyValue ~f:EmptyFieldValue.to_value));
        ("userArnValue", (Option.map x.userArnValue ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userArnValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userArnValue") in
      let emptyValue =
        (Option.map ~f:EmptyFieldValue.of_xml)
          (Xml.child xml_arg0 "emptyValue") in
      let booleanValue =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "booleanValue") in
      let doubleValue =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "doubleValue") in
      let stringValue =
        (Option.map ~f:FieldValueUnionStringValueString.of_xml)
          (Xml.child xml_arg0 "stringValue") in
      make ?userArnValue ?emptyValue ?booleanValue ?doubleValue ?stringValue
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userArnValue = field_map json__ "userArnValue" String_.of_json in
      let emptyValue = field_map json__ "emptyValue" EmptyFieldValue.of_json in
      let booleanValue = field_map json__ "booleanValue" Boolean.of_json in
      let doubleValue = field_map json__ "doubleValue" Double.of_json in
      let stringValue =
        field_map json__ "stringValue"
          FieldValueUnionStringValueString.of_json in
      make ?userArnValue ?emptyValue ?booleanValue ?doubleValue ?stringValue
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object to store union of Field values. The Summary system field accepts up to 3000 characters, while all other fields accept up to 4100 characters. If you use multi-byte characters, the effective character limit may be lower."]
module FieldValue =
  struct
    type nonrec t =
      {
      id: FieldId.t [@ocaml.doc "Unique identifier of a field."];
      value: FieldValueUnion.t
        [@ocaml.doc "Union of potential field value types."]}
    let context_ = "FieldValue"
    let make ~id = fun ~value -> fun () -> { id; value }
    let to_value x =
      structure_to_value
        [("id", (Some (FieldId.to_value x.id)));
        ("value", (Some (FieldValueUnion.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        FieldValueUnion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let id = FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ~value ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" FieldValueUnion.of_json in
      let id = field_map_exn json__ "id" FieldId.of_json in
      make ~value ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for case field values."]
module FieldFilter =
  struct
    type nonrec t =
      {
      equalTo: FieldValue.t option
        [@ocaml.doc
          "Object containing field identifier and value information."];
      contains: FieldValue.t option
        [@ocaml.doc
          "Object containing field identifier and value information."];
      greaterThan: FieldValue.t option
        [@ocaml.doc
          "Object containing field identifier and value information."];
      greaterThanOrEqualTo: FieldValue.t option
        [@ocaml.doc
          "Object containing field identifier and value information."];
      lessThan: FieldValue.t option
        [@ocaml.doc
          "Object containing field identifier and value information."];
      lessThanOrEqualTo: FieldValue.t option
        [@ocaml.doc
          "Object containing field identifier and value information."]}
    let make ?equalTo =
      fun ?contains ->
        fun ?greaterThan ->
          fun ?greaterThanOrEqualTo ->
            fun ?lessThan ->
              fun ?lessThanOrEqualTo ->
                fun () ->
                  {
                    equalTo;
                    contains;
                    greaterThan;
                    greaterThanOrEqualTo;
                    lessThan;
                    lessThanOrEqualTo
                  }
    let to_value x =
      structure_to_value
        [("equalTo", (Option.map x.equalTo ~f:FieldValue.to_value));
        ("contains", (Option.map x.contains ~f:FieldValue.to_value));
        ("greaterThan", (Option.map x.greaterThan ~f:FieldValue.to_value));
        ("greaterThanOrEqualTo",
          (Option.map x.greaterThanOrEqualTo ~f:FieldValue.to_value));
        ("lessThan", (Option.map x.lessThan ~f:FieldValue.to_value));
        ("lessThanOrEqualTo",
          (Option.map x.lessThanOrEqualTo ~f:FieldValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lessThanOrEqualTo =
        (Option.map ~f:FieldValue.of_xml)
          (Xml.child xml_arg0 "lessThanOrEqualTo") in
      let lessThan =
        (Option.map ~f:FieldValue.of_xml) (Xml.child xml_arg0 "lessThan") in
      let greaterThanOrEqualTo =
        (Option.map ~f:FieldValue.of_xml)
          (Xml.child xml_arg0 "greaterThanOrEqualTo") in
      let greaterThan =
        (Option.map ~f:FieldValue.of_xml) (Xml.child xml_arg0 "greaterThan") in
      let contains =
        (Option.map ~f:FieldValue.of_xml) (Xml.child xml_arg0 "contains") in
      let equalTo =
        (Option.map ~f:FieldValue.of_xml) (Xml.child xml_arg0 "equalTo") in
      make ?lessThanOrEqualTo ?lessThan ?greaterThanOrEqualTo ?greaterThan
        ?contains ?equalTo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lessThanOrEqualTo =
        field_map json__ "lessThanOrEqualTo" FieldValue.of_json in
      let lessThan = field_map json__ "lessThan" FieldValue.of_json in
      let greaterThanOrEqualTo =
        field_map json__ "greaterThanOrEqualTo" FieldValue.of_json in
      let greaterThan = field_map json__ "greaterThan" FieldValue.of_json in
      let contains = field_map json__ "contains" FieldValue.of_json in
      let equalTo = field_map json__ "equalTo" FieldValue.of_json in
      make ?lessThanOrEqualTo ?lessThan ?greaterThanOrEqualTo ?greaterThan
        ?contains ?equalTo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for fields. Only one value can be provided."]
module rec
  CaseFilter:sig
               type nonrec t =
                 {
                 field: FieldFilter.t option
                   [@ocaml.doc "A list of fields to filter on."];
                 not: CaseFilter.t option ;
                 tag: TagFilter.t option
                   [@ocaml.doc "A list of tags to filter on."];
                 andAll: CaseFilterAndAllList.t option
                   [@ocaml.doc "Provides \"and all\" filtering."];
                 orAll: CaseFilterOrAllList.t option
                   [@ocaml.doc "Provides \"or all\" filtering."]}
               val make :
                 ?field:FieldFilter.t ->
                   ?not:CaseFilter.t ->
                     ?tag:TagFilter.t ->
                       ?andAll:CaseFilterAndAllList.t ->
                         ?orAll:CaseFilterOrAllList.t -> unit -> t
               val to_value : t -> Botodata.value
               val to_query : t -> Client.Query.t
               val of_xml : Xml.t -> t
               val of_json : Yojson.Safe.t -> t
               val to_json : t -> Yojson.Safe.t
             end =
  struct
    type nonrec t =
      {
      field: FieldFilter.t option
        [@ocaml.doc "A list of fields to filter on."];
      not: CaseFilter.t option ;
      tag: TagFilter.t option [@ocaml.doc "A list of tags to filter on."];
      andAll: CaseFilterAndAllList.t option
        [@ocaml.doc "Provides \"and all\" filtering."];
      orAll: CaseFilterOrAllList.t option
        [@ocaml.doc "Provides \"or all\" filtering."]}
    let make ?field =
      fun ?not ->
        fun ?tag ->
          fun ?andAll ->
            fun ?orAll -> fun () -> { field; not; tag; andAll; orAll }
    let to_value x =
      structure_to_value
        [("field", (Option.map x.field ~f:FieldFilter.to_value));
        ("not", (Option.map x.not ~f:CaseFilter.to_value));
        ("tag", (Option.map x.tag ~f:TagFilter.to_value));
        ("andAll", (Option.map x.andAll ~f:CaseFilterAndAllList.to_value));
        ("orAll", (Option.map x.orAll ~f:CaseFilterOrAllList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let orAll =
        (Option.map ~f:CaseFilterOrAllList.of_xml)
          (Xml.child xml_arg0 "orAll") in
      let andAll =
        (Option.map ~f:CaseFilterAndAllList.of_xml)
          (Xml.child xml_arg0 "andAll") in
      let tag = (Option.map ~f:TagFilter.of_xml) (Xml.child xml_arg0 "tag") in
      let not = (Option.map ~f:CaseFilter.of_xml) (Xml.child xml_arg0 "not") in
      let field =
        (Option.map ~f:FieldFilter.of_xml) (Xml.child xml_arg0 "field") in
      make ?orAll ?andAll ?tag ?not ?field ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let orAll = field_map json__ "orAll" CaseFilterOrAllList.of_json in
      let andAll = field_map json__ "andAll" CaseFilterAndAllList.of_json in
      let tag = field_map json__ "tag" TagFilter.of_json in
      let not = field_map json__ "not" CaseFilter.of_json in
      let field = field_map json__ "field" FieldFilter.of_json in
      make ?orAll ?andAll ?tag ?not ?field ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for cases. Only one value can be provided."]
 and
  CaseFilterAndAllList:sig
                         type nonrec t = CaseFilter.t list
                         val make : CaseFilter.t list -> t
                         val to_value : t -> Botodata.value
                         val to_query : t -> Client.Query.t
                         val of_xml : Xml.t -> CaseFilter.t list
                         val of_json : Yojson.Safe.t -> t
                         val to_json : t -> Yojson.Safe.t
                         val to_header : t -> string
                       end =
  struct
    type nonrec t = CaseFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CaseFilter.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:CaseFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"CaseFilterAndAllList" ~of_json:CaseFilter.of_json j
    let to_json v = composed_to_json to_value v
  end and
       CaseFilterOrAllList:sig
                             type nonrec t = CaseFilter.t list
                             val make : CaseFilter.t list -> t
                             val to_value : t -> Botodata.value
                             val to_query : t -> Client.Query.t
                             val of_xml : Xml.t -> CaseFilter.t list
                             val of_json : Yojson.Safe.t -> t
                             val to_json : t -> Yojson.Safe.t
                             val to_header : t -> string
                           end =
       struct
         type nonrec t = CaseFilter.t list
         let make i =
           let open Result in
             ok_or_failwith
               ((check_list_max i ~max:10) >>=
                  (fun () -> check_list_min i ~min:0));
             i
         let of_string _ =
           failwithf "of_string is not implemented for List_shape objects" ()
           [@@warning "-32"]
         let to_value xs =
           (xs |> (List.map ~f:CaseFilter.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:CaseFilter.of_xml)
         let of_json j =
           list_of_json ~kind:"CaseFilterOrAllList"
             ~of_json:CaseFilter.of_json j
         let to_json v = composed_to_json to_value v
       end
module CaseId =
  struct
    type nonrec t = string
    let context_ = "CaseId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"CaseId" j
    let to_json = simple_to_json to_value
  end
module RuleType =
  struct
    type nonrec t =
      | Required 
      | Hidden 
      | FieldOptions 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Required -> "Required"
      | Hidden -> "Hidden"
      | FieldOptions -> "FieldOptions"
      | Non_static_id s -> s
    let of_string =
      function
      | "Required" -> Required
      | "Hidden" -> Hidden
      | "FieldOptions" -> FieldOptions
      | 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 RuleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RuleType" j)
    let to_json = simple_to_json to_value
  end
module CaseRuleSummary =
  struct
    type nonrec t =
      {
      caseRuleId: CaseRuleId.t option
        [@ocaml.doc "Unique identifier of a case rule."];
      name: CaseRuleName.t option [@ocaml.doc "Name of the case rule."];
      caseRuleArn: CaseRuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the case rule."];
      ruleType: RuleType.t option [@ocaml.doc "Possible types for a rule."];
      description: CaseRuleDescription.t option
        [@ocaml.doc "Description of a case rule."]}
    let make ?caseRuleId =
      fun ?name ->
        fun ?caseRuleArn ->
          fun ?ruleType ->
            fun ?description ->
              fun () ->
                { caseRuleId; name; caseRuleArn; ruleType; description }
    let to_value x =
      structure_to_value
        [("caseRuleId", (Option.map x.caseRuleId ~f:CaseRuleId.to_value));
        ("name", (Option.map x.name ~f:CaseRuleName.to_value));
        ("caseRuleArn", (Option.map x.caseRuleArn ~f:CaseRuleArn.to_value));
        ("ruleType", (Option.map x.ruleType ~f:RuleType.to_value));
        ("description",
          (Option.map x.description ~f:CaseRuleDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:CaseRuleDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let ruleType =
        (Option.map ~f:RuleType.of_xml) (Xml.child xml_arg0 "ruleType") in
      let caseRuleArn =
        (Option.map ~f:CaseRuleArn.of_xml) (Xml.child xml_arg0 "caseRuleArn") in
      let name =
        (Option.map ~f:CaseRuleName.of_xml) (Xml.child xml_arg0 "name") in
      let caseRuleId =
        (Option.map ~f:CaseRuleId.of_xml) (Xml.child xml_arg0 "caseRuleId") in
      make ?description ?ruleType ?caseRuleArn ?name ?caseRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" CaseRuleDescription.of_json in
      let ruleType = field_map json__ "ruleType" RuleType.of_json in
      let caseRuleArn = field_map json__ "caseRuleArn" CaseRuleArn.of_json in
      let name = field_map json__ "name" CaseRuleName.of_json in
      let caseRuleId = field_map json__ "caseRuleId" CaseRuleId.of_json in
      make ?description ?ruleType ?caseRuleArn ?name ?caseRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Summary information of this case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module TemplateId =
  struct
    type nonrec t = string
    let context_ = "TemplateId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"TemplateId" j
    let to_json = simple_to_json to_value
  end
module CaseSummary =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option [@ocaml.doc "A unique identifier of the case."];
      templateId: TemplateId.t option
        [@ocaml.doc "A unique identifier of a template."]}
    let make ?caseId = fun ?templateId -> fun () -> { caseId; templateId }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("templateId", (Option.map x.templateId ~f:TemplateId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateId =
        (Option.map ~f:TemplateId.of_xml) (Xml.child xml_arg0 "templateId") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?templateId ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateId = field_map json__ "templateId" TemplateId.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?templateId ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Case summary information."]
module Channel =
  struct
    type nonrec t = string
    let context_ = "Channel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Channel" j
    let to_json = simple_to_json to_value
  end
module CommentBody =
  struct
    type nonrec t = string
    let context_ = "CommentBody"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:15000) >>=
             (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:"CommentBody" j
    let to_json = simple_to_json to_value
  end
module CommentBodyTextType =
  struct
    type nonrec t =
      | Text_Plain 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Text_Plain -> "Text/Plain" | Non_static_id s -> s
    let of_string =
      function | "Text/Plain" -> Text_Plain | 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 CommentBodyTextType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CommentBodyTextType" j)
    let to_json = simple_to_json to_value
  end
module CommentContent =
  struct
    type nonrec t =
      {
      body: CommentBody.t
        [@ocaml.doc "Text in the body of a Comment on a case."];
      contentType: CommentBodyTextType.t
        [@ocaml.doc "Type of the text in the box of a Comment on a case."]}
    let context_ = "CommentContent"
    let make ~body = fun ~contentType -> fun () -> { body; contentType }
    let to_value x =
      structure_to_value
        [("body", (Some (CommentBody.to_value x.body)));
        ("contentType", (Some (CommentBodyTextType.to_value x.contentType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentType =
        CommentBodyTextType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contentType") in
      let body =
        CommentBody.of_xml (Xml.child_exn ~context:context_ xml_arg0 "body") in
      make ~contentType ~body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentType =
        field_map_exn json__ "contentType" CommentBodyTextType.of_json in
      let body = field_map_exn json__ "body" CommentBody.of_json in
      make ~contentType ~body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the content of a Comment to be returned to agents."]
module CommentFilter =
  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 filter for related items of type Comment."]
module CommentUpdateContent =
  struct
    type nonrec t =
      {
      body: CommentBody.t
        [@ocaml.doc "Updated text in the body of a Comment on a case."];
      contentType: CommentBodyTextType.t
        [@ocaml.doc "Type of the text in the box of a Comment on a case."]}
    let context_ = "CommentUpdateContent"
    let make ~body = fun ~contentType -> fun () -> { body; contentType }
    let to_value x =
      structure_to_value
        [("body", (Some (CommentBody.to_value x.body)));
        ("contentType", (Some (CommentBodyTextType.to_value x.contentType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contentType =
        CommentBodyTextType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contentType") in
      let body =
        CommentBody.of_xml (Xml.child_exn ~context:context_ xml_arg0 "body") in
      make ~contentType ~body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contentType =
        field_map_exn json__ "contentType" CommentBodyTextType.of_json in
      let body = field_map_exn json__ "body" CommentBody.of_json in
      make ~contentType ~body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the updated content of a Comment related item."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation would cause a conflict with the current state of a service resource associated with the request. Resolve the conflict before retrying this request. See the accompanying error message for details."]
module ConnectCaseContent =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option [@ocaml.doc "A unique identifier of the case."]}
    let make ?caseId = fun () -> { caseId }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the content of a ConnectCase type related item."]
module ConnectCaseFilter =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option [@ocaml.doc "A unique identifier of the case."]}
    let make ?caseId = fun () -> { caseId }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for related items of type ConnectCase."]
module ConnectCaseInputContent =
  struct
    type nonrec t =
      {
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."]}
    let context_ = "ConnectCaseInputContent"
    let make ~caseId = fun () -> { caseId }
    let to_value x =
      structure_to_value [("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the content of a ConnectCase related item."]
module ConnectedToSystemTime =
  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 ContactArn =
  struct
    type nonrec t = string
    let context_ = "ContactArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"ContactArn" j
    let to_json = simple_to_json to_value
  end
module Contact =
  struct
    type nonrec t =
      {
      contactArn: ContactArn.t
        [@ocaml.doc "A unique identifier of a contact in Amazon Connect."]}
    let context_ = "Contact"
    let make ~contactArn = fun () -> { contactArn }
    let to_value x =
      structure_to_value
        [("contactArn", (Some (ContactArn.to_value x.contactArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactArn =
        ContactArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contactArn") in
      make ~contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactArn = field_map_exn json__ "contactArn" ContactArn.of_json in
      make ~contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents an Amazon Connect contact object."]
module ContactContent =
  struct
    type nonrec t =
      {
      contactArn: ContactArn.t option
        [@ocaml.doc "A unique identifier of a contact in Amazon Connect."];
      channel: Channel.t option
        [@ocaml.doc
          "A list of channels to filter on for related items of type Contact."];
      connectedToSystemTime: ConnectedToSystemTime.t option
        [@ocaml.doc
          "The difference between the InitiationTimestamp and the DisconnectTimestamp of the contact."]}
    let make ?contactArn =
      fun ?channel ->
        fun ?connectedToSystemTime ->
          fun () -> { contactArn; channel; connectedToSystemTime }
    let to_value x =
      structure_to_value
        [("contactArn", (Option.map x.contactArn ~f:ContactArn.to_value));
        ("channel", (Option.map x.channel ~f:Channel.to_value));
        ("connectedToSystemTime",
          (Option.map x.connectedToSystemTime
             ~f:ConnectedToSystemTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let connectedToSystemTime =
        (Option.map ~f:ConnectedToSystemTime.of_xml)
          (Xml.child xml_arg0 "connectedToSystemTime") in
      let channel =
        (Option.map ~f:Channel.of_xml) (Xml.child xml_arg0 "channel") in
      let contactArn =
        (Option.map ~f:ContactArn.of_xml) (Xml.child xml_arg0 "contactArn") in
      make ?connectedToSystemTime ?channel ?contactArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let connectedToSystemTime =
        field_map json__ "connectedToSystemTime"
          ConnectedToSystemTime.of_json in
      let channel = field_map json__ "channel" Channel.of_json in
      let contactArn = field_map json__ "contactArn" ContactArn.of_json in
      make ?connectedToSystemTime ?channel ?contactArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents a content of an Amazon Connect contact object."]
module ContactFilterChannelList =
  struct
    type nonrec t = Channel.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Channel.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:Channel.of_xml)
    let of_json j =
      list_of_json ~kind:"ContactFilterChannelList" ~of_json:Channel.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ContactFilter =
  struct
    type nonrec t =
      {
      channel: ContactFilterChannelList.t option
        [@ocaml.doc
          "A list of channels to filter on for related items of type Contact."];
      contactArn: ContactArn.t option
        [@ocaml.doc "A unique identifier of a contact in Amazon Connect."]}
    let make ?channel = fun ?contactArn -> fun () -> { channel; contactArn }
    let to_value x =
      structure_to_value
        [("channel",
           (Option.map x.channel ~f:ContactFilterChannelList.to_value));
        ("contactArn", (Option.map x.contactArn ~f:ContactArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contactArn =
        (Option.map ~f:ContactArn.of_xml) (Xml.child xml_arg0 "contactArn") in
      let channel =
        (Option.map ~f:ContactFilterChannelList.of_xml)
          (Xml.child xml_arg0 "channel") in
      make ?contactArn ?channel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contactArn = field_map json__ "contactArn" ContactArn.of_json in
      let channel =
        field_map json__ "channel" ContactFilterChannelList.of_json in
      make ?contactArn ?channel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for related items of type Contact."]
module MutableTagKey =
  struct
    type nonrec t = string
    let context_ = "MutableTagKey"
    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:"(?![aA][wW][sS]:)[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:"MutableTagKey" j
    let to_json = simple_to_json to_value
  end
module MutableTags =
  struct
    type nonrec t = (MutableTagKey.t * TagValueString.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_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 ->
                            ((MutableTagKey.of_string chopped),
                              (TagValueString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MutableTagKey.to_value x) |>
                    (fun x ->
                       (TagValueString.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:MutableTagKey.of_string
        ~of_json:TagValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateCaseRequestFieldsList =
  struct
    type nonrec t = FieldValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:220) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"CreateCaseRequestFieldsList"
        ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreateCaseRequestClientTokenString =
  struct
    type nonrec t = string
    let context_ = "CreateCaseRequestClientTokenString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"CreateCaseRequestClientTokenString" j
    let to_json = simple_to_json to_value
  end
module CreateCaseRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      templateId: TemplateId.t
        [@ocaml.doc "A unique identifier of a template."];
      fields: CreateCaseRequestFieldsList.t
        [@ocaml.doc
          "An array of objects with field ID (matching ListFields/DescribeField) and value union data."];
      clientToken: CreateCaseRequestClientTokenString.t option
        [@ocaml.doc
          "A unique, case-sensitive identifier that you provide to ensure the idempotency of the request. If not provided, the Amazon Web Services SDK populates this field. For more information about idempotency, see Making retries safe with idempotent APIs."];
      performedBy: UserUnion.t option ;
      tags: MutableTags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    let context_ = "CreateCaseRequest"
    let make ?clientToken =
      fun ?performedBy ->
        fun ?tags ->
          fun ~domainId ->
            fun ~templateId ->
              fun ~fields ->
                fun () ->
                  {
                    clientToken;
                    performedBy;
                    tags;
                    domainId;
                    templateId;
                    fields
                  }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("templateId", (Some (TemplateId.to_value x.templateId)));
        ("fields", (Some (CreateCaseRequestFieldsList.to_value x.fields)));
        ("clientToken",
          (Option.map x.clientToken
             ~f:CreateCaseRequestClientTokenString.to_value));
        ("performedBy", (Option.map x.performedBy ~f:UserUnion.to_value));
        ("tags", (Option.map x.tags ~f:MutableTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:MutableTags.of_xml) (Xml.child xml_arg0 "tags") in
      let performedBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "performedBy") in
      let clientToken =
        (Option.map ~f:CreateCaseRequestClientTokenString.of_xml)
          (Xml.child xml_arg0 "clientToken") in
      let fields =
        CreateCaseRequestFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let templateId =
        TemplateId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?tags ?performedBy ?clientToken ~fields ~templateId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" MutableTags.of_json in
      let performedBy = field_map json__ "performedBy" UserUnion.of_json in
      let clientToken =
        field_map json__ "clientToken"
          CreateCaseRequestClientTokenString.of_json in
      let fields =
        field_map_exn json__ "fields" CreateCaseRequestFieldsList.of_json in
      let templateId = field_map_exn json__ "templateId" TemplateId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?tags ?performedBy ?clientToken ~fields ~templateId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If you provide a value for PerformedBy.UserArn you must also have connect:DescribeUser permission on the User ARN resource that you provide Creates a case in the specified Cases domain. Case system and custom fields are taken as an array id/value pairs with a declared data types. When creating a case from a template that has tag propagation configurations, the specified tags are automatically applied to the case. The following fields are required when creating a case: customer_id - You must provide the full customer profile ARN in this format: arn:aws:profile:your_AWS_Region:your_AWS_account ID:domains/your_profiles_domain_name/profiles/profile_ID title"]
module CreateCaseResponse =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option [@ocaml.doc "A unique identifier of the case."];
      caseArn: CaseArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the case."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseId = fun ?caseArn -> fun () -> { caseId; caseArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("caseArn", (Option.map x.caseArn ~f:CaseArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseArn =
        (Option.map ~f:CaseArn.of_xml) (Xml.child xml_arg0 "caseArn") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?caseArn ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseArn = field_map json__ "caseArn" CaseArn.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?caseArn ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If you provide a value for PerformedBy.UserArn you must also have connect:DescribeUser permission on the User ARN resource that you provide Creates a case in the specified Cases domain. Case system and custom fields are taken as an array id/value pairs with a declared data types. When creating a case from a template that has tag propagation configurations, the specified tags are automatically applied to the case. The following fields are required when creating a case: customer_id - You must provide the full customer profile ARN in this format: arn:aws:profile:your_AWS_Region:your_AWS_account ID:domains/your_profiles_domain_name/profiles/profile_ID title"]
module CreateCaseRuleRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "Unique identifier of a Cases domain."];
      name: CaseRuleName.t [@ocaml.doc "Name of the case rule."];
      description: CaseRuleDescription.t option
        [@ocaml.doc "The description of a case rule."];
      rule: CaseRuleDetails.t
        [@ocaml.doc
          "Represents what rule type should take place, under what conditions."]}
    let context_ = "CreateCaseRuleRequest"
    let make ?description =
      fun ~domainId ->
        fun ~name ->
          fun ~rule -> fun () -> { description; domainId; name; rule }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("name", (Some (CaseRuleName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:CaseRuleDescription.to_value));
        ("rule", (Some (CaseRuleDetails.to_value x.rule)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rule =
        CaseRuleDetails.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "rule") in
      let description =
        (Option.map ~f:CaseRuleDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        CaseRuleName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~rule ?description ~name ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rule = field_map_exn json__ "rule" CaseRuleDetails.of_json in
      let description =
        field_map json__ "description" CaseRuleDescription.of_json in
      let name = field_map_exn json__ "name" CaseRuleName.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~rule ?description ~name ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module CreateCaseRuleResponse =
  struct
    type nonrec t =
      {
      caseRuleId: CaseRuleId.t option
        [@ocaml.doc "Unique identifier of a case rule."];
      caseRuleArn: CaseRuleArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a case rule."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseRuleId =
      fun ?caseRuleArn -> fun () -> { caseRuleId; caseRuleArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseRuleId", (Option.map x.caseRuleId ~f:CaseRuleId.to_value));
        ("caseRuleArn", (Option.map x.caseRuleArn ~f:CaseRuleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseRuleArn =
        (Option.map ~f:CaseRuleArn.of_xml) (Xml.child xml_arg0 "caseRuleArn") in
      let caseRuleId =
        (Option.map ~f:CaseRuleId.of_xml) (Xml.child xml_arg0 "caseRuleId") in
      make ?caseRuleArn ?caseRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseRuleArn = field_map json__ "caseRuleArn" CaseRuleArn.of_json in
      let caseRuleId = field_map json__ "caseRuleId" CaseRuleId.of_json in
      make ?caseRuleArn ?caseRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"DomainName" j
    let to_json = simple_to_json to_value
  end
module CreateDomainRequest =
  struct
    type nonrec t =
      {
      name: DomainName.t
        [@ocaml.doc
          "The name for your Cases domain. It must be unique for your Amazon Web Services account."]}
    let context_ = "CreateDomainRequest"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value [("name", (Some (DomainName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DomainName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DomainName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a domain, which is a container for all case data, such as cases, fields, templates and layouts. Each Amazon Connect instance can be associated with only one Cases domain. This will not associate your connect instance to Cases domain. Instead, use the Amazon Connect CreateIntegrationAssociation API. You need specific IAM permissions to successfully associate the Cases domain. For more information, see Onboard to Cases."]
module DomainStatus =
  struct
    type nonrec t =
      | Active 
      | CreationInProgress 
      | CreationFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | CreationInProgress -> "CreationInProgress"
      | CreationFailed -> "CreationFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "CreationInProgress" -> CreationInProgress
      | "CreationFailed" -> CreationFailed
      | 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 DomainStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DomainStatus" j)
    let to_json = simple_to_json to_value
  end
module DomainArn =
  struct
    type nonrec t = string
    let context_ = "DomainArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"DomainArn" j
    let to_json = simple_to_json to_value
  end
module CreateDomainResponse =
  struct
    type nonrec t =
      {
      domainId: DomainId.t option
        [@ocaml.doc "The unique identifier of the Cases domain."];
      domainArn: DomainArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the Cases domain."];
      domainStatus: DomainStatus.t option
        [@ocaml.doc "The status of the domain."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainId =
      fun ?domainArn ->
        fun ?domainStatus -> fun () -> { domainId; domainArn; domainStatus }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("domainId", (Option.map x.domainId ~f:DomainId.to_value));
        ("domainArn", (Option.map x.domainArn ~f:DomainArn.to_value));
        ("domainStatus",
          (Option.map x.domainStatus ~f:DomainStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainStatus =
        (Option.map ~f:DomainStatus.of_xml)
          (Xml.child xml_arg0 "domainStatus") in
      let domainArn =
        (Option.map ~f:DomainArn.of_xml) (Xml.child xml_arg0 "domainArn") in
      let domainId =
        (Option.map ~f:DomainId.of_xml) (Xml.child xml_arg0 "domainId") in
      make ?domainStatus ?domainArn ?domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainStatus = field_map json__ "domainStatus" DomainStatus.of_json in
      let domainArn = field_map json__ "domainArn" DomainArn.of_json in
      let domainId = field_map json__ "domainId" DomainId.of_json in
      make ?domainStatus ?domainArn ?domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a domain, which is a container for all case data, such as cases, fields, templates and layouts. Each Amazon Connect instance can be associated with only one Cases domain. This will not associate your connect instance to Cases domain. Instead, use the Amazon Connect CreateIntegrationAssociation API. You need specific IAM permissions to successfully associate the Cases domain. For more information, see Onboard to Cases."]
module CreateFieldRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      name: FieldName.t [@ocaml.doc "The name of the field."];
      type_: FieldType.t
        [@ocaml.doc
          "Defines the data type, some system constraints, and default display of the field."];
      description: FieldDescription.t option
        [@ocaml.doc "The description of the field."];
      attributes: FieldAttributes.t option
        [@ocaml.doc "Union of field attributes."]}
    let context_ = "CreateFieldRequest"
    let make ?description =
      fun ?attributes ->
        fun ~domainId ->
          fun ~name ->
            fun ~type_ ->
              fun () -> { description; attributes; domainId; name; type_ }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("name", (Some (FieldName.to_value x.name)));
        ("type", (Some (FieldType.to_value x.type_)));
        ("description",
          (Option.map x.description ~f:FieldDescription.to_value));
        ("attributes", (Option.map x.attributes ~f:FieldAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:FieldAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let description =
        (Option.map ~f:FieldDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let type_ =
        FieldType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        FieldName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?attributes ?description ~type_ ~name ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" FieldAttributes.of_json in
      let description =
        field_map json__ "description" FieldDescription.of_json in
      let type_ = field_map_exn json__ "type" FieldType.of_json in
      let name = field_map_exn json__ "name" FieldName.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?attributes ?description ~type_ ~name ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a field in the Cases domain. This field is used to define the case object model (that is, defines what data can be captured on cases) in a Cases domain."]
module CreateFieldResponse =
  struct
    type nonrec t =
      {
      fieldId: FieldId.t option
        [@ocaml.doc "The unique identifier of a field."];
      fieldArn: FieldArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the field."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fieldId = fun ?fieldArn -> fun () -> { fieldId; fieldArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("fieldId", (Option.map x.fieldId ~f:FieldId.to_value));
        ("fieldArn", (Option.map x.fieldArn ~f:FieldArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldArn =
        (Option.map ~f:FieldArn.of_xml) (Xml.child xml_arg0 "fieldArn") in
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      make ?fieldArn ?fieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldArn = field_map json__ "fieldArn" FieldArn.of_json in
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      make ?fieldArn ?fieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a field in the Cases domain. This field is used to define the case object model (that is, defines what data can be captured on cases) in a Cases domain."]
module LayoutName =
  struct
    type nonrec t = string
    let context_ = "LayoutName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"LayoutName" j
    let to_json = simple_to_json to_value
  end
module LayoutContent =
  struct
    type nonrec t =
      {
      basic: BasicLayout.t option
        [@ocaml.doc
          "Content specific to BasicLayout type. It configures fields in the top panel and More Info tab of Cases user interface."]}
    let make ?basic = fun () -> { basic }
    let to_value x =
      structure_to_value
        [("basic", (Option.map x.basic ~f:BasicLayout.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let basic =
        (Option.map ~f:BasicLayout.of_xml) (Xml.child xml_arg0 "basic") in
      make ?basic ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let basic = field_map json__ "basic" BasicLayout.of_json in
      make ?basic ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object to store union of different versions of layout content."]
module CreateLayoutRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      name: LayoutName.t
        [@ocaml.doc
          "The name of the layout. It must be unique for the Cases domain."];
      content: LayoutContent.t
        [@ocaml.doc
          "Information about which fields will be present in the layout, and information about the order of the fields."]}
    let context_ = "CreateLayoutRequest"
    let make ~domainId =
      fun ~name -> fun ~content -> fun () -> { domainId; name; content }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("name", (Some (LayoutName.to_value x.name)));
        ("content", (Some (LayoutContent.to_value x.content)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        LayoutContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let name =
        LayoutName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~content ~name ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map_exn json__ "content" LayoutContent.of_json in
      let name = field_map_exn json__ "name" LayoutName.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~content ~name ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a layout in the Cases domain. Layouts define the following configuration in the top section and More Info tab of the Cases user interface: Fields to display to the users Field ordering Title and Status fields cannot be part of layouts since they are not configurable."]
module LayoutId =
  struct
    type nonrec t = string
    let context_ = "LayoutId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"LayoutId" j
    let to_json = simple_to_json to_value
  end
module LayoutArn =
  struct
    type nonrec t = string
    let context_ = "LayoutArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"LayoutArn" j
    let to_json = simple_to_json to_value
  end
module CreateLayoutResponse =
  struct
    type nonrec t =
      {
      layoutId: LayoutId.t option
        [@ocaml.doc "The unique identifier of the layout."];
      layoutArn: LayoutArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created layout."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?layoutId = fun ?layoutArn -> fun () -> { layoutId; layoutArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("layoutId", (Option.map x.layoutId ~f:LayoutId.to_value));
        ("layoutArn", (Option.map x.layoutArn ~f:LayoutArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layoutArn =
        (Option.map ~f:LayoutArn.of_xml) (Xml.child xml_arg0 "layoutArn") in
      let layoutId =
        (Option.map ~f:LayoutId.of_xml) (Xml.child xml_arg0 "layoutId") in
      make ?layoutArn ?layoutId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layoutArn = field_map json__ "layoutArn" LayoutArn.of_json in
      let layoutId = field_map json__ "layoutId" LayoutId.of_json in
      make ?layoutArn ?layoutId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a layout in the Cases domain. Layouts define the following configuration in the top section and More Info tab of the Cases user interface: Fields to display to the users Field ordering Title and Status fields cannot be part of layouts since they are not configurable."]
module TargetSlaMinutes =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:1051200L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module SlaType =
  struct
    type nonrec t =
      | CaseField 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | CaseField -> "CaseField" | Non_static_id s -> s
    let of_string =
      function | "CaseField" -> CaseField | 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 SlaType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SlaType" j)
    let to_json = simple_to_json to_value
  end
module SlaName =
  struct
    type nonrec t = string
    let context_ = "SlaName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (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:"SlaName" j
    let to_json = simple_to_json to_value
  end
module SlaFieldValueUnionList =
  struct
    type nonrec t = FieldValueUnion.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:FieldValueUnion.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:FieldValueUnion.of_xml)
    let of_json j =
      list_of_json ~kind:"SlaFieldValueUnionList"
        ~of_json:FieldValueUnion.of_json j
    let to_json v = composed_to_json to_value v
  end
module SlaInputConfiguration =
  struct
    type nonrec t =
      {
      name: SlaName.t [@ocaml.doc "Name of an SLA."];
      type_: SlaType.t [@ocaml.doc "Type of SLA."];
      fieldId: FieldId.t option [@ocaml.doc "Unique identifier of a field."];
      targetFieldValues: SlaFieldValueUnionList.t option
        [@ocaml.doc
          "Represents a list of target field values for the fieldId specified in SlaInputConfiguration. The SLA is considered met if any one of these target field values matches the actual field value."];
      targetSlaMinutes: TargetSlaMinutes.t
        [@ocaml.doc
          "Target duration in minutes within which an SLA should be completed."]}
    let context_ = "SlaInputConfiguration"
    let make ?fieldId =
      fun ?targetFieldValues ->
        fun ~name ->
          fun ~type_ ->
            fun ~targetSlaMinutes ->
              fun () ->
                { fieldId; targetFieldValues; name; type_; targetSlaMinutes }
    let to_value x =
      structure_to_value
        [("name", (Some (SlaName.to_value x.name)));
        ("type", (Some (SlaType.to_value x.type_)));
        ("fieldId", (Option.map x.fieldId ~f:FieldId.to_value));
        ("targetFieldValues",
          (Option.map x.targetFieldValues ~f:SlaFieldValueUnionList.to_value));
        ("targetSlaMinutes",
          (Some (TargetSlaMinutes.to_value x.targetSlaMinutes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetSlaMinutes =
        TargetSlaMinutes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetSlaMinutes") in
      let targetFieldValues =
        (Option.map ~f:SlaFieldValueUnionList.of_xml)
          (Xml.child xml_arg0 "targetFieldValues") in
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      let type_ =
        SlaType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        SlaName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~targetSlaMinutes ?targetFieldValues ?fieldId ~type_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetSlaMinutes =
        field_map_exn json__ "targetSlaMinutes" TargetSlaMinutes.of_json in
      let targetFieldValues =
        field_map json__ "targetFieldValues" SlaFieldValueUnionList.of_json in
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      let type_ = field_map_exn json__ "type" SlaType.of_json in
      let name = field_map_exn json__ "name" SlaName.of_json in
      make ~targetSlaMinutes ?targetFieldValues ?fieldId ~type_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input configuration of an SLA being created."]
module SlaInputContent =
  struct
    type nonrec t =
      {
      slaInputConfiguration: SlaInputConfiguration.t option
        [@ocaml.doc "Represents an input SLA configuration."]}
    let make ?slaInputConfiguration = fun () -> { slaInputConfiguration }
    let to_value x =
      structure_to_value
        [("slaInputConfiguration",
           (Option.map x.slaInputConfiguration
              ~f:SlaInputConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slaInputConfiguration =
        (Option.map ~f:SlaInputConfiguration.of_xml)
          (Xml.child xml_arg0 "slaInputConfiguration") in
      make ?slaInputConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slaInputConfiguration =
        field_map json__ "slaInputConfiguration"
          SlaInputConfiguration.of_json in
      make ?slaInputConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the content of an SLA."]
module FileArn =
  struct
    type nonrec t = string
    let context_ = "FileArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"FileArn" j
    let to_json = simple_to_json to_value
  end
module FileContent =
  struct
    type nonrec t =
      {
      fileArn: FileArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a File in Amazon Connect."]}
    let context_ = "FileContent"
    let make ~fileArn = fun () -> { fileArn }
    let to_value x =
      structure_to_value [("fileArn", (Some (FileArn.to_value x.fileArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileArn =
        FileArn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fileArn") in
      make ~fileArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileArn = field_map_exn json__ "fileArn" FileArn.of_json in
      make ~fileArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents a content of an Amazon Connect file object."]
module CustomInputContentFieldsList =
  struct
    type nonrec t = FieldValue.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:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomInputContentFieldsList"
        ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomInputContent =
  struct
    type nonrec t =
      {
      fields: CustomInputContentFieldsList.t
        [@ocaml.doc "List of field values for the Custom related item."]}
    let context_ = "CustomInputContent"
    let make ~fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields", (Some (CustomInputContentFieldsList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        CustomInputContentFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map_exn json__ "fields" CustomInputContentFieldsList.of_json in
      make ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the content of a Custom related item."]
module RelatedItemInputContent =
  struct
    type nonrec t =
      {
      contact: Contact.t option
        [@ocaml.doc
          "Object representing a contact in Amazon Connect as an API request field."];
      comment: CommentContent.t option
        [@ocaml.doc
          "Represents the content of a comment to be returned to agents."];
      file: FileContent.t option [@ocaml.doc "A file of related items."];
      sla: SlaInputContent.t option
        [@ocaml.doc "Represents the content of an SLA to be created."];
      connectCase: ConnectCaseInputContent.t option
        [@ocaml.doc
          "Represents the Amazon Connect case to be created as a related item."];
      custom: CustomInputContent.t option
        [@ocaml.doc "Represents the content of a Custom type related item."]}
    let make ?contact =
      fun ?comment ->
        fun ?file ->
          fun ?sla ->
            fun ?connectCase ->
              fun ?custom ->
                fun () ->
                  { contact; comment; file; sla; connectCase; custom }
    let to_value x =
      structure_to_value
        [("contact", (Option.map x.contact ~f:Contact.to_value));
        ("comment", (Option.map x.comment ~f:CommentContent.to_value));
        ("file", (Option.map x.file ~f:FileContent.to_value));
        ("sla", (Option.map x.sla ~f:SlaInputContent.to_value));
        ("connectCase",
          (Option.map x.connectCase ~f:ConnectCaseInputContent.to_value));
        ("custom", (Option.map x.custom ~f:CustomInputContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let custom =
        (Option.map ~f:CustomInputContent.of_xml)
          (Xml.child xml_arg0 "custom") in
      let connectCase =
        (Option.map ~f:ConnectCaseInputContent.of_xml)
          (Xml.child xml_arg0 "connectCase") in
      let sla =
        (Option.map ~f:SlaInputContent.of_xml) (Xml.child xml_arg0 "sla") in
      let file =
        (Option.map ~f:FileContent.of_xml) (Xml.child xml_arg0 "file") in
      let comment =
        (Option.map ~f:CommentContent.of_xml) (Xml.child xml_arg0 "comment") in
      let contact =
        (Option.map ~f:Contact.of_xml) (Xml.child xml_arg0 "contact") in
      make ?custom ?connectCase ?sla ?file ?comment ?contact ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let custom = field_map json__ "custom" CustomInputContent.of_json in
      let connectCase =
        field_map json__ "connectCase" ConnectCaseInputContent.of_json in
      let sla = field_map json__ "sla" SlaInputContent.of_json in
      let file = field_map json__ "file" FileContent.of_json in
      let comment = field_map json__ "comment" CommentContent.of_json in
      let contact = field_map json__ "contact" Contact.of_json in
      make ?custom ?connectCase ?sla ?file ?comment ?contact ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the content of a related item to be created."]
module CreateRelatedItemRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      type_: RelatedItemType.t [@ocaml.doc "The type of a related item."];
      content: RelatedItemInputContent.t
        [@ocaml.doc "The content of a related item to be created."];
      performedBy: UserUnion.t option
        [@ocaml.doc "Represents the creator of the related item."]}
    let context_ = "CreateRelatedItemRequest"
    let make ?performedBy =
      fun ~domainId ->
        fun ~caseId ->
          fun ~type_ ->
            fun ~content ->
              fun () -> { performedBy; domainId; caseId; type_; content }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseId", (Some (CaseId.to_value x.caseId)));
        ("type", (Some (RelatedItemType.to_value x.type_)));
        ("content", (Some (RelatedItemInputContent.to_value x.content)));
        ("performedBy", (Option.map x.performedBy ~f:UserUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performedBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "performedBy") in
      let content =
        RelatedItemInputContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let type_ =
        RelatedItemType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?performedBy ~content ~type_ ~caseId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performedBy = field_map json__ "performedBy" UserUnion.of_json in
      let content =
        field_map_exn json__ "content" RelatedItemInputContent.of_json in
      let type_ = field_map_exn json__ "type" RelatedItemType.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?performedBy ~content ~type_ ~caseId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a related item (comments, tasks, and contacts) and associates it with a case. There's a quota for the number of fields allowed in a Custom type related item. See Amazon Connect Cases quotas. Use cases Following are examples of related items that you may want to associate with a case: Related contacts, such as calls, chats, emails tasks Comments, for agent notes SLAs, to capture target resolution goals Cases, to capture related Amazon Connect Cases Files, such as policy documentation or customer-provided attachments Custom related items, which provide flexibility for you to define related items that such as bookings, orders, products, notices, and more Important things to know If you are associating a contact to a case by passing in Contact for a type, you must have DescribeContact permission on the ARN of the contact that you provide in content.contact.contactArn. A Related Item is a resource that is associated with a case. It may or may not have an external identifier linking it to an external resource (for example, a contactArn). All Related Items have their own internal identifier, the relatedItemArn. Examples of related items include comments and contacts. If you provide a value for performedBy.userArn you must also have DescribeUser permission on the ARN of the user that you provide. The type field is reserved for internal use only. Endpoints: See Amazon Connect endpoints and quotas."]
module RelatedItemId =
  struct
    type nonrec t = string
    let context_ = "RelatedItemId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"RelatedItemId" j
    let to_json = simple_to_json to_value
  end
module RelatedItemArn =
  struct
    type nonrec t = string
    let context_ = "RelatedItemArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"RelatedItemArn" j
    let to_json = simple_to_json to_value
  end
module CreateRelatedItemResponse =
  struct
    type nonrec t =
      {
      relatedItemId: RelatedItemId.t option
        [@ocaml.doc "The unique identifier of the related item."];
      relatedItemArn: RelatedItemArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the related item."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?relatedItemId =
      fun ?relatedItemArn -> fun () -> { relatedItemId; relatedItemArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("relatedItemId",
           (Option.map x.relatedItemId ~f:RelatedItemId.to_value));
        ("relatedItemArn",
          (Option.map x.relatedItemArn ~f:RelatedItemArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedItemArn =
        (Option.map ~f:RelatedItemArn.of_xml)
          (Xml.child xml_arg0 "relatedItemArn") in
      let relatedItemId =
        (Option.map ~f:RelatedItemId.of_xml)
          (Xml.child xml_arg0 "relatedItemId") in
      make ?relatedItemArn ?relatedItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedItemArn =
        field_map json__ "relatedItemArn" RelatedItemArn.of_json in
      let relatedItemId =
        field_map json__ "relatedItemId" RelatedItemId.of_json in
      make ?relatedItemArn ?relatedItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a related item (comments, tasks, and contacts) and associates it with a case. There's a quota for the number of fields allowed in a Custom type related item. See Amazon Connect Cases quotas. Use cases Following are examples of related items that you may want to associate with a case: Related contacts, such as calls, chats, emails tasks Comments, for agent notes SLAs, to capture target resolution goals Cases, to capture related Amazon Connect Cases Files, such as policy documentation or customer-provided attachments Custom related items, which provide flexibility for you to define related items that such as bookings, orders, products, notices, and more Important things to know If you are associating a contact to a case by passing in Contact for a type, you must have DescribeContact permission on the ARN of the contact that you provide in content.contact.contactArn. A Related Item is a resource that is associated with a case. It may or may not have an external identifier linking it to an external resource (for example, a contactArn). All Related Items have their own internal identifier, the relatedItemArn. Examples of related items include comments and contacts. If you provide a value for performedBy.userArn you must also have DescribeUser permission on the ARN of the user that you provide. The type field is reserved for internal use only. Endpoints: See Amazon Connect endpoints and quotas."]
module TemplateStatus =
  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 TemplateStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TemplateStatus" j)
    let to_json = simple_to_json to_value
  end
module TemplateName =
  struct
    type nonrec t = string
    let context_ = "TemplateName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:".*[\\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:"TemplateName" j
    let to_json = simple_to_json to_value
  end
module TemplateDescription =
  struct
    type nonrec t = string
    let context_ = "TemplateDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"TemplateDescription" j
    let to_json = simple_to_json to_value
  end
module TemplateRule =
  struct
    type nonrec t =
      {
      caseRuleId: CaseRuleId.t
        [@ocaml.doc "Unique identifier of a case rule."];
      fieldId: FieldId.t option [@ocaml.doc "Unique identifier of a field."]}
    let context_ = "TemplateRule"
    let make ?fieldId = fun ~caseRuleId -> fun () -> { fieldId; caseRuleId }
    let to_value x =
      structure_to_value
        [("caseRuleId", (Some (CaseRuleId.to_value x.caseRuleId)));
        ("fieldId", (Option.map x.fieldId ~f:FieldId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      let caseRuleId =
        CaseRuleId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "caseRuleId") in
      make ?fieldId ~caseRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      let caseRuleId = field_map_exn json__ "caseRuleId" CaseRuleId.of_json in
      make ?fieldId ~caseRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An association representing a case rule acting upon a field. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module TemplateCaseRuleList =
  struct
    type nonrec t = TemplateRule.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TemplateRule.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:TemplateRule.of_xml)
    let of_json j =
      list_of_json ~kind:"TemplateCaseRuleList" ~of_json:TemplateRule.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module TagPropagationResourceType =
  struct
    type nonrec t =
      | Cases 
      | Non_static_id of string 
    let make i = i
    let to_string = function | Cases -> "Cases" | Non_static_id s -> s
    let of_string = function | "Cases" -> Cases | 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 TagPropagationResourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TagPropagationResourceType" j)
    let to_json = simple_to_json to_value
  end
module TagPropagationConfigurationTagMapMap =
  struct
    type nonrec t = (MutableTagKey.t * TagValueString.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_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 ->
                            ((MutableTagKey.of_string chopped),
                              (TagValueString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MutableTagKey.to_value x) |>
                    (fun x ->
                       (TagValueString.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:MutableTagKey.of_string
        ~of_json:TagValueString.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagPropagationConfiguration =
  struct
    type nonrec t =
      {
      resourceType: TagPropagationResourceType.t
        [@ocaml.doc
          "Supported resource types for tag propagation. Determines which resources will receive automatically propagated tags."];
      tagMap: TagPropagationConfigurationTagMapMap.t
        [@ocaml.doc "The tags that will be applied to the created resource."]}
    let context_ = "TagPropagationConfiguration"
    let make ~resourceType =
      fun ~tagMap -> fun () -> { resourceType; tagMap }
    let to_value x =
      structure_to_value
        [("resourceType",
           (Some (TagPropagationResourceType.to_value x.resourceType)));
        ("tagMap",
          (Some (TagPropagationConfigurationTagMapMap.to_value x.tagMap)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagMap =
        TagPropagationConfigurationTagMapMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagMap") in
      let resourceType =
        TagPropagationResourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceType") in
      make ~tagMap ~resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagMap =
        field_map_exn json__ "tagMap"
          TagPropagationConfigurationTagMapMap.of_json in
      let resourceType =
        field_map_exn json__ "resourceType"
          TagPropagationResourceType.of_json in
      make ~tagMap ~resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines tag propagation configuration for resources created within a domain. Tags specified here will be automatically applied to resources being created for the specified resource type."]
module TagPropagationConfigurationList =
  struct
    type nonrec t = TagPropagationConfiguration.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagPropagationConfiguration.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:TagPropagationConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"TagPropagationConfigurationList"
        ~of_json:TagPropagationConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module RequiredField =
  struct
    type nonrec t =
      {
      fieldId: FieldId.t [@ocaml.doc "Unique identifier of a field."]}
    let context_ = "RequiredField"
    let make ~fieldId = fun () -> { fieldId }
    let to_value x =
      structure_to_value [("fieldId", (Some (FieldId.to_value x.fieldId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldId =
        FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fieldId") in
      make ~fieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldId = field_map_exn json__ "fieldId" FieldId.of_json in
      make ~fieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List of fields that must have a value provided to create a case."]
module RequiredFieldList =
  struct
    type nonrec t = RequiredField.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RequiredField.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:RequiredField.of_xml)
    let of_json j =
      list_of_json ~kind:"RequiredFieldList" ~of_json:RequiredField.of_json j
    let to_json v = composed_to_json to_value v
  end
module LayoutConfiguration =
  struct
    type nonrec t =
      {
      defaultLayout: LayoutId.t option
        [@ocaml.doc "Unique identifier of a layout."]}
    let make ?defaultLayout = fun () -> { defaultLayout }
    let to_value x =
      structure_to_value
        [("defaultLayout", (Option.map x.defaultLayout ~f:LayoutId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultLayout =
        (Option.map ~f:LayoutId.of_xml) (Xml.child xml_arg0 "defaultLayout") in
      make ?defaultLayout ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultLayout = field_map json__ "defaultLayout" LayoutId.of_json in
      make ?defaultLayout ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Object to store configuration of layouts associated to the template."]
module CreateTemplateRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      name: TemplateName.t
        [@ocaml.doc "A name for the template. It must be unique per domain."];
      description: TemplateDescription.t option
        [@ocaml.doc "A brief description of the template."];
      layoutConfiguration: LayoutConfiguration.t option
        [@ocaml.doc "Configuration of layouts associated to the template."];
      requiredFields: RequiredFieldList.t option
        [@ocaml.doc
          "A list of fields that must contain a value for a case to be successfully created with this template."];
      status: TemplateStatus.t option
        [@ocaml.doc "The status of the template."];
      rules: TemplateCaseRuleList.t option
        [@ocaml.doc
          "A list of case rules (also known as case field conditions) on a template."];
      tagPropagationConfigurations: TagPropagationConfigurationList.t option
        [@ocaml.doc
          "Defines tag propagation configuration for resources created within a domain. Tags specified here will be automatically applied to resources being created for the specified resource type."]}
    let context_ = "CreateTemplateRequest"
    let make ?description =
      fun ?layoutConfiguration ->
        fun ?requiredFields ->
          fun ?status ->
            fun ?rules ->
              fun ?tagPropagationConfigurations ->
                fun ~domainId ->
                  fun ~name ->
                    fun () ->
                      {
                        description;
                        layoutConfiguration;
                        requiredFields;
                        status;
                        rules;
                        tagPropagationConfigurations;
                        domainId;
                        name
                      }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("name", (Some (TemplateName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:TemplateDescription.to_value));
        ("layoutConfiguration",
          (Option.map x.layoutConfiguration ~f:LayoutConfiguration.to_value));
        ("requiredFields",
          (Option.map x.requiredFields ~f:RequiredFieldList.to_value));
        ("status", (Option.map x.status ~f:TemplateStatus.to_value));
        ("rules", (Option.map x.rules ~f:TemplateCaseRuleList.to_value));
        ("tagPropagationConfigurations",
          (Option.map x.tagPropagationConfigurations
             ~f:TagPropagationConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagPropagationConfigurations =
        (Option.map ~f:TagPropagationConfigurationList.of_xml)
          (Xml.child xml_arg0 "tagPropagationConfigurations") in
      let rules =
        (Option.map ~f:TemplateCaseRuleList.of_xml)
          (Xml.child xml_arg0 "rules") in
      let status =
        (Option.map ~f:TemplateStatus.of_xml) (Xml.child xml_arg0 "status") in
      let requiredFields =
        (Option.map ~f:RequiredFieldList.of_xml)
          (Xml.child xml_arg0 "requiredFields") in
      let layoutConfiguration =
        (Option.map ~f:LayoutConfiguration.of_xml)
          (Xml.child xml_arg0 "layoutConfiguration") in
      let description =
        (Option.map ~f:TemplateDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        TemplateName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?tagPropagationConfigurations ?rules ?status ?requiredFields
        ?layoutConfiguration ?description ~name ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagPropagationConfigurations =
        field_map json__ "tagPropagationConfigurations"
          TagPropagationConfigurationList.of_json in
      let rules = field_map json__ "rules" TemplateCaseRuleList.of_json in
      let status = field_map json__ "status" TemplateStatus.of_json in
      let requiredFields =
        field_map json__ "requiredFields" RequiredFieldList.of_json in
      let layoutConfiguration =
        field_map json__ "layoutConfiguration" LayoutConfiguration.of_json in
      let description =
        field_map json__ "description" TemplateDescription.of_json in
      let name = field_map_exn json__ "name" TemplateName.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?tagPropagationConfigurations ?rules ?status ?requiredFields
        ?layoutConfiguration ?description ~name ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a template in the Cases domain. This template is used to define the case object model (that is, to define what data can be captured on cases) in a Cases domain. A template must have a unique name within a domain, and it must reference existing field IDs and layout IDs. Additionally, multiple fields with same IDs are not allowed within the same Template. A template can be either Active or Inactive, as indicated by its status. Inactive templates cannot be used to create cases. Other template APIs are: DeleteTemplate GetTemplate ListTemplates UpdateTemplate"]
module TemplateArn =
  struct
    type nonrec t = string
    let context_ = "TemplateArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"TemplateArn" j
    let to_json = simple_to_json to_value
  end
module CreateTemplateResponse =
  struct
    type nonrec t =
      {
      templateId: TemplateId.t option
        [@ocaml.doc "A unique identifier of a template."];
      templateArn: TemplateArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created template."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templateId =
      fun ?templateArn -> fun () -> { templateId; templateArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("templateId", (Option.map x.templateId ~f:TemplateId.to_value));
        ("templateArn", (Option.map x.templateArn ~f:TemplateArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateArn =
        (Option.map ~f:TemplateArn.of_xml) (Xml.child xml_arg0 "templateArn") in
      let templateId =
        (Option.map ~f:TemplateId.of_xml) (Xml.child xml_arg0 "templateId") in
      make ?templateArn ?templateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateArn = field_map json__ "templateArn" TemplateArn.of_json in
      let templateId = field_map json__ "templateId" TemplateId.of_json in
      make ?templateArn ?templateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a template in the Cases domain. This template is used to define the case object model (that is, to define what data can be captured on cases) in a Cases domain. A template must have a unique name within a domain, and it must reference existing field IDs and layout IDs. Additionally, multiple fields with same IDs are not allowed within the same Template. A template can be either Active or Inactive, as indicated by its status. Inactive templates cannot be used to create cases. Other template APIs are: DeleteTemplate GetTemplate ListTemplates UpdateTemplate"]
module FieldValueList =
  struct
    type nonrec t = FieldValue.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:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"FieldValueList" ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomContent =
  struct
    type nonrec t =
      {
      fields: FieldValueList.t option
        [@ocaml.doc "List of field values for the Custom related item."]}
    let make ?fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields", (Option.map x.fields ~f:FieldValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:FieldValueList.of_xml) (Xml.child xml_arg0 "fields") in
      make ?fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map json__ "fields" FieldValueList.of_json in
      make ?fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the content of a Custom type related item."]
module rec
  CustomFieldsFilter:sig
                       type nonrec t =
                         {
                         field: FieldFilter.t option ;
                         not: CustomFieldsFilter.t option
                           [@ocaml.doc "Excludes items matching the filter."];
                         andAll: CustomFieldsFilterAndAllList.t option
                           [@ocaml.doc "Provides \"and all\" filtering."];
                         orAll: CustomFieldsFilterOrAllList.t option
                           [@ocaml.doc "Provides \"or all\" filtering."]}
                       val make :
                         ?field:FieldFilter.t ->
                           ?not:CustomFieldsFilter.t ->
                             ?andAll:CustomFieldsFilterAndAllList.t ->
                               ?orAll:CustomFieldsFilterOrAllList.t ->
                                 unit -> t
                       val to_value : t -> Botodata.value
                       val to_query : t -> Client.Query.t
                       val of_xml : Xml.t -> t
                       val of_json : Yojson.Safe.t -> t
                       val to_json : t -> Yojson.Safe.t
                     end =
  struct
    type nonrec t =
      {
      field: FieldFilter.t option ;
      not: CustomFieldsFilter.t option
        [@ocaml.doc "Excludes items matching the filter."];
      andAll: CustomFieldsFilterAndAllList.t option
        [@ocaml.doc "Provides \"and all\" filtering."];
      orAll: CustomFieldsFilterOrAllList.t option
        [@ocaml.doc "Provides \"or all\" filtering."]}
    let make ?field =
      fun ?not ->
        fun ?andAll -> fun ?orAll -> fun () -> { field; not; andAll; orAll }
    let to_value x =
      structure_to_value
        [("field", (Option.map x.field ~f:FieldFilter.to_value));
        ("not", (Option.map x.not ~f:CustomFieldsFilter.to_value));
        ("andAll",
          (Option.map x.andAll ~f:CustomFieldsFilterAndAllList.to_value));
        ("orAll",
          (Option.map x.orAll ~f:CustomFieldsFilterOrAllList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let orAll =
        (Option.map ~f:CustomFieldsFilterOrAllList.of_xml)
          (Xml.child xml_arg0 "orAll") in
      let andAll =
        (Option.map ~f:CustomFieldsFilterAndAllList.of_xml)
          (Xml.child xml_arg0 "andAll") in
      let not =
        (Option.map ~f:CustomFieldsFilter.of_xml) (Xml.child xml_arg0 "not") in
      let field =
        (Option.map ~f:FieldFilter.of_xml) (Xml.child xml_arg0 "field") in
      make ?orAll ?andAll ?not ?field ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let orAll =
        field_map json__ "orAll" CustomFieldsFilterOrAllList.of_json in
      let andAll =
        field_map json__ "andAll" CustomFieldsFilterAndAllList.of_json in
      let not = field_map json__ "not" CustomFieldsFilter.of_json in
      let field = field_map json__ "field" FieldFilter.of_json in
      make ?orAll ?andAll ?not ?field ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A filter for fields in Custom type related items. Only one value can be provided."]
 and
  CustomFieldsFilterAndAllList:sig
                                 type nonrec t = CustomFieldsFilter.t list
                                 val make : CustomFieldsFilter.t list -> t
                                 val to_value : t -> Botodata.value
                                 val to_query : t -> Client.Query.t
                                 val of_xml :
                                   Xml.t -> CustomFieldsFilter.t list
                                 val of_json : Yojson.Safe.t -> t
                                 val to_json : t -> Yojson.Safe.t
                                 val to_header : t -> string
                               end =
  struct
    type nonrec t = CustomFieldsFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CustomFieldsFilter.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:CustomFieldsFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomFieldsFilterAndAllList"
        ~of_json:CustomFieldsFilter.of_json j
    let to_json v = composed_to_json to_value v
  end and
       CustomFieldsFilterOrAllList:sig
                                     type nonrec t =
                                       CustomFieldsFilter.t list
                                     val make :
                                       CustomFieldsFilter.t list -> t
                                     val to_value : t -> Botodata.value
                                     val to_query : t -> Client.Query.t
                                     val of_xml :
                                       Xml.t -> CustomFieldsFilter.t list
                                     val of_json : Yojson.Safe.t -> t
                                     val to_json : t -> Yojson.Safe.t
                                     val to_header : t -> string
                                   end =
       struct
         type nonrec t = CustomFieldsFilter.t list
         let make i =
           let open Result in
             ok_or_failwith
               ((check_list_max i ~max:10) >>=
                  (fun () -> check_list_min i ~min:0));
             i
         let of_string _ =
           failwithf "of_string is not implemented for List_shape objects" ()
           [@@warning "-32"]
         let to_value xs =
           (xs |> (List.map ~f:CustomFieldsFilter.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:CustomFieldsFilter.of_xml)
         let of_json j =
           list_of_json ~kind:"CustomFieldsFilterOrAllList"
             ~of_json:CustomFieldsFilter.of_json j
         let to_json v = composed_to_json to_value v
       end
module CustomFilter =
  struct
    type nonrec t =
      {
      fields: CustomFieldsFilter.t option
        [@ocaml.doc "Filter conditions for custom fields."]}
    let make ?fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields", (Option.map x.fields ~f:CustomFieldsFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:CustomFieldsFilter.of_xml)
          (Xml.child xml_arg0 "fields") in
      make ?fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map json__ "fields" CustomFieldsFilter.of_json in
      make ?fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for related items of type Custom."]
module CustomUpdateContentFieldsList =
  struct
    type nonrec t = FieldValue.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:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomUpdateContentFieldsList"
        ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomUpdateContent =
  struct
    type nonrec t =
      {
      fields: CustomUpdateContentFieldsList.t
        [@ocaml.doc
          "List of updated field values for the Custom related item. All existing and new fields, and their associated values should be included. Fields not included as part of this request will be removed."]}
    let context_ = "CustomUpdateContent"
    let make ~fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields", (Some (CustomUpdateContentFieldsList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        CustomUpdateContentFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map_exn json__ "fields" CustomUpdateContentFieldsList.of_json in
      make ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the updated content of a Custom related item."]
module DeleteCaseRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "A unique identifier of the Cases domain."];
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."]}
    let context_ = "DeleteCaseRequest"
    let make ~domainId = fun ~caseId -> fun () -> { domainId; caseId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseId", (Some (CaseId.to_value x.caseId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~caseId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~caseId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The DeleteCase API permanently deletes a case and all its associated resources from the cases data store. After a successful deletion, you cannot: Retrieve related items Access audit history Perform any operations that require the CaseID This action is irreversible. After you delete a case, you cannot recover its data."]
module DeleteCaseResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The DeleteCase API permanently deletes a case and all its associated resources from the cases data store. After a successful deletion, you cannot: Retrieve related items Access audit history Perform any operations that require the CaseID This action is irreversible. After you delete a case, you cannot recover its data."]
module DeleteCaseRuleRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "Unique identifier of a Cases domain."];
      caseRuleId: CaseRuleId.t
        [@ocaml.doc "Unique identifier of a case rule."]}
    let context_ = "DeleteCaseRuleRequest"
    let make ~domainId =
      fun ~caseRuleId -> fun () -> { domainId; caseRuleId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseRuleId", (Some (CaseRuleId.to_value x.caseRuleId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let caseRuleId =
        CaseRuleId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "caseRuleId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~caseRuleId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let caseRuleId = field_map_exn json__ "caseRuleId" CaseRuleId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~caseRuleId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module DeleteCaseRuleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module DeleteDomainRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."]}
    let context_ = "DeleteDomainRequest"
    let make ~domainId = fun () -> { domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Cases domain. After deleting your domain you must disassociate the deleted domain from your Amazon Connect instance with another API call before being able to use Cases again with this Amazon Connect instance. See DeleteIntegrationAssociation."]
module DeleteDomainResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a Cases domain. After deleting your domain you must disassociate the deleted domain from your Amazon Connect instance with another API call before being able to use Cases again with this Amazon Connect instance. See DeleteIntegrationAssociation."]
module DeleteFieldRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      fieldId: FieldId.t [@ocaml.doc "Unique identifier of the field."]}
    let context_ = "DeleteFieldRequest"
    let make ~domainId = fun ~fieldId -> fun () -> { domainId; fieldId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("fieldId", (Some (FieldId.to_value x.fieldId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldId =
        FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fieldId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~fieldId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldId = field_map_exn json__ "fieldId" FieldId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~fieldId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a field from a cases template. After a field is deleted: You can still retrieve the field by calling BatchGetField. You cannot update a deleted field by calling UpdateField; it throws a ValidationException. Deleted fields are not included in the ListFields response. Calling CreateCase with a deleted field throws a ValidationException denoting which field identifiers in the request have been deleted. Calling GetCase with a deleted field identifier returns the deleted field's value if one exists. Calling UpdateCase with a deleted field ID throws a ValidationException if the case does not already contain a value for the deleted field. Otherwise it succeeds, allowing you to update or remove (using emptyValue: \\{\\}) the field's value from the case. GetTemplate does not return field IDs for deleted fields. GetLayout does not return field IDs for deleted fields. Calling SearchCases with the deleted field ID as a filter returns any cases that have a value for the deleted field that matches the filter criteria. Calling SearchCases with a searchTerm value that matches a deleted field's value on a case returns the case in the response. Calling BatchPutFieldOptions with a deleted field ID throw a ValidationException. Calling GetCaseEventConfiguration does not return field IDs for deleted fields."]
module DeleteFieldResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a field from a cases template. After a field is deleted: You can still retrieve the field by calling BatchGetField. You cannot update a deleted field by calling UpdateField; it throws a ValidationException. Deleted fields are not included in the ListFields response. Calling CreateCase with a deleted field throws a ValidationException denoting which field identifiers in the request have been deleted. Calling GetCase with a deleted field identifier returns the deleted field's value if one exists. Calling UpdateCase with a deleted field ID throws a ValidationException if the case does not already contain a value for the deleted field. Otherwise it succeeds, allowing you to update or remove (using emptyValue: \\{\\}) the field's value from the case. GetTemplate does not return field IDs for deleted fields. GetLayout does not return field IDs for deleted fields. Calling SearchCases with the deleted field ID as a filter returns any cases that have a value for the deleted field that matches the filter criteria. Calling SearchCases with a searchTerm value that matches a deleted field's value on a case returns the case in the response. Calling BatchPutFieldOptions with a deleted field ID throw a ValidationException. Calling GetCaseEventConfiguration does not return field IDs for deleted fields."]
module DeleteLayoutRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      layoutId: LayoutId.t
        [@ocaml.doc "The unique identifier of the layout."]}
    let context_ = "DeleteLayoutRequest"
    let make ~domainId = fun ~layoutId -> fun () -> { domainId; layoutId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("layoutId", (Some (LayoutId.to_value x.layoutId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layoutId =
        LayoutId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "layoutId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~layoutId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layoutId = field_map_exn json__ "layoutId" LayoutId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~layoutId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a layout from a cases template. You can delete up to 100 layouts per domain. After a layout is deleted: You can still retrieve the layout by calling GetLayout. You cannot update a deleted layout by calling UpdateLayout; it throws a ValidationException. Deleted layouts are not included in the ListLayouts response."]
module DeleteLayoutResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a layout from a cases template. You can delete up to 100 layouts per domain. After a layout is deleted: You can still retrieve the layout by calling GetLayout. You cannot update a deleted layout by calling UpdateLayout; it throws a ValidationException. Deleted layouts are not included in the ListLayouts response."]
module DeleteRelatedItemRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "A unique identifier of the Cases domain."];
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      relatedItemId: RelatedItemId.t
        [@ocaml.doc "A unique identifier of a related item."]}
    let context_ = "DeleteRelatedItemRequest"
    let make ~domainId =
      fun ~caseId ->
        fun ~relatedItemId -> fun () -> { domainId; caseId; relatedItemId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseId", (Some (CaseId.to_value x.caseId)));
        ("relatedItemId", (Some (RelatedItemId.to_value x.relatedItemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedItemId =
        RelatedItemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "relatedItemId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~relatedItemId ~caseId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedItemId =
        field_map_exn json__ "relatedItemId" RelatedItemId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~relatedItemId ~caseId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the related item resource under a case. This API cannot be used on a FILE type related attachment. To delete this type of file, use the DeleteAttachedFile API"]
module DeleteRelatedItemResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the related item resource under a case. This API cannot be used on a FILE type related attachment. To delete this type of file, use the DeleteAttachedFile API"]
module DeleteTemplateRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      templateId: TemplateId.t
        [@ocaml.doc "A unique identifier of a template."]}
    let context_ = "DeleteTemplateRequest"
    let make ~domainId =
      fun ~templateId -> fun () -> { domainId; templateId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("templateId", (Some (TemplateId.to_value x.templateId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateId =
        TemplateId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~templateId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateId = field_map_exn json__ "templateId" TemplateId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~templateId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a cases template. You can delete up to 100 templates per domain. After a cases template is deleted: You can still retrieve the template by calling GetTemplate. You cannot update the template. You cannot create a case by using the deleted template. Deleted templates are not included in the ListTemplates response."]
module DeleteTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a cases template. You can delete up to 100 templates per domain. After a cases template is deleted: You can still retrieve the template by calling GetTemplate. You cannot update the template. You cannot create a case by using the deleted template. Deleted templates are not included in the ListTemplates response."]
module DomainSummary =
  struct
    type nonrec t =
      {
      domainId: DomainId.t option
        [@ocaml.doc "The unique identifier of the domain."];
      domainArn: DomainArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the domain."];
      name: DomainName.t option [@ocaml.doc "The name of the domain."]}
    let make ?domainId =
      fun ?domainArn -> fun ?name -> fun () -> { domainId; domainArn; name }
    let to_value x =
      structure_to_value
        [("domainId", (Option.map x.domainId ~f:DomainId.to_value));
        ("domainArn", (Option.map x.domainArn ~f:DomainArn.to_value));
        ("name", (Option.map x.name ~f:DomainName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "name") in
      let domainArn =
        (Option.map ~f:DomainArn.of_xml) (Xml.child xml_arg0 "domainArn") in
      let domainId =
        (Option.map ~f:DomainId.of_xml) (Xml.child xml_arg0 "domainId") in
      make ?name ?domainArn ?domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" DomainName.of_json in
      let domainArn = field_map json__ "domainArn" DomainArn.of_json in
      let domainId = field_map json__ "domainId" DomainId.of_json in
      make ?name ?domainArn ?domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for the summarized details of the domain."]
module DomainSummaryList =
  struct
    type nonrec t = DomainSummary.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:DomainSummary.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:DomainSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DomainSummaryList" ~of_json:DomainSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module RelatedItemEventIncludedData =
  struct
    type nonrec t =
      {
      includeContent: Boolean.t
        [@ocaml.doc
          "Details of what related item data is published through the case event stream."]}
    let context_ = "RelatedItemEventIncludedData"
    let make ~includeContent = fun () -> { includeContent }
    let to_value x =
      structure_to_value
        [("includeContent", (Some (Boolean.to_value x.includeContent)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeContent =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "includeContent") in
      make ~includeContent ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeContent =
        field_map_exn json__ "includeContent" Boolean.of_json in
      make ~includeContent ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details of what related item data is published through the case event stream."]
module EventIncludedData =
  struct
    type nonrec t =
      {
      caseData: CaseEventIncludedData.t option
        [@ocaml.doc
          "Details of what case data is published through the case event stream."];
      relatedItemData: RelatedItemEventIncludedData.t option
        [@ocaml.doc
          "Details of what related item data is published through the case event stream."]}
    let make ?caseData =
      fun ?relatedItemData -> fun () -> { caseData; relatedItemData }
    let to_value x =
      structure_to_value
        [("caseData",
           (Option.map x.caseData ~f:CaseEventIncludedData.to_value));
        ("relatedItemData",
          (Option.map x.relatedItemData
             ~f:RelatedItemEventIncludedData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedItemData =
        (Option.map ~f:RelatedItemEventIncludedData.of_xml)
          (Xml.child xml_arg0 "relatedItemData") in
      let caseData =
        (Option.map ~f:CaseEventIncludedData.of_xml)
          (Xml.child xml_arg0 "caseData") in
      make ?relatedItemData ?caseData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedItemData =
        field_map json__ "relatedItemData"
          RelatedItemEventIncludedData.of_json in
      let caseData =
        field_map json__ "caseData" CaseEventIncludedData.of_json in
      make ?relatedItemData ?caseData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Details of what case and related item data is published through the case event stream."]
module EventBridgeConfiguration =
  struct
    type nonrec t =
      {
      enabled: Boolean.t
        [@ocaml.doc
          "Indicates whether the to broadcast case event data to the customer."];
      includedData: EventIncludedData.t option
        [@ocaml.doc
          "Details of what case and related item data is published through the case event stream."]}
    let context_ = "EventBridgeConfiguration"
    let make ?includedData =
      fun ~enabled -> fun () -> { includedData; enabled }
    let to_value x =
      structure_to_value
        [("enabled", (Some (Boolean.to_value x.enabled)));
        ("includedData",
          (Option.map x.includedData ~f:EventIncludedData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includedData =
        (Option.map ~f:EventIncludedData.of_xml)
          (Xml.child xml_arg0 "includedData") in
      let enabled =
        Boolean.of_xml (Xml.child_exn ~context:context_ xml_arg0 "enabled") in
      make ?includedData ~enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includedData =
        field_map json__ "includedData" EventIncludedData.of_json in
      let enabled = field_map_exn json__ "enabled" Boolean.of_json in
      make ?includedData ~enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration to enable EventBridge case event delivery and determine what data is delivered."]
module FieldOptionsList =
  struct
    type nonrec t = FieldOption.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:FieldOption.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:FieldOption.of_xml)
    let of_json j =
      list_of_json ~kind:"FieldOptionsList" ~of_json:FieldOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module FieldSummary =
  struct
    type nonrec t =
      {
      fieldId: FieldId.t option
        [@ocaml.doc "The unique identifier of a field."];
      fieldArn: FieldArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the field."];
      name: FieldName.t option [@ocaml.doc "Name of the field."];
      type_: FieldType.t option [@ocaml.doc "The type of a field."];
      namespace: FieldNamespace.t option
        [@ocaml.doc "The namespace of a field."];
      attributes: FieldAttributes.t option
        [@ocaml.doc "Union of field attributes."]}
    let make ?fieldId =
      fun ?fieldArn ->
        fun ?name ->
          fun ?type_ ->
            fun ?namespace ->
              fun ?attributes ->
                fun () ->
                  { fieldId; fieldArn; name; type_; namespace; attributes }
    let to_value x =
      structure_to_value
        [("fieldId", (Option.map x.fieldId ~f:FieldId.to_value));
        ("fieldArn", (Option.map x.fieldArn ~f:FieldArn.to_value));
        ("name", (Option.map x.name ~f:FieldName.to_value));
        ("type", (Option.map x.type_ ~f:FieldType.to_value));
        ("namespace", (Option.map x.namespace ~f:FieldNamespace.to_value));
        ("attributes", (Option.map x.attributes ~f:FieldAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:FieldAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let namespace =
        (Option.map ~f:FieldNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      let type_ =
        (Option.map ~f:FieldType.of_xml) (Xml.child xml_arg0 "type") in
      let name = (Option.map ~f:FieldName.of_xml) (Xml.child xml_arg0 "name") in
      let fieldArn =
        (Option.map ~f:FieldArn.of_xml) (Xml.child xml_arg0 "fieldArn") in
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      make ?attributes ?namespace ?type_ ?name ?fieldArn ?fieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" FieldAttributes.of_json in
      let namespace = field_map json__ "namespace" FieldNamespace.of_json in
      let type_ = field_map json__ "type" FieldType.of_json in
      let name = field_map json__ "name" FieldName.of_json in
      let fieldArn = field_map json__ "fieldArn" FieldArn.of_json in
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      make ?attributes ?namespace ?type_ ?name ?fieldArn ?fieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for the summarized details of the field."]
module FileFilter =
  struct
    type nonrec t =
      {
      fileArn: FileArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the file."]}
    let make ?fileArn = fun () -> { fileArn }
    let to_value x =
      structure_to_value
        [("fileArn", (Option.map x.fileArn ~f:FileArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileArn =
        (Option.map ~f:FileArn.of_xml) (Xml.child xml_arg0 "fileArn") in
      make ?fileArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileArn = field_map json__ "fileArn" FileArn.of_json in
      make ?fileArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for related items of type File."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:9000) >>=
             (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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module GetCaseAuditEventsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 GetCaseAuditEventsRequestMaxResultsInteger"
           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 GetCaseAuditEventsRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      maxResults: GetCaseAuditEventsRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of audit events to return. When no value is provided, 25 is the default."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let context_ = "GetCaseAuditEventsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~caseId ->
          fun ~domainId ->
            fun () -> { maxResults; nextToken; caseId; domainId }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:GetCaseAuditEventsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:GetCaseAuditEventsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ?nextToken ?maxResults ~domainId ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          GetCaseAuditEventsRequestMaxResultsInteger.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ?nextToken ?maxResults ~domainId ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the audit history about a specific case if it exists."]
module GetCaseAuditEventsResponseAuditEventsList =
  struct
    type nonrec t = AuditEvent.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AuditEvent.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:AuditEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"GetCaseAuditEventsResponseAuditEventsList"
        ~of_json:AuditEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetCaseAuditEventsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."];
      auditEvents: GetCaseAuditEventsResponseAuditEventsList.t option
        [@ocaml.doc
          "A list of case audits where each represents a particular edit of the case."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?auditEvents -> fun () -> { nextToken; auditEvents }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("auditEvents",
          (Option.map x.auditEvents
             ~f:GetCaseAuditEventsResponseAuditEventsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditEvents =
        (Option.map ~f:GetCaseAuditEventsResponseAuditEventsList.of_xml)
          (Xml.child xml_arg0 "auditEvents") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?auditEvents ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditEvents =
        field_map json__ "auditEvents"
          GetCaseAuditEventsResponseAuditEventsList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?auditEvents ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the audit history about a specific case if it exists."]
module GetCaseEventConfigurationRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."]}
    let context_ = "GetCaseEventConfigurationRequest"
    let make ~domainId = fun () -> { domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the case event publishing configuration."]
module GetCaseEventConfigurationResponse =
  struct
    type nonrec t =
      {
      eventBridge: EventBridgeConfiguration.t option
        [@ocaml.doc
          "Configuration to enable EventBridge case event delivery and determine what data is delivered."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventBridge = fun () -> { eventBridge }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("eventBridge",
           (Option.map x.eventBridge ~f:EventBridgeConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBridge =
        (Option.map ~f:EventBridgeConfiguration.of_xml)
          (Xml.child xml_arg0 "eventBridge") in
      make ?eventBridge ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBridge =
        field_map json__ "eventBridge" EventBridgeConfiguration.of_json in
      make ?eventBridge ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the case event publishing configuration."]
module GetCaseRequestFieldsList =
  struct
    type nonrec t = FieldIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:220) >>=
             (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:FieldIdentifier.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:FieldIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"GetCaseRequestFieldsList"
        ~of_json:FieldIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetCaseRequest =
  struct
    type nonrec t =
      {
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      fields: GetCaseRequestFieldsList.t
        [@ocaml.doc "A list of unique field identifiers."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let context_ = "GetCaseRequest"
    let make ?nextToken =
      fun ~caseId ->
        fun ~domainId ->
          fun ~fields -> fun () -> { nextToken; caseId; domainId; fields }
    let to_value x =
      structure_to_value
        [("caseId", (Some (CaseId.to_value x.caseId)));
        ("domainId", (Some (DomainId.to_value x.domainId)));
        ("fields", (Some (GetCaseRequestFieldsList.to_value x.fields)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let fields =
        GetCaseRequestFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      make ?nextToken ~fields ~domainId ~caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let fields =
        field_map_exn json__ "fields" GetCaseRequestFieldsList.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      make ?nextToken ~fields ~domainId ~caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specific case if it exists."]
module GetCaseResponseFieldsList =
  struct
    type nonrec t = FieldValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:220) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"GetCaseResponseFieldsList"
        ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module GetCaseResponse =
  struct
    type nonrec t =
      {
      fields: GetCaseResponseFieldsList.t option
        [@ocaml.doc "A list of detailed field information."];
      templateId: TemplateId.t option
        [@ocaml.doc "A unique identifier of a template."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fields =
      fun ?templateId ->
        fun ?nextToken ->
          fun ?tags -> fun () -> { fields; templateId; nextToken; tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("fields",
           (Option.map x.fields ~f:GetCaseResponseFieldsList.to_value));
        ("templateId", (Option.map x.templateId ~f:TemplateId.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let templateId =
        (Option.map ~f:TemplateId.of_xml) (Xml.child xml_arg0 "templateId") in
      let fields =
        (Option.map ~f:GetCaseResponseFieldsList.of_xml)
          (Xml.child xml_arg0 "fields") in
      make ?tags ?nextToken ?templateId ?fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let templateId = field_map json__ "templateId" TemplateId.of_json in
      let fields =
        field_map json__ "fields" GetCaseResponseFieldsList.of_json in
      make ?tags ?nextToken ?templateId ?fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specific case if it exists."]
module GetDomainRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."]}
    let context_ = "GetDomainRequest"
    let make ~domainId = fun () -> { domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific domain if it exists."]
module GetDomainResponse =
  struct
    type nonrec t =
      {
      domainId: DomainId.t option
        [@ocaml.doc "The unique identifier of the Cases domain."];
      domainArn: DomainArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for the Cases domain."];
      name: DomainName.t option [@ocaml.doc "The name of the Cases domain."];
      createdTime: CreatedTime.t option
        [@ocaml.doc "The timestamp when the Cases domain was created."];
      domainStatus: DomainStatus.t option
        [@ocaml.doc "The status of the Cases domain."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domainId =
      fun ?domainArn ->
        fun ?name ->
          fun ?createdTime ->
            fun ?domainStatus ->
              fun ?tags ->
                fun () ->
                  {
                    domainId;
                    domainArn;
                    name;
                    createdTime;
                    domainStatus;
                    tags
                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("domainId", (Option.map x.domainId ~f:DomainId.to_value));
        ("domainArn", (Option.map x.domainArn ~f:DomainArn.to_value));
        ("name", (Option.map x.name ~f:DomainName.to_value));
        ("createdTime", (Option.map x.createdTime ~f:CreatedTime.to_value));
        ("domainStatus",
          (Option.map x.domainStatus ~f:DomainStatus.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let domainStatus =
        (Option.map ~f:DomainStatus.of_xml)
          (Xml.child xml_arg0 "domainStatus") in
      let createdTime =
        (Option.map ~f:CreatedTime.of_xml) (Xml.child xml_arg0 "createdTime") in
      let name =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "name") in
      let domainArn =
        (Option.map ~f:DomainArn.of_xml) (Xml.child xml_arg0 "domainArn") in
      let domainId =
        (Option.map ~f:DomainId.of_xml) (Xml.child xml_arg0 "domainId") in
      make ?tags ?domainStatus ?createdTime ?name ?domainArn ?domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let domainStatus = field_map json__ "domainStatus" DomainStatus.of_json in
      let createdTime = field_map json__ "createdTime" CreatedTime.of_json in
      let name = field_map json__ "name" DomainName.of_json in
      let domainArn = field_map json__ "domainArn" DomainArn.of_json in
      let domainId = field_map json__ "domainId" DomainId.of_json in
      make ?tags ?domainStatus ?createdTime ?name ?domainArn ?domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific domain if it exists."]
module GetLayoutRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      layoutId: LayoutId.t
        [@ocaml.doc "The unique identifier of the layout."]}
    let context_ = "GetLayoutRequest"
    let make ~domainId = fun ~layoutId -> fun () -> { domainId; layoutId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("layoutId", (Some (LayoutId.to_value x.layoutId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layoutId =
        LayoutId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "layoutId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~layoutId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layoutId = field_map_exn json__ "layoutId" LayoutId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~layoutId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the details for the requested layout."]
module GetLayoutResponse =
  struct
    type nonrec t =
      {
      layoutId: LayoutId.t option
        [@ocaml.doc "The unique identifier of the layout."];
      layoutArn: LayoutArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created layout."];
      name: LayoutName.t option
        [@ocaml.doc "The name of the layout. It must be unique."];
      content: LayoutContent.t option
        [@ocaml.doc
          "Information about which fields will be present in the layout, the order of the fields, and read-only attribute of the field."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."];
      deleted: Deleted.t option
        [@ocaml.doc "Denotes whether or not the resource has been deleted."];
      createdTime: CreatedTime.t option
        [@ocaml.doc "Timestamp at which the resource was created."];
      lastModifiedTime: LastModifiedTime.t option
        [@ocaml.doc
          "Timestamp at which the resource was created or last modified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?layoutId =
      fun ?layoutArn ->
        fun ?name ->
          fun ?content ->
            fun ?tags ->
              fun ?deleted ->
                fun ?createdTime ->
                  fun ?lastModifiedTime ->
                    fun () ->
                      {
                        layoutId;
                        layoutArn;
                        name;
                        content;
                        tags;
                        deleted;
                        createdTime;
                        lastModifiedTime
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("layoutId", (Option.map x.layoutId ~f:LayoutId.to_value));
        ("layoutArn", (Option.map x.layoutArn ~f:LayoutArn.to_value));
        ("name", (Option.map x.name ~f:LayoutName.to_value));
        ("content", (Option.map x.content ~f:LayoutContent.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("deleted", (Option.map x.deleted ~f:Deleted.to_value));
        ("createdTime", (Option.map x.createdTime ~f:CreatedTime.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastModifiedTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:LastModifiedTime.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:CreatedTime.of_xml) (Xml.child xml_arg0 "createdTime") in
      let deleted =
        (Option.map ~f:Deleted.of_xml) (Xml.child xml_arg0 "deleted") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let content =
        (Option.map ~f:LayoutContent.of_xml) (Xml.child xml_arg0 "content") in
      let name =
        (Option.map ~f:LayoutName.of_xml) (Xml.child xml_arg0 "name") in
      let layoutArn =
        (Option.map ~f:LayoutArn.of_xml) (Xml.child xml_arg0 "layoutArn") in
      let layoutId =
        (Option.map ~f:LayoutId.of_xml) (Xml.child xml_arg0 "layoutId") in
      make ?lastModifiedTime ?createdTime ?deleted ?tags ?content ?name
        ?layoutArn ?layoutId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" LastModifiedTime.of_json in
      let createdTime = field_map json__ "createdTime" CreatedTime.of_json in
      let deleted = field_map json__ "deleted" Deleted.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let content = field_map json__ "content" LayoutContent.of_json in
      let name = field_map json__ "name" LayoutName.of_json in
      let layoutArn = field_map json__ "layoutArn" LayoutArn.of_json in
      let layoutId = field_map json__ "layoutId" LayoutId.of_json in
      make ?lastModifiedTime ?createdTime ?deleted ?tags ?content ?name
        ?layoutArn ?layoutId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns the details for the requested layout."]
module GetTemplateRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      templateId: TemplateId.t
        [@ocaml.doc "A unique identifier of a template."]}
    let context_ = "GetTemplateRequest"
    let make ~domainId =
      fun ~templateId -> fun () -> { domainId; templateId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("templateId", (Some (TemplateId.to_value x.templateId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let templateId =
        TemplateId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~templateId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let templateId = field_map_exn json__ "templateId" TemplateId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~templateId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details for the requested template. Other template APIs are: CreateTemplate DeleteTemplate ListTemplates UpdateTemplate"]
module GetTemplateResponse =
  struct
    type nonrec t =
      {
      templateId: TemplateId.t option
        [@ocaml.doc "A unique identifier of a template."];
      templateArn: TemplateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the template."];
      name: TemplateName.t option [@ocaml.doc "The name of the template."];
      description: TemplateDescription.t option
        [@ocaml.doc "A brief description of the template."];
      layoutConfiguration: LayoutConfiguration.t option
        [@ocaml.doc "Configuration of layouts associated to the template."];
      requiredFields: RequiredFieldList.t option
        [@ocaml.doc
          "A list of fields that must contain a value for a case to be successfully created with this template."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."];
      status: TemplateStatus.t option
        [@ocaml.doc "The status of the template."];
      deleted: Deleted.t option
        [@ocaml.doc "Denotes whether or not the resource has been deleted."];
      createdTime: CreatedTime.t option
        [@ocaml.doc "Timestamp at which the resource was created."];
      lastModifiedTime: LastModifiedTime.t option
        [@ocaml.doc
          "Timestamp at which the resource was created or last modified."];
      rules: TemplateCaseRuleList.t option
        [@ocaml.doc
          "A list of case rules (also known as case field conditions) on a template."];
      tagPropagationConfigurations: TagPropagationConfigurationList.t option
        [@ocaml.doc
          "Defines tag propagation configuration for resources created within a domain. Tags specified here will be automatically applied to resources being created for the specified resource type."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templateId =
      fun ?templateArn ->
        fun ?name ->
          fun ?description ->
            fun ?layoutConfiguration ->
              fun ?requiredFields ->
                fun ?tags ->
                  fun ?status ->
                    fun ?deleted ->
                      fun ?createdTime ->
                        fun ?lastModifiedTime ->
                          fun ?rules ->
                            fun ?tagPropagationConfigurations ->
                              fun () ->
                                {
                                  templateId;
                                  templateArn;
                                  name;
                                  description;
                                  layoutConfiguration;
                                  requiredFields;
                                  tags;
                                  status;
                                  deleted;
                                  createdTime;
                                  lastModifiedTime;
                                  rules;
                                  tagPropagationConfigurations
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("templateId", (Option.map x.templateId ~f:TemplateId.to_value));
        ("templateArn", (Option.map x.templateArn ~f:TemplateArn.to_value));
        ("name", (Option.map x.name ~f:TemplateName.to_value));
        ("description",
          (Option.map x.description ~f:TemplateDescription.to_value));
        ("layoutConfiguration",
          (Option.map x.layoutConfiguration ~f:LayoutConfiguration.to_value));
        ("requiredFields",
          (Option.map x.requiredFields ~f:RequiredFieldList.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("status", (Option.map x.status ~f:TemplateStatus.to_value));
        ("deleted", (Option.map x.deleted ~f:Deleted.to_value));
        ("createdTime", (Option.map x.createdTime ~f:CreatedTime.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:LastModifiedTime.to_value));
        ("rules", (Option.map x.rules ~f:TemplateCaseRuleList.to_value));
        ("tagPropagationConfigurations",
          (Option.map x.tagPropagationConfigurations
             ~f:TagPropagationConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagPropagationConfigurations =
        (Option.map ~f:TagPropagationConfigurationList.of_xml)
          (Xml.child xml_arg0 "tagPropagationConfigurations") in
      let rules =
        (Option.map ~f:TemplateCaseRuleList.of_xml)
          (Xml.child xml_arg0 "rules") in
      let lastModifiedTime =
        (Option.map ~f:LastModifiedTime.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:CreatedTime.of_xml) (Xml.child xml_arg0 "createdTime") in
      let deleted =
        (Option.map ~f:Deleted.of_xml) (Xml.child xml_arg0 "deleted") in
      let status =
        (Option.map ~f:TemplateStatus.of_xml) (Xml.child xml_arg0 "status") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let requiredFields =
        (Option.map ~f:RequiredFieldList.of_xml)
          (Xml.child xml_arg0 "requiredFields") in
      let layoutConfiguration =
        (Option.map ~f:LayoutConfiguration.of_xml)
          (Xml.child xml_arg0 "layoutConfiguration") in
      let description =
        (Option.map ~f:TemplateDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:TemplateName.of_xml) (Xml.child xml_arg0 "name") in
      let templateArn =
        (Option.map ~f:TemplateArn.of_xml) (Xml.child xml_arg0 "templateArn") in
      let templateId =
        (Option.map ~f:TemplateId.of_xml) (Xml.child xml_arg0 "templateId") in
      make ?tagPropagationConfigurations ?rules ?lastModifiedTime
        ?createdTime ?deleted ?status ?tags ?requiredFields
        ?layoutConfiguration ?description ?name ?templateArn ?templateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagPropagationConfigurations =
        field_map json__ "tagPropagationConfigurations"
          TagPropagationConfigurationList.of_json in
      let rules = field_map json__ "rules" TemplateCaseRuleList.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" LastModifiedTime.of_json in
      let createdTime = field_map json__ "createdTime" CreatedTime.of_json in
      let deleted = field_map json__ "deleted" Deleted.of_json in
      let status = field_map json__ "status" TemplateStatus.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let requiredFields =
        field_map json__ "requiredFields" RequiredFieldList.of_json in
      let layoutConfiguration =
        field_map json__ "layoutConfiguration" LayoutConfiguration.of_json in
      let description =
        field_map json__ "description" TemplateDescription.of_json in
      let name = field_map json__ "name" TemplateName.of_json in
      let templateArn = field_map json__ "templateArn" TemplateArn.of_json in
      let templateId = field_map json__ "templateId" TemplateId.of_json in
      make ?tagPropagationConfigurations ?rules ?lastModifiedTime
        ?createdTime ?deleted ?status ?tags ?requiredFields
        ?layoutConfiguration ?description ?name ?templateArn ?templateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the details for the requested template. Other template APIs are: CreateTemplate DeleteTemplate ListTemplates UpdateTemplate"]
module LayoutSummary =
  struct
    type nonrec t =
      {
      layoutId: LayoutId.t option
        [@ocaml.doc "The unique identifier for of the layout."];
      layoutArn: LayoutArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the layout."];
      name: LayoutName.t option [@ocaml.doc "The name of the layout."]}
    let make ?layoutId =
      fun ?layoutArn -> fun ?name -> fun () -> { layoutId; layoutArn; name }
    let to_value x =
      structure_to_value
        [("layoutId", (Option.map x.layoutId ~f:LayoutId.to_value));
        ("layoutArn", (Option.map x.layoutArn ~f:LayoutArn.to_value));
        ("name", (Option.map x.name ~f:LayoutName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:LayoutName.of_xml) (Xml.child xml_arg0 "name") in
      let layoutArn =
        (Option.map ~f:LayoutArn.of_xml) (Xml.child xml_arg0 "layoutArn") in
      let layoutId =
        (Option.map ~f:LayoutId.of_xml) (Xml.child xml_arg0 "layoutId") in
      make ?name ?layoutArn ?layoutId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" LayoutName.of_json in
      let layoutArn = field_map json__ "layoutArn" LayoutArn.of_json in
      let layoutId = field_map json__ "layoutId" LayoutId.of_json in
      make ?name ?layoutArn ?layoutId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Object for the summarized details of the layout."]
module LayoutSummaryList =
  struct
    type nonrec t = LayoutSummary.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:LayoutSummary.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:LayoutSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"LayoutSummaryList" ~of_json:LayoutSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max: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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ListCaseRulesRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "Unique identifier of a Cases domain."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let context_ = "ListCaseRulesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainId -> fun () -> { maxResults; nextToken; domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?nextToken ?maxResults ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?nextToken ?maxResults ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all case rules in a Cases domain. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module ListCaseRulesResponseCaseRulesList =
  struct
    type nonrec t = CaseRuleSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CaseRuleSummary.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:CaseRuleSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListCaseRulesResponseCaseRulesList"
        ~of_json:CaseRuleSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCaseRulesResponse =
  struct
    type nonrec t =
      {
      caseRules: ListCaseRulesResponseCaseRulesList.t option
        [@ocaml.doc "A list of field summary objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?caseRules =
      fun ?nextToken -> fun () -> { caseRules; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("caseRules",
           (Option.map x.caseRules
              ~f:ListCaseRulesResponseCaseRulesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let caseRules =
        (Option.map ~f:ListCaseRulesResponseCaseRulesList.of_xml)
          (Xml.child xml_arg0 "caseRules") in
      make ?nextToken ?caseRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let caseRules =
        field_map json__ "caseRules"
          ListCaseRulesResponseCaseRulesList.of_json in
      make ?nextToken ?caseRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all case rules in a Cases domain. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module ListCasesForContactRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 ListCasesForContactRequestMaxResultsInteger"
           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 ListCasesForContactRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      contactArn: ContactArn.t
        [@ocaml.doc "A unique identifier of a contact in Amazon Connect."];
      maxResults: ListCasesForContactRequestMaxResultsInteger.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let context_ = "ListCasesForContactRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainId ->
          fun ~contactArn ->
            fun () -> { maxResults; nextToken; domainId; contactArn }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("contactArn", (Some (ContactArn.to_value x.contactArn)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:ListCasesForContactRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListCasesForContactRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let contactArn =
        ContactArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "contactArn") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?nextToken ?maxResults ~contactArn ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListCasesForContactRequestMaxResultsInteger.of_json in
      let contactArn = field_map_exn json__ "contactArn" ContactArn.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?nextToken ?maxResults ~contactArn ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists cases for a given contact."]
module ListCasesForContactResponseCasesList =
  struct
    type nonrec t = CaseSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CaseSummary.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:CaseSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListCasesForContactResponseCasesList"
        ~of_json:CaseSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListCasesForContactResponse =
  struct
    type nonrec t =
      {
      cases: ListCasesForContactResponseCasesList.t option
        [@ocaml.doc "A list of Case summary information."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cases = fun ?nextToken -> fun () -> { cases; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("cases",
           (Option.map x.cases
              ~f:ListCasesForContactResponseCasesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let cases =
        (Option.map ~f:ListCasesForContactResponseCasesList.of_xml)
          (Xml.child xml_arg0 "cases") in
      make ?nextToken ?cases ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let cases =
        field_map json__ "cases" ListCasesForContactResponseCasesList.of_json in
      make ?nextToken ?cases ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists cases for a given contact."]
module ListDomainsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 ListDomainsRequestMaxResultsInteger"
           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 ListDomainsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListDomainsRequestMaxResultsInteger.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults",
           (Option.map x.maxResults
              ~f:ListDomainsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ListDomainsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          ListDomainsRequestMaxResultsInteger.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all cases domains in the Amazon Web Services account. Each list item is a condensed summary object of the domain."]
module ListDomainsResponse =
  struct
    type nonrec t =
      {
      domains: DomainSummaryList.t option [@ocaml.doc "The Cases domain."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?domains = fun ?nextToken -> fun () -> { domains; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("domains", (Option.map x.domains ~f:DomainSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let domains =
        (Option.map ~f:DomainSummaryList.of_xml)
          (Xml.child xml_arg0 "domains") in
      make ?nextToken ?domains ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let domains = field_map json__ "domains" DomainSummaryList.of_json in
      make ?nextToken ?domains ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all cases domains in the Amazon Web Services account. Each list item is a condensed summary object of the domain."]
module Value =
  struct
    type nonrec t = string
    let context_ = "Value"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Value" j
    let to_json = simple_to_json to_value
  end
module ValuesList =
  struct
    type nonrec t = Value.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Value.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:Value.of_xml)
    let of_json j = list_of_json ~kind:"ValuesList" ~of_json:Value.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListFieldOptionsRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      fieldId: FieldId.t [@ocaml.doc "The unique identifier of a field."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."];
      values: ValuesList.t option
        [@ocaml.doc
          "A list of FieldOption values to filter on for ListFieldOptions."]}
    let context_ = "ListFieldOptionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?values ->
          fun ~domainId ->
            fun ~fieldId ->
              fun () -> { maxResults; nextToken; values; domainId; fieldId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("fieldId", (Some (FieldId.to_value x.fieldId)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("values", (Option.map x.values ~f:ValuesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:ValuesList.of_xml) (Xml.child xml_arg0 "values") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let fieldId =
        FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fieldId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?values ?nextToken ?maxResults ~fieldId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" ValuesList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let fieldId = field_map_exn json__ "fieldId" FieldId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?values ?nextToken ?maxResults ~fieldId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the field options for a field identifier in the domain."]
module ListFieldOptionsResponse =
  struct
    type nonrec t =
      {
      options: FieldOptionsList.t option
        [@ocaml.doc "A list of FieldOption objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?options = fun ?nextToken -> fun () -> { options; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("options", (Option.map x.options ~f:FieldOptionsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let options =
        (Option.map ~f:FieldOptionsList.of_xml)
          (Xml.child xml_arg0 "options") in
      make ?nextToken ?options ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let options = field_map json__ "options" FieldOptionsList.of_json in
      make ?nextToken ?options ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the field options for a field identifier in the domain."]
module ListFieldsRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let context_ = "ListFieldsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainId -> fun () -> { maxResults; nextToken; domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?nextToken ?maxResults ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?nextToken ?maxResults ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all fields in a Cases domain."]
module ListFieldsResponseFieldsList =
  struct
    type nonrec t = FieldSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldSummary.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:FieldSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListFieldsResponseFieldsList"
        ~of_json:FieldSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListFieldsResponse =
  struct
    type nonrec t =
      {
      fields: ListFieldsResponseFieldsList.t option
        [@ocaml.doc "List of detailed field information."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fields = fun ?nextToken -> fun () -> { fields; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("fields",
           (Option.map x.fields ~f:ListFieldsResponseFieldsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let fields =
        (Option.map ~f:ListFieldsResponseFieldsList.of_xml)
          (Xml.child xml_arg0 "fields") in
      make ?nextToken ?fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let fields =
        field_map json__ "fields" ListFieldsResponseFieldsList.of_json in
      make ?nextToken ?fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all fields in a Cases domain."]
module ListLayoutsRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."]}
    let context_ = "ListLayoutsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~domainId -> fun () -> { maxResults; nextToken; domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?nextToken ?maxResults ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?nextToken ?maxResults ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all layouts in the given cases domain. Each list item is a condensed summary object of the layout."]
module ListLayoutsResponse =
  struct
    type nonrec t =
      {
      layouts: LayoutSummaryList.t option
        [@ocaml.doc "The layouts for the domain."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?layouts = fun ?nextToken -> fun () -> { layouts; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("layouts", (Option.map x.layouts ~f:LayoutSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let layouts =
        (Option.map ~f:LayoutSummaryList.of_xml)
          (Xml.child xml_arg0 "layouts") in
      make ?nextToken ?layouts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let layouts = field_map json__ "layouts" LayoutSummaryList.of_json in
      make ?nextToken ?layouts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all layouts in the given cases domain. Each list item is a condensed summary object of the layout."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t [@ocaml.doc "The Amazon Resource Name (ARN)"]}
    let context_ = "ListTagsForResourceRequest"
    let make ~arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Some (Arn.to_value x.arn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let arn = field_map_exn json__ "arn" Arn.of_json in make ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags for a resource."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists tags for a resource."]
module TemplateStatusFilters =
  struct
    type nonrec t = TemplateStatus.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (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:TemplateStatus.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:TemplateStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"TemplateStatusFilters"
        ~of_json:TemplateStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTemplatesRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."];
      status: TemplateStatusFilters.t option
        [@ocaml.doc "A list of status values to filter on."]}
    let context_ = "ListTemplatesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?status ->
          fun ~domainId ->
            fun () -> { maxResults; nextToken; status; domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("status", (Option.map x.status ~f:TemplateStatusFilters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:TemplateStatusFilters.of_xml)
          (Xml.child xml_arg0 "status") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?status ?nextToken ?maxResults ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" TemplateStatusFilters.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?status ?nextToken ?maxResults ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the templates in a Cases domain. Each list item is a condensed summary object of the template. Other template APIs are: CreateTemplate DeleteTemplate GetTemplate UpdateTemplate"]
module TemplateSummary =
  struct
    type nonrec t =
      {
      templateId: TemplateId.t option
        [@ocaml.doc "The unique identifier for the template."];
      templateArn: TemplateArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the template."];
      name: TemplateName.t option [@ocaml.doc "The template name."];
      status: TemplateStatus.t option
        [@ocaml.doc "The status of the template."];
      tagPropagationConfigurations: TagPropagationConfigurationList.t option
        [@ocaml.doc
          "Defines tag propagation configuration for resources created within a domain. Tags specified here will be automatically applied to resources being created for the specified resource type."]}
    let make ?templateId =
      fun ?templateArn ->
        fun ?name ->
          fun ?status ->
            fun ?tagPropagationConfigurations ->
              fun () ->
                {
                  templateId;
                  templateArn;
                  name;
                  status;
                  tagPropagationConfigurations
                }
    let to_value x =
      structure_to_value
        [("templateId", (Option.map x.templateId ~f:TemplateId.to_value));
        ("templateArn", (Option.map x.templateArn ~f:TemplateArn.to_value));
        ("name", (Option.map x.name ~f:TemplateName.to_value));
        ("status", (Option.map x.status ~f:TemplateStatus.to_value));
        ("tagPropagationConfigurations",
          (Option.map x.tagPropagationConfigurations
             ~f:TagPropagationConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagPropagationConfigurations =
        (Option.map ~f:TagPropagationConfigurationList.of_xml)
          (Xml.child xml_arg0 "tagPropagationConfigurations") in
      let status =
        (Option.map ~f:TemplateStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:TemplateName.of_xml) (Xml.child xml_arg0 "name") in
      let templateArn =
        (Option.map ~f:TemplateArn.of_xml) (Xml.child xml_arg0 "templateArn") in
      let templateId =
        (Option.map ~f:TemplateId.of_xml) (Xml.child xml_arg0 "templateId") in
      make ?tagPropagationConfigurations ?status ?name ?templateArn
        ?templateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagPropagationConfigurations =
        field_map json__ "tagPropagationConfigurations"
          TagPropagationConfigurationList.of_json in
      let status = field_map json__ "status" TemplateStatus.of_json in
      let name = field_map json__ "name" TemplateName.of_json in
      let templateArn = field_map json__ "templateArn" TemplateArn.of_json in
      let templateId = field_map json__ "templateId" TemplateId.of_json in
      make ?tagPropagationConfigurations ?status ?name ?templateArn
        ?templateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Template summary information."]
module ListTemplatesResponseTemplatesList =
  struct
    type nonrec t = TemplateSummary.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TemplateSummary.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:TemplateSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ListTemplatesResponseTemplatesList"
        ~of_json:TemplateSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTemplatesResponse =
  struct
    type nonrec t =
      {
      templates: ListTemplatesResponseTemplatesList.t option
        [@ocaml.doc "List of template summary objects."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?templates =
      fun ?nextToken -> fun () -> { templates; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("templates",
           (Option.map x.templates
              ~f:ListTemplatesResponseTemplatesList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let templates =
        (Option.map ~f:ListTemplatesResponseTemplatesList.of_xml)
          (Xml.child xml_arg0 "templates") in
      make ?nextToken ?templates ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let templates =
        field_map json__ "templates"
          ListTemplatesResponseTemplatesList.of_json in
      make ?nextToken ?templates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all of the templates in a Cases domain. Each list item is a condensed summary object of the template. Other template APIs are: CreateTemplate DeleteTemplate GetTemplate UpdateTemplate"]
module Order =
  struct
    type nonrec t =
      | Asc 
      | Desc 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Asc -> "Asc" | Desc -> "Desc" | Non_static_id s -> s
    let of_string =
      function | "Asc" -> Asc | "Desc" -> Desc | 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 Order" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Order" j)
    let to_json = simple_to_json to_value
  end
module PutCaseEventConfigurationRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      eventBridge: EventBridgeConfiguration.t
        [@ocaml.doc
          "Configuration to enable EventBridge case event delivery and determine what data is delivered."]}
    let context_ = "PutCaseEventConfigurationRequest"
    let make ~domainId =
      fun ~eventBridge -> fun () -> { domainId; eventBridge }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("eventBridge",
          (Some (EventBridgeConfiguration.to_value x.eventBridge)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBridge =
        EventBridgeConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventBridge") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ~eventBridge ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBridge =
        field_map_exn json__ "eventBridge" EventBridgeConfiguration.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ~eventBridge ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds case event publishing configuration. For a complete list of fields you can add to the event message, see Create case fields in the Amazon Connect Administrator Guide"]
module PutCaseEventConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds case event publishing configuration. For a complete list of fields you can add to the event message, see Create case fields in the Amazon Connect Administrator Guide"]
module SlaTargetTime =
  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 SlaStatus =
  struct
    type nonrec t =
      | Active 
      | Overdue 
      | Met 
      | NotMet 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Overdue -> "Overdue"
      | Met -> "Met"
      | NotMet -> "NotMet"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Overdue" -> Overdue
      | "Met" -> Met
      | "NotMet" -> NotMet
      | 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 SlaStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SlaStatus" j)
    let to_json = simple_to_json to_value
  end
module SlaCompletionTime =
  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 SlaConfiguration =
  struct
    type nonrec t =
      {
      name: SlaName.t option [@ocaml.doc "Name of an SLA."];
      type_: SlaType.t option [@ocaml.doc "Type of SLA."];
      status: SlaStatus.t option [@ocaml.doc "Status of an SLA."];
      fieldId: FieldId.t option [@ocaml.doc "Unique identifier of a field."];
      targetFieldValues: SlaFieldValueUnionList.t option
        [@ocaml.doc
          "Represents a list of target field values for the fieldId specified in SlaConfiguration."];
      targetTime: SlaTargetTime.t option
        [@ocaml.doc "Target time by which an SLA should be completed."];
      completionTime: SlaCompletionTime.t option
        [@ocaml.doc "Time at which an SLA was completed."]}
    let make ?name =
      fun ?type_ ->
        fun ?status ->
          fun ?fieldId ->
            fun ?targetFieldValues ->
              fun ?targetTime ->
                fun ?completionTime ->
                  fun () ->
                    {
                      name;
                      type_;
                      status;
                      fieldId;
                      targetFieldValues;
                      targetTime;
                      completionTime
                    }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:SlaName.to_value));
        ("type", (Option.map x.type_ ~f:SlaType.to_value));
        ("status", (Option.map x.status ~f:SlaStatus.to_value));
        ("fieldId", (Option.map x.fieldId ~f:FieldId.to_value));
        ("targetFieldValues",
          (Option.map x.targetFieldValues ~f:SlaFieldValueUnionList.to_value));
        ("targetTime", (Option.map x.targetTime ~f:SlaTargetTime.to_value));
        ("completionTime",
          (Option.map x.completionTime ~f:SlaCompletionTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completionTime =
        (Option.map ~f:SlaCompletionTime.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      let targetTime =
        (Option.map ~f:SlaTargetTime.of_xml)
          (Xml.child xml_arg0 "targetTime") in
      let targetFieldValues =
        (Option.map ~f:SlaFieldValueUnionList.of_xml)
          (Xml.child xml_arg0 "targetFieldValues") in
      let fieldId =
        (Option.map ~f:FieldId.of_xml) (Xml.child xml_arg0 "fieldId") in
      let status =
        (Option.map ~f:SlaStatus.of_xml) (Xml.child xml_arg0 "status") in
      let type_ = (Option.map ~f:SlaType.of_xml) (Xml.child xml_arg0 "type") in
      let name = (Option.map ~f:SlaName.of_xml) (Xml.child xml_arg0 "name") in
      make ?completionTime ?targetTime ?targetFieldValues ?fieldId ?status
        ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completionTime =
        field_map json__ "completionTime" SlaCompletionTime.of_json in
      let targetTime = field_map json__ "targetTime" SlaTargetTime.of_json in
      let targetFieldValues =
        field_map json__ "targetFieldValues" SlaFieldValueUnionList.of_json in
      let fieldId = field_map json__ "fieldId" FieldId.of_json in
      let status = field_map json__ "status" SlaStatus.of_json in
      let type_ = field_map json__ "type" SlaType.of_json in
      let name = field_map json__ "name" SlaName.of_json in
      make ?completionTime ?targetTime ?targetFieldValues ?fieldId ?status
        ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents an SLA configuration."]
module SlaContent =
  struct
    type nonrec t =
      {
      slaConfiguration: SlaConfiguration.t option
        [@ocaml.doc "Represents an SLA configuration."]}
    let make ?slaConfiguration = fun () -> { slaConfiguration }
    let to_value x =
      structure_to_value
        [("slaConfiguration",
           (Option.map x.slaConfiguration ~f:SlaConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let slaConfiguration =
        (Option.map ~f:SlaConfiguration.of_xml)
          (Xml.child xml_arg0 "slaConfiguration") in
      make ?slaConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let slaConfiguration =
        field_map json__ "slaConfiguration" SlaConfiguration.of_json in
      make ?slaConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the content of an SLA to be returned to agents."]
module RelatedItemContent =
  struct
    type nonrec t =
      {
      contact: ContactContent.t option
        [@ocaml.doc
          "Represents the content of a contact to be returned to agents."];
      comment: CommentContent.t option
        [@ocaml.doc
          "Represents the content of a comment to be returned to agents."];
      file: FileContent.t option
        [@ocaml.doc
          "Represents the content of a File to be returned to agents."];
      sla: SlaContent.t option
        [@ocaml.doc
          "Represents the content of an SLA to be returned to agents."];
      connectCase: ConnectCaseContent.t option
        [@ocaml.doc
          "Represents the Amazon Connect case to be created as a related item."];
      custom: CustomContent.t option
        [@ocaml.doc "Represents the content of a Custom type related item."]}
    let make ?contact =
      fun ?comment ->
        fun ?file ->
          fun ?sla ->
            fun ?connectCase ->
              fun ?custom ->
                fun () ->
                  { contact; comment; file; sla; connectCase; custom }
    let to_value x =
      structure_to_value
        [("contact", (Option.map x.contact ~f:ContactContent.to_value));
        ("comment", (Option.map x.comment ~f:CommentContent.to_value));
        ("file", (Option.map x.file ~f:FileContent.to_value));
        ("sla", (Option.map x.sla ~f:SlaContent.to_value));
        ("connectCase",
          (Option.map x.connectCase ~f:ConnectCaseContent.to_value));
        ("custom", (Option.map x.custom ~f:CustomContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let custom =
        (Option.map ~f:CustomContent.of_xml) (Xml.child xml_arg0 "custom") in
      let connectCase =
        (Option.map ~f:ConnectCaseContent.of_xml)
          (Xml.child xml_arg0 "connectCase") in
      let sla = (Option.map ~f:SlaContent.of_xml) (Xml.child xml_arg0 "sla") in
      let file =
        (Option.map ~f:FileContent.of_xml) (Xml.child xml_arg0 "file") in
      let comment =
        (Option.map ~f:CommentContent.of_xml) (Xml.child xml_arg0 "comment") in
      let contact =
        (Option.map ~f:ContactContent.of_xml) (Xml.child xml_arg0 "contact") in
      make ?custom ?connectCase ?sla ?file ?comment ?contact ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let custom = field_map json__ "custom" CustomContent.of_json in
      let connectCase =
        field_map json__ "connectCase" ConnectCaseContent.of_json in
      let sla = field_map json__ "sla" SlaContent.of_json in
      let file = field_map json__ "file" FileContent.of_json in
      let comment = field_map json__ "comment" CommentContent.of_json in
      let contact = field_map json__ "contact" ContactContent.of_json in
      make ?custom ?connectCase ?sla ?file ?comment ?contact ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the content of a particular type of related item."]
module SlaFilter =
  struct
    type nonrec t =
      {
      name: SlaName.t option [@ocaml.doc "Name of an SLA."];
      status: SlaStatus.t option [@ocaml.doc "Status of an SLA."]}
    let make ?name = fun ?status -> fun () -> { name; status }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:SlaName.to_value));
        ("status", (Option.map x.status ~f:SlaStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:SlaStatus.of_xml) (Xml.child xml_arg0 "status") in
      let name = (Option.map ~f:SlaName.of_xml) (Xml.child xml_arg0 "name") in
      make ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" SlaStatus.of_json in
      let name = field_map json__ "name" SlaName.of_json in
      make ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A filter for related items of type SLA."]
module RelatedItemTypeFilter =
  struct
    type nonrec t =
      {
      contact: ContactFilter.t option
        [@ocaml.doc "A filter for related items of type Contact."];
      comment: CommentFilter.t option
        [@ocaml.doc "A filter for related items of type Comment."];
      file: FileFilter.t option
        [@ocaml.doc "A filter for related items of this type of File."];
      sla: SlaFilter.t option
        [@ocaml.doc "Filter for related items of type SLA."];
      connectCase: ConnectCaseFilter.t option
        [@ocaml.doc
          "Represents the Amazon Connect case to be created as a related item."];
      custom: CustomFilter.t option
        [@ocaml.doc "Represents the content of a Custom type related item."]}
    let make ?contact =
      fun ?comment ->
        fun ?file ->
          fun ?sla ->
            fun ?connectCase ->
              fun ?custom ->
                fun () ->
                  { contact; comment; file; sla; connectCase; custom }
    let to_value x =
      structure_to_value
        [("contact", (Option.map x.contact ~f:ContactFilter.to_value));
        ("comment", (Option.map x.comment ~f:CommentFilter.to_value));
        ("file", (Option.map x.file ~f:FileFilter.to_value));
        ("sla", (Option.map x.sla ~f:SlaFilter.to_value));
        ("connectCase",
          (Option.map x.connectCase ~f:ConnectCaseFilter.to_value));
        ("custom", (Option.map x.custom ~f:CustomFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let custom =
        (Option.map ~f:CustomFilter.of_xml) (Xml.child xml_arg0 "custom") in
      let connectCase =
        (Option.map ~f:ConnectCaseFilter.of_xml)
          (Xml.child xml_arg0 "connectCase") in
      let sla = (Option.map ~f:SlaFilter.of_xml) (Xml.child xml_arg0 "sla") in
      let file =
        (Option.map ~f:FileFilter.of_xml) (Xml.child xml_arg0 "file") in
      let comment =
        (Option.map ~f:CommentFilter.of_xml) (Xml.child xml_arg0 "comment") in
      let contact =
        (Option.map ~f:ContactFilter.of_xml) (Xml.child xml_arg0 "contact") in
      make ?custom ?connectCase ?sla ?file ?comment ?contact ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let custom = field_map json__ "custom" CustomFilter.of_json in
      let connectCase =
        field_map json__ "connectCase" ConnectCaseFilter.of_json in
      let sla = field_map json__ "sla" SlaFilter.of_json in
      let file = field_map json__ "file" FileFilter.of_json in
      let comment = field_map json__ "comment" CommentFilter.of_json in
      let contact = field_map json__ "contact" ContactFilter.of_json in
      make ?custom ?connectCase ?sla ?file ?comment ?contact ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of types of related items and their parameters to use for filtering."]
module RelatedItemUpdateContent =
  struct
    type nonrec t =
      {
      comment: CommentUpdateContent.t option ;
      custom: CustomUpdateContent.t option }
    let make ?comment = fun ?custom -> fun () -> { comment; custom }
    let to_value x =
      structure_to_value
        [("comment", (Option.map x.comment ~f:CommentUpdateContent.to_value));
        ("custom", (Option.map x.custom ~f:CustomUpdateContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let custom =
        (Option.map ~f:CustomUpdateContent.of_xml)
          (Xml.child xml_arg0 "custom") in
      let comment =
        (Option.map ~f:CommentUpdateContent.of_xml)
          (Xml.child xml_arg0 "comment") in
      make ?custom ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let custom = field_map json__ "custom" CustomUpdateContent.of_json in
      let comment = field_map json__ "comment" CommentUpdateContent.of_json in
      make ?custom ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the content of a related item to be updated. This is a union type that can contain either comment content or custom content."]
module SearchAllRelatedItemsSortProperty =
  struct
    type nonrec t =
      | AssociationTime 
      | CaseId 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AssociationTime -> "AssociationTime"
      | CaseId -> "CaseId"
      | Non_static_id s -> s
    let of_string =
      function
      | "AssociationTime" -> AssociationTime
      | "CaseId" -> CaseId
      | 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 SearchAllRelatedItemsSortProperty"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SearchAllRelatedItemsSortProperty" j)
    let to_json = simple_to_json to_value
  end
module SearchAllRelatedItemsSort =
  struct
    type nonrec t =
      {
      sortProperty: SearchAllRelatedItemsSortProperty.t
        [@ocaml.doc
          "Whether related items should be sorted in ascending or descending order."];
      sortOrder: Order.t
        [@ocaml.doc
          "Whether related items should be sorted by association time or case ID."]}
    let context_ = "SearchAllRelatedItemsSort"
    let make ~sortProperty =
      fun ~sortOrder -> fun () -> { sortProperty; sortOrder }
    let to_value x =
      structure_to_value
        [("sortProperty",
           (Some (SearchAllRelatedItemsSortProperty.to_value x.sortProperty)));
        ("sortOrder", (Some (Order.to_value x.sortOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        Order.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      let sortProperty =
        SearchAllRelatedItemsSortProperty.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortProperty") in
      make ~sortOrder ~sortProperty ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map_exn json__ "sortOrder" Order.of_json in
      let sortProperty =
        field_map_exn json__ "sortProperty"
          SearchAllRelatedItemsSortProperty.of_json in
      make ~sortOrder ~sortProperty ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The order in which all returned related items should be sorted."]
module SearchAllRelatedItemsRequestSortsList =
  struct
    type nonrec t = SearchAllRelatedItemsSort.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchAllRelatedItemsSort.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:SearchAllRelatedItemsSort.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchAllRelatedItemsRequestSortsList"
        ~of_json:SearchAllRelatedItemsSort.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchAllRelatedItemsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 SearchAllRelatedItemsRequestMaxResultsInteger"
           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 SearchAllRelatedItemsRequestFiltersList =
  struct
    type nonrec t = RelatedItemTypeFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RelatedItemTypeFilter.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:RelatedItemTypeFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchAllRelatedItemsRequestFiltersList"
        ~of_json:RelatedItemTypeFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchAllRelatedItemsRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      maxResults: SearchAllRelatedItemsRequestMaxResultsInteger.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."];
      filters: SearchAllRelatedItemsRequestFiltersList.t option
        [@ocaml.doc
          "The list of types of related items and their parameters to use for filtering. The filters work as an OR condition: caller gets back related items that match any of the specified filter types."];
      sorts: SearchAllRelatedItemsRequestSortsList.t option
        [@ocaml.doc
          "A structured set of sort terms to specify the order in which related items should be returned. Supports sorting by association time or case ID. The sorts work in the order specified: first sort term takes precedence over subsequent terms."]}
    let context_ = "SearchAllRelatedItemsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ?sorts ->
            fun ~domainId ->
              fun () -> { maxResults; nextToken; filters; sorts; domainId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:SearchAllRelatedItemsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("filters",
          (Option.map x.filters
             ~f:SearchAllRelatedItemsRequestFiltersList.to_value));
        ("sorts",
          (Option.map x.sorts
             ~f:SearchAllRelatedItemsRequestSortsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sorts =
        (Option.map ~f:SearchAllRelatedItemsRequestSortsList.of_xml)
          (Xml.child xml_arg0 "sorts") in
      let filters =
        (Option.map ~f:SearchAllRelatedItemsRequestFiltersList.of_xml)
          (Xml.child xml_arg0 "filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:SearchAllRelatedItemsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?sorts ?filters ?nextToken ?maxResults ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sorts =
        field_map json__ "sorts"
          SearchAllRelatedItemsRequestSortsList.of_json in
      let filters =
        field_map json__ "filters"
          SearchAllRelatedItemsRequestFiltersList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          SearchAllRelatedItemsRequestMaxResultsInteger.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?sorts ?filters ?nextToken ?maxResults ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for related items across all cases within a domain. This is a global search operation that returns related items from multiple cases, unlike the case-specific SearchRelatedItems API. Use cases Following are common uses cases for this API: Find cases with similar issues across the domain. For example, search for all cases containing comments about \"product defect\" to identify patterns and existing solutions. Locate all cases associated with specific contacts or orders. For example, find all cases linked to a contactArn to understand the complete customer journey. Monitor SLA compliance across cases. For example, search for all cases with \"Active\" SLA status to prioritize remediation efforts. Important things to know This API returns case identifiers, not complete case objects. To retrieve full case details, you must make additional calls to the GetCase API for each returned case ID. This API searches across related items content, not case fields. Use the SearchCases API to search within case field values. Endpoints: See Amazon Connect endpoints and quotas."]
module SearchAllRelatedItemsResponseItem =
  struct
    type nonrec t =
      {
      relatedItemId: RelatedItemId.t option
        [@ocaml.doc "Unique identifier of a related item."];
      caseId: CaseId.t option [@ocaml.doc "A unique identifier of the case."];
      type_: RelatedItemType.t option [@ocaml.doc "Type of a related item."];
      associationTime: AssociationTime.t option
        [@ocaml.doc
          "Time at which a related item was associated with a case."];
      content: RelatedItemContent.t option ;
      performedBy: UserUnion.t option ;
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    let make ?relatedItemId =
      fun ?caseId ->
        fun ?type_ ->
          fun ?associationTime ->
            fun ?content ->
              fun ?performedBy ->
                fun ?tags ->
                  fun () ->
                    {
                      relatedItemId;
                      caseId;
                      type_;
                      associationTime;
                      content;
                      performedBy;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("relatedItemId",
           (Option.map x.relatedItemId ~f:RelatedItemId.to_value));
        ("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("type", (Option.map x.type_ ~f:RelatedItemType.to_value));
        ("associationTime",
          (Option.map x.associationTime ~f:AssociationTime.to_value));
        ("content", (Option.map x.content ~f:RelatedItemContent.to_value));
        ("performedBy", (Option.map x.performedBy ~f:UserUnion.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let performedBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "performedBy") in
      let content =
        (Option.map ~f:RelatedItemContent.of_xml)
          (Xml.child xml_arg0 "content") in
      let associationTime =
        (Option.map ~f:AssociationTime.of_xml)
          (Xml.child xml_arg0 "associationTime") in
      let type_ =
        (Option.map ~f:RelatedItemType.of_xml) (Xml.child xml_arg0 "type") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      let relatedItemId =
        (Option.map ~f:RelatedItemId.of_xml)
          (Xml.child xml_arg0 "relatedItemId") in
      make ?tags ?performedBy ?content ?associationTime ?type_ ?caseId
        ?relatedItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let performedBy = field_map json__ "performedBy" UserUnion.of_json in
      let content = field_map json__ "content" RelatedItemContent.of_json in
      let associationTime =
        field_map json__ "associationTime" AssociationTime.of_json in
      let type_ = field_map json__ "type" RelatedItemType.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      let relatedItemId =
        field_map json__ "relatedItemId" RelatedItemId.of_json in
      make ?tags ?performedBy ?content ?associationTime ?type_ ?caseId
        ?relatedItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of items that represent RelatedItems. This data type is similar to SearchRelatedItemsResponseItem except SearchAllRelatedItemsResponseItem has a caseId field."]
module SearchAllRelatedItemsResponseRelatedItemsList =
  struct
    type nonrec t = SearchAllRelatedItemsResponseItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchAllRelatedItemsResponseItem.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:SearchAllRelatedItemsResponseItem.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchAllRelatedItemsResponseRelatedItemsList"
        ~of_json:SearchAllRelatedItemsResponseItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchAllRelatedItemsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."];
      relatedItems: SearchAllRelatedItemsResponseRelatedItemsList.t option
        [@ocaml.doc "A list of items related to a case."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?relatedItems -> fun () -> { nextToken; relatedItems }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("relatedItems",
          (Option.map x.relatedItems
             ~f:SearchAllRelatedItemsResponseRelatedItemsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedItems =
        (Option.map ~f:SearchAllRelatedItemsResponseRelatedItemsList.of_xml)
          (Xml.child xml_arg0 "relatedItems") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?relatedItems ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedItems =
        field_map json__ "relatedItems"
          SearchAllRelatedItemsResponseRelatedItemsList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?relatedItems ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for related items across all cases within a domain. This is a global search operation that returns related items from multiple cases, unlike the case-specific SearchRelatedItems API. Use cases Following are common uses cases for this API: Find cases with similar issues across the domain. For example, search for all cases containing comments about \"product defect\" to identify patterns and existing solutions. Locate all cases associated with specific contacts or orders. For example, find all cases linked to a contactArn to understand the complete customer journey. Monitor SLA compliance across cases. For example, search for all cases with \"Active\" SLA status to prioritize remediation efforts. Important things to know This API returns case identifiers, not complete case objects. To retrieve full case details, you must make additional calls to the GetCase API for each returned case ID. This API searches across related items content, not case fields. Use the SearchCases API to search within case field values. Endpoints: See Amazon Connect endpoints and quotas."]
module Sort =
  struct
    type nonrec t =
      {
      fieldId: FieldId.t [@ocaml.doc "Unique identifier of a field."];
      sortOrder: Order.t [@ocaml.doc "A structured set of sort terms"]}
    let context_ = "Sort"
    let make ~fieldId = fun ~sortOrder -> fun () -> { fieldId; sortOrder }
    let to_value x =
      structure_to_value
        [("fieldId", (Some (FieldId.to_value x.fieldId)));
        ("sortOrder", (Some (Order.to_value x.sortOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        Order.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      let fieldId =
        FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fieldId") in
      make ~sortOrder ~fieldId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder = field_map_exn json__ "sortOrder" Order.of_json in
      let fieldId = field_map_exn json__ "fieldId" FieldId.of_json in
      make ~sortOrder ~fieldId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structured set of sort terms."]
module SearchCasesRequestSortsList =
  struct
    type nonrec t = Sort.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Sort.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:Sort.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchCasesRequestSortsList" ~of_json:Sort.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SearchCasesRequestSearchTermString =
  struct
    type nonrec t = string
    let context_ = "SearchCasesRequestSearchTermString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"SearchCasesRequestSearchTermString" j
    let to_json = simple_to_json to_value
  end
module SearchCasesRequestMaxResultsInteger =
  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 SearchCasesRequestMaxResultsInteger"
           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 SearchCasesRequestFieldsList =
  struct
    type nonrec t = FieldIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldIdentifier.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:FieldIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchCasesRequestFieldsList"
        ~of_json:FieldIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchCasesRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      maxResults: SearchCasesRequestMaxResultsInteger.t option
        [@ocaml.doc
          "The maximum number of cases to return. When no value is provided, 25 is the default."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."];
      searchTerm: SearchCasesRequestSearchTermString.t option
        [@ocaml.doc "A word or phrase used to perform a quick search."];
      filter: CaseFilter.t option [@ocaml.doc "A list of filter objects."];
      sorts: SearchCasesRequestSortsList.t option
        [@ocaml.doc
          "A list of sorts where each sort specifies a field and their sort order to be applied to the results."];
      fields: SearchCasesRequestFieldsList.t option
        [@ocaml.doc
          "The list of field identifiers to be returned as part of the response."]}
    let context_ = "SearchCasesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?searchTerm ->
          fun ?filter ->
            fun ?sorts ->
              fun ?fields ->
                fun ~domainId ->
                  fun () ->
                    {
                      maxResults;
                      nextToken;
                      searchTerm;
                      filter;
                      sorts;
                      fields;
                      domainId
                    }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:SearchCasesRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("searchTerm",
          (Option.map x.searchTerm
             ~f:SearchCasesRequestSearchTermString.to_value));
        ("filter", (Option.map x.filter ~f:CaseFilter.to_value));
        ("sorts",
          (Option.map x.sorts ~f:SearchCasesRequestSortsList.to_value));
        ("fields",
          (Option.map x.fields ~f:SearchCasesRequestFieldsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:SearchCasesRequestFieldsList.of_xml)
          (Xml.child xml_arg0 "fields") in
      let sorts =
        (Option.map ~f:SearchCasesRequestSortsList.of_xml)
          (Xml.child xml_arg0 "sorts") in
      let filter =
        (Option.map ~f:CaseFilter.of_xml) (Xml.child xml_arg0 "filter") in
      let searchTerm =
        (Option.map ~f:SearchCasesRequestSearchTermString.of_xml)
          (Xml.child xml_arg0 "searchTerm") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:SearchCasesRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?fields ?sorts ?filter ?searchTerm ?nextToken ?maxResults
        ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "fields" SearchCasesRequestFieldsList.of_json in
      let sorts =
        field_map json__ "sorts" SearchCasesRequestSortsList.of_json in
      let filter = field_map json__ "filter" CaseFilter.of_json in
      let searchTerm =
        field_map json__ "searchTerm"
          SearchCasesRequestSearchTermString.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          SearchCasesRequestMaxResultsInteger.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?fields ?sorts ?filter ?searchTerm ?nextToken ?maxResults
        ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for cases within their associated Cases domain. Search results are returned as a paginated list of abridged case documents. For customer_id you must provide the full customer profile ARN in this format: arn:aws:profile:your AWS Region:your AWS account ID:domains/profiles domain name/profiles/profile ID."]
module TotalCount =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module SearchCasesResponseItemFieldsList =
  struct
    type nonrec t = FieldValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchCasesResponseItemFieldsList"
        ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchCasesResponseItem =
  struct
    type nonrec t =
      {
      caseId: CaseId.t option [@ocaml.doc "A unique identifier of the case."];
      templateId: TemplateId.t option
        [@ocaml.doc "A unique identifier of a template."];
      fields: SearchCasesResponseItemFieldsList.t option
        [@ocaml.doc "List of case field values."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    let make ?caseId =
      fun ?templateId ->
        fun ?fields ->
          fun ?tags -> fun () -> { caseId; templateId; fields; tags }
    let to_value x =
      structure_to_value
        [("caseId", (Option.map x.caseId ~f:CaseId.to_value));
        ("templateId", (Option.map x.templateId ~f:TemplateId.to_value));
        ("fields",
          (Option.map x.fields ~f:SearchCasesResponseItemFieldsList.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let fields =
        (Option.map ~f:SearchCasesResponseItemFieldsList.of_xml)
          (Xml.child xml_arg0 "fields") in
      let templateId =
        (Option.map ~f:TemplateId.of_xml) (Xml.child xml_arg0 "templateId") in
      let caseId =
        (Option.map ~f:CaseId.of_xml) (Xml.child xml_arg0 "caseId") in
      make ?tags ?fields ?templateId ?caseId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in
      let fields =
        field_map json__ "fields" SearchCasesResponseItemFieldsList.of_json in
      let templateId = field_map json__ "templateId" TemplateId.of_json in
      let caseId = field_map json__ "caseId" CaseId.of_json in
      make ?tags ?fields ?templateId ?caseId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of items that represent cases."]
module SearchCasesResponseCasesList =
  struct
    type nonrec t = SearchCasesResponseItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchCasesResponseItem.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:SearchCasesResponseItem.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchCasesResponseCasesList"
        ~of_json:SearchCasesResponseItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchCasesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."];
      cases: SearchCasesResponseCasesList.t option
        [@ocaml.doc
          "A list of case documents where each case contains the properties CaseId and Fields where each field is a complex union structure."];
      totalCount: TotalCount.t option
        [@ocaml.doc
          "The total number of cases that matched the search criteria."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?cases ->
        fun ?totalCount -> fun () -> { nextToken; cases; totalCount }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("cases",
          (Option.map x.cases ~f:SearchCasesResponseCasesList.to_value));
        ("totalCount", (Option.map x.totalCount ~f:TotalCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalCount =
        (Option.map ~f:TotalCount.of_xml) (Xml.child xml_arg0 "totalCount") in
      let cases =
        (Option.map ~f:SearchCasesResponseCasesList.of_xml)
          (Xml.child xml_arg0 "cases") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?totalCount ?cases ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalCount = field_map json__ "totalCount" TotalCount.of_json in
      let cases =
        field_map json__ "cases" SearchCasesResponseCasesList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?totalCount ?cases ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for cases within their associated Cases domain. Search results are returned as a paginated list of abridged case documents. For customer_id you must provide the full customer profile ARN in this format: arn:aws:profile:your AWS Region:your AWS account ID:domains/profiles domain name/profiles/profile ID."]
module SearchRelatedItemsRequestMaxResultsInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (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 SearchRelatedItemsRequestMaxResultsInteger"
           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 SearchRelatedItemsRequestFiltersList =
  struct
    type nonrec t = RelatedItemTypeFilter.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:RelatedItemTypeFilter.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:RelatedItemTypeFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchRelatedItemsRequestFiltersList"
        ~of_json:RelatedItemTypeFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchRelatedItemsRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      maxResults: SearchRelatedItemsRequestMaxResultsInteger.t option
        [@ocaml.doc "The maximum number of results to return per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. Use the value returned in the previous response in the next request to retrieve the next set of results."];
      filters: SearchRelatedItemsRequestFiltersList.t option
        [@ocaml.doc
          "The list of types of related items and their parameters to use for filtering."]}
    let context_ = "SearchRelatedItemsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ?filters ->
          fun ~domainId ->
            fun ~caseId ->
              fun () -> { maxResults; nextToken; filters; domainId; caseId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseId", (Some (CaseId.to_value x.caseId)));
        ("maxResults",
          (Option.map x.maxResults
             ~f:SearchRelatedItemsRequestMaxResultsInteger.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("filters",
          (Option.map x.filters
             ~f:SearchRelatedItemsRequestFiltersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filters =
        (Option.map ~f:SearchRelatedItemsRequestFiltersList.of_xml)
          (Xml.child xml_arg0 "filters") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:SearchRelatedItemsRequestMaxResultsInteger.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?filters ?nextToken ?maxResults ~caseId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filters =
        field_map json__ "filters"
          SearchRelatedItemsRequestFiltersList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults =
        field_map json__ "maxResults"
          SearchRelatedItemsRequestMaxResultsInteger.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?filters ?nextToken ?maxResults ~caseId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for related items that are associated with a case. If no filters are provided, this returns all related items associated with a case."]
module SearchRelatedItemsResponseItem =
  struct
    type nonrec t =
      {
      relatedItemId: RelatedItemId.t option
        [@ocaml.doc "Unique identifier of a related item."];
      type_: RelatedItemType.t option [@ocaml.doc "Type of a related item."];
      associationTime: AssociationTime.t option
        [@ocaml.doc
          "Time at which a related item was associated with a case."];
      content: RelatedItemContent.t option
        [@ocaml.doc
          "Represents the content of a particular type of related item."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."];
      performedBy: UserUnion.t option
        [@ocaml.doc "Represents the creator of the related item."]}
    let make ?relatedItemId =
      fun ?type_ ->
        fun ?associationTime ->
          fun ?content ->
            fun ?tags ->
              fun ?performedBy ->
                fun () ->
                  {
                    relatedItemId;
                    type_;
                    associationTime;
                    content;
                    tags;
                    performedBy
                  }
    let to_value x =
      structure_to_value
        [("relatedItemId",
           (Option.map x.relatedItemId ~f:RelatedItemId.to_value));
        ("type", (Option.map x.type_ ~f:RelatedItemType.to_value));
        ("associationTime",
          (Option.map x.associationTime ~f:AssociationTime.to_value));
        ("content", (Option.map x.content ~f:RelatedItemContent.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("performedBy", (Option.map x.performedBy ~f:UserUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performedBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "performedBy") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let content =
        (Option.map ~f:RelatedItemContent.of_xml)
          (Xml.child xml_arg0 "content") in
      let associationTime =
        (Option.map ~f:AssociationTime.of_xml)
          (Xml.child xml_arg0 "associationTime") in
      let type_ =
        (Option.map ~f:RelatedItemType.of_xml) (Xml.child xml_arg0 "type") in
      let relatedItemId =
        (Option.map ~f:RelatedItemId.of_xml)
          (Xml.child xml_arg0 "relatedItemId") in
      make ?performedBy ?tags ?content ?associationTime ?type_ ?relatedItemId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performedBy = field_map json__ "performedBy" UserUnion.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let content = field_map json__ "content" RelatedItemContent.of_json in
      let associationTime =
        field_map json__ "associationTime" AssociationTime.of_json in
      let type_ = field_map json__ "type" RelatedItemType.of_json in
      let relatedItemId =
        field_map json__ "relatedItemId" RelatedItemId.of_json in
      make ?performedBy ?tags ?content ?associationTime ?type_ ?relatedItemId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A list of items that represent RelatedItems."]
module SearchRelatedItemsResponseRelatedItemsList =
  struct
    type nonrec t = SearchRelatedItemsResponseItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchRelatedItemsResponseItem.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:SearchRelatedItemsResponseItem.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchRelatedItemsResponseRelatedItemsList"
        ~of_json:SearchRelatedItemsResponseItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchRelatedItemsResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The token for the next set of results. This is null if there are no more results to return."];
      relatedItems: SearchRelatedItemsResponseRelatedItemsList.t option
        [@ocaml.doc "A list of items related to a case."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?relatedItems -> fun () -> { nextToken; relatedItems }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("relatedItems",
          (Option.map x.relatedItems
             ~f:SearchRelatedItemsResponseRelatedItemsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relatedItems =
        (Option.map ~f:SearchRelatedItemsResponseRelatedItemsList.of_xml)
          (Xml.child xml_arg0 "relatedItems") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?relatedItems ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relatedItems =
        field_map json__ "relatedItems"
          SearchRelatedItemsResponseRelatedItemsList.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?relatedItems ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches for related items that are associated with a case. If no filters are provided, this returns all related items associated with a case."]
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    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:"(?!aws:)[a-zA-Z+-=._:/]+")));
        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 TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagResourceRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t [@ocaml.doc "The Amazon Resource Name (ARN)"];
      tags: Tags.t
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."]}
    let context_ = "TagResourceRequest"
    let make ~arn = fun ~tags -> fun () -> { arn; tags }
    let to_value x =
      structure_to_value
        [("arn", (Some (Arn.to_value x.arn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~tags ~arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let arn = field_map_exn json__ "arn" Arn.of_json in make ~tags ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds tags to a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      arn: Arn.t [@ocaml.doc "The Amazon Resource Name (ARN)"];
      tagKeys: TagKeyList.t [@ocaml.doc "List of tag keys."]}
    let context_ = "UntagResourceRequest"
    let make ~arn = fun ~tagKeys -> fun () -> { arn; tagKeys }
    let to_value x =
      structure_to_value
        [("arn", (Some (Arn.to_value x.arn)));
        ("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 arn = Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "arn") in
      make ~tagKeys ~arn ()
    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 arn = field_map_exn json__ "arn" Arn.of_json in
      make ~tagKeys ~arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Untags a resource."]
module UpdateCaseRequestFieldsList =
  struct
    type nonrec t = FieldValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:220) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FieldValue.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:FieldValue.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateCaseRequestFieldsList"
        ~of_json:FieldValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateCaseRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      fields: UpdateCaseRequestFieldsList.t
        [@ocaml.doc
          "An array of objects with fieldId (matching ListFields/DescribeField) and value union data, structured identical to CreateCase."];
      performedBy: UserUnion.t option }
    let context_ = "UpdateCaseRequest"
    let make ?performedBy =
      fun ~domainId ->
        fun ~caseId ->
          fun ~fields -> fun () -> { performedBy; domainId; caseId; fields }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseId", (Some (CaseId.to_value x.caseId)));
        ("fields", (Some (UpdateCaseRequestFieldsList.to_value x.fields)));
        ("performedBy", (Option.map x.performedBy ~f:UserUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performedBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "performedBy") in
      let fields =
        UpdateCaseRequestFieldsList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?performedBy ~fields ~caseId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performedBy = field_map json__ "performedBy" UserUnion.of_json in
      let fields =
        field_map_exn json__ "fields" UpdateCaseRequestFieldsList.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?performedBy ~fields ~caseId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If you provide a value for PerformedBy.UserArn you must also have connect:DescribeUser permission on the User ARN resource that you provide Updates the values of fields on a case. Fields to be updated are received as an array of id/value pairs identical to the CreateCase input . If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module UpdateCaseResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If you provide a value for PerformedBy.UserArn you must also have connect:DescribeUser permission on the User ARN resource that you provide Updates the values of fields on a case. Fields to be updated are received as an array of id/value pairs identical to the CreateCase input . If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body."]
module UpdateCaseRuleRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "Unique identifier of a Cases domain."];
      caseRuleId: CaseRuleId.t
        [@ocaml.doc "Unique identifier of a case rule."];
      name: CaseRuleName.t option [@ocaml.doc "Name of the case rule."];
      description: CaseRuleDescription.t option
        [@ocaml.doc "Description of a case rule."];
      rule: CaseRuleDetails.t option
        [@ocaml.doc
          "Represents what rule type should take place, under what conditions."]}
    let context_ = "UpdateCaseRuleRequest"
    let make ?name =
      fun ?description ->
        fun ?rule ->
          fun ~domainId ->
            fun ~caseRuleId ->
              fun () -> { name; description; rule; domainId; caseRuleId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseRuleId", (Some (CaseRuleId.to_value x.caseRuleId)));
        ("name", (Option.map x.name ~f:CaseRuleName.to_value));
        ("description",
          (Option.map x.description ~f:CaseRuleDescription.to_value));
        ("rule", (Option.map x.rule ~f:CaseRuleDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rule =
        (Option.map ~f:CaseRuleDetails.of_xml) (Xml.child xml_arg0 "rule") in
      let description =
        (Option.map ~f:CaseRuleDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:CaseRuleName.of_xml) (Xml.child xml_arg0 "name") in
      let caseRuleId =
        CaseRuleId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "caseRuleId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?rule ?description ?name ~caseRuleId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rule = field_map json__ "rule" CaseRuleDetails.of_json in
      let description =
        field_map json__ "description" CaseRuleDescription.of_json in
      let name = field_map json__ "name" CaseRuleName.of_json in
      let caseRuleId = field_map_exn json__ "caseRuleId" CaseRuleId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?rule ?description ?name ~caseRuleId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module UpdateCaseRuleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Updates a case rule. In the Amazon Connect admin website, case rules are known as case field conditions. For more information about case field conditions, see Add case field conditions to a case template."]
module UpdateFieldRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      fieldId: FieldId.t [@ocaml.doc "The unique identifier of a field."];
      name: FieldName.t option [@ocaml.doc "The name of the field."];
      description: FieldDescription.t option
        [@ocaml.doc "The description of a field."];
      attributes: FieldAttributes.t option
        [@ocaml.doc "Union of field attributes."]}
    let context_ = "UpdateFieldRequest"
    let make ?name =
      fun ?description ->
        fun ?attributes ->
          fun ~domainId ->
            fun ~fieldId ->
              fun () -> { name; description; attributes; domainId; fieldId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("fieldId", (Some (FieldId.to_value x.fieldId)));
        ("name", (Option.map x.name ~f:FieldName.to_value));
        ("description",
          (Option.map x.description ~f:FieldDescription.to_value));
        ("attributes", (Option.map x.attributes ~f:FieldAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributes =
        (Option.map ~f:FieldAttributes.of_xml)
          (Xml.child xml_arg0 "attributes") in
      let description =
        (Option.map ~f:FieldDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name = (Option.map ~f:FieldName.of_xml) (Xml.child xml_arg0 "name") in
      let fieldId =
        FieldId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fieldId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?attributes ?description ?name ~fieldId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributes = field_map json__ "attributes" FieldAttributes.of_json in
      let description =
        field_map json__ "description" FieldDescription.of_json in
      let name = field_map json__ "name" FieldName.of_json in
      let fieldId = field_map_exn json__ "fieldId" FieldId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?attributes ?description ?name ~fieldId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of an existing field."]
module UpdateFieldResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the properties of an existing field."]
module UpdateLayoutRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      layoutId: LayoutId.t
        [@ocaml.doc "The unique identifier of the layout."];
      name: LayoutName.t option
        [@ocaml.doc "The name of the layout. It must be unique per domain."];
      content: LayoutContent.t option
        [@ocaml.doc
          "Information about which fields will be present in the layout, the order of the fields."]}
    let context_ = "UpdateLayoutRequest"
    let make ?name =
      fun ?content ->
        fun ~domainId ->
          fun ~layoutId -> fun () -> { name; content; domainId; layoutId }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("layoutId", (Some (LayoutId.to_value x.layoutId)));
        ("name", (Option.map x.name ~f:LayoutName.to_value));
        ("content", (Option.map x.content ~f:LayoutContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:LayoutContent.of_xml) (Xml.child xml_arg0 "content") in
      let name =
        (Option.map ~f:LayoutName.of_xml) (Xml.child xml_arg0 "name") in
      let layoutId =
        LayoutId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "layoutId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?content ?name ~layoutId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map json__ "content" LayoutContent.of_json in
      let name = field_map json__ "name" LayoutName.of_json in
      let layoutId = field_map_exn json__ "layoutId" LayoutId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?content ?name ~layoutId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the attributes of an existing layout. If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body. A ValidationException is returned when you add non-existent fieldIds to a layout. Title and Status fields cannot be part of layouts because they are not configurable."]
module UpdateLayoutResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Updates the attributes of an existing layout. If the action is successful, the service sends back an HTTP 200 response with an empty HTTP body. A ValidationException is returned when you add non-existent fieldIds to a layout. Title and Status fields cannot be part of layouts because they are not configurable."]
module UpdateRelatedItemRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      caseId: CaseId.t [@ocaml.doc "A unique identifier of the case."];
      relatedItemId: RelatedItemId.t
        [@ocaml.doc "Unique identifier of a related item."];
      content: RelatedItemUpdateContent.t
        [@ocaml.doc "The content of a related item to be updated."];
      performedBy: UserUnion.t option
        [@ocaml.doc
          "Represents the user who performed the update of the related item."]}
    let context_ = "UpdateRelatedItemRequest"
    let make ?performedBy =
      fun ~domainId ->
        fun ~caseId ->
          fun ~relatedItemId ->
            fun ~content ->
              fun () ->
                { performedBy; domainId; caseId; relatedItemId; content }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("caseId", (Some (CaseId.to_value x.caseId)));
        ("relatedItemId", (Some (RelatedItemId.to_value x.relatedItemId)));
        ("content", (Some (RelatedItemUpdateContent.to_value x.content)));
        ("performedBy", (Option.map x.performedBy ~f:UserUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let performedBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "performedBy") in
      let content =
        RelatedItemUpdateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let relatedItemId =
        RelatedItemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "relatedItemId") in
      let caseId =
        CaseId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "caseId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?performedBy ~content ~relatedItemId ~caseId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let performedBy = field_map json__ "performedBy" UserUnion.of_json in
      let content =
        field_map_exn json__ "content" RelatedItemUpdateContent.of_json in
      let relatedItemId =
        field_map_exn json__ "relatedItemId" RelatedItemId.of_json in
      let caseId = field_map_exn json__ "caseId" CaseId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?performedBy ~content ~relatedItemId ~caseId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the content of a related item associated with a case. The following related item types are supported: Comment - Update the text content of an existing comment Custom - Update the fields of a custom related item. You can add, modify, and remove fields from a custom related item. There's a quota for the number of fields allowed in a Custom type related item. See Amazon Connect Cases quotas. Important things to know When updating a Custom related item, all existing and new fields, and their associated values should be included in the request. Fields not included as part of this request will be removed. If you provide a value for performedBy.userArn you must also have DescribeUser permission on the ARN of the user that you provide. System case fields cannot be used in a custom related item. Endpoints: See Amazon Connect endpoints and quotas."]
module UpdateRelatedItemResponse =
  struct
    type nonrec t =
      {
      relatedItemId: RelatedItemId.t option
        [@ocaml.doc "The unique identifier of the updated related item."];
      relatedItemArn: RelatedItemArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated related item."];
      type_: RelatedItemType.t option
        [@ocaml.doc "Type of the updated related item."];
      content: RelatedItemContent.t option
        [@ocaml.doc "Represents the content of the updated related item."];
      associationTime: AssociationTime.t option
        [@ocaml.doc
          "Time at which the related item was associated with the case."];
      tags: Tags.t option
        [@ocaml.doc
          "A map of of key-value pairs that represent tags on a resource. Tags are used to organize, track, or control access for this resource."];
      lastUpdatedUser: UserUnion.t option
        [@ocaml.doc
          "Represents the last user that updated the related item."];
      createdBy: UserUnion.t option
        [@ocaml.doc "Represents the creator of the related item."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?relatedItemId =
      fun ?relatedItemArn ->
        fun ?type_ ->
          fun ?content ->
            fun ?associationTime ->
              fun ?tags ->
                fun ?lastUpdatedUser ->
                  fun ?createdBy ->
                    fun () ->
                      {
                        relatedItemId;
                        relatedItemArn;
                        type_;
                        content;
                        associationTime;
                        tags;
                        lastUpdatedUser;
                        createdBy
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("relatedItemId",
           (Option.map x.relatedItemId ~f:RelatedItemId.to_value));
        ("relatedItemArn",
          (Option.map x.relatedItemArn ~f:RelatedItemArn.to_value));
        ("type", (Option.map x.type_ ~f:RelatedItemType.to_value));
        ("content", (Option.map x.content ~f:RelatedItemContent.to_value));
        ("associationTime",
          (Option.map x.associationTime ~f:AssociationTime.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("lastUpdatedUser",
          (Option.map x.lastUpdatedUser ~f:UserUnion.to_value));
        ("createdBy", (Option.map x.createdBy ~f:UserUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdBy =
        (Option.map ~f:UserUnion.of_xml) (Xml.child xml_arg0 "createdBy") in
      let lastUpdatedUser =
        (Option.map ~f:UserUnion.of_xml)
          (Xml.child xml_arg0 "lastUpdatedUser") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let associationTime =
        (Option.map ~f:AssociationTime.of_xml)
          (Xml.child xml_arg0 "associationTime") in
      let content =
        (Option.map ~f:RelatedItemContent.of_xml)
          (Xml.child xml_arg0 "content") in
      let type_ =
        (Option.map ~f:RelatedItemType.of_xml) (Xml.child xml_arg0 "type") in
      let relatedItemArn =
        (Option.map ~f:RelatedItemArn.of_xml)
          (Xml.child xml_arg0 "relatedItemArn") in
      let relatedItemId =
        (Option.map ~f:RelatedItemId.of_xml)
          (Xml.child xml_arg0 "relatedItemId") in
      make ?createdBy ?lastUpdatedUser ?tags ?associationTime ?content ?type_
        ?relatedItemArn ?relatedItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdBy = field_map json__ "createdBy" UserUnion.of_json in
      let lastUpdatedUser =
        field_map json__ "lastUpdatedUser" UserUnion.of_json in
      let tags = field_map json__ "tags" Tags.of_json in
      let associationTime =
        field_map json__ "associationTime" AssociationTime.of_json in
      let content = field_map json__ "content" RelatedItemContent.of_json in
      let type_ = field_map json__ "type" RelatedItemType.of_json in
      let relatedItemArn =
        field_map json__ "relatedItemArn" RelatedItemArn.of_json in
      let relatedItemId =
        field_map json__ "relatedItemId" RelatedItemId.of_json in
      make ?createdBy ?lastUpdatedUser ?tags ?associationTime ?content ?type_
        ?relatedItemArn ?relatedItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the content of a related item associated with a case. The following related item types are supported: Comment - Update the text content of an existing comment Custom - Update the fields of a custom related item. You can add, modify, and remove fields from a custom related item. There's a quota for the number of fields allowed in a Custom type related item. See Amazon Connect Cases quotas. Important things to know When updating a Custom related item, all existing and new fields, and their associated values should be included in the request. Fields not included as part of this request will be removed. If you provide a value for performedBy.userArn you must also have DescribeUser permission on the ARN of the user that you provide. System case fields cannot be used in a custom related item. Endpoints: See Amazon Connect endpoints and quotas."]
module UpdateTemplateRequest =
  struct
    type nonrec t =
      {
      domainId: DomainId.t
        [@ocaml.doc "The unique identifier of the Cases domain."];
      templateId: TemplateId.t
        [@ocaml.doc "A unique identifier for the template."];
      name: TemplateName.t option
        [@ocaml.doc
          "The name of the template. It must be unique per domain."];
      description: TemplateDescription.t option
        [@ocaml.doc "A brief description of the template."];
      layoutConfiguration: LayoutConfiguration.t option
        [@ocaml.doc "Configuration of layouts associated to the template."];
      requiredFields: RequiredFieldList.t option
        [@ocaml.doc
          "A list of fields that must contain a value for a case to be successfully created with this template."];
      status: TemplateStatus.t option
        [@ocaml.doc "The status of the template."];
      rules: TemplateCaseRuleList.t option
        [@ocaml.doc
          "A list of case rules (also known as case field conditions) on a template."];
      tagPropagationConfigurations: TagPropagationConfigurationList.t option
        [@ocaml.doc
          "Defines tag propagation configuration for resources created within a domain. Tags specified here will be automatically applied to resources being created for the specified resource type."]}
    let context_ = "UpdateTemplateRequest"
    let make ?name =
      fun ?description ->
        fun ?layoutConfiguration ->
          fun ?requiredFields ->
            fun ?status ->
              fun ?rules ->
                fun ?tagPropagationConfigurations ->
                  fun ~domainId ->
                    fun ~templateId ->
                      fun () ->
                        {
                          name;
                          description;
                          layoutConfiguration;
                          requiredFields;
                          status;
                          rules;
                          tagPropagationConfigurations;
                          domainId;
                          templateId
                        }
    let to_value x =
      structure_to_value
        [("domainId", (Some (DomainId.to_value x.domainId)));
        ("templateId", (Some (TemplateId.to_value x.templateId)));
        ("name", (Option.map x.name ~f:TemplateName.to_value));
        ("description",
          (Option.map x.description ~f:TemplateDescription.to_value));
        ("layoutConfiguration",
          (Option.map x.layoutConfiguration ~f:LayoutConfiguration.to_value));
        ("requiredFields",
          (Option.map x.requiredFields ~f:RequiredFieldList.to_value));
        ("status", (Option.map x.status ~f:TemplateStatus.to_value));
        ("rules", (Option.map x.rules ~f:TemplateCaseRuleList.to_value));
        ("tagPropagationConfigurations",
          (Option.map x.tagPropagationConfigurations
             ~f:TagPropagationConfigurationList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagPropagationConfigurations =
        (Option.map ~f:TagPropagationConfigurationList.of_xml)
          (Xml.child xml_arg0 "tagPropagationConfigurations") in
      let rules =
        (Option.map ~f:TemplateCaseRuleList.of_xml)
          (Xml.child xml_arg0 "rules") in
      let status =
        (Option.map ~f:TemplateStatus.of_xml) (Xml.child xml_arg0 "status") in
      let requiredFields =
        (Option.map ~f:RequiredFieldList.of_xml)
          (Xml.child xml_arg0 "requiredFields") in
      let layoutConfiguration =
        (Option.map ~f:LayoutConfiguration.of_xml)
          (Xml.child xml_arg0 "layoutConfiguration") in
      let description =
        (Option.map ~f:TemplateDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:TemplateName.of_xml) (Xml.child xml_arg0 "name") in
      let templateId =
        TemplateId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "templateId") in
      let domainId =
        DomainId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "domainId") in
      make ?tagPropagationConfigurations ?rules ?status ?requiredFields
        ?layoutConfiguration ?description ?name ~templateId ~domainId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagPropagationConfigurations =
        field_map json__ "tagPropagationConfigurations"
          TagPropagationConfigurationList.of_json in
      let rules = field_map json__ "rules" TemplateCaseRuleList.of_json in
      let status = field_map json__ "status" TemplateStatus.of_json in
      let requiredFields =
        field_map json__ "requiredFields" RequiredFieldList.of_json in
      let layoutConfiguration =
        field_map json__ "layoutConfiguration" LayoutConfiguration.of_json in
      let description =
        field_map json__ "description" TemplateDescription.of_json in
      let name = field_map json__ "name" TemplateName.of_json in
      let templateId = field_map_exn json__ "templateId" TemplateId.of_json in
      let domainId = field_map_exn json__ "domainId" DomainId.of_json in
      make ?tagPropagationConfigurations ?rules ?status ?requiredFields
        ?layoutConfiguration ?description ?name ~templateId ~domainId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the attributes of an existing template. The template attributes that can be modified include name, description, layoutConfiguration, requiredFields, and status. At least one of these attributes must not be null. If a null value is provided for a given attribute, that attribute is ignored and its current value is preserved. Other template APIs are: CreateTemplate DeleteTemplate GetTemplate ListTemplates"]
module UpdateTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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
       "Updates the attributes of an existing template. The template attributes that can be modified include name, description, layoutConfiguration, requiredFields, and status. At least one of these attributes must not be null. If a null value is provided for a given attribute, that attribute is ignored and its current value is preserved. Other template APIs are: CreateTemplate DeleteTemplate GetTemplate ListTemplates"]