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.appfabric
let apiVersion = "2023-05-19"
let endpointPrefix = "appfabric"
let serviceFullName = "AppFabric"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String64 =
  struct
    type nonrec t = string
    let context_ = "String64"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String64" j
    let to_json = simple_to_json to_value
  end
module String120 =
  struct
    type nonrec t = string
    let context_ = "String120"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:120) >>=
             (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:"String120" j
    let to_json = simple_to_json to_value
  end
module String63 =
  struct
    type nonrec t = string
    let context_ = "String63"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:63) >>=
             (fun () -> check_string_min i ~min:3));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String63" j
    let to_json = simple_to_json to_value
  end
module FirehoseStream =
  struct
    type nonrec t =
      {
      streamName: String64.t
        [@ocaml.doc
          "The name of the Amazon Kinesis Data Firehose delivery stream."]}
    let context_ = "FirehoseStream"
    let make ~streamName = fun () -> { streamName }
    let to_value x =
      structure_to_value
        [("streamName", (Some (String64.to_value x.streamName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamName =
        String64.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "streamName") in
      make ~streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamName = field_map_exn json__ "streamName" String64.of_json in
      make ~streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an Amazon Kinesis Data Firehose delivery stream."]
module S3Bucket =
  struct
    type nonrec t =
      {
      bucketName: String63.t [@ocaml.doc "The name of the Amazon S3 bucket."];
      prefix: String120.t option [@ocaml.doc "The object key to use."]}
    let context_ = "S3Bucket"
    let make ?prefix = fun ~bucketName -> fun () -> { prefix; bucketName }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (String63.to_value x.bucketName)));
        ("prefix", (Option.map x.prefix ~f:String120.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        (Option.map ~f:String120.of_xml) (Xml.child xml_arg0 "prefix") in
      let bucketName =
        String63.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ?prefix ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map json__ "prefix" String120.of_json in
      let bucketName = field_map_exn json__ "bucketName" String63.of_json in
      make ?prefix ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an Amazon S3 bucket."]
module Destination =
  struct
    type nonrec t =
      {
      s3Bucket: S3Bucket.t option
        [@ocaml.doc "Contains information about an Amazon S3 bucket."];
      firehoseStream: FirehoseStream.t option
        [@ocaml.doc
          "Contains information about an Amazon Kinesis Data Firehose delivery stream."]}
    let make ?s3Bucket =
      fun ?firehoseStream -> fun () -> { s3Bucket; firehoseStream }
    let to_value x =
      structure_to_value
        [("s3Bucket", (Option.map x.s3Bucket ~f:S3Bucket.to_value));
        ("firehoseStream",
          (Option.map x.firehoseStream ~f:FirehoseStream.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let firehoseStream =
        (Option.map ~f:FirehoseStream.of_xml)
          (Xml.child xml_arg0 "firehoseStream") in
      let s3Bucket =
        (Option.map ~f:S3Bucket.of_xml) (Xml.child xml_arg0 "s3Bucket") in
      make ?firehoseStream ?s3Bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let firehoseStream =
        field_map json__ "firehoseStream" FirehoseStream.of_json in
      let s3Bucket = field_map json__ "s3Bucket" S3Bucket.of_json in
      make ?firehoseStream ?s3Bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an audit log destination."]
module Format_ =
  struct
    type nonrec t =
      | Json 
      | Parquet 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Json -> "json" | Parquet -> "parquet" | Non_static_id s -> s
    let of_string =
      function | "json" -> Json | "parquet" -> Parquet | 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 Format" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Format" j)
    let to_json = simple_to_json to_value
  end
module Schema =
  struct
    type nonrec t =
      | Ocsf 
      | Raw 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Ocsf -> "ocsf" | Raw -> "raw" | Non_static_id s -> s
    let of_string =
      function | "ocsf" -> Ocsf | "raw" -> Raw | 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 Schema" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Schema" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module String2048 =
  struct
    type nonrec t = string
    let context_ = "String2048"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"String2048" j
    let to_json = simple_to_json to_value
  end
module TenantIdentifier =
  struct
    type nonrec t = string
    let context_ = "TenantIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TenantIdentifier" j
    let to_json = simple_to_json to_value
  end
module AuditLogDestinationConfiguration =
  struct
    type nonrec t =
      {
      destination: Destination.t
        [@ocaml.doc "Contains information about an audit log destination."]}
    let context_ = "AuditLogDestinationConfiguration"
    let make ~destination = fun () -> { destination }
    let to_value x =
      structure_to_value
        [("destination", (Some (Destination.to_value x.destination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destination =
        Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destination") in
      make ~destination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destination =
        field_map_exn json__ "destination" Destination.of_json in
      make ~destination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an audit log destination configuration."]
module AuditLogProcessingConfiguration =
  struct
    type nonrec t =
      {
      schema: Schema.t
        [@ocaml.doc
          "The event schema in which the audit logs need to be formatted."];
      format: Format_.t
        [@ocaml.doc
          "The format in which the audit logs need to be formatted."]}
    let context_ = "AuditLogProcessingConfiguration"
    let make ~schema = fun ~format -> fun () -> { schema; format }
    let to_value x =
      structure_to_value
        [("schema", (Some (Schema.to_value x.schema)));
        ("format", (Some (Format_.to_value x.format)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let format =
        Format_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "format") in
      let schema =
        Schema.of_xml (Xml.child_exn ~context:context_ xml_arg0 "schema") in
      make ~format ~schema ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let format = field_map_exn json__ "format" Format_.of_json in
      let schema = field_map_exn json__ "schema" Schema.of_json in
      make ~format ~schema ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an audit log processing configuration."]
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The field name where the invalid entry was detected."];
      message: String_.t option
        [@ocaml.doc "A message about the validation exception."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~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 name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    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 name = field_map json__ "name" String_.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input failed to meet the constraints specified by the Amazon Web Services service in a specified field."]
module SensitiveString2048 =
  struct
    type nonrec t = string
    let context_ = "SensitiveString2048"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (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:"SensitiveString2048" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module String255 =
  struct
    type nonrec t = string
    let context_ = "String255"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (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:"String255" j
    let to_json = simple_to_json to_value
  end
module TaskError =
  struct
    type nonrec t =
      {
      errorCode: String_.t option [@ocaml.doc "The code of the error."];
      errorMessage: String_.t option [@ocaml.doc "The message of the error."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("errorCode", (Option.map x.errorCode ~f:String_.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorCode") in
      make ?errorMessage ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let errorCode = field_map json__ "errorCode" String_.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about an error returned from a user access task."]
module UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UUID" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.+")));
        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 IngestionState =
  struct
    type nonrec t =
      | Enabled 
      | Disabled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Enabled -> "enabled"
      | Disabled -> "disabled"
      | Non_static_id s -> s
    let of_string =
      function
      | "enabled" -> Enabled
      | "disabled" -> Disabled
      | 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 IngestionState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IngestionState" j)
    let to_json = simple_to_json to_value
  end
module AppAuthorizationStatus =
  struct
    type nonrec t =
      | PendingConnect 
      | Connected 
      | ConnectionValidationFailed 
      | TokenAutoRotationFailed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PendingConnect -> "PendingConnect"
      | Connected -> "Connected"
      | ConnectionValidationFailed -> "ConnectionValidationFailed"
      | TokenAutoRotationFailed -> "TokenAutoRotationFailed"
      | Non_static_id s -> s
    let of_string =
      function
      | "PendingConnect" -> PendingConnect
      | "Connected" -> Connected
      | "ConnectionValidationFailed" -> ConnectionValidationFailed
      | "TokenAutoRotationFailed" -> TokenAutoRotationFailed
      | 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 AppAuthorizationStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AppAuthorizationStatus" j)
    let to_json = simple_to_json to_value
  end
module DateTime =
  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 Tenant =
  struct
    type nonrec t =
      {
      tenantIdentifier: TenantIdentifier.t
        [@ocaml.doc "The ID of the application tenant."];
      tenantDisplayName: String2048.t
        [@ocaml.doc "The display name of the tenant."]}
    let context_ = "Tenant"
    let make ~tenantIdentifier =
      fun ~tenantDisplayName ->
        fun () -> { tenantIdentifier; tenantDisplayName }
    let to_value x =
      structure_to_value
        [("tenantIdentifier",
           (Some (TenantIdentifier.to_value x.tenantIdentifier)));
        ("tenantDisplayName",
          (Some (String2048.to_value x.tenantDisplayName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenantDisplayName =
        String2048.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tenantDisplayName") in
      let tenantIdentifier =
        TenantIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tenantIdentifier") in
      make ~tenantDisplayName ~tenantIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenantDisplayName =
        field_map_exn json__ "tenantDisplayName" String2048.of_json in
      let tenantIdentifier =
        field_map_exn json__ "tenantIdentifier" TenantIdentifier.of_json in
      make ~tenantDisplayName ~tenantIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an application tenant."]
module Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:320) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9.!#$%&\226\128\153*+/=?^_`{|}~-]+@[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:"Email" j
    let to_json = simple_to_json to_value
  end
module ResultStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | COMPLETED 
      | FAILED 
      | EXPIRED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | EXPIRED -> "EXPIRED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | "EXPIRED" -> EXPIRED
      | 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 ResultStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResultStatus" j)
    let to_json = simple_to_json to_value
  end
module DestinationConfiguration =
  struct
    type nonrec t =
      {
      auditLog: AuditLogDestinationConfiguration.t option
        [@ocaml.doc
          "Contains information about an audit log destination configuration."]}
    let make ?auditLog = fun () -> { auditLog }
    let to_value x =
      structure_to_value
        [("auditLog",
           (Option.map x.auditLog
              ~f:AuditLogDestinationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditLog =
        (Option.map ~f:AuditLogDestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "auditLog") in
      make ?auditLog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditLog =
        field_map json__ "auditLog" AuditLogDestinationConfiguration.of_json in
      make ?auditLog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the destination of ingested data."]
module IngestionDestinationStatus =
  struct
    type nonrec t =
      | Active 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration IngestionDestinationStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"IngestionDestinationStatus" j)
    let to_json = simple_to_json to_value
  end
module ProcessingConfiguration =
  struct
    type nonrec t =
      {
      auditLog: AuditLogProcessingConfiguration.t option
        [@ocaml.doc
          "Contains information about an audit log processing configuration."]}
    let make ?auditLog = fun () -> { auditLog }
    let to_value x =
      structure_to_value
        [("auditLog",
           (Option.map x.auditLog ~f:AuditLogProcessingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditLog =
        (Option.map ~f:AuditLogProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "auditLog") in
      make ?auditLog ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditLog =
        field_map json__ "auditLog" AuditLogProcessingConfiguration.of_json in
      make ?auditLog ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about how ingested data is processed."]
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 ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.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:ValidationExceptionField.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:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ValidationExceptionReason =
  struct
    type nonrec t =
      | UnknownOperation 
      | CannotParse 
      | FieldValidationFailed 
      | Other 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UnknownOperation -> "unknownOperation"
      | CannotParse -> "cannotParse"
      | FieldValidationFailed -> "fieldValidationFailed"
      | Other -> "other"
      | Non_static_id s -> s
    let of_string =
      function
      | "unknownOperation" -> UnknownOperation
      | "cannotParse" -> CannotParse
      | "fieldValidationFailed" -> FieldValidationFailed
      | "other" -> Other
      | 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 ValidationExceptionReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ValidationExceptionReason" j)
    let to_json = simple_to_json to_value
  end
module AuthType =
  struct
    type nonrec t =
      | Oauth2 
      | ApiKey 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Oauth2 -> "oauth2"
      | ApiKey -> "apiKey"
      | Non_static_id s -> s
    let of_string =
      function
      | "oauth2" -> Oauth2
      | "apiKey" -> ApiKey
      | 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 AuthType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AuthType" j)
    let to_json = simple_to_json to_value
  end
module Persona =
  struct
    type nonrec t =
      | Admin 
      | EndUser 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Admin -> "admin"
      | EndUser -> "endUser"
      | Non_static_id s -> s
    let of_string =
      function
      | "admin" -> Admin
      | "endUser" -> EndUser
      | 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 Persona" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Persona" j)
    let to_json = simple_to_json to_value
  end
module ApiKeyCredential =
  struct
    type nonrec t =
      {
      apiKey: SensitiveString2048.t
        [@ocaml.doc "An API key for an application."]}
    let context_ = "ApiKeyCredential"
    let make ~apiKey = fun () -> { apiKey }
    let to_value x =
      structure_to_value
        [("apiKey", (Some (SensitiveString2048.to_value x.apiKey)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKey =
        SensitiveString2048.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "apiKey") in
      make ~apiKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKey = field_map_exn json__ "apiKey" SensitiveString2048.of_json in
      make ~apiKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains API key credential information."]
module Oauth2Credential =
  struct
    type nonrec t =
      {
      clientId: String2048.t
        [@ocaml.doc "The client ID of the client application."];
      clientSecret: SensitiveString2048.t
        [@ocaml.doc "The client secret of the client application."]}
    let context_ = "Oauth2Credential"
    let make ~clientId =
      fun ~clientSecret -> fun () -> { clientId; clientSecret }
    let to_value x =
      structure_to_value
        [("clientId", (Some (String2048.to_value x.clientId)));
        ("clientSecret",
          (Some (SensitiveString2048.to_value x.clientSecret)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientSecret =
        SensitiveString2048.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientSecret") in
      let clientId =
        String2048.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientId") in
      make ~clientSecret ~clientId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientSecret =
        field_map_exn json__ "clientSecret" SensitiveString2048.of_json in
      let clientId = field_map_exn json__ "clientId" String2048.of_json in
      make ~clientSecret ~clientId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains OAuth2 client credential information."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "Tag key."];
      value: TagValue.t [@ocaml.doc "Tag value."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The key or keys of the key-value pairs for the tag or tags assigned to a resource."]
module UserAccessTaskItem =
  struct
    type nonrec t =
      {
      app: String255.t option [@ocaml.doc "The name of the application."];
      tenantId: TenantIdentifier.t option
        [@ocaml.doc "The ID of the application tenant."];
      taskId: UUID.t option [@ocaml.doc "The unique ID of the task."];
      error: TaskError.t option [@ocaml.doc "Error from the task, if any."]}
    let make ?app =
      fun ?tenantId ->
        fun ?taskId ->
          fun ?error -> fun () -> { app; tenantId; taskId; error }
    let to_value x =
      structure_to_value
        [("app", (Option.map x.app ~f:String255.to_value));
        ("tenantId", (Option.map x.tenantId ~f:TenantIdentifier.to_value));
        ("taskId", (Option.map x.taskId ~f:UUID.to_value));
        ("error", (Option.map x.error ~f:TaskError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:TaskError.of_xml) (Xml.child xml_arg0 "error") in
      let taskId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "taskId") in
      let tenantId =
        (Option.map ~f:TenantIdentifier.of_xml)
          (Xml.child xml_arg0 "tenantId") in
      let app = (Option.map ~f:String255.of_xml) (Xml.child xml_arg0 "app") in
      make ?error ?taskId ?tenantId ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "error" TaskError.of_json in
      let taskId = field_map json__ "taskId" UUID.of_json in
      let tenantId = field_map json__ "tenantId" TenantIdentifier.of_json in
      let app = field_map json__ "app" String255.of_json in
      make ?error ?taskId ?tenantId ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a user access task."]
module IngestionSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ingestion."];
      app: String255.t option [@ocaml.doc "The name of the application."];
      tenantId: TenantIdentifier.t option
        [@ocaml.doc "The ID of the application tenant."];
      state: IngestionState.t option
        [@ocaml.doc "The status of the ingestion."]}
    let make ?arn =
      fun ?app ->
        fun ?tenantId ->
          fun ?state -> fun () -> { arn; app; tenantId; state }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("app", (Option.map x.app ~f:String255.to_value));
        ("tenantId", (Option.map x.tenantId ~f:TenantIdentifier.to_value));
        ("state", (Option.map x.state ~f:IngestionState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:IngestionState.of_xml) (Xml.child xml_arg0 "state") in
      let tenantId =
        (Option.map ~f:TenantIdentifier.of_xml)
          (Xml.child xml_arg0 "tenantId") in
      let app = (Option.map ~f:String255.of_xml) (Xml.child xml_arg0 "app") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?state ?tenantId ?app ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" IngestionState.of_json in
      let tenantId = field_map json__ "tenantId" TenantIdentifier.of_json in
      let app = field_map json__ "app" String255.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?state ?tenantId ?app ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains a summary of an ingestion."]
module IngestionDestinationSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ingestion destination."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child 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 json__ "arn" Arn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains a summary of an ingestion destination."]
module AppBundleSummary =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the app bundle."]}
    let make ?arn = fun () -> { arn }
    let to_value x =
      structure_to_value [("arn", (Option.map x.arn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child 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 json__ "arn" Arn.of_json in make ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains a summary of an app bundle."]
module AppAuthorizationSummary =
  struct
    type nonrec t =
      {
      appAuthorizationArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the app authorization."];
      appBundleArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the app bundle for the app authorization."];
      app: String255.t option [@ocaml.doc "The name of the application."];
      tenant: Tenant.t option
        [@ocaml.doc
          "Contains information about an application tenant, such as the application display name and identifier."];
      status: AppAuthorizationStatus.t option
        [@ocaml.doc
          "The state of the app authorization. The following states are possible: PendingConnect: The initial state of the app authorization. The app authorization is created but not yet connected. Connected: The app authorization is connected to the application, and is ready to be used. ConnectionValidationFailed: The app authorization received a validation exception when trying to connect to the application. If the app authorization is in this state, you should verify the configured credentials and try to connect the app authorization again. TokenAutoRotationFailed: AppFabric failed to refresh the access token. If the app authorization is in this state, you should try to reconnect the app authorization."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "Timestamp for when the app authorization was last updated."]}
    let make ?appAuthorizationArn =
      fun ?appBundleArn ->
        fun ?app ->
          fun ?tenant ->
            fun ?status ->
              fun ?updatedAt ->
                fun () ->
                  {
                    appAuthorizationArn;
                    appBundleArn;
                    app;
                    tenant;
                    status;
                    updatedAt
                  }
    let to_value x =
      structure_to_value
        [("appAuthorizationArn",
           (Option.map x.appAuthorizationArn ~f:Arn.to_value));
        ("appBundleArn", (Option.map x.appBundleArn ~f:Arn.to_value));
        ("app", (Option.map x.app ~f:String255.to_value));
        ("tenant", (Option.map x.tenant ~f:Tenant.to_value));
        ("status", (Option.map x.status ~f:AppAuthorizationStatus.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let status =
        (Option.map ~f:AppAuthorizationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let tenant =
        (Option.map ~f:Tenant.of_xml) (Xml.child xml_arg0 "tenant") in
      let app = (Option.map ~f:String255.of_xml) (Xml.child xml_arg0 "app") in
      let appBundleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "appBundleArn") in
      let appAuthorizationArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "appAuthorizationArn") in
      make ?updatedAt ?status ?tenant ?app ?appBundleArn ?appAuthorizationArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" DateTime.of_json in
      let status = field_map json__ "status" AppAuthorizationStatus.of_json in
      let tenant = field_map json__ "tenant" Tenant.of_json in
      let app = field_map json__ "app" String255.of_json in
      let appBundleArn = field_map json__ "appBundleArn" Arn.of_json in
      let appAuthorizationArn =
        field_map json__ "appAuthorizationArn" Arn.of_json in
      make ?updatedAt ?status ?tenant ?app ?appBundleArn ?appAuthorizationArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains a summary of an app authorization."]
module IngestionType =
  struct
    type nonrec t =
      | AuditLog 
      | Non_static_id of string 
    let make i = i
    let to_string = function | AuditLog -> "auditLog" | Non_static_id s -> s
    let of_string = function | "auditLog" -> AuditLog | 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 IngestionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IngestionType" j)
    let to_json = simple_to_json to_value
  end
module RedirectUri =
  struct
    type nonrec t = string
    let context_ = "RedirectUri"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"https://[-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:"RedirectUri" j
    let to_json = simple_to_json to_value
  end
module UserAccessResultItem =
  struct
    type nonrec t =
      {
      app: String255.t option [@ocaml.doc "The name of the application."];
      tenantId: TenantIdentifier.t option
        [@ocaml.doc "The ID of the application tenant."];
      tenantDisplayName: String2048.t option
        [@ocaml.doc "The display name of the tenant."];
      taskId: UUID.t option [@ocaml.doc "The unique ID of the task."];
      resultStatus: ResultStatus.t option
        [@ocaml.doc
          "The status of the user access result item. The following states are possible: IN_PROGRESS: The user access task is in progress. COMPLETED: The user access task completed successfully. FAILED: The user access task failed. EXPIRED: The user access task expired."];
      email: Email.t option
        [@ocaml.doc "The email address of the target user."];
      userId: SensitiveString2048.t option
        [@ocaml.doc "The unique ID of user."];
      userFullName: SensitiveString2048.t option
        [@ocaml.doc "The full name of the user."];
      userFirstName: SensitiveString2048.t option
        [@ocaml.doc "The first name of the user."];
      userLastName: SensitiveString2048.t option
        [@ocaml.doc "The last name of the user."];
      userStatus: String_.t option
        [@ocaml.doc "The status of the user returned by the application."];
      taskError: TaskError.t option
        [@ocaml.doc
          "Contains information about an error returned from a user access task."]}
    let make ?app =
      fun ?tenantId ->
        fun ?tenantDisplayName ->
          fun ?taskId ->
            fun ?resultStatus ->
              fun ?email ->
                fun ?userId ->
                  fun ?userFullName ->
                    fun ?userFirstName ->
                      fun ?userLastName ->
                        fun ?userStatus ->
                          fun ?taskError ->
                            fun () ->
                              {
                                app;
                                tenantId;
                                tenantDisplayName;
                                taskId;
                                resultStatus;
                                email;
                                userId;
                                userFullName;
                                userFirstName;
                                userLastName;
                                userStatus;
                                taskError
                              }
    let to_value x =
      structure_to_value
        [("app", (Option.map x.app ~f:String255.to_value));
        ("tenantId", (Option.map x.tenantId ~f:TenantIdentifier.to_value));
        ("tenantDisplayName",
          (Option.map x.tenantDisplayName ~f:String2048.to_value));
        ("taskId", (Option.map x.taskId ~f:UUID.to_value));
        ("resultStatus",
          (Option.map x.resultStatus ~f:ResultStatus.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("userId", (Option.map x.userId ~f:SensitiveString2048.to_value));
        ("userFullName",
          (Option.map x.userFullName ~f:SensitiveString2048.to_value));
        ("userFirstName",
          (Option.map x.userFirstName ~f:SensitiveString2048.to_value));
        ("userLastName",
          (Option.map x.userLastName ~f:SensitiveString2048.to_value));
        ("userStatus", (Option.map x.userStatus ~f:String_.to_value));
        ("taskError", (Option.map x.taskError ~f:TaskError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskError =
        (Option.map ~f:TaskError.of_xml) (Xml.child xml_arg0 "taskError") in
      let userStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "userStatus") in
      let userLastName =
        (Option.map ~f:SensitiveString2048.of_xml)
          (Xml.child xml_arg0 "userLastName") in
      let userFirstName =
        (Option.map ~f:SensitiveString2048.of_xml)
          (Xml.child xml_arg0 "userFirstName") in
      let userFullName =
        (Option.map ~f:SensitiveString2048.of_xml)
          (Xml.child xml_arg0 "userFullName") in
      let userId =
        (Option.map ~f:SensitiveString2048.of_xml)
          (Xml.child xml_arg0 "userId") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let resultStatus =
        (Option.map ~f:ResultStatus.of_xml)
          (Xml.child xml_arg0 "resultStatus") in
      let taskId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "taskId") in
      let tenantDisplayName =
        (Option.map ~f:String2048.of_xml)
          (Xml.child xml_arg0 "tenantDisplayName") in
      let tenantId =
        (Option.map ~f:TenantIdentifier.of_xml)
          (Xml.child xml_arg0 "tenantId") in
      let app = (Option.map ~f:String255.of_xml) (Xml.child xml_arg0 "app") in
      make ?taskError ?userStatus ?userLastName ?userFirstName ?userFullName
        ?userId ?email ?resultStatus ?taskId ?tenantDisplayName ?tenantId
        ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskError = field_map json__ "taskError" TaskError.of_json in
      let userStatus = field_map json__ "userStatus" String_.of_json in
      let userLastName =
        field_map json__ "userLastName" SensitiveString2048.of_json in
      let userFirstName =
        field_map json__ "userFirstName" SensitiveString2048.of_json in
      let userFullName =
        field_map json__ "userFullName" SensitiveString2048.of_json in
      let userId = field_map json__ "userId" SensitiveString2048.of_json in
      let email = field_map json__ "email" Email.of_json in
      let resultStatus = field_map json__ "resultStatus" ResultStatus.of_json in
      let taskId = field_map json__ "taskId" UUID.of_json in
      let tenantDisplayName =
        field_map json__ "tenantDisplayName" String2048.of_json in
      let tenantId = field_map json__ "tenantId" TenantIdentifier.of_json in
      let app = field_map json__ "app" String255.of_json in
      make ?taskError ?userStatus ?userLastName ?userFirstName ?userFullName
        ?userId ?email ?resultStatus ?taskId ?tenantDisplayName ?tenantId
        ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a user's access to an application."]
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 are not authorized to perform this operation."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The resource ID."];
      resourceType: String_.t option [@ocaml.doc "The resource type."]}
    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
       "The request has created a conflict. Check the request parameters and try again."]
module IngestionDestination =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the ingestion destination."];
      ingestionArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ingestion."];
      processingConfiguration: ProcessingConfiguration.t option
        [@ocaml.doc
          "Contains information about how ingested data is processed."];
      destinationConfiguration: DestinationConfiguration.t option
        [@ocaml.doc
          "Contains information about the destination of ingested data."];
      status: IngestionDestinationStatus.t option
        [@ocaml.doc
          "The state of the ingestion destination. The following states are possible: Active: The ingestion destination is active and is ready to be used. Failed: The ingestion destination has failed. If the ingestion destination is in this state, you should verify the ingestion destination configuration and try again."];
      statusReason: String_.t option
        [@ocaml.doc
          "The reason for the current status of the ingestion destination. Only present when the status of ingestion destination is Failed."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp of when the ingestion destination was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp of when the ingestion destination was last updated."]}
    let make ?arn =
      fun ?ingestionArn ->
        fun ?processingConfiguration ->
          fun ?destinationConfiguration ->
            fun ?status ->
              fun ?statusReason ->
                fun ?createdAt ->
                  fun ?updatedAt ->
                    fun () ->
                      {
                        arn;
                        ingestionArn;
                        processingConfiguration;
                        destinationConfiguration;
                        status;
                        statusReason;
                        createdAt;
                        updatedAt
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("ingestionArn", (Option.map x.ingestionArn ~f:Arn.to_value));
        ("processingConfiguration",
          (Option.map x.processingConfiguration
             ~f:ProcessingConfiguration.to_value));
        ("destinationConfiguration",
          (Option.map x.destinationConfiguration
             ~f:DestinationConfiguration.to_value));
        ("status",
          (Option.map x.status ~f:IngestionDestinationStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "createdAt") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:IngestionDestinationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let destinationConfiguration =
        (Option.map ~f:DestinationConfiguration.of_xml)
          (Xml.child xml_arg0 "destinationConfiguration") in
      let processingConfiguration =
        (Option.map ~f:ProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "processingConfiguration") in
      let ingestionArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ingestionArn") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?updatedAt ?createdAt ?statusReason ?status
        ?destinationConfiguration ?processingConfiguration ?ingestionArn ?arn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedAt = field_map json__ "updatedAt" DateTime.of_json in
      let createdAt = field_map json__ "createdAt" DateTime.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status =
        field_map json__ "status" IngestionDestinationStatus.of_json in
      let destinationConfiguration =
        field_map json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let processingConfiguration =
        field_map json__ "processingConfiguration"
          ProcessingConfiguration.of_json in
      let ingestionArn = field_map json__ "ingestionArn" Arn.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?updatedAt ?createdAt ?statusReason ?status
        ?destinationConfiguration ?processingConfiguration ?ingestionArn ?arn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an ingestion destination."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The period of time after which you should retry your request."]}
    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
       "The request processing has failed because of an unknown error, exception, or failure with an internal server."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The resource ID."];
      resourceType: String_.t option [@ocaml.doc "The resource type."]}
    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 "The specified resource does not exist."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option [@ocaml.doc "The resource ID."];
      resourceType: String_.t option [@ocaml.doc "The resource type."];
      serviceCode: String_.t option [@ocaml.doc "The code of the service."];
      quotaCode: String_.t option
        [@ocaml.doc "The code for the quota exceeded."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    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));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      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 ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      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 ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request exceeds a service quota."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option [@ocaml.doc "The code of the service."];
      quotaCode: String_.t option
        [@ocaml.doc "The code for the quota exceeded."];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The period of time after which you should retry your request."]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~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 quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?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 quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request rate exceeds the limit."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the exception."];
      fieldList: ValidationExceptionFieldList.t option
        [@ocaml.doc "The field list."]}
    let make ?message =
      fun ?reason ->
        fun ?fieldList -> fun () -> { message; reason; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?fieldList ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request has invalid or missing parameters."]
module Identifier =
  struct
    type nonrec t = string
    let context_ = "Identifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:.+$|^[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Identifier" j
    let to_json = simple_to_json to_value
  end
module AppAuthorization =
  struct
    type nonrec t =
      {
      appAuthorizationArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the app authorization."];
      appBundleArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the app bundle for the app authorization."];
      app: String255.t option [@ocaml.doc "The name of the application."];
      tenant: Tenant.t option
        [@ocaml.doc
          "Contains information about an application tenant, such as the application display name and identifier."];
      authType: AuthType.t option [@ocaml.doc "The authorization type."];
      status: AppAuthorizationStatus.t option
        [@ocaml.doc
          "The state of the app authorization. The following states are possible: PendingConnect: The initial state of the app authorization. The app authorization is created but not yet connected. Connected: The app authorization is connected to the application, and is ready to be used. ConnectionValidationFailed: The app authorization received a validation exception when trying to connect to the application. If the app authorization is in this state, you should verify the configured credentials and try to connect the app authorization again. TokenAutoRotationFailed: AppFabric failed to refresh the access token. If the app authorization is in this state, you should try to reconnect the app authorization."];
      createdAt: DateTime.t option
        [@ocaml.doc
          "The timestamp of when the app authorization was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp of when the app authorization was last updated."];
      persona: Persona.t option
        [@ocaml.doc
          "The user persona of the app authorization. This field should always be admin."];
      authUrl: String_.t option
        [@ocaml.doc "The application URL for the OAuth flow."]}
    let make ?appAuthorizationArn =
      fun ?appBundleArn ->
        fun ?app ->
          fun ?tenant ->
            fun ?authType ->
              fun ?status ->
                fun ?createdAt ->
                  fun ?updatedAt ->
                    fun ?persona ->
                      fun ?authUrl ->
                        fun () ->
                          {
                            appAuthorizationArn;
                            appBundleArn;
                            app;
                            tenant;
                            authType;
                            status;
                            createdAt;
                            updatedAt;
                            persona;
                            authUrl
                          }
    let to_value x =
      structure_to_value
        [("appAuthorizationArn",
           (Option.map x.appAuthorizationArn ~f:Arn.to_value));
        ("appBundleArn", (Option.map x.appBundleArn ~f:Arn.to_value));
        ("app", (Option.map x.app ~f:String255.to_value));
        ("tenant", (Option.map x.tenant ~f:Tenant.to_value));
        ("authType", (Option.map x.authType ~f:AuthType.to_value));
        ("status", (Option.map x.status ~f:AppAuthorizationStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("persona", (Option.map x.persona ~f:Persona.to_value));
        ("authUrl", (Option.map x.authUrl ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "authUrl") in
      let persona =
        (Option.map ~f:Persona.of_xml) (Xml.child xml_arg0 "persona") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:AppAuthorizationStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let authType =
        (Option.map ~f:AuthType.of_xml) (Xml.child xml_arg0 "authType") in
      let tenant =
        (Option.map ~f:Tenant.of_xml) (Xml.child xml_arg0 "tenant") in
      let app = (Option.map ~f:String255.of_xml) (Xml.child xml_arg0 "app") in
      let appBundleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "appBundleArn") in
      let appAuthorizationArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "appAuthorizationArn") in
      make ?authUrl ?persona ?updatedAt ?createdAt ?status ?authType ?tenant
        ?app ?appBundleArn ?appAuthorizationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authUrl = field_map json__ "authUrl" String_.of_json in
      let persona = field_map json__ "persona" Persona.of_json in
      let updatedAt = field_map json__ "updatedAt" DateTime.of_json in
      let createdAt = field_map json__ "createdAt" DateTime.of_json in
      let status = field_map json__ "status" AppAuthorizationStatus.of_json in
      let authType = field_map json__ "authType" AuthType.of_json in
      let tenant = field_map json__ "tenant" Tenant.of_json in
      let app = field_map json__ "app" String255.of_json in
      let appBundleArn = field_map json__ "appBundleArn" Arn.of_json in
      let appAuthorizationArn =
        field_map json__ "appAuthorizationArn" Arn.of_json in
      make ?authUrl ?persona ?updatedAt ?createdAt ?status ?authType ?tenant
        ?app ?appBundleArn ?appAuthorizationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an app authorization."]
module Credential =
  struct
    type nonrec t =
      {
      oauth2Credential: Oauth2Credential.t option
        [@ocaml.doc "Contains OAuth2 client credential information."];
      apiKeyCredential: ApiKeyCredential.t option
        [@ocaml.doc "Contains API key credential information."]}
    let make ?oauth2Credential =
      fun ?apiKeyCredential ->
        fun () -> { oauth2Credential; apiKeyCredential }
    let to_value x =
      structure_to_value
        [("oauth2Credential",
           (Option.map x.oauth2Credential ~f:Oauth2Credential.to_value));
        ("apiKeyCredential",
          (Option.map x.apiKeyCredential ~f:ApiKeyCredential.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let apiKeyCredential =
        (Option.map ~f:ApiKeyCredential.of_xml)
          (Xml.child xml_arg0 "apiKeyCredential") in
      let oauth2Credential =
        (Option.map ~f:Oauth2Credential.of_xml)
          (Xml.child xml_arg0 "oauth2Credential") in
      make ?apiKeyCredential ?oauth2Credential ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let apiKeyCredential =
        field_map json__ "apiKeyCredential" ApiKeyCredential.of_json in
      let oauth2Credential =
        field_map json__ "oauth2Credential" Oauth2Credential.of_json in
      make ?apiKeyCredential ?oauth2Credential ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains credential information for an application."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (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 TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min: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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserAccessTasksList =
  struct
    type nonrec t = UserAccessTaskItem.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:UserAccessTaskItem.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:UserAccessTaskItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UserAccessTasksList"
        ~of_json:UserAccessTaskItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module IngestionList =
  struct
    type nonrec t = IngestionSummary.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:IngestionSummary.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:IngestionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"IngestionList" ~of_json:IngestionSummary.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 IngestionDestinationList =
  struct
    type nonrec t = IngestionDestinationSummary.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:IngestionDestinationSummary.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:IngestionDestinationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"IngestionDestinationList"
        ~of_json:IngestionDestinationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppBundleSummaryList =
  struct
    type nonrec t = AppBundleSummary.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:AppBundleSummary.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:AppBundleSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppBundleSummaryList"
        ~of_json:AppBundleSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppAuthorizationSummaryList =
  struct
    type nonrec t = AppAuthorizationSummary.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:AppAuthorizationSummary.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:AppAuthorizationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"AppAuthorizationSummaryList"
        ~of_json:AppAuthorizationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Ingestion =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the ingestion."];
      appBundleArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the app bundle for the ingestion."];
      app: String255.t option [@ocaml.doc "The name of the application."];
      tenantId: TenantIdentifier.t option
        [@ocaml.doc "The ID of the application tenant."];
      createdAt: DateTime.t option
        [@ocaml.doc "The timestamp of when the ingestion was created."];
      updatedAt: DateTime.t option
        [@ocaml.doc "The timestamp of when the ingestion was last updated."];
      state: IngestionState.t option
        [@ocaml.doc "The status of the ingestion."];
      ingestionType: IngestionType.t option
        [@ocaml.doc "The type of the ingestion."]}
    let make ?arn =
      fun ?appBundleArn ->
        fun ?app ->
          fun ?tenantId ->
            fun ?createdAt ->
              fun ?updatedAt ->
                fun ?state ->
                  fun ?ingestionType ->
                    fun () ->
                      {
                        arn;
                        appBundleArn;
                        app;
                        tenantId;
                        createdAt;
                        updatedAt;
                        state;
                        ingestionType
                      }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("appBundleArn", (Option.map x.appBundleArn ~f:Arn.to_value));
        ("app", (Option.map x.app ~f:String255.to_value));
        ("tenantId", (Option.map x.tenantId ~f:TenantIdentifier.to_value));
        ("createdAt", (Option.map x.createdAt ~f:DateTime.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:DateTime.to_value));
        ("state", (Option.map x.state ~f:IngestionState.to_value));
        ("ingestionType",
          (Option.map x.ingestionType ~f:IngestionType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionType =
        (Option.map ~f:IngestionType.of_xml)
          (Xml.child xml_arg0 "ingestionType") in
      let state =
        (Option.map ~f:IngestionState.of_xml) (Xml.child xml_arg0 "state") in
      let updatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "updatedAt") in
      let createdAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "createdAt") in
      let tenantId =
        (Option.map ~f:TenantIdentifier.of_xml)
          (Xml.child xml_arg0 "tenantId") in
      let app = (Option.map ~f:String255.of_xml) (Xml.child xml_arg0 "app") in
      let appBundleArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "appBundleArn") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?ingestionType ?state ?updatedAt ?createdAt ?tenantId ?app
        ?appBundleArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionType =
        field_map json__ "ingestionType" IngestionType.of_json in
      let state = field_map json__ "state" IngestionState.of_json in
      let updatedAt = field_map json__ "updatedAt" DateTime.of_json in
      let createdAt = field_map json__ "createdAt" DateTime.of_json in
      let tenantId = field_map json__ "tenantId" TenantIdentifier.of_json in
      let app = field_map json__ "app" String255.of_json in
      let appBundleArn = field_map json__ "appBundleArn" Arn.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?ingestionType ?state ?updatedAt ?createdAt ?tenantId ?app
        ?appBundleArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an ingestion."]
module AppBundle =
  struct
    type nonrec t =
      {
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the app bundle."];
      customerManagedKeyArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Key Management Service (KMS) key used to encrypt the application data."]}
    let make ?arn =
      fun ?customerManagedKeyArn -> fun () -> { arn; customerManagedKeyArn }
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:Arn.to_value));
        ("customerManagedKeyArn",
          (Option.map x.customerManagedKeyArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customerManagedKeyArn =
        (Option.map ~f:Arn.of_xml)
          (Xml.child xml_arg0 "customerManagedKeyArn") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "arn") in
      make ?customerManagedKeyArn ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customerManagedKeyArn =
        field_map json__ "customerManagedKeyArn" Arn.of_json in
      let arn = field_map json__ "arn" Arn.of_json in
      make ?customerManagedKeyArn ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about an app bundle."]
module AuthRequest =
  struct
    type nonrec t =
      {
      redirectUri: RedirectUri.t
        [@ocaml.doc
          "The redirect URL that is specified in the AuthURL and the application client."];
      code: SensitiveString2048.t
        [@ocaml.doc
          "The authorization code returned by the application after permission is granted in the application OAuth page (after clicking on the AuthURL)."]}
    let context_ = "AuthRequest"
    let make ~redirectUri = fun ~code -> fun () -> { redirectUri; code }
    let to_value x =
      structure_to_value
        [("redirectUri", (Some (RedirectUri.to_value x.redirectUri)));
        ("code", (Some (SensitiveString2048.to_value x.code)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code =
        SensitiveString2048.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "code") in
      let redirectUri =
        RedirectUri.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "redirectUri") in
      make ~code ~redirectUri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map_exn json__ "code" SensitiveString2048.of_json in
      let redirectUri =
        field_map_exn json__ "redirectUri" RedirectUri.of_json in
      make ~code ~redirectUri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains authorization request information, which is required for Amazon Web Services AppFabric to get the OAuth2 access token for an application."]
module UserAccessResultsList =
  struct
    type nonrec t = UserAccessResultItem.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:UserAccessResultItem.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:UserAccessResultItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UserAccessResultsList"
        ~of_json:UserAccessResultItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module TaskIdList =
  struct
    type nonrec t = UUID.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:UUID.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:UUID.of_xml)
    let of_json j = list_of_json ~kind:"TaskIdList" ~of_json:UUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateIngestionDestinationResponse =
  struct
    type nonrec t =
      {
      ingestionDestination: IngestionDestination.t option
        [@ocaml.doc "Contains information about an ingestion destination."]}
    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 ?ingestionDestination = fun () -> { ingestionDestination }
    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
        [("ingestionDestination",
           (Option.map x.ingestionDestination
              ~f:IngestionDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionDestination =
        (Option.map ~f:IngestionDestination.of_xml)
          (Xml.child xml_arg0 "ingestionDestination") in
      make ?ingestionDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionDestination =
        field_map json__ "ingestionDestination" IngestionDestination.of_json in
      make ?ingestionDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an ingestion destination, which specifies how an application's ingested data is processed by Amazon Web Services AppFabric and where it's delivered."]
module UpdateIngestionDestinationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      ingestionDestinationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion destination to use for the request."];
      destinationConfiguration: DestinationConfiguration.t
        [@ocaml.doc
          "Contains information about the destination of ingested data."]}
    let context_ = "UpdateIngestionDestinationRequest"
    let make ~appBundleIdentifier =
      fun ~ingestionIdentifier ->
        fun ~ingestionDestinationIdentifier ->
          fun ~destinationConfiguration ->
            fun () ->
              {
                appBundleIdentifier;
                ingestionIdentifier;
                ingestionDestinationIdentifier;
                destinationConfiguration
              }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)));
        ("ingestionDestinationIdentifier",
          (Some (Identifier.to_value x.ingestionDestinationIdentifier)));
        ("destinationConfiguration",
          (Some
             (DestinationConfiguration.to_value x.destinationConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationConfiguration =
        DestinationConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationConfiguration") in
      let ingestionDestinationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ingestionDestinationIdentifier") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~destinationConfiguration ~ingestionDestinationIdentifier
        ~ingestionIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationConfiguration =
        field_map_exn json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let ingestionDestinationIdentifier =
        field_map_exn json__ "ingestionDestinationIdentifier"
          Identifier.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~destinationConfiguration ~ingestionDestinationIdentifier
        ~ingestionIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an ingestion destination, which specifies how an application's ingested data is processed by Amazon Web Services AppFabric and where it's delivered."]
module UpdateAppAuthorizationResponse =
  struct
    type nonrec t =
      {
      appAuthorization: AppAuthorization.t option
        [@ocaml.doc "Contains information about an app authorization."]}
    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 ?appAuthorization = fun () -> { appAuthorization }
    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
        [("appAuthorization",
           (Option.map x.appAuthorization ~f:AppAuthorization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appAuthorization =
        (Option.map ~f:AppAuthorization.of_xml)
          (Xml.child xml_arg0 "appAuthorization") in
      make ?appAuthorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appAuthorization =
        field_map json__ "appAuthorization" AppAuthorization.of_json in
      make ?appAuthorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an app authorization within an app bundle, which allows AppFabric to connect to an application. If the app authorization was in a connected state, updating the app authorization will set it back to a PendingConnect state."]
module UpdateAppAuthorizationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      appAuthorizationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app authorization to use for the request."];
      credential: Credential.t option
        [@ocaml.doc
          "Contains credentials for the application, such as an API key or OAuth2 client ID and secret. Specify credentials that match the authorization type of the app authorization to update. For example, if the authorization type of the app authorization is OAuth2 (oauth2), then you should provide only the OAuth2 credentials."];
      tenant: Tenant.t option
        [@ocaml.doc
          "Contains information about an application tenant, such as the application display name and identifier."]}
    let context_ = "UpdateAppAuthorizationRequest"
    let make ?credential =
      fun ?tenant ->
        fun ~appBundleIdentifier ->
          fun ~appAuthorizationIdentifier ->
            fun () ->
              {
                credential;
                tenant;
                appBundleIdentifier;
                appAuthorizationIdentifier
              }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("appAuthorizationIdentifier",
          (Some (Identifier.to_value x.appAuthorizationIdentifier)));
        ("credential", (Option.map x.credential ~f:Credential.to_value));
        ("tenant", (Option.map x.tenant ~f:Tenant.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tenant =
        (Option.map ~f:Tenant.of_xml) (Xml.child xml_arg0 "tenant") in
      let credential =
        (Option.map ~f:Credential.of_xml) (Xml.child xml_arg0 "credential") in
      let appAuthorizationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "appAuthorizationIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?tenant ?credential ~appAuthorizationIdentifier
        ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tenant = field_map json__ "tenant" Tenant.of_json in
      let credential = field_map json__ "credential" Credential.of_json in
      let appAuthorizationIdentifier =
        field_map_exn json__ "appAuthorizationIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?tenant ?credential ~appAuthorizationIdentifier
        ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an app authorization within an app bundle, which allows AppFabric to connect to an application. If the app authorization was in a connected state, updating the app authorization will set it back to a PendingConnect state."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag or tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to untag."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The keys of the key-value pairs for the tag or tags you want to remove from the specified resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a tag or tags from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `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
       "Assigns one or more tags (key-value pairs) to the specified resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that you want to tag."];
      tags: TagList.t
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns one or more tags (key-value pairs) to the specified resource."]
module StopIngestionResponse =
  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 "Stops (disables) an ingestion."]
module StopIngestionRequest =
  struct
    type nonrec t =
      {
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."]}
    let context_ = "StopIngestionRequest"
    let make ~ingestionIdentifier =
      fun ~appBundleIdentifier ->
        fun () -> { ingestionIdentifier; appBundleIdentifier }
    let to_value x =
      structure_to_value
        [("ingestionIdentifier",
           (Some (Identifier.to_value x.ingestionIdentifier)));
        ("appBundleIdentifier",
          (Some (Identifier.to_value x.appBundleIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      make ~appBundleIdentifier ~ingestionIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      make ~appBundleIdentifier ~ingestionIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops (disables) an ingestion."]
module StartUserAccessTasksResponse =
  struct
    type nonrec t =
      {
      userAccessTasksList: UserAccessTasksList.t option
        [@ocaml.doc "Contains a list of user access task information."]}
    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 ?userAccessTasksList = fun () -> { userAccessTasksList }
    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
        [("userAccessTasksList",
           (Option.map x.userAccessTasksList ~f:UserAccessTasksList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAccessTasksList =
        (Option.map ~f:UserAccessTasksList.of_xml)
          (Xml.child xml_arg0 "userAccessTasksList") in
      make ?userAccessTasksList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAccessTasksList =
        field_map json__ "userAccessTasksList" UserAccessTasksList.of_json in
      make ?userAccessTasksList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the tasks to search user access status for a specific email address. The tasks are stopped when the user access status data is found. The tasks are terminated when the API calls to the application time out."]
module StartUserAccessTasksRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      email: Email.t [@ocaml.doc "The email address of the target user."]}
    let context_ = "StartUserAccessTasksRequest"
    let make ~appBundleIdentifier =
      fun ~email -> fun () -> { appBundleIdentifier; email }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("email", (Some (Email.to_value x.email)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email =
        Email.of_xml (Xml.child_exn ~context:context_ xml_arg0 "email") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~email ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map_exn json__ "email" Email.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~email ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts the tasks to search user access status for a specific email address. The tasks are stopped when the user access status data is found. The tasks are terminated when the API calls to the application time out."]
module StartIngestionResponse =
  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
       "Starts (enables) an ingestion, which collects data from an application."]
module StartIngestionRequest =
  struct
    type nonrec t =
      {
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."]}
    let context_ = "StartIngestionRequest"
    let make ~ingestionIdentifier =
      fun ~appBundleIdentifier ->
        fun () -> { ingestionIdentifier; appBundleIdentifier }
    let to_value x =
      structure_to_value
        [("ingestionIdentifier",
           (Some (Identifier.to_value x.ingestionIdentifier)));
        ("appBundleIdentifier",
          (Some (Identifier.to_value x.appBundleIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      make ~appBundleIdentifier ~ingestionIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      make ~appBundleIdentifier ~ingestionIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts (enables) an ingestion, which collects data from an application."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option
        [@ocaml.doc
          "A map of the key-value pairs for the tag or tags assigned to the specified 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:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of tags for a resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which you want to retrieve tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of tags for a resource."]
module ListIngestionsResponse =
  struct
    type nonrec t =
      {
      ingestions: IngestionList.t option
        [@ocaml.doc "Contains a list of ingestion summaries."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    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 ?ingestions =
      fun ?nextToken -> fun () -> { ingestions; 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
        [("ingestions", (Option.map x.ingestions ~f:IngestionList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let ingestions =
        (Option.map ~f:IngestionList.of_xml)
          (Xml.child xml_arg0 "ingestions") in
      make ?nextToken ?ingestions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let ingestions = field_map json__ "ingestions" IngestionList.of_json in
      make ?nextToken ?ingestions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all ingestions configured for an app bundle."]
module ListIngestionsRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    let context_ = "ListIngestionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appBundleIdentifier ->
          fun () -> { maxResults; nextToken; appBundleIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?nextToken ?maxResults ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?nextToken ?maxResults ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all ingestions configured for an app bundle."]
module ListIngestionDestinationsResponse =
  struct
    type nonrec t =
      {
      ingestionDestinations: IngestionDestinationList.t option
        [@ocaml.doc "Contains a list of ingestion destination summaries."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    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 ?ingestionDestinations =
      fun ?nextToken -> fun () -> { ingestionDestinations; 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
        [("ingestionDestinations",
           (Option.map x.ingestionDestinations
              ~f:IngestionDestinationList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let ingestionDestinations =
        (Option.map ~f:IngestionDestinationList.of_xml)
          (Xml.child xml_arg0 "ingestionDestinations") in
      make ?nextToken ?ingestionDestinations ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let ingestionDestinations =
        field_map json__ "ingestionDestinations"
          IngestionDestinationList.of_json in
      make ?nextToken ?ingestionDestinations ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all ingestion destinations configured for an ingestion."]
module ListIngestionDestinationsRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."];
      nextToken: String_.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    let context_ = "ListIngestionDestinationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appBundleIdentifier ->
          fun ~ingestionIdentifier ->
            fun () ->
              {
                maxResults;
                nextToken;
                appBundleIdentifier;
                ingestionIdentifier
              }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?nextToken ?maxResults ~ingestionIdentifier ~appBundleIdentifier
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?nextToken ?maxResults ~ingestionIdentifier ~appBundleIdentifier
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all ingestion destinations configured for an ingestion."]
module ListAppBundlesResponse =
  struct
    type nonrec t =
      {
      appBundleSummaryList: AppBundleSummaryList.t option
        [@ocaml.doc "Contains a list of app bundle summaries."];
      nextToken: String2048.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    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 ?appBundleSummaryList =
      fun ?nextToken -> fun () -> { appBundleSummaryList; 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
        [("appBundleSummaryList",
           (Option.map x.appBundleSummaryList
              ~f:AppBundleSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String2048.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String2048.of_xml) (Xml.child xml_arg0 "nextToken") in
      let appBundleSummaryList =
        (Option.map ~f:AppBundleSummaryList.of_xml)
          (Xml.child xml_arg0 "appBundleSummaryList") in
      make ?nextToken ?appBundleSummaryList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String2048.of_json in
      let appBundleSummaryList =
        field_map json__ "appBundleSummaryList" AppBundleSummaryList.of_json in
      make ?nextToken ?appBundleSummaryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of app bundles."]
module ListAppBundlesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."];
      nextToken: String2048.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String2048.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String2048.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String2048.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns a list of app bundles."]
module ListAppAuthorizationsResponse =
  struct
    type nonrec t =
      {
      appAuthorizationSummaryList: AppAuthorizationSummaryList.t option
        [@ocaml.doc "Contains a list of app authorization summaries."];
      nextToken: String2048.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    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 ?appAuthorizationSummaryList =
      fun ?nextToken -> fun () -> { appAuthorizationSummaryList; 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
        [("appAuthorizationSummaryList",
           (Option.map x.appAuthorizationSummaryList
              ~f:AppAuthorizationSummaryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String2048.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String2048.of_xml) (Xml.child xml_arg0 "nextToken") in
      let appAuthorizationSummaryList =
        (Option.map ~f:AppAuthorizationSummaryList.of_xml)
          (Xml.child xml_arg0 "appAuthorizationSummaryList") in
      make ?nextToken ?appAuthorizationSummaryList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String2048.of_json in
      let appAuthorizationSummaryList =
        field_map json__ "appAuthorizationSummaryList"
          AppAuthorizationSummaryList.of_json in
      make ?nextToken ?appAuthorizationSummaryList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all app authorizations configured for an app bundle."]
module ListAppAuthorizationsRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results that are returned per call. You can use nextToken to obtain further pages of results. This is only an upper limit. The actual number of results returned per call might be fewer than the specified maximum."];
      nextToken: String2048.t option
        [@ocaml.doc
          "If nextToken is returned, there are more results available. The value of nextToken is a unique pagination token for each page. Make the call again using the returned token to retrieve the next page. Keep all other arguments unchanged. Each pagination token expires after 24 hours. Using an expired pagination token will return an HTTP 400 InvalidToken error."]}
    let context_ = "ListAppAuthorizationsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~appBundleIdentifier ->
          fun () -> { maxResults; nextToken; appBundleIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String2048.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String2048.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?nextToken ?maxResults ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String2048.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?nextToken ?maxResults ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of all app authorizations configured for an app bundle."]
module GetIngestionResponse =
  struct
    type nonrec t =
      {
      ingestion: Ingestion.t option
        [@ocaml.doc "Contains information about an ingestion."]}
    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 ?ingestion = fun () -> { ingestion }
    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
        [("ingestion", (Option.map x.ingestion ~f:Ingestion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestion =
        (Option.map ~f:Ingestion.of_xml) (Xml.child xml_arg0 "ingestion") in
      make ?ingestion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestion = field_map json__ "ingestion" Ingestion.of_json in
      make ?ingestion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an ingestion."]
module GetIngestionRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."]}
    let context_ = "GetIngestionRequest"
    let make ~appBundleIdentifier =
      fun ~ingestionIdentifier ->
        fun () -> { appBundleIdentifier; ingestionIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~ingestionIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~ingestionIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an ingestion."]
module GetIngestionDestinationResponse =
  struct
    type nonrec t =
      {
      ingestionDestination: IngestionDestination.t option
        [@ocaml.doc "Contains information about an ingestion destination."]}
    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 ?ingestionDestination = fun () -> { ingestionDestination }
    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
        [("ingestionDestination",
           (Option.map x.ingestionDestination
              ~f:IngestionDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionDestination =
        (Option.map ~f:IngestionDestination.of_xml)
          (Xml.child xml_arg0 "ingestionDestination") in
      make ?ingestionDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionDestination =
        field_map json__ "ingestionDestination" IngestionDestination.of_json in
      make ?ingestionDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an ingestion destination."]
module GetIngestionDestinationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      ingestionDestinationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion destination to use for the request."]}
    let context_ = "GetIngestionDestinationRequest"
    let make ~appBundleIdentifier =
      fun ~ingestionIdentifier ->
        fun ~ingestionDestinationIdentifier ->
          fun () ->
            {
              appBundleIdentifier;
              ingestionIdentifier;
              ingestionDestinationIdentifier
            }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)));
        ("ingestionDestinationIdentifier",
          (Some (Identifier.to_value x.ingestionDestinationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionDestinationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ingestionDestinationIdentifier") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~ingestionDestinationIdentifier ~ingestionIdentifier
        ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionDestinationIdentifier =
        field_map_exn json__ "ingestionDestinationIdentifier"
          Identifier.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~ingestionDestinationIdentifier ~ingestionIdentifier
        ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an ingestion destination."]
module GetAppBundleResponse =
  struct
    type nonrec t =
      {
      appBundle: AppBundle.t option
        [@ocaml.doc "Contains information about an app bundle."]}
    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 ?appBundle = fun () -> { appBundle }
    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
        [("appBundle", (Option.map x.appBundle ~f:AppBundle.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appBundle =
        (Option.map ~f:AppBundle.of_xml) (Xml.child xml_arg0 "appBundle") in
      make ?appBundle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appBundle = field_map json__ "appBundle" AppBundle.of_json in
      make ?appBundle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an app bundle."]
module GetAppBundleRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."]}
    let context_ = "GetAppBundleRequest"
    let make ~appBundleIdentifier = fun () -> { appBundleIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an app bundle."]
module GetAppAuthorizationResponse =
  struct
    type nonrec t =
      {
      appAuthorization: AppAuthorization.t option
        [@ocaml.doc "Contains information about an app authorization."]}
    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 ?appAuthorization = fun () -> { appAuthorization }
    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
        [("appAuthorization",
           (Option.map x.appAuthorization ~f:AppAuthorization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appAuthorization =
        (Option.map ~f:AppAuthorization.of_xml)
          (Xml.child xml_arg0 "appAuthorization") in
      make ?appAuthorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appAuthorization =
        field_map json__ "appAuthorization" AppAuthorization.of_json in
      make ?appAuthorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an app authorization."]
module GetAppAuthorizationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      appAuthorizationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app authorization to use for the request."]}
    let context_ = "GetAppAuthorizationRequest"
    let make ~appBundleIdentifier =
      fun ~appAuthorizationIdentifier ->
        fun () -> { appBundleIdentifier; appAuthorizationIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("appAuthorizationIdentifier",
          (Some (Identifier.to_value x.appAuthorizationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appAuthorizationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "appAuthorizationIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~appAuthorizationIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appAuthorizationIdentifier =
        field_map_exn json__ "appAuthorizationIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~appAuthorizationIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an app authorization."]
module DeleteIngestionResponse =
  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 an ingestion. You must stop (disable) the ingestion and you must delete all associated ingestion destinations before you can delete an app ingestion."]
module DeleteIngestionRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."]}
    let context_ = "DeleteIngestionRequest"
    let make ~appBundleIdentifier =
      fun ~ingestionIdentifier ->
        fun () -> { appBundleIdentifier; ingestionIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~ingestionIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~ingestionIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an ingestion. You must stop (disable) the ingestion and you must delete all associated ingestion destinations before you can delete an app ingestion."]
module DeleteIngestionDestinationResponse =
  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 an ingestion destination. This deletes the association between an ingestion and it's destination. It doesn't delete previously ingested data or the storage destination, such as the Amazon S3 bucket where the data is delivered. If the ingestion destination is deleted while the associated ingestion is enabled, the ingestion will fail and is eventually disabled."]
module DeleteIngestionDestinationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      ingestionDestinationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion destination to use for the request."]}
    let context_ = "DeleteIngestionDestinationRequest"
    let make ~appBundleIdentifier =
      fun ~ingestionIdentifier ->
        fun ~ingestionDestinationIdentifier ->
          fun () ->
            {
              appBundleIdentifier;
              ingestionIdentifier;
              ingestionDestinationIdentifier
            }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)));
        ("ingestionDestinationIdentifier",
          (Some (Identifier.to_value x.ingestionDestinationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionDestinationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "ingestionDestinationIdentifier") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~ingestionDestinationIdentifier ~ingestionIdentifier
        ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionDestinationIdentifier =
        field_map_exn json__ "ingestionDestinationIdentifier"
          Identifier.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~ingestionDestinationIdentifier ~ingestionIdentifier
        ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an ingestion destination. This deletes the association between an ingestion and it's destination. It doesn't delete previously ingested data or the storage destination, such as the Amazon S3 bucket where the data is delivered. If the ingestion destination is deleted while the associated ingestion is enabled, the ingestion will fail and is eventually disabled."]
module DeleteAppBundleResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.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)
      | "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)
      | "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))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an app bundle. You must delete all associated app authorizations before you can delete an app bundle."]
module DeleteAppBundleRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The ID or Amazon Resource Name (ARN) of the app bundle that needs to be deleted."]}
    let context_ = "DeleteAppBundleRequest"
    let make ~appBundleIdentifier = fun () -> { appBundleIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an app bundle. You must delete all associated app authorizations before you can delete an app bundle."]
module DeleteAppAuthorizationResponse =
  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 an app authorization. You must delete the associated ingestion before you can delete an app authorization."]
module DeleteAppAuthorizationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      appAuthorizationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app authorization to use for the request."]}
    let context_ = "DeleteAppAuthorizationRequest"
    let make ~appBundleIdentifier =
      fun ~appAuthorizationIdentifier ->
        fun () -> { appBundleIdentifier; appAuthorizationIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("appAuthorizationIdentifier",
          (Some (Identifier.to_value x.appAuthorizationIdentifier)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appAuthorizationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "appAuthorizationIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~appAuthorizationIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appAuthorizationIdentifier =
        field_map_exn json__ "appAuthorizationIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~appAuthorizationIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an app authorization. You must delete the associated ingestion before you can delete an app authorization."]
module CreateIngestionResponse =
  struct
    type nonrec t =
      {
      ingestion: Ingestion.t option
        [@ocaml.doc "Contains information about an ingestion."]}
    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 ?ingestion = fun () -> { ingestion }
    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
        [("ingestion", (Option.map x.ingestion ~f:Ingestion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestion =
        (Option.map ~f:Ingestion.of_xml) (Xml.child xml_arg0 "ingestion") in
      make ?ingestion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestion = field_map json__ "ingestion" Ingestion.of_json in
      make ?ingestion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a data ingestion for an application."]
module CreateIngestionRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      app: String255.t
        [@ocaml.doc
          "The name of the application. Valid values are: SLACK ASANA JIRA M365 M365AUDITLOGS ZOOM ZENDESK OKTA GOOGLE DROPBOX SMARTSHEET CISCO"];
      tenantId: TenantIdentifier.t
        [@ocaml.doc "The ID of the application tenant."];
      ingestionType: IngestionType.t [@ocaml.doc "The ingestion type."];
      clientToken: UUID.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."];
      tags: TagList.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateIngestionRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~appBundleIdentifier ->
          fun ~app ->
            fun ~tenantId ->
              fun ~ingestionType ->
                fun () ->
                  {
                    clientToken;
                    tags;
                    appBundleIdentifier;
                    app;
                    tenantId;
                    ingestionType
                  }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("app", (Some (String255.to_value x.app)));
        ("tenantId", (Some (TenantIdentifier.to_value x.tenantId)));
        ("ingestionType", (Some (IngestionType.to_value x.ingestionType)));
        ("clientToken", (Option.map x.clientToken ~f:UUID.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "clientToken") in
      let ingestionType =
        IngestionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionType") in
      let tenantId =
        TenantIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tenantId") in
      let app =
        String255.of_xml (Xml.child_exn ~context:context_ xml_arg0 "app") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?tags ?clientToken ~ingestionType ~tenantId ~app
        ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" UUID.of_json in
      let ingestionType =
        field_map_exn json__ "ingestionType" IngestionType.of_json in
      let tenantId = field_map_exn json__ "tenantId" TenantIdentifier.of_json in
      let app = field_map_exn json__ "app" String255.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?tags ?clientToken ~ingestionType ~tenantId ~app
        ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a data ingestion for an application."]
module CreateIngestionDestinationResponse =
  struct
    type nonrec t =
      {
      ingestionDestination: IngestionDestination.t option
        [@ocaml.doc "Contains information about an ingestion destination."]}
    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 ?ingestionDestination = fun () -> { ingestionDestination }
    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
        [("ingestionDestination",
           (Option.map x.ingestionDestination
              ~f:IngestionDestination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ingestionDestination =
        (Option.map ~f:IngestionDestination.of_xml)
          (Xml.child xml_arg0 "ingestionDestination") in
      make ?ingestionDestination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ingestionDestination =
        field_map json__ "ingestionDestination" IngestionDestination.of_json in
      make ?ingestionDestination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an ingestion destination, which specifies how an application's ingested data is processed by Amazon Web Services AppFabric and where it's delivered."]
module CreateIngestionDestinationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      ingestionIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the ingestion to use for the request."];
      processingConfiguration: ProcessingConfiguration.t
        [@ocaml.doc
          "Contains information about how ingested data is processed."];
      destinationConfiguration: DestinationConfiguration.t
        [@ocaml.doc
          "Contains information about the destination of ingested data."];
      clientToken: UUID.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."];
      tags: TagList.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateIngestionDestinationRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~appBundleIdentifier ->
          fun ~ingestionIdentifier ->
            fun ~processingConfiguration ->
              fun ~destinationConfiguration ->
                fun () ->
                  {
                    clientToken;
                    tags;
                    appBundleIdentifier;
                    ingestionIdentifier;
                    processingConfiguration;
                    destinationConfiguration
                  }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("ingestionIdentifier",
          (Some (Identifier.to_value x.ingestionIdentifier)));
        ("processingConfiguration",
          (Some (ProcessingConfiguration.to_value x.processingConfiguration)));
        ("destinationConfiguration",
          (Some
             (DestinationConfiguration.to_value x.destinationConfiguration)));
        ("clientToken", (Option.map x.clientToken ~f:UUID.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "clientToken") in
      let destinationConfiguration =
        DestinationConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationConfiguration") in
      let processingConfiguration =
        ProcessingConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "processingConfiguration") in
      let ingestionIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ingestionIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?tags ?clientToken ~destinationConfiguration
        ~processingConfiguration ~ingestionIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" UUID.of_json in
      let destinationConfiguration =
        field_map_exn json__ "destinationConfiguration"
          DestinationConfiguration.of_json in
      let processingConfiguration =
        field_map_exn json__ "processingConfiguration"
          ProcessingConfiguration.of_json in
      let ingestionIdentifier =
        field_map_exn json__ "ingestionIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?tags ?clientToken ~destinationConfiguration
        ~processingConfiguration ~ingestionIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an ingestion destination, which specifies how an application's ingested data is processed by Amazon Web Services AppFabric and where it's delivered."]
module CreateAppBundleResponse =
  struct
    type nonrec t =
      {
      appBundle: AppBundle.t option
        [@ocaml.doc "Contains information about an app bundle."]}
    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 ?appBundle = fun () -> { appBundle }
    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
        [("appBundle", (Option.map x.appBundle ~f:AppBundle.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appBundle =
        (Option.map ~f:AppBundle.of_xml) (Xml.child xml_arg0 "appBundle") in
      make ?appBundle ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appBundle = field_map json__ "appBundle" AppBundle.of_json in
      make ?appBundle ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an app bundle to collect data from an application using AppFabric."]
module CreateAppBundleRequest =
  struct
    type nonrec t =
      {
      clientToken: UUID.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."];
      customerManagedKeyIdentifier: Identifier.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Key Management Service (KMS) key to use to encrypt the application data. If this is not specified, an Amazon Web Services owned key is used for encryption."];
      tags: TagList.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let make ?clientToken =
      fun ?customerManagedKeyIdentifier ->
        fun ?tags ->
          fun () -> { clientToken; customerManagedKeyIdentifier; tags }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:UUID.to_value));
        ("customerManagedKeyIdentifier",
          (Option.map x.customerManagedKeyIdentifier ~f:Identifier.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let customerManagedKeyIdentifier =
        (Option.map ~f:Identifier.of_xml)
          (Xml.child xml_arg0 "customerManagedKeyIdentifier") in
      let clientToken =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?tags ?customerManagedKeyIdentifier ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let customerManagedKeyIdentifier =
        field_map json__ "customerManagedKeyIdentifier" Identifier.of_json in
      let clientToken = field_map json__ "clientToken" UUID.of_json in
      make ?tags ?customerManagedKeyIdentifier ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an app bundle to collect data from an application using AppFabric."]
module CreateAppAuthorizationResponse =
  struct
    type nonrec t =
      {
      appAuthorization: AppAuthorization.t option
        [@ocaml.doc "Contains information about an app authorization."]}
    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 ?appAuthorization = fun () -> { appAuthorization }
    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
        [("appAuthorization",
           (Option.map x.appAuthorization ~f:AppAuthorization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appAuthorization =
        (Option.map ~f:AppAuthorization.of_xml)
          (Xml.child xml_arg0 "appAuthorization") in
      make ?appAuthorization ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appAuthorization =
        field_map json__ "appAuthorization" AppAuthorization.of_json in
      make ?appAuthorization ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an app authorization within an app bundle, which allows AppFabric to connect to an application."]
module CreateAppAuthorizationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      app: String255.t
        [@ocaml.doc
          "The name of the application. Valid values are: SLACK ASANA JIRA M365 M365AUDITLOGS ZOOM ZENDESK OKTA GOOGLE DROPBOX SMARTSHEET CISCO"];
      credential: Credential.t
        [@ocaml.doc
          "Contains credentials for the application, such as an API key or OAuth2 client ID and secret. Specify credentials that match the authorization type for your request. For example, if the authorization type for your request is OAuth2 (oauth2), then you should provide only the OAuth2 credentials."];
      tenant: Tenant.t
        [@ocaml.doc
          "Contains information about an application tenant, such as the application display name and identifier."];
      authType: AuthType.t
        [@ocaml.doc "The authorization type for the app authorization."];
      clientToken: UUID.t option
        [@ocaml.doc
          "Specifies a unique, case-sensitive identifier that you provide to ensure the idempotency of the request. This lets you safely retry the request without accidentally performing the same operation a second time. Passing the same value to a later call to an operation requires that you also pass the same value for all other parameters. We recommend that you use a UUID type of value. If you don't provide this value, then Amazon Web Services generates a random one for you. If you retry the operation with the same ClientToken, but with different parameters, the retry fails with an IdempotentParameterMismatch error."];
      tags: TagList.t option
        [@ocaml.doc
          "A map of the key-value pairs of the tag or tags to assign to the resource."]}
    let context_ = "CreateAppAuthorizationRequest"
    let make ?clientToken =
      fun ?tags ->
        fun ~appBundleIdentifier ->
          fun ~app ->
            fun ~credential ->
              fun ~tenant ->
                fun ~authType ->
                  fun () ->
                    {
                      clientToken;
                      tags;
                      appBundleIdentifier;
                      app;
                      credential;
                      tenant;
                      authType
                    }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("app", (Some (String255.to_value x.app)));
        ("credential", (Some (Credential.to_value x.credential)));
        ("tenant", (Some (Tenant.to_value x.tenant)));
        ("authType", (Some (AuthType.to_value x.authType)));
        ("clientToken", (Option.map x.clientToken ~f:UUID.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let clientToken =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "clientToken") in
      let authType =
        AuthType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "authType") in
      let tenant =
        Tenant.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tenant") in
      let credential =
        Credential.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "credential") in
      let app =
        String255.of_xml (Xml.child_exn ~context:context_ xml_arg0 "app") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?tags ?clientToken ~authType ~tenant ~credential ~app
        ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let clientToken = field_map json__ "clientToken" UUID.of_json in
      let authType = field_map_exn json__ "authType" AuthType.of_json in
      let tenant = field_map_exn json__ "tenant" Tenant.of_json in
      let credential = field_map_exn json__ "credential" Credential.of_json in
      let app = field_map_exn json__ "app" String255.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?tags ?clientToken ~authType ~tenant ~credential ~app
        ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an app authorization within an app bundle, which allows AppFabric to connect to an application."]
module ConnectAppAuthorizationResponse =
  struct
    type nonrec t =
      {
      appAuthorizationSummary: AppAuthorizationSummary.t option
        [@ocaml.doc "Contains a summary of the app authorization."]}
    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 ?appAuthorizationSummary = fun () -> { appAuthorizationSummary }
    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
        [("appAuthorizationSummary",
           (Option.map x.appAuthorizationSummary
              ~f:AppAuthorizationSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appAuthorizationSummary =
        (Option.map ~f:AppAuthorizationSummary.of_xml)
          (Xml.child xml_arg0 "appAuthorizationSummary") in
      make ?appAuthorizationSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appAuthorizationSummary =
        field_map json__ "appAuthorizationSummary"
          AppAuthorizationSummary.of_json in
      make ?appAuthorizationSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Establishes a connection between Amazon Web Services AppFabric and an application, which allows AppFabric to call the APIs of the application."]
module ConnectAppAuthorizationRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle that contains the app authorization to use for the request."];
      appAuthorizationIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app authorization to use for the request."];
      authRequest: AuthRequest.t option
        [@ocaml.doc
          "Contains OAuth2 authorization information. This is required if the app authorization for the request is configured with an OAuth2 (oauth2) authorization type."]}
    let context_ = "ConnectAppAuthorizationRequest"
    let make ?authRequest =
      fun ~appBundleIdentifier ->
        fun ~appAuthorizationIdentifier ->
          fun () ->
            { authRequest; appBundleIdentifier; appAuthorizationIdentifier }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("appAuthorizationIdentifier",
          (Some (Identifier.to_value x.appAuthorizationIdentifier)));
        ("authRequest", (Option.map x.authRequest ~f:AuthRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authRequest =
        (Option.map ~f:AuthRequest.of_xml) (Xml.child xml_arg0 "authRequest") in
      let appAuthorizationIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "appAuthorizationIdentifier") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ?authRequest ~appAuthorizationIdentifier ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authRequest = field_map json__ "authRequest" AuthRequest.of_json in
      let appAuthorizationIdentifier =
        field_map_exn json__ "appAuthorizationIdentifier" Identifier.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ?authRequest ~appAuthorizationIdentifier ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Establishes a connection between Amazon Web Services AppFabric and an application, which allows AppFabric to call the APIs of the application."]
module BatchGetUserAccessTasksResponse =
  struct
    type nonrec t =
      {
      userAccessResultsList: UserAccessResultsList.t option
        [@ocaml.doc "Contains a list of user access results."]}
    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 ?userAccessResultsList = fun () -> { userAccessResultsList }
    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
        [("userAccessResultsList",
           (Option.map x.userAccessResultsList
              ~f:UserAccessResultsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userAccessResultsList =
        (Option.map ~f:UserAccessResultsList.of_xml)
          (Xml.child xml_arg0 "userAccessResultsList") in
      make ?userAccessResultsList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userAccessResultsList =
        field_map json__ "userAccessResultsList"
          UserAccessResultsList.of_json in
      make ?userAccessResultsList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets user access details in a batch request. This action polls data from the tasks that are kicked off by the StartUserAccessTasks action."]
module BatchGetUserAccessTasksRequest =
  struct
    type nonrec t =
      {
      appBundleIdentifier: Identifier.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) or Universal Unique Identifier (UUID) of the app bundle to use for the request."];
      taskIdList: TaskIdList.t
        [@ocaml.doc "The tasks IDs to use for the request."]}
    let context_ = "BatchGetUserAccessTasksRequest"
    let make ~appBundleIdentifier =
      fun ~taskIdList -> fun () -> { appBundleIdentifier; taskIdList }
    let to_value x =
      structure_to_value
        [("appBundleIdentifier",
           (Some (Identifier.to_value x.appBundleIdentifier)));
        ("taskIdList", (Some (TaskIdList.to_value x.taskIdList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let taskIdList =
        TaskIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "taskIdList") in
      let appBundleIdentifier =
        Identifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appBundleIdentifier") in
      make ~taskIdList ~appBundleIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let taskIdList = field_map_exn json__ "taskIdList" TaskIdList.of_json in
      let appBundleIdentifier =
        field_map_exn json__ "appBundleIdentifier" Identifier.of_json in
      make ~taskIdList ~appBundleIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets user access details in a batch request. This action polls data from the tasks that are kicked off by the StartUserAccessTasks action."]