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.bcm_data_exports
let apiVersion = "2023-11-26"
let endpointPrefix = "bcm-data-exports"
let serviceFullName = "AWS Billing and Cost Management Data Exports"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "AWSBillingAndCostManagementDataExports"
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 GenericString =
  struct
    type nonrec t = string
    let context_ = "GenericString"
    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:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GenericString" j
    let to_json = simple_to_json to_value
  end
module TableProperty =
  struct
    type nonrec t = string
    let context_ = "TableProperty"
    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:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TableProperty" j
    let to_json = simple_to_json to_value
  end
module TablePropertyGenericString =
  struct
    type nonrec t = string
    let context_ = "TablePropertyGenericString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:16384) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TablePropertyGenericString" j
    let to_json = simple_to_json to_value
  end
module CompressionOption =
  struct
    type nonrec t =
      | GZIP 
      | PARQUET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | GZIP -> "GZIP" | PARQUET -> "PARQUET" | Non_static_id s -> s
    let of_string =
      function | "GZIP" -> GZIP | "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 CompressionOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CompressionOption" j)
    let to_json = simple_to_json to_value
  end
module FormatOption =
  struct
    type nonrec t =
      | TEXT_OR_CSV 
      | PARQUET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TEXT_OR_CSV -> "TEXT_OR_CSV"
      | PARQUET -> "PARQUET"
      | Non_static_id s -> s
    let of_string =
      function
      | "TEXT_OR_CSV" -> TEXT_OR_CSV
      | "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 FormatOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FormatOption" j)
    let to_json = simple_to_json to_value
  end
module OverwriteOption =
  struct
    type nonrec t =
      | CREATE_NEW_REPORT 
      | OVERWRITE_REPORT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_NEW_REPORT -> "CREATE_NEW_REPORT"
      | OVERWRITE_REPORT -> "OVERWRITE_REPORT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_NEW_REPORT" -> CREATE_NEW_REPORT
      | "OVERWRITE_REPORT" -> OVERWRITE_REPORT
      | 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 OverwriteOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OverwriteOption" j)
    let to_json = simple_to_json to_value
  end
module S3OutputType =
  struct
    type nonrec t =
      | CUSTOM 
      | ATHENA 
      | REDSHIFT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUSTOM -> "CUSTOM"
      | ATHENA -> "ATHENA"
      | REDSHIFT -> "REDSHIFT"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUSTOM" -> CUSTOM
      | "ATHENA" -> ATHENA
      | "REDSHIFT" -> REDSHIFT
      | 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 S3OutputType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"S3OutputType" j)
    let to_json = simple_to_json to_value
  end
module GenericStringList =
  struct
    type nonrec t = GenericString.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:GenericString.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:GenericString.of_xml)
    let of_json j =
      list_of_json ~kind:"GenericStringList" ~of_json:GenericString.of_json j
    let to_json v = composed_to_json to_value v
  end
module TableName =
  struct
    type nonrec t = string
    let context_ = "TableName"
    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:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TableName" j
    let to_json = simple_to_json to_value
  end
module TableProperties =
  struct
    type nonrec t = (TableProperty.t * TablePropertyGenericString.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TableProperty.of_string chopped),
                              (TablePropertyGenericString.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TableProperty.to_value x) |>
                    (fun x ->
                       (TablePropertyGenericString.to_value y) |>
                         (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TableProperty.of_string
        ~of_json:TablePropertyGenericString.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"[0-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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module S3OutputConfigurations =
  struct
    type nonrec t =
      {
      outputType: S3OutputType.t
        [@ocaml.doc "The output type for the data export."];
      format: FormatOption.t
        [@ocaml.doc "The file format for the data export."];
      compression: CompressionOption.t
        [@ocaml.doc "The compression type for the data export."];
      overwrite: OverwriteOption.t
        [@ocaml.doc
          "The rule to follow when generating a version of the data export file. You have the choice to overwrite the previous version or to be delivered in addition to the previous versions. Overwriting exports can save on Amazon S3 storage costs. Creating new export versions allows you to track the changes in cost and usage data over time."]}
    let context_ = "S3OutputConfigurations"
    let make ~outputType =
      fun ~format ->
        fun ~compression ->
          fun ~overwrite ->
            fun () -> { outputType; format; compression; overwrite }
    let to_value x =
      structure_to_value
        [("OutputType", (Some (S3OutputType.to_value x.outputType)));
        ("Format", (Some (FormatOption.to_value x.format)));
        ("Compression", (Some (CompressionOption.to_value x.compression)));
        ("Overwrite", (Some (OverwriteOption.to_value x.overwrite)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overwrite =
        OverwriteOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Overwrite") in
      let compression =
        CompressionOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Compression") in
      let format =
        FormatOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Format") in
      let outputType =
        S3OutputType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OutputType") in
      make ~overwrite ~compression ~format ~outputType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overwrite =
        field_map_exn json__ "Overwrite" OverwriteOption.of_json in
      let compression =
        field_map_exn json__ "Compression" CompressionOption.of_json in
      let format = field_map_exn json__ "Format" FormatOption.of_json in
      let outputType = field_map_exn json__ "OutputType" S3OutputType.of_json in
      make ~overwrite ~compression ~format ~outputType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The compression type, file format, and overwrite preference for the data export."]
module TablePropertyDescription =
  struct
    type nonrec t =
      {
      name: GenericString.t option [@ocaml.doc "The name of the table."];
      validValues: GenericStringList.t option
        [@ocaml.doc "The valid values for the table."];
      defaultValue: GenericString.t option
        [@ocaml.doc "The default value for the table."];
      description: GenericString.t option
        [@ocaml.doc "The description for the table."]}
    let make ?name =
      fun ?validValues ->
        fun ?defaultValue ->
          fun ?description ->
            fun () -> { name; validValues; defaultValue; description }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:GenericString.to_value));
        ("ValidValues",
          (Option.map x.validValues ~f:GenericStringList.to_value));
        ("DefaultValue",
          (Option.map x.defaultValue ~f:GenericString.to_value));
        ("Description", (Option.map x.description ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let defaultValue =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "DefaultValue") in
      let validValues =
        (Option.map ~f:GenericStringList.of_xml)
          (Xml.child xml_arg0 "ValidValues") in
      let name =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?description ?defaultValue ?validValues ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" GenericString.of_json in
      let defaultValue =
        field_map json__ "DefaultValue" GenericString.of_json in
      let validValues =
        field_map json__ "ValidValues" GenericStringList.of_json in
      let name = field_map json__ "Name" GenericString.of_json in
      make ?description ?defaultValue ?validValues ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The properties for the data export table."]
module ExecutionStatusReason =
  struct
    type nonrec t =
      | INSUFFICIENT_PERMISSION 
      | BILL_OWNER_CHANGED 
      | INTERNAL_FAILURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INSUFFICIENT_PERMISSION -> "INSUFFICIENT_PERMISSION"
      | BILL_OWNER_CHANGED -> "BILL_OWNER_CHANGED"
      | INTERNAL_FAILURE -> "INTERNAL_FAILURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INSUFFICIENT_PERMISSION" -> INSUFFICIENT_PERMISSION
      | "BILL_OWNER_CHANGED" -> BILL_OWNER_CHANGED
      | "INTERNAL_FAILURE" -> INTERNAL_FAILURE
      | 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 ExecutionStatusReason" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ExecutionStatusReason" j)
    let to_json = simple_to_json to_value
  end
module ExportStatusCode =
  struct
    type nonrec t =
      | HEALTHY 
      | UNHEALTHY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | HEALTHY -> "HEALTHY"
      | UNHEALTHY -> "UNHEALTHY"
      | Non_static_id s -> s
    let of_string =
      function
      | "HEALTHY" -> HEALTHY
      | "UNHEALTHY" -> UNHEALTHY
      | 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 ExportStatusCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExportStatusCode" j)
    let to_json = simple_to_json to_value
  end
module SyntheticTimestamp_date_time =
  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 ExecutionStatusCode =
  struct
    type nonrec t =
      | INITIATION_IN_PROCESS 
      | QUERY_QUEUED 
      | QUERY_IN_PROCESS 
      | QUERY_FAILURE 
      | DELIVERY_IN_PROCESS 
      | DELIVERY_SUCCESS 
      | DELIVERY_FAILURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INITIATION_IN_PROCESS -> "INITIATION_IN_PROCESS"
      | QUERY_QUEUED -> "QUERY_QUEUED"
      | QUERY_IN_PROCESS -> "QUERY_IN_PROCESS"
      | QUERY_FAILURE -> "QUERY_FAILURE"
      | DELIVERY_IN_PROCESS -> "DELIVERY_IN_PROCESS"
      | DELIVERY_SUCCESS -> "DELIVERY_SUCCESS"
      | DELIVERY_FAILURE -> "DELIVERY_FAILURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INITIATION_IN_PROCESS" -> INITIATION_IN_PROCESS
      | "QUERY_QUEUED" -> QUERY_QUEUED
      | "QUERY_IN_PROCESS" -> QUERY_IN_PROCESS
      | "QUERY_FAILURE" -> QUERY_FAILURE
      | "DELIVERY_IN_PROCESS" -> DELIVERY_IN_PROCESS
      | "DELIVERY_SUCCESS" -> DELIVERY_SUCCESS
      | "DELIVERY_FAILURE" -> DELIVERY_FAILURE
      | 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 ExecutionStatusCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionStatusCode" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: GenericString.t option
        [@ocaml.doc "The field name where the invalid entry was detected."];
      message: GenericString.t option
        [@ocaml.doc
          "A message with the reason for the validation exception error."]}
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:GenericString.to_value));
        ("Message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Message") in
      let name =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      let name = field_map json__ "Name" GenericString.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 QueryStatement =
  struct
    type nonrec t = string
    let context_ = "QueryStatement"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:36000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"QueryStatement" j
    let to_json = simple_to_json to_value
  end
module TableConfigurations =
  struct
    type nonrec t = (TableName.t * TableProperties.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types TableName TableProperties"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TableName.to_value x) |>
                    (fun x ->
                       (TableProperties.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TableName.of_string
        ~of_json:TableProperties.of_json j
    let to_json v = composed_to_json to_value v
  end
module S3Destination =
  struct
    type nonrec t =
      {
      s3Bucket: GenericString.t
        [@ocaml.doc
          "The name of the Amazon S3 bucket used as the destination of a data export file."];
      s3BucketOwner: AccountId.t option
        [@ocaml.doc
          "The AWS Account ID that owns the S3 bucket used as the destination for the data export."];
      s3Prefix: GenericString.t
        [@ocaml.doc
          "The S3 path prefix you want prepended to the name of your data export."];
      s3Region: GenericString.t [@ocaml.doc "The S3 bucket Region."];
      s3OutputConfigurations: S3OutputConfigurations.t
        [@ocaml.doc "The output configuration for the data export."]}
    let context_ = "S3Destination"
    let make ?s3BucketOwner =
      fun ~s3Bucket ->
        fun ~s3Prefix ->
          fun ~s3Region ->
            fun ~s3OutputConfigurations ->
              fun () ->
                {
                  s3BucketOwner;
                  s3Bucket;
                  s3Prefix;
                  s3Region;
                  s3OutputConfigurations
                }
    let to_value x =
      structure_to_value
        [("S3Bucket", (Some (GenericString.to_value x.s3Bucket)));
        ("S3BucketOwner", (Option.map x.s3BucketOwner ~f:AccountId.to_value));
        ("S3Prefix", (Some (GenericString.to_value x.s3Prefix)));
        ("S3Region", (Some (GenericString.to_value x.s3Region)));
        ("S3OutputConfigurations",
          (Some (S3OutputConfigurations.to_value x.s3OutputConfigurations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3OutputConfigurations =
        S3OutputConfigurations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3OutputConfigurations") in
      let s3Region =
        GenericString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3Region") in
      let s3Prefix =
        GenericString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3Prefix") in
      let s3BucketOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "S3BucketOwner") in
      let s3Bucket =
        GenericString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3Bucket") in
      make ~s3OutputConfigurations ~s3Region ~s3Prefix ?s3BucketOwner
        ~s3Bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3OutputConfigurations =
        field_map_exn json__ "S3OutputConfigurations"
          S3OutputConfigurations.of_json in
      let s3Region = field_map_exn json__ "S3Region" GenericString.of_json in
      let s3Prefix = field_map_exn json__ "S3Prefix" GenericString.of_json in
      let s3BucketOwner = field_map json__ "S3BucketOwner" AccountId.of_json in
      let s3Bucket = field_map_exn json__ "S3Bucket" GenericString.of_json in
      make ~s3OutputConfigurations ~s3Region ~s3Prefix ?s3BucketOwner
        ~s3Bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the destination Amazon Simple Storage Service (Amazon S3) bucket name and object keys of a data exports file."]
module FrequencyOption =
  struct
    type nonrec t =
      | SYNCHRONOUS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SYNCHRONOUS -> "SYNCHRONOUS" | Non_static_id s -> s
    let of_string =
      function | "SYNCHRONOUS" -> SYNCHRONOUS | 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 FrequencyOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FrequencyOption" j)
    let to_json = simple_to_json to_value
  end
module ResourceTagKey =
  struct
    type nonrec t = string
    let context_ = "ResourceTagKey"
    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:"ResourceTagKey" j
    let to_json = simple_to_json to_value
  end
module ResourceTagValue =
  struct
    type nonrec t = string
    let context_ = "ResourceTagValue"
    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:"ResourceTagValue" j
    let to_json = simple_to_json to_value
  end
module TablePropertyDescriptionList =
  struct
    type nonrec t = TablePropertyDescription.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:TablePropertyDescription.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:TablePropertyDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"TablePropertyDescriptionList"
        ~of_json:TablePropertyDescription.of_json j
    let to_json v = composed_to_json to_value v
  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:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws[-a-z0-9]*:(bcm-data-exports):[-a-z0-9]*:[0-9]{12}:[-a-zA-Z0-9/:_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module ExportName =
  struct
    type nonrec t = string
    let context_ = "ExportName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9A-Za-z\\-_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExportName" j
    let to_json = simple_to_json to_value
  end
module ExportStatus =
  struct
    type nonrec t =
      {
      statusCode: ExportStatusCode.t option
        [@ocaml.doc "The status code for the request."];
      statusReason: ExecutionStatusReason.t option
        [@ocaml.doc "The description for the status code."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp of when the export was created."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp of when the export was updated."];
      lastRefreshedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The timestamp of when the export was last generated."]}
    let make ?statusCode =
      fun ?statusReason ->
        fun ?createdAt ->
          fun ?lastUpdatedAt ->
            fun ?lastRefreshedAt ->
              fun () ->
                {
                  statusCode;
                  statusReason;
                  createdAt;
                  lastUpdatedAt;
                  lastRefreshedAt
                }
    let to_value x =
      structure_to_value
        [("StatusCode",
           (Option.map x.statusCode ~f:ExportStatusCode.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:ExecutionStatusReason.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value));
        ("LastRefreshedAt",
          (Option.map x.lastRefreshedAt
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastRefreshedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastRefreshedAt") in
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let statusReason =
        (Option.map ~f:ExecutionStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let statusCode =
        (Option.map ~f:ExportStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      make ?lastRefreshedAt ?lastUpdatedAt ?createdAt ?statusReason
        ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastRefreshedAt =
        field_map json__ "LastRefreshedAt"
          SyntheticTimestamp_date_time.of_json in
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let statusReason =
        field_map json__ "StatusReason" ExecutionStatusReason.of_json in
      let statusCode = field_map json__ "StatusCode" ExportStatusCode.of_json in
      make ?lastRefreshedAt ?lastUpdatedAt ?createdAt ?statusReason
        ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The status of the data export."]
module ExecutionStatus =
  struct
    type nonrec t =
      {
      statusCode: ExecutionStatusCode.t option
        [@ocaml.doc "The code for the status of the execution."];
      statusReason: ExecutionStatusReason.t option
        [@ocaml.doc "The reason for the failed status."];
      createdAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time when the execution was created."];
      completedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time when the execution was completed."];
      lastUpdatedAt: SyntheticTimestamp_date_time.t option
        [@ocaml.doc "The time when the execution was last updated."]}
    let make ?statusCode =
      fun ?statusReason ->
        fun ?createdAt ->
          fun ?completedAt ->
            fun ?lastUpdatedAt ->
              fun () ->
                {
                  statusCode;
                  statusReason;
                  createdAt;
                  completedAt;
                  lastUpdatedAt
                }
    let to_value x =
      structure_to_value
        [("StatusCode",
           (Option.map x.statusCode ~f:ExecutionStatusCode.to_value));
        ("StatusReason",
          (Option.map x.statusReason ~f:ExecutionStatusReason.to_value));
        ("CreatedAt",
          (Option.map x.createdAt ~f:SyntheticTimestamp_date_time.to_value));
        ("CompletedAt",
          (Option.map x.completedAt ~f:SyntheticTimestamp_date_time.to_value));
        ("LastUpdatedAt",
          (Option.map x.lastUpdatedAt
             ~f:SyntheticTimestamp_date_time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastUpdatedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "LastUpdatedAt") in
      let completedAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CompletedAt") in
      let createdAt =
        (Option.map ~f:SyntheticTimestamp_date_time.of_xml)
          (Xml.child xml_arg0 "CreatedAt") in
      let statusReason =
        (Option.map ~f:ExecutionStatusReason.of_xml)
          (Xml.child xml_arg0 "StatusReason") in
      let statusCode =
        (Option.map ~f:ExecutionStatusCode.of_xml)
          (Xml.child xml_arg0 "StatusCode") in
      make ?lastUpdatedAt ?completedAt ?createdAt ?statusReason ?statusCode
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastUpdatedAt =
        field_map json__ "LastUpdatedAt" SyntheticTimestamp_date_time.of_json in
      let completedAt =
        field_map json__ "CompletedAt" SyntheticTimestamp_date_time.of_json in
      let createdAt =
        field_map json__ "CreatedAt" SyntheticTimestamp_date_time.of_json in
      let statusReason =
        field_map json__ "StatusReason" ExecutionStatusReason.of_json in
      let statusCode =
        field_map json__ "StatusCode" ExecutionStatusCode.of_json in
      make ?lastUpdatedAt ?completedAt ?createdAt ?statusReason ?statusCode
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The status of the execution."]
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 DataQuery =
  struct
    type nonrec t =
      {
      queryStatement: QueryStatement.t [@ocaml.doc "The query statement."];
      tableConfigurations: TableConfigurations.t option
        [@ocaml.doc "The table configuration."]}
    let context_ = "DataQuery"
    let make ?tableConfigurations =
      fun ~queryStatement ->
        fun () -> { tableConfigurations; queryStatement }
    let to_value x =
      structure_to_value
        [("QueryStatement",
           (Some (QueryStatement.to_value x.queryStatement)));
        ("TableConfigurations",
          (Option.map x.tableConfigurations ~f:TableConfigurations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableConfigurations =
        (Option.map ~f:TableConfigurations.of_xml)
          (Xml.child xml_arg0 "TableConfigurations") in
      let queryStatement =
        QueryStatement.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QueryStatement") in
      make ?tableConfigurations ~queryStatement ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableConfigurations =
        field_map json__ "TableConfigurations" TableConfigurations.of_json in
      let queryStatement =
        field_map_exn json__ "QueryStatement" QueryStatement.of_json in
      make ?tableConfigurations ~queryStatement ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The SQL query of column selections and row filters from the data table you want."]
module DestinationConfigurations =
  struct
    type nonrec t =
      {
      s3Destination: S3Destination.t
        [@ocaml.doc
          "An object that describes the destination of the data exports file."]}
    let context_ = "DestinationConfigurations"
    let make ~s3Destination = fun () -> { s3Destination }
    let to_value x =
      structure_to_value
        [("S3Destination", (Some (S3Destination.to_value x.s3Destination)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Destination =
        S3Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "S3Destination") in
      make ~s3Destination ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Destination =
        field_map_exn json__ "S3Destination" S3Destination.of_json in
      make ~s3Destination ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The destinations used for data exports."]
module RefreshCadence =
  struct
    type nonrec t =
      {
      frequency: FrequencyOption.t
        [@ocaml.doc
          "The frequency that data exports are updated. The export refreshes each time the source data updates, up to three times daily."]}
    let context_ = "RefreshCadence"
    let make ~frequency = fun () -> { frequency }
    let to_value x =
      structure_to_value
        [("Frequency", (Some (FrequencyOption.to_value x.frequency)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let frequency =
        FrequencyOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Frequency") in
      make ~frequency ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let frequency =
        field_map_exn json__ "Frequency" FrequencyOption.of_json in
      make ~frequency ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The cadence for Amazon Web Services to update the data export in your S3 bucket."]
module ResourceTag =
  struct
    type nonrec t =
      {
      key: ResourceTagKey.t
        [@ocaml.doc "The key that's associated with the tag."];
      value: ResourceTagValue.t
        [@ocaml.doc "The value that's associated with the tag."]}
    let context_ = "ResourceTag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (ResourceTagKey.to_value x.key)));
        ("Value", (Some (ResourceTagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        ResourceTagValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        ResourceTagKey.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" ResourceTagValue.of_json in
      let key = field_map_exn json__ "Key" ResourceTagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tag structure that contains a tag key and value."]
module Table =
  struct
    type nonrec t =
      {
      tableName: TableName.t option [@ocaml.doc "The name of the table."];
      description: GenericString.t option
        [@ocaml.doc "The description for the table."];
      tableProperties: TablePropertyDescriptionList.t option
        [@ocaml.doc "The properties for the table."]}
    let make ?tableName =
      fun ?description ->
        fun ?tableProperties ->
          fun () -> { tableName; description; tableProperties }
    let to_value x =
      structure_to_value
        [("TableName", (Option.map x.tableName ~f:TableName.to_value));
        ("Description", (Option.map x.description ~f:GenericString.to_value));
        ("TableProperties",
          (Option.map x.tableProperties
             ~f:TablePropertyDescriptionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableProperties =
        (Option.map ~f:TablePropertyDescriptionList.of_xml)
          (Xml.child xml_arg0 "TableProperties") in
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let tableName =
        (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "TableName") in
      make ?tableProperties ?description ?tableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableProperties =
        field_map json__ "TableProperties"
          TablePropertyDescriptionList.of_json in
      let description = field_map json__ "Description" GenericString.of_json in
      let tableName = field_map json__ "TableName" TableName.of_json in
      make ?tableProperties ?description ?tableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details for the data export table."]
module ExportReference =
  struct
    type nonrec t =
      {
      exportArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."];
      exportName: ExportName.t option
        [@ocaml.doc "The name of this specific data export."];
      exportStatus: ExportStatus.t option
        [@ocaml.doc "The status of this specific data export."]}
    let make ?exportArn =
      fun ?exportName ->
        fun ?exportStatus ->
          fun () -> { exportArn; exportName; exportStatus }
    let to_value x =
      structure_to_value
        [("ExportArn", (Option.map x.exportArn ~f:Arn.to_value));
        ("ExportName", (Option.map x.exportName ~f:ExportName.to_value));
        ("ExportStatus",
          (Option.map x.exportStatus ~f:ExportStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportStatus =
        (Option.map ~f:ExportStatus.of_xml)
          (Xml.child xml_arg0 "ExportStatus") in
      let exportName =
        (Option.map ~f:ExportName.of_xml) (Xml.child xml_arg0 "ExportName") in
      let exportArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ExportArn") in
      make ?exportStatus ?exportName ?exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportStatus = field_map json__ "ExportStatus" ExportStatus.of_json in
      let exportName = field_map json__ "ExportName" ExportName.of_json in
      let exportArn = field_map json__ "ExportArn" Arn.of_json in
      make ?exportStatus ?exportName ?exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The reference details for a given export."]
module ExecutionReference =
  struct
    type nonrec t =
      {
      executionId: GenericString.t option
        [@ocaml.doc "The ID for this specific execution."];
      executionStatus: ExecutionStatus.t option
        [@ocaml.doc "The status of this specific execution."]}
    let make ?executionId =
      fun ?executionStatus -> fun () -> { executionId; executionStatus }
    let to_value x =
      structure_to_value
        [("ExecutionId",
           (Option.map x.executionId ~f:GenericString.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus ~f:ExecutionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionStatus =
        (Option.map ~f:ExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let executionId =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ExecutionId") in
      make ?executionStatus ?executionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionStatus =
        field_map json__ "ExecutionStatus" ExecutionStatus.of_json in
      let executionId = field_map json__ "ExecutionId" GenericString.of_json in
      make ?executionStatus ?executionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The reference for the data export update."]
module Column =
  struct
    type nonrec t =
      {
      name: GenericString.t option [@ocaml.doc "The column name."];
      type_: GenericString.t option
        [@ocaml.doc "The kind of data a column stores."];
      description: GenericString.t option
        [@ocaml.doc "The description for a column."]}
    let make ?name =
      fun ?type_ ->
        fun ?description -> fun () -> { name; type_; description }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:GenericString.to_value));
        ("Type", (Option.map x.type_ ~f:GenericString.to_value));
        ("Description", (Option.map x.description ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let type_ =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Type") in
      let name =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Name") in
      make ?description ?type_ ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" GenericString.of_json in
      let type_ = field_map json__ "Type" GenericString.of_json in
      let name = field_map json__ "Name" GenericString.of_json in
      make ?description ?type_ ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Includes basic information for a data column such as its description, name, and type."]
module InternalServerException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An error on the server occurred during the processing of your request. Try again later."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: GenericString.t option ;
      resourceId: GenericString.t option
        [@ocaml.doc "The identifier of the resource that was not found."];
      resourceType: GenericString.t option
        [@ocaml.doc "The type of the resource that was not found."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:GenericString.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:GenericString.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      let resourceId = field_map json__ "ResourceId" GenericString.of_json in
      let message = field_map json__ "Message" GenericString.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified Amazon Resource Name (ARN) in the request doesn't exist."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: GenericString.t option ;
      quotaCode: GenericString.t option
        [@ocaml.doc "The quota code that exceeded the throttling limit."];
      serviceCode: GenericString.t option
        [@ocaml.doc
          "The service code that exceeded the throttling limit. It will always be \226\128\156AWSBillingAndCostManagementDataExports\226\128\157."]}
    let make ?message =
      fun ?quotaCode ->
        fun ?serviceCode -> fun () -> { message; quotaCode; serviceCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:GenericString.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:GenericString.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ServiceCode") in
      let quotaCode =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let message =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Message") in
      make ?serviceCode ?quotaCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode = field_map json__ "ServiceCode" GenericString.of_json in
      let quotaCode = field_map json__ "QuotaCode" GenericString.of_json in
      let message = field_map json__ "Message" GenericString.of_json in
      make ?serviceCode ?quotaCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: GenericString.t option ;
      reason: ValidationExceptionReason.t option
        [@ocaml.doc "The reason for the validation exception."];
      fields: ValidationExceptionFieldList.t option
        [@ocaml.doc "The list of fields that are invalid."]}
    let make ?message =
      fun ?reason -> fun ?fields -> fun () -> { message; reason; fields }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:GenericString.to_value));
        ("Reason",
          (Option.map x.reason ~f:ValidationExceptionReason.to_value));
        ("Fields",
          (Option.map x.fields ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "Fields") in
      let reason =
        (Option.map ~f:ValidationExceptionReason.of_xml)
          (Xml.child xml_arg0 "Reason") in
      let message =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Message") in
      make ?fields ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map json__ "Fields" ValidationExceptionFieldList.of_json in
      let reason =
        field_map json__ "Reason" ValidationExceptionReason.of_json in
      let message = field_map json__ "Message" GenericString.of_json in
      make ?fields ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an Amazon Web Services service."]
module Export =
  struct
    type nonrec t =
      {
      exportArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."];
      name: ExportName.t
        [@ocaml.doc "The name of this specific data export."];
      description: GenericString.t option
        [@ocaml.doc "The description for this specific data export."];
      dataQuery: DataQuery.t
        [@ocaml.doc "The data query for this specific data export."];
      destinationConfigurations: DestinationConfigurations.t
        [@ocaml.doc
          "The destination configuration for this specific data export."];
      refreshCadence: RefreshCadence.t
        [@ocaml.doc
          "The cadence for Amazon Web Services to update the export in your S3 bucket."]}
    let context_ = "Export"
    let make ?exportArn =
      fun ?description ->
        fun ~name ->
          fun ~dataQuery ->
            fun ~destinationConfigurations ->
              fun ~refreshCadence ->
                fun () ->
                  {
                    exportArn;
                    description;
                    name;
                    dataQuery;
                    destinationConfigurations;
                    refreshCadence
                  }
    let to_value x =
      structure_to_value
        [("ExportArn", (Option.map x.exportArn ~f:Arn.to_value));
        ("Name", (Some (ExportName.to_value x.name)));
        ("Description", (Option.map x.description ~f:GenericString.to_value));
        ("DataQuery", (Some (DataQuery.to_value x.dataQuery)));
        ("DestinationConfigurations",
          (Some
             (DestinationConfigurations.to_value x.destinationConfigurations)));
        ("RefreshCadence", (Some (RefreshCadence.to_value x.refreshCadence)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let refreshCadence =
        RefreshCadence.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RefreshCadence") in
      let destinationConfigurations =
        DestinationConfigurations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "DestinationConfigurations") in
      let dataQuery =
        DataQuery.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DataQuery") in
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let name =
        ExportName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      let exportArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ExportArn") in
      make ~refreshCadence ~destinationConfigurations ~dataQuery ?description
        ~name ?exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let refreshCadence =
        field_map_exn json__ "RefreshCadence" RefreshCadence.of_json in
      let destinationConfigurations =
        field_map_exn json__ "DestinationConfigurations"
          DestinationConfigurations.of_json in
      let dataQuery = field_map_exn json__ "DataQuery" DataQuery.of_json in
      let description = field_map json__ "Description" GenericString.of_json in
      let name = field_map_exn json__ "Name" ExportName.of_json in
      let exportArn = field_map json__ "ExportArn" Arn.of_json in
      make ~refreshCadence ~destinationConfigurations ~dataQuery ?description
        ~name ?exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details that are available for an export."]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: GenericString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:GenericString.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" GenericString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You don't have sufficient access to perform this action."]
module ResourceTagKeyList =
  struct
    type nonrec t = ResourceTagKey.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:ResourceTagKey.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:ResourceTagKey.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagKeyList" ~of_json:ResourceTagKey.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ResourceTagList =
  struct
    type nonrec t = ResourceTag.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:ResourceTag.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:ResourceTag.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourceTagList" ~of_json:ResourceTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextPageToken =
  struct
    type nonrec t = string
    let context_ = "NextPageToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:8192) >>=
                  (fun () -> check_pattern i ~pattern:"[\\S\\s]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextPageToken" j
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:300) >>= (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 TableList =
  struct
    type nonrec t = Table.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:Table.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:Table.of_xml)
    let of_json j = list_of_json ~kind:"TableList" ~of_json:Table.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExportReferenceList =
  struct
    type nonrec t = ExportReference.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:ExportReference.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:ExportReference.of_xml)
    let of_json j =
      list_of_json ~kind:"ExportReferenceList"
        ~of_json:ExportReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExecutionReferenceList =
  struct
    type nonrec t = ExecutionReference.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:ExecutionReference.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:ExecutionReference.of_xml)
    let of_json j =
      list_of_json ~kind:"ExecutionReferenceList"
        ~of_json:ExecutionReference.of_json j
    let to_json v = composed_to_json to_value v
  end
module ColumnList =
  struct
    type nonrec t = Column.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:Column.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:Column.of_xml)
    let of_json j = list_of_json ~kind:"ColumnList" ~of_json:Column.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: GenericString.t option ;
      resourceId: GenericString.t option
        [@ocaml.doc "The identifier of the resource that exceeded quota."];
      resourceType: GenericString.t option
        [@ocaml.doc "The type of the resource that exceeded quota."];
      quotaCode: GenericString.t option
        [@ocaml.doc "The quota code that was exceeded."];
      serviceCode: GenericString.t option
        [@ocaml.doc
          "The service code that exceeded quota. It will always be \226\128\156AWSBillingAndCostManagementDataExports\226\128\157."]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?quotaCode ->
            fun ?serviceCode ->
              fun () ->
                { message; resourceId; resourceType; quotaCode; serviceCode }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:GenericString.to_value));
        ("ResourceId", (Option.map x.resourceId ~f:GenericString.to_value));
        ("ResourceType",
          (Option.map x.resourceType ~f:GenericString.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:GenericString.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:GenericString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceCode =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ServiceCode") in
      let quotaCode =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let resourceType =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      let resourceId =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ResourceId") in
      let message =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Message") in
      make ?serviceCode ?quotaCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceCode = field_map json__ "ServiceCode" GenericString.of_json in
      let quotaCode = field_map json__ "QuotaCode" GenericString.of_json in
      let resourceType =
        field_map json__ "ResourceType" GenericString.of_json in
      let resourceId = field_map json__ "ResourceId" GenericString.of_json in
      let message = field_map json__ "Message" GenericString.of_json in
      make ?serviceCode ?quotaCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've reached the limit on the number of resources you can create, or exceeded the size of an individual resource."]
module UpdateExportResponse =
  struct
    type nonrec t =
      {
      exportArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."]}
    type nonrec error =
      [ `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 ?exportArn = fun () -> { exportArn }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("ExportArn", (Option.map x.exportArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ExportArn") in
      make ?exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportArn = field_map json__ "ExportArn" Arn.of_json in
      make ?exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing data export by overwriting all export parameters. All export parameters must be provided in the UpdateExport request."]
module UpdateExportRequest =
  struct
    type nonrec t =
      {
      exportArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."];
      export: Export.t
        [@ocaml.doc "The name and query details for the export."]}
    let context_ = "UpdateExportRequest"
    let make ~exportArn = fun ~export -> fun () -> { exportArn; export }
    let to_value x =
      structure_to_value
        [("ExportArn", (Some (Arn.to_value x.exportArn)));
        ("Export", (Some (Export.to_value x.export)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let export =
        Export.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Export") in
      let exportArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ExportArn") in
      make ~export ~exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let export = field_map_exn json__ "Export" Export.of_json in
      let exportArn = field_map_exn json__ "ExportArn" Arn.of_json in
      make ~export ~exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing data export by overwriting all export parameters. All export parameters must be provided in the UpdateExport request."]
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
       "Deletes tags associated with an existing data export definition."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The unique identifier for the resource."];
      resourceTagKeys: ResourceTagKeyList.t
        [@ocaml.doc
          "The tag keys that are associated with the resource ARN."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~resourceTagKeys -> fun () -> { resourceArn; resourceTagKeys }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("ResourceTagKeys",
          (Some (ResourceTagKeyList.to_value x.resourceTagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTagKeys =
        ResourceTagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceTagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceTagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTagKeys =
        field_map_exn json__ "ResourceTagKeys" ResourceTagKeyList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~resourceTagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes tags associated with an existing data export definition."]
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 "Adds tags for an existing data export definition."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The unique identifier for the resource."];
      resourceTags: ResourceTagList.t
        [@ocaml.doc
          "The tags to associate with the resource. Each tag consists of a key and a value, and each key must be unique for the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn =
      fun ~resourceTags -> fun () -> { resourceArn; resourceTags }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("ResourceTags", (Some (ResourceTagList.to_value x.resourceTags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        ResourceTagList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceTags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ~resourceTags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map_exn json__ "ResourceTags" ResourceTagList.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ~resourceTags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds tags for an existing data export definition."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      resourceTags: ResourceTagList.t option
        [@ocaml.doc
          "An optional list of tags to associate with the specified export. Each tag consists of a key and a value, and each key must be unique for the resource."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of 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 ?resourceTags =
      fun ?nextToken -> fun () -> { resourceTags; 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
        [("ResourceTags",
           (Option.map x.resourceTags ~f:ResourceTagList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "ResourceTags") in
      make ?nextToken ?resourceTags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      let resourceTags =
        field_map json__ "ResourceTags" ResourceTagList.of_json in
      make ?nextToken ?resourceTags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List tags associated with an existing data export."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc "The unique identifier for the resource."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that are returned for the request."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resourceArn -> fun () -> { maxResults; nextToken; resourceArn }
    let to_value x =
      structure_to_value
        [("ResourceArn", (Some (Arn.to_value x.resourceArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ResourceArn") in
      make ?nextToken ?maxResults ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Arn.of_json in
      make ?nextToken ?maxResults ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List tags associated with an existing data export."]
module ListTablesResponse =
  struct
    type nonrec t =
      {
      tables: TableList.t option [@ocaml.doc "The list of tables."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tables = fun ?nextToken -> fun () -> { tables; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("Tables", (Option.map x.tables ~f:TableList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tables =
        (Option.map ~f:TableList.of_xml) (Xml.child xml_arg0 "Tables") in
      make ?nextToken ?tables ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      let tables = field_map json__ "Tables" TableList.of_json in
      make ?nextToken ?tables ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available tables in data exports."]
module ListTablesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that are returned for the request."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available tables in data exports."]
module ListExportsResponse =
  struct
    type nonrec t =
      {
      exports: ExportReferenceList.t option
        [@ocaml.doc
          "The details of the exports, including name and export status."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?exports = fun ?nextToken -> fun () -> { exports; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("Exports", (Option.map x.exports ~f:ExportReferenceList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let exports =
        (Option.map ~f:ExportReferenceList.of_xml)
          (Xml.child xml_arg0 "Exports") in
      make ?nextToken ?exports ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      let exports = field_map json__ "Exports" ExportReferenceList.of_json in
      make ?nextToken ?exports ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all data export definitions."]
module ListExportsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that are returned for the request."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.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" NextPageToken.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 "Lists all data export definitions."]
module ListExecutionsResponse =
  struct
    type nonrec t =
      {
      executions: ExecutionReferenceList.t option
        [@ocaml.doc "The list of executions."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    type nonrec error =
      [ `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 ?executions =
      fun ?nextToken -> fun () -> { executions; nextToken }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("Executions",
           (Option.map x.executions ~f:ExecutionReferenceList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let executions =
        (Option.map ~f:ExecutionReferenceList.of_xml)
          (Xml.child xml_arg0 "Executions") in
      make ?nextToken ?executions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      let executions =
        field_map json__ "Executions" ExecutionReferenceList.of_json in
      make ?nextToken ?executions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the historical executions for the export."]
module ListExecutionsRequest =
  struct
    type nonrec t =
      {
      exportArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of objects that are returned for the request."];
      nextToken: NextPageToken.t option
        [@ocaml.doc "The token to retrieve the next set of results."]}
    let context_ = "ListExecutionsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~exportArn -> fun () -> { maxResults; nextToken; exportArn }
    let to_value x =
      structure_to_value
        [("ExportArn", (Some (Arn.to_value x.exportArn)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextPageToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextPageToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let exportArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ExportArn") in
      make ?nextToken ?maxResults ~exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextPageToken.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let exportArn = field_map_exn json__ "ExportArn" Arn.of_json in
      make ?nextToken ?maxResults ~exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the historical executions for the export."]
module GetTableResponse =
  struct
    type nonrec t =
      {
      tableName: TableName.t option [@ocaml.doc "The name of the table."];
      description: GenericString.t option
        [@ocaml.doc "The table description."];
      tableProperties: TableProperties.t option
        [@ocaml.doc
          "TableProperties are additional configurations you can provide to change the data and schema of a table. Each table can have different TableProperties. Tables are not required to have any TableProperties. Each table property has a default value that it assumes if not specified."];
      schema: ColumnList.t option [@ocaml.doc "The schema of the table."]}
    type nonrec error =
      [ `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tableName =
      fun ?description ->
        fun ?tableProperties ->
          fun ?schema ->
            fun () -> { tableName; description; tableProperties; schema }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("TableName", (Option.map x.tableName ~f:TableName.to_value));
        ("Description", (Option.map x.description ~f:GenericString.to_value));
        ("TableProperties",
          (Option.map x.tableProperties ~f:TableProperties.to_value));
        ("Schema", (Option.map x.schema ~f:ColumnList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schema =
        (Option.map ~f:ColumnList.of_xml) (Xml.child xml_arg0 "Schema") in
      let tableProperties =
        (Option.map ~f:TableProperties.of_xml)
          (Xml.child xml_arg0 "TableProperties") in
      let description =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "Description") in
      let tableName =
        (Option.map ~f:TableName.of_xml) (Xml.child xml_arg0 "TableName") in
      make ?schema ?tableProperties ?description ?tableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schema = field_map json__ "Schema" ColumnList.of_json in
      let tableProperties =
        field_map json__ "TableProperties" TableProperties.of_json in
      let description = field_map json__ "Description" GenericString.of_json in
      let tableName = field_map json__ "TableName" TableName.of_json in
      make ?schema ?tableProperties ?description ?tableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the metadata for the specified table and table properties. This includes the list of columns in the table schema, their data types, and column descriptions."]
module GetTableRequest =
  struct
    type nonrec t =
      {
      tableName: TableName.t [@ocaml.doc "The name of the table."];
      tableProperties: TableProperties.t option
        [@ocaml.doc
          "TableProperties are additional configurations you can provide to change the data and schema of a table. Each table can have different TableProperties. Tables are not required to have any TableProperties. Each table property has a default value that it assumes if not specified."]}
    let context_ = "GetTableRequest"
    let make ?tableProperties =
      fun ~tableName -> fun () -> { tableProperties; tableName }
    let to_value x =
      structure_to_value
        [("TableName", (Some (TableName.to_value x.tableName)));
        ("TableProperties",
          (Option.map x.tableProperties ~f:TableProperties.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tableProperties =
        (Option.map ~f:TableProperties.of_xml)
          (Xml.child xml_arg0 "TableProperties") in
      let tableName =
        TableName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TableName") in
      make ?tableProperties ~tableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tableProperties =
        field_map json__ "TableProperties" TableProperties.of_json in
      let tableName = field_map_exn json__ "TableName" TableName.of_json in
      make ?tableProperties ~tableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the metadata for the specified table and table properties. This includes the list of columns in the table schema, their data types, and column descriptions."]
module GetExportResponse =
  struct
    type nonrec t =
      {
      export: Export.t option
        [@ocaml.doc "The data for this specific export."];
      exportStatus: ExportStatus.t option
        [@ocaml.doc "The status of this specific export."]}
    type nonrec error =
      [ `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 ?export =
      fun ?exportStatus -> fun () -> { export; exportStatus }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("Export", (Option.map x.export ~f:Export.to_value));
        ("ExportStatus",
          (Option.map x.exportStatus ~f:ExportStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportStatus =
        (Option.map ~f:ExportStatus.of_xml)
          (Xml.child xml_arg0 "ExportStatus") in
      let export =
        (Option.map ~f:Export.of_xml) (Xml.child xml_arg0 "Export") in
      make ?exportStatus ?export ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportStatus = field_map json__ "ExportStatus" ExportStatus.of_json in
      let export = field_map json__ "Export" Export.of_json in
      make ?exportStatus ?export ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Views the definition of an existing data export."]
module GetExportRequest =
  struct
    type nonrec t =
      {
      exportArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."]}
    let context_ = "GetExportRequest"
    let make ~exportArn = fun () -> { exportArn }
    let to_value x =
      structure_to_value [("ExportArn", (Some (Arn.to_value x.exportArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ExportArn") in
      make ~exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportArn = field_map_exn json__ "ExportArn" Arn.of_json in
      make ~exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Views the definition of an existing data export."]
module GetExecutionResponse =
  struct
    type nonrec t =
      {
      executionId: GenericString.t option
        [@ocaml.doc "The ID for this specific execution."];
      export: Export.t option
        [@ocaml.doc
          "The export data for this specific execution. This export data is a snapshot from when the execution was generated. The data could be different from the current export data if the export was updated since the execution was generated."];
      executionStatus: ExecutionStatus.t option
        [@ocaml.doc "The status of this specific execution."]}
    type nonrec error =
      [ `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 ?executionId =
      fun ?export ->
        fun ?executionStatus ->
          fun () -> { executionId; export; executionStatus }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("ExecutionId",
           (Option.map x.executionId ~f:GenericString.to_value));
        ("Export", (Option.map x.export ~f:Export.to_value));
        ("ExecutionStatus",
          (Option.map x.executionStatus ~f:ExecutionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionStatus =
        (Option.map ~f:ExecutionStatus.of_xml)
          (Xml.child xml_arg0 "ExecutionStatus") in
      let export =
        (Option.map ~f:Export.of_xml) (Xml.child xml_arg0 "Export") in
      let executionId =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ExecutionId") in
      make ?executionStatus ?export ?executionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionStatus =
        field_map json__ "ExecutionStatus" ExecutionStatus.of_json in
      let export = field_map json__ "Export" Export.of_json in
      let executionId = field_map json__ "ExecutionId" GenericString.of_json in
      make ?executionStatus ?export ?executionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Exports data based on the source data update."]
module GetExecutionRequest =
  struct
    type nonrec t =
      {
      exportArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Export object that generated this specific execution."];
      executionId: GenericString.t
        [@ocaml.doc "The ID for this specific execution."]}
    let context_ = "GetExecutionRequest"
    let make ~exportArn =
      fun ~executionId -> fun () -> { exportArn; executionId }
    let to_value x =
      structure_to_value
        [("ExportArn", (Some (Arn.to_value x.exportArn)));
        ("ExecutionId", (Some (GenericString.to_value x.executionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionId =
        GenericString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ExecutionId") in
      let exportArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ExportArn") in
      make ~executionId ~exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionId =
        field_map_exn json__ "ExecutionId" GenericString.of_json in
      let exportArn = field_map_exn json__ "ExportArn" Arn.of_json in
      make ~executionId ~exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Exports data based on the source data update."]
module DeleteExportResponse =
  struct
    type nonrec t =
      {
      exportArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."]}
    type nonrec error =
      [ `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 ?exportArn = fun () -> { exportArn }
    let error_of_json name json =
      match name with
      | "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
      | "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
      | `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
        [("ExportArn", (Option.map x.exportArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ExportArn") in
      make ?exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportArn = field_map json__ "ExportArn" Arn.of_json in
      make ?exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing data export."]
module DeleteExportRequest =
  struct
    type nonrec t =
      {
      exportArn: Arn.t
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."]}
    let context_ = "DeleteExportRequest"
    let make ~exportArn = fun () -> { exportArn }
    let to_value x =
      structure_to_value [("ExportArn", (Some (Arn.to_value x.exportArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ExportArn") in
      make ~exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportArn = field_map_exn json__ "ExportArn" Arn.of_json in
      make ~exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes an existing data export."]
module CreateExportResponse =
  struct
    type nonrec t =
      {
      exportArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) for this export."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?exportArn = fun () -> { exportArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ExportArn", (Option.map x.exportArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exportArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "ExportArn") in
      make ?exportArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exportArn = field_map json__ "ExportArn" Arn.of_json in
      make ?exportArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a data export and specifies the data query, the delivery preference, and any optional resource tags. A DataQuery consists of both a QueryStatement and TableConfigurations. The QueryStatement is an SQL statement. Data Exports only supports a limited subset of the SQL syntax. For more information on the SQL syntax that is supported, see Data query. To view the available tables and columns, see the Data Exports table dictionary. The TableConfigurations is a collection of specified TableProperties for the table being queried in the QueryStatement. TableProperties are additional configurations you can provide to change the data and schema of a table. Each table can have different TableProperties. However, tables are not required to have any TableProperties. Each table property has a default value that it assumes if not specified. For more information on table configurations, see Data query. To view the table properties available for each table, see the Data Exports table dictionary or use the ListTables API to get a response of all tables and their available properties."]
module CreateExportRequest =
  struct
    type nonrec t =
      {
      export: Export.t
        [@ocaml.doc
          "The details of the export, including data query, name, description, and destination configuration."];
      resourceTags: ResourceTagList.t option
        [@ocaml.doc
          "An optional list of tags to associate with the specified export. Each tag consists of a key and a value, and each key must be unique for the resource."]}
    let context_ = "CreateExportRequest"
    let make ?resourceTags =
      fun ~export -> fun () -> { resourceTags; export }
    let to_value x =
      structure_to_value
        [("Export", (Some (Export.to_value x.export)));
        ("ResourceTags",
          (Option.map x.resourceTags ~f:ResourceTagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceTags =
        (Option.map ~f:ResourceTagList.of_xml)
          (Xml.child xml_arg0 "ResourceTags") in
      let export =
        Export.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Export") in
      make ?resourceTags ~export ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceTags =
        field_map json__ "ResourceTags" ResourceTagList.of_json in
      let export = field_map_exn json__ "Export" Export.of_json in
      make ?resourceTags ~export ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a data export and specifies the data query, the delivery preference, and any optional resource tags. A DataQuery consists of both a QueryStatement and TableConfigurations. The QueryStatement is an SQL statement. Data Exports only supports a limited subset of the SQL syntax. For more information on the SQL syntax that is supported, see Data query. To view the available tables and columns, see the Data Exports table dictionary. The TableConfigurations is a collection of specified TableProperties for the table being queried in the QueryStatement. TableProperties are additional configurations you can provide to change the data and schema of a table. Each table can have different TableProperties. However, tables are not required to have any TableProperties. Each table property has a default value that it assumes if not specified. For more information on table configurations, see Data query. To view the table properties available for each table, see the Data Exports table dictionary or use the ListTables API to get a response of all tables and their available properties."]