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.supplychain
let apiVersion = "2024-01-01"
let endpointPrefix = "scn"
let serviceFullName = "AWS Supply Chain"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module DataIntegrationFlowFieldPriorityDedupeFieldName =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowFieldPriorityDedupeFieldName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[a-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:"DataIntegrationFlowFieldPriorityDedupeFieldName"
        j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowFieldPriorityDedupeSortOrder =
  struct
    type nonrec t =
      | ASC 
      | DESC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASC -> "ASC" | DESC -> "DESC" | Non_static_id s -> s
    let of_string =
      function | "ASC" -> ASC | "DESC" -> DESC | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration DataIntegrationFlowFieldPriorityDedupeSortOrder"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json
           ~kind:"DataIntegrationFlowFieldPriorityDedupeSortOrder" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowFieldPriorityDedupeField =
  struct
    type nonrec t =
      {
      name: DataIntegrationFlowFieldPriorityDedupeFieldName.t
        [@ocaml.doc
          "The name of the deduplication field. Must exist in the dataset and not be a primary key."];
      sortOrder: DataIntegrationFlowFieldPriorityDedupeSortOrder.t
        [@ocaml.doc "The sort order for the deduplication field."]}
    let context_ = "DataIntegrationFlowFieldPriorityDedupeField"
    let make ~name = fun ~sortOrder -> fun () -> { name; sortOrder }
    let to_value x =
      structure_to_value
        [("name",
           (Some
              (DataIntegrationFlowFieldPriorityDedupeFieldName.to_value
                 x.name)));
        ("sortOrder",
          (Some
             (DataIntegrationFlowFieldPriorityDedupeSortOrder.to_value
                x.sortOrder)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sortOrder =
        DataIntegrationFlowFieldPriorityDedupeSortOrder.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sortOrder") in
      let name =
        DataIntegrationFlowFieldPriorityDedupeFieldName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~sortOrder ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sortOrder =
        field_map_exn json__ "sortOrder"
          DataIntegrationFlowFieldPriorityDedupeSortOrder.of_json in
      let name =
        field_map_exn json__ "name"
          DataIntegrationFlowFieldPriorityDedupeFieldName.of_json in
      make ~sortOrder ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The field used in the field priority deduplication strategy."]
module DataIntegrationFlowFieldPriorityDedupeFieldList =
  struct
    type nonrec t = DataIntegrationFlowFieldPriorityDedupeField.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |>
         (List.map ~f:DataIntegrationFlowFieldPriorityDedupeField.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:DataIntegrationFlowFieldPriorityDedupeField.of_xml)
    let of_json j =
      list_of_json ~kind:"DataIntegrationFlowFieldPriorityDedupeFieldList"
        ~of_json:DataIntegrationFlowFieldPriorityDedupeField.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataIntegrationFlowDedupeStrategyType =
  struct
    type nonrec t =
      | FIELD_PRIORITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | FIELD_PRIORITY -> "FIELD_PRIORITY" | Non_static_id s -> s
    let of_string =
      function | "FIELD_PRIORITY" -> FIELD_PRIORITY | 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 DataIntegrationFlowDedupeStrategyType" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DataIntegrationFlowDedupeStrategyType" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowFieldPriorityDedupeStrategyConfiguration =
  struct
    type nonrec t =
      {
      fields: DataIntegrationFlowFieldPriorityDedupeFieldList.t
        [@ocaml.doc
          "The list of field names and their sort order for deduplication, arranged in descending priority from highest to lowest."]}
    let context_ =
      "DataIntegrationFlowFieldPriorityDedupeStrategyConfiguration"
    let make ~fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields",
           (Some
              (DataIntegrationFlowFieldPriorityDedupeFieldList.to_value
                 x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        DataIntegrationFlowFieldPriorityDedupeFieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map_exn json__ "fields"
          DataIntegrationFlowFieldPriorityDedupeFieldList.of_json in
      make ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The field priority deduplication strategy details."]
module DataLakeDatasetPartitionTransformType =
  struct
    type nonrec t =
      | YEAR 
      | MONTH 
      | DAY 
      | HOUR 
      | IDENTITY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | YEAR -> "YEAR"
      | MONTH -> "MONTH"
      | DAY -> "DAY"
      | HOUR -> "HOUR"
      | IDENTITY -> "IDENTITY"
      | Non_static_id s -> s
    let of_string =
      function
      | "YEAR" -> YEAR
      | "MONTH" -> MONTH
      | "DAY" -> DAY
      | "HOUR" -> HOUR
      | "IDENTITY" -> IDENTITY
      | 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 DataLakeDatasetPartitionTransformType" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DataLakeDatasetPartitionTransformType" j)
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowDedupeStrategy =
  struct
    type nonrec t =
      {
      type_: DataIntegrationFlowDedupeStrategyType.t
        [@ocaml.doc
          "The type of the deduplication strategy. FIELD_PRIORITY - Field priority configuration for the deduplication strategy specifies an ordered list of fields used to tie-break the data records sharing the same primary key values. Fields earlier in the list have higher priority for evaluation. For each field, the sort order determines whether to retain data record with larger or smaller field value."];
      fieldPriority:
        DataIntegrationFlowFieldPriorityDedupeStrategyConfiguration.t option
        [@ocaml.doc "The field priority deduplication strategy."]}
    let context_ = "DataIntegrationFlowDedupeStrategy"
    let make ?fieldPriority =
      fun ~type_ -> fun () -> { fieldPriority; type_ }
    let to_value x =
      structure_to_value
        [("type",
           (Some (DataIntegrationFlowDedupeStrategyType.to_value x.type_)));
        ("fieldPriority",
          (Option.map x.fieldPriority
             ~f:DataIntegrationFlowFieldPriorityDedupeStrategyConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldPriority =
        (Option.map
           ~f:DataIntegrationFlowFieldPriorityDedupeStrategyConfiguration.of_xml)
          (Xml.child xml_arg0 "fieldPriority") in
      let type_ =
        DataIntegrationFlowDedupeStrategyType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ?fieldPriority ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldPriority =
        field_map json__ "fieldPriority"
          DataIntegrationFlowFieldPriorityDedupeStrategyConfiguration.of_json in
      let type_ =
        field_map_exn json__ "type"
          DataIntegrationFlowDedupeStrategyType.of_json in
      make ?fieldPriority ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The deduplication strategy details."]
module DataIntegrationFlowLoadType =
  struct
    type nonrec t =
      | INCREMENTAL 
      | REPLACE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INCREMENTAL -> "INCREMENTAL"
      | REPLACE -> "REPLACE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INCREMENTAL" -> INCREMENTAL
      | "REPLACE" -> REPLACE
      | 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 DataIntegrationFlowLoadType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataIntegrationFlowLoadType" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowFileType =
  struct
    type nonrec t =
      | CSV 
      | PARQUET 
      | JSON 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CSV -> "CSV"
      | PARQUET -> "PARQUET"
      | JSON -> "JSON"
      | Non_static_id s -> s
    let of_string =
      function
      | "CSV" -> CSV
      | "PARQUET" -> PARQUET
      | "JSON" -> JSON
      | 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 DataIntegrationFlowFileType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataIntegrationFlowFileType" j)
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetPartitionFieldTransform =
  struct
    type nonrec t =
      {
      type_: DataLakeDatasetPartitionTransformType.t
        [@ocaml.doc
          "The type of partitioning transformation for this field. The available options are: IDENTITY - Partitions data on a given field by its exact values. YEAR - Partitions data on a timestamp field using year granularity. MONTH - Partitions data on a timestamp field using month granularity. DAY - Partitions data on a timestamp field using day granularity. HOUR - Partitions data on a timestamp field using hour granularity."]}
    let context_ = "DataLakeDatasetPartitionFieldTransform"
    let make ~type_ = fun () -> { type_ }
    let to_value x =
      structure_to_value
        [("type",
           (Some (DataLakeDatasetPartitionTransformType.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        DataLakeDatasetPartitionTransformType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      make ~type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ =
        field_map_exn json__ "type"
          DataLakeDatasetPartitionTransformType.of_json in
      make ~type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The detail of the partition field transformation."]
module DataLakeDatasetSchemaFieldName =
  struct
    type nonrec t = string
    let context_ = "DataLakeDatasetSchemaFieldName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[a-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:"DataLakeDatasetSchemaFieldName" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetSchemaFieldType =
  struct
    type nonrec t =
      | INT 
      | DOUBLE 
      | STRING 
      | TIMESTAMP 
      | LONG 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INT -> "INT"
      | DOUBLE -> "DOUBLE"
      | STRING -> "STRING"
      | TIMESTAMP -> "TIMESTAMP"
      | LONG -> "LONG"
      | Non_static_id s -> s
    let of_string =
      function
      | "INT" -> INT
      | "DOUBLE" -> DOUBLE
      | "STRING" -> STRING
      | "TIMESTAMP" -> TIMESTAMP
      | "LONG" -> LONG
      | 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 DataLakeDatasetSchemaFieldType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataLakeDatasetSchemaFieldType" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowDatasetOptions =
  struct
    type nonrec t =
      {
      loadType: DataIntegrationFlowLoadType.t option
        [@ocaml.doc
          "The target dataset's data load type. This only affects how source S3 files are selected in the S3-to-dataset flow. REPLACE - Target dataset will get replaced with the new file added under the source s3 prefix. INCREMENTAL - Target dataset will get updated with the up-to-date content under S3 prefix incorporating any file additions or removals there."];
      dedupeRecords: Boolean.t option
        [@ocaml.doc
          "The option to perform deduplication on data records sharing same primary key values. If disabled, transformed data with duplicate primary key values will ingest into dataset, for datasets within asc namespace, such duplicates will cause ingestion fail. If enabled without dedupeStrategy, deduplication is done by retaining a random data record among those sharing the same primary key values. If enabled with dedupeStragtegy, the deduplication is done following the strategy. Note that target dataset may have partition configured, when dedupe is enabled, it only dedupe against primary keys and retain only one record out of those duplicates regardless of its partition status."];
      dedupeStrategy: DataIntegrationFlowDedupeStrategy.t option
        [@ocaml.doc
          "The deduplication strategy to dedupe the data records sharing same primary key values of the target dataset. This strategy only applies to target dataset with primary keys and with dedupeRecords option enabled. If transformed data still got duplicates after the dedupeStrategy evaluation, a random data record is chosen to be retained."]}
    let make ?loadType =
      fun ?dedupeRecords ->
        fun ?dedupeStrategy ->
          fun () -> { loadType; dedupeRecords; dedupeStrategy }
    let to_value x =
      structure_to_value
        [("loadType",
           (Option.map x.loadType ~f:DataIntegrationFlowLoadType.to_value));
        ("dedupeRecords", (Option.map x.dedupeRecords ~f:Boolean.to_value));
        ("dedupeStrategy",
          (Option.map x.dedupeStrategy
             ~f:DataIntegrationFlowDedupeStrategy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dedupeStrategy =
        (Option.map ~f:DataIntegrationFlowDedupeStrategy.of_xml)
          (Xml.child xml_arg0 "dedupeStrategy") in
      let dedupeRecords =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "dedupeRecords") in
      let loadType =
        (Option.map ~f:DataIntegrationFlowLoadType.of_xml)
          (Xml.child xml_arg0 "loadType") in
      make ?dedupeStrategy ?dedupeRecords ?loadType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dedupeStrategy =
        field_map json__ "dedupeStrategy"
          DataIntegrationFlowDedupeStrategy.of_json in
      let dedupeRecords = field_map json__ "dedupeRecords" Boolean.of_json in
      let loadType =
        field_map json__ "loadType" DataIntegrationFlowLoadType.of_json in
      make ?dedupeStrategy ?dedupeRecords ?loadType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The dataset options used in dataset source and target configurations."]
module DatasetIdentifier =
  struct
    type nonrec t = string
    let context_ = "DatasetIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () -> check_pattern i ~pattern:"[-_/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:"DatasetIdentifier" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowS3Options =
  struct
    type nonrec t =
      {
      fileType: DataIntegrationFlowFileType.t option
        [@ocaml.doc "The Amazon S3 file type in S3 options."]}
    let make ?fileType = fun () -> { fileType }
    let to_value x =
      structure_to_value
        [("fileType",
           (Option.map x.fileType ~f:DataIntegrationFlowFileType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileType =
        (Option.map ~f:DataIntegrationFlowFileType.of_xml)
          (Xml.child xml_arg0 "fileType") in
      make ?fileType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileType =
        field_map json__ "fileType" DataIntegrationFlowFileType.of_json in
      make ?fileType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon S3 options used in S3 source and target configurations."]
module DataIntegrationFlowS3Prefix =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowS3Prefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:700) >>=
                  (fun () -> check_pattern i ~pattern:"[/A-Za-z0-9._-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataIntegrationFlowS3Prefix" j
    let to_json = simple_to_json to_value
  end
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-z0-9][a-z0-9.-]*[a-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:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetPartitionField =
  struct
    type nonrec t =
      {
      name: DataLakeDatasetSchemaFieldName.t
        [@ocaml.doc "The name of the partition field."];
      transform: DataLakeDatasetPartitionFieldTransform.t
        [@ocaml.doc
          "The transformation of the partition field. A transformation specifies how to partition on a given field. For example, with timestamp you can specify that you'd like to partition fields by day, e.g. data record with value 2025-01-03T00:00:00Z in partition field is in 2025-01-03 partition. Also noted that data record without any value in optional partition field is in NULL partition."]}
    let context_ = "DataLakeDatasetPartitionField"
    let make ~name = fun ~transform -> fun () -> { name; transform }
    let to_value x =
      structure_to_value
        [("name", (Some (DataLakeDatasetSchemaFieldName.to_value x.name)));
        ("transform",
          (Some (DataLakeDatasetPartitionFieldTransform.to_value x.transform)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transform =
        DataLakeDatasetPartitionFieldTransform.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transform") in
      let name =
        DataLakeDatasetSchemaFieldName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~transform ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transform =
        field_map_exn json__ "transform"
          DataLakeDatasetPartitionFieldTransform.of_json in
      let name =
        field_map_exn json__ "name" DataLakeDatasetSchemaFieldName.of_json in
      make ~transform ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The detail of the partition field."]
module DataLakeDatasetPrimaryKeyField =
  struct
    type nonrec t =
      {
      name: DataLakeDatasetSchemaFieldName.t
        [@ocaml.doc "The name of the primary key field."]}
    let context_ = "DataLakeDatasetPrimaryKeyField"
    let make ~name = fun () -> { name }
    let to_value x =
      structure_to_value
        [("name", (Some (DataLakeDatasetSchemaFieldName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataLakeDatasetSchemaFieldName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name =
        field_map_exn json__ "name" DataLakeDatasetSchemaFieldName.of_json in
      make ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The detail of the primary key field."]
module DataLakeDatasetSchemaField =
  struct
    type nonrec t =
      {
      name: DataLakeDatasetSchemaFieldName.t
        [@ocaml.doc "The dataset field name."];
      type_: DataLakeDatasetSchemaFieldType.t
        [@ocaml.doc "The dataset field type."];
      isRequired: Boolean.t
        [@ocaml.doc "Indicate if the field is required or not."]}
    let context_ = "DataLakeDatasetSchemaField"
    let make ~name =
      fun ~type_ -> fun ~isRequired -> fun () -> { name; type_; isRequired }
    let to_value x =
      structure_to_value
        [("name", (Some (DataLakeDatasetSchemaFieldName.to_value x.name)));
        ("type", (Some (DataLakeDatasetSchemaFieldType.to_value x.type_)));
        ("isRequired", (Some (Boolean.to_value x.isRequired)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isRequired =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "isRequired") in
      let type_ =
        DataLakeDatasetSchemaFieldType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let name =
        DataLakeDatasetSchemaFieldName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~isRequired ~type_ ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isRequired = field_map_exn json__ "isRequired" Boolean.of_json in
      let type_ =
        field_map_exn json__ "type" DataLakeDatasetSchemaFieldType.of_json in
      let name =
        field_map_exn json__ "name" DataLakeDatasetSchemaFieldName.of_json in
      make ~isRequired ~type_ ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The dataset field details."]
module DataIntegrationFlowDatasetSourceConfiguration =
  struct
    type nonrec t =
      {
      datasetIdentifier: DatasetIdentifier.t
        [@ocaml.doc "The ARN of the dataset."];
      options: DataIntegrationFlowDatasetOptions.t option
        [@ocaml.doc "The dataset DataIntegrationFlow source options."]}
    let context_ = "DataIntegrationFlowDatasetSourceConfiguration"
    let make ?options =
      fun ~datasetIdentifier -> fun () -> { options; datasetIdentifier }
    let to_value x =
      structure_to_value
        [("datasetIdentifier",
           (Some (DatasetIdentifier.to_value x.datasetIdentifier)));
        ("options",
          (Option.map x.options ~f:DataIntegrationFlowDatasetOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:DataIntegrationFlowDatasetOptions.of_xml)
          (Xml.child xml_arg0 "options") in
      let datasetIdentifier =
        DatasetIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetIdentifier") in
      make ?options ~datasetIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map json__ "options" DataIntegrationFlowDatasetOptions.of_json in
      let datasetIdentifier =
        field_map_exn json__ "datasetIdentifier" DatasetIdentifier.of_json in
      make ?options ~datasetIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The dataset DataIntegrationFlow source configuration parameters."]
module DataIntegrationFlowS3SourceConfiguration =
  struct
    type nonrec t =
      {
      bucketName: S3BucketName.t
        [@ocaml.doc "The bucketName of the S3 source objects."];
      prefix: DataIntegrationFlowS3Prefix.t
        [@ocaml.doc
          "The prefix of the S3 source objects. To trigger data ingestion, S3 files need to be put under s3://bucketName/prefix/."];
      options: DataIntegrationFlowS3Options.t option
        [@ocaml.doc
          "The other options of the S3 DataIntegrationFlow source."]}
    let context_ = "DataIntegrationFlowS3SourceConfiguration"
    let make ?options =
      fun ~bucketName ->
        fun ~prefix -> fun () -> { options; bucketName; prefix }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (S3BucketName.to_value x.bucketName)));
        ("prefix", (Some (DataIntegrationFlowS3Prefix.to_value x.prefix)));
        ("options",
          (Option.map x.options ~f:DataIntegrationFlowS3Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:DataIntegrationFlowS3Options.of_xml)
          (Xml.child xml_arg0 "options") in
      let prefix =
        DataIntegrationFlowS3Prefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "prefix") in
      let bucketName =
        S3BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ?options ~prefix ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map json__ "options" DataIntegrationFlowS3Options.of_json in
      let prefix =
        field_map_exn json__ "prefix" DataIntegrationFlowS3Prefix.of_json in
      let bucketName = field_map_exn json__ "bucketName" S3BucketName.of_json in
      make ?options ~prefix ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The S3 DataIntegrationFlow source configuration parameters."]
module DataIntegrationFlowSourceName =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowSourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataIntegrationFlowSourceName" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowSourceType =
  struct
    type nonrec t =
      | S3 
      | DATASET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | S3 -> "S3" | DATASET -> "DATASET" | Non_static_id s -> s
    let of_string =
      function | "S3" -> S3 | "DATASET" -> DATASET | 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 DataIntegrationFlowSourceType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataIntegrationFlowSourceType" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowSQLQuery =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowSQLQuery"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:65535) >>=
             (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:"DataIntegrationFlowSQLQuery" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationDatasetArn =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationDatasetArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:scn:([a-z0-9-]+):([0-9]+):instance/([a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12})/namespaces/[^/]+/datasets/[^/]+")));
        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:"DataIntegrationDatasetArn" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationS3ObjectKey =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationS3ObjectKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[/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:"DataIntegrationS3ObjectKey" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationEventDatasetLoadStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | IN_PROGRESS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml
           ~kind:"enumeration DataIntegrationEventDatasetLoadStatus" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DataIntegrationEventDatasetLoadStatus" j)
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetPartitionFieldList =
  struct
    type nonrec t = DataLakeDatasetPartitionField.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataLakeDatasetPartitionField.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:DataLakeDatasetPartitionField.of_xml)
    let of_json j =
      list_of_json ~kind:"DataLakeDatasetPartitionFieldList"
        ~of_json:DataLakeDatasetPartitionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataLakeDatasetPrimaryKeyFieldList =
  struct
    type nonrec t = DataLakeDatasetPrimaryKeyField.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataLakeDatasetPrimaryKeyField.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:DataLakeDatasetPrimaryKeyField.of_xml)
    let of_json j =
      list_of_json ~kind:"DataLakeDatasetPrimaryKeyFieldList"
        ~of_json:DataLakeDatasetPrimaryKeyField.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataLakeDatasetSchemaFieldList =
  struct
    type nonrec t = DataLakeDatasetSchemaField.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:500) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataLakeDatasetSchemaField.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:DataLakeDatasetSchemaField.of_xml)
    let of_json j =
      list_of_json ~kind:"DataLakeDatasetSchemaFieldList"
        ~of_json:DataLakeDatasetSchemaField.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataLakeDatasetSchemaName =
  struct
    type nonrec t = string
    let context_ = "DataLakeDatasetSchemaName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9]+")));
        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:"DataLakeDatasetSchemaName" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowSource =
  struct
    type nonrec t =
      {
      sourceType: DataIntegrationFlowSourceType.t
        [@ocaml.doc "The DataIntegrationFlow source type."];
      sourceName: DataIntegrationFlowSourceName.t
        [@ocaml.doc
          "The DataIntegrationFlow source name that can be used as table alias in SQL transformation query."];
      s3Source: DataIntegrationFlowS3SourceConfiguration.t option
        [@ocaml.doc "The S3 DataIntegrationFlow source."];
      datasetSource: DataIntegrationFlowDatasetSourceConfiguration.t option
        [@ocaml.doc "The dataset DataIntegrationFlow source."]}
    let context_ = "DataIntegrationFlowSource"
    let make ?s3Source =
      fun ?datasetSource ->
        fun ~sourceType ->
          fun ~sourceName ->
            fun () -> { s3Source; datasetSource; sourceType; sourceName }
    let to_value x =
      structure_to_value
        [("sourceType",
           (Some (DataIntegrationFlowSourceType.to_value x.sourceType)));
        ("sourceName",
          (Some (DataIntegrationFlowSourceName.to_value x.sourceName)));
        ("s3Source",
          (Option.map x.s3Source
             ~f:DataIntegrationFlowS3SourceConfiguration.to_value));
        ("datasetSource",
          (Option.map x.datasetSource
             ~f:DataIntegrationFlowDatasetSourceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetSource =
        (Option.map ~f:DataIntegrationFlowDatasetSourceConfiguration.of_xml)
          (Xml.child xml_arg0 "datasetSource") in
      let s3Source =
        (Option.map ~f:DataIntegrationFlowS3SourceConfiguration.of_xml)
          (Xml.child xml_arg0 "s3Source") in
      let sourceName =
        DataIntegrationFlowSourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceName") in
      let sourceType =
        DataIntegrationFlowSourceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceType") in
      make ?datasetSource ?s3Source ~sourceName ~sourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetSource =
        field_map json__ "datasetSource"
          DataIntegrationFlowDatasetSourceConfiguration.of_json in
      let s3Source =
        field_map json__ "s3Source"
          DataIntegrationFlowS3SourceConfiguration.of_json in
      let sourceName =
        field_map_exn json__ "sourceName"
          DataIntegrationFlowSourceName.of_json in
      let sourceType =
        field_map_exn json__ "sourceType"
          DataIntegrationFlowSourceType.of_json in
      make ?datasetSource ?s3Source ~sourceName ~sourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The DataIntegrationFlow source parameters."]
module DataIntegrationFlowDatasetTargetConfiguration =
  struct
    type nonrec t =
      {
      datasetIdentifier: DatasetIdentifier.t [@ocaml.doc "The dataset ARN."];
      options: DataIntegrationFlowDatasetOptions.t option
        [@ocaml.doc "The dataset DataIntegrationFlow target options."]}
    let context_ = "DataIntegrationFlowDatasetTargetConfiguration"
    let make ?options =
      fun ~datasetIdentifier -> fun () -> { options; datasetIdentifier }
    let to_value x =
      structure_to_value
        [("datasetIdentifier",
           (Some (DatasetIdentifier.to_value x.datasetIdentifier)));
        ("options",
          (Option.map x.options ~f:DataIntegrationFlowDatasetOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:DataIntegrationFlowDatasetOptions.of_xml)
          (Xml.child xml_arg0 "options") in
      let datasetIdentifier =
        DatasetIdentifier.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetIdentifier") in
      make ?options ~datasetIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map json__ "options" DataIntegrationFlowDatasetOptions.of_json in
      let datasetIdentifier =
        field_map_exn json__ "datasetIdentifier" DatasetIdentifier.of_json in
      make ?options ~datasetIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The dataset DataIntegrationFlow target configuration parameters."]
module DataIntegrationFlowS3TargetConfiguration =
  struct
    type nonrec t =
      {
      bucketName: S3BucketName.t
        [@ocaml.doc "The bucketName of the S3 target objects."];
      prefix: DataIntegrationFlowS3Prefix.t
        [@ocaml.doc "The prefix of the S3 target objects."];
      options: DataIntegrationFlowS3Options.t option
        [@ocaml.doc "The S3 DataIntegrationFlow target options."]}
    let context_ = "DataIntegrationFlowS3TargetConfiguration"
    let make ?options =
      fun ~bucketName ->
        fun ~prefix -> fun () -> { options; bucketName; prefix }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (S3BucketName.to_value x.bucketName)));
        ("prefix", (Some (DataIntegrationFlowS3Prefix.to_value x.prefix)));
        ("options",
          (Option.map x.options ~f:DataIntegrationFlowS3Options.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:DataIntegrationFlowS3Options.of_xml)
          (Xml.child xml_arg0 "options") in
      let prefix =
        DataIntegrationFlowS3Prefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "prefix") in
      let bucketName =
        S3BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ?options ~prefix ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map json__ "options" DataIntegrationFlowS3Options.of_json in
      let prefix =
        field_map_exn json__ "prefix" DataIntegrationFlowS3Prefix.of_json in
      let bucketName = field_map_exn json__ "bucketName" S3BucketName.of_json in
      make ?options ~prefix ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The S3 DataIntegrationFlow target configuration parameters."]
module DataIntegrationFlowTargetType =
  struct
    type nonrec t =
      | S3 
      | DATASET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | S3 -> "S3" | DATASET -> "DATASET" | Non_static_id s -> s
    let of_string =
      function | "S3" -> S3 | "DATASET" -> DATASET | 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 DataIntegrationFlowTargetType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataIntegrationFlowTargetType" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowSQLTransformationConfiguration =
  struct
    type nonrec t =
      {
      query: DataIntegrationFlowSQLQuery.t
        [@ocaml.doc "The transformation SQL query body based on SparkSQL."]}
    let context_ = "DataIntegrationFlowSQLTransformationConfiguration"
    let make ~query = fun () -> { query }
    let to_value x =
      structure_to_value
        [("query", (Some (DataIntegrationFlowSQLQuery.to_value x.query)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let query =
        DataIntegrationFlowSQLQuery.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "query") in
      make ~query ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let query =
        field_map_exn json__ "query" DataIntegrationFlowSQLQuery.of_json in
      make ~query ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The SQL DataIntegrationFlow transformation configuration parameters."]
module DataIntegrationFlowTransformationType =
  struct
    type nonrec t =
      | SQL 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SQL -> "SQL" | NONE -> "NONE" | Non_static_id s -> s
    let of_string =
      function | "SQL" -> SQL | "NONE" -> NONE | 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 DataIntegrationFlowTransformationType" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DataIntegrationFlowTransformationType" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowExecutionDiagnosticReportsRootS3URI =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowExecutionDiagnosticReportsRootS3URI"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"s3://[a-z0-9][a-z0-9.-]{1,61}[a-z0-9]/.{1,1024}");
        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:"DataIntegrationFlowExecutionDiagnosticReportsRootS3URI" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowDatasetSource =
  struct
    type nonrec t =
      {
      datasetIdentifier: DataIntegrationDatasetArn.t option
        [@ocaml.doc "The ARN of the dataset source."]}
    let make ?datasetIdentifier = fun () -> { datasetIdentifier }
    let to_value x =
      structure_to_value
        [("datasetIdentifier",
           (Option.map x.datasetIdentifier
              ~f:DataIntegrationDatasetArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetIdentifier =
        (Option.map ~f:DataIntegrationDatasetArn.of_xml)
          (Xml.child xml_arg0 "datasetIdentifier") in
      make ?datasetIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetIdentifier =
        field_map json__ "datasetIdentifier"
          DataIntegrationDatasetArn.of_json in
      make ?datasetIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a flow execution with dataset source."]
module DataIntegrationFlowS3Source =
  struct
    type nonrec t =
      {
      bucketName: S3BucketName.t option
        [@ocaml.doc "The S3 bucket name of the S3 source."];
      key: DataIntegrationS3ObjectKey.t option
        [@ocaml.doc "The S3 object key of the S3 source."]}
    let make ?bucketName = fun ?key -> fun () -> { bucketName; key }
    let to_value x =
      structure_to_value
        [("bucketName", (Option.map x.bucketName ~f:S3BucketName.to_value));
        ("key", (Option.map x.key ~f:DataIntegrationS3ObjectKey.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key =
        (Option.map ~f:DataIntegrationS3ObjectKey.of_xml)
          (Xml.child xml_arg0 "key") in
      let bucketName =
        (Option.map ~f:S3BucketName.of_xml) (Xml.child xml_arg0 "bucketName") in
      make ?key ?bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "key" DataIntegrationS3ObjectKey.of_json in
      let bucketName = field_map json__ "bucketName" S3BucketName.of_json in
      make ?key ?bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a flow execution with S3 source."]
module DataIntegrationEventDatasetLoadExecutionDetails =
  struct
    type nonrec t =
      {
      status: DataIntegrationEventDatasetLoadStatus.t option
        [@ocaml.doc "The event load execution status to target dataset."];
      message: String_.t option
        [@ocaml.doc
          "The failure message (if any) of failed event load execution to dataset."]}
    let make ?status = fun ?message -> fun () -> { status; message }
    let to_value x =
      structure_to_value
        [("status",
           (Option.map x.status
              ~f:DataIntegrationEventDatasetLoadStatus.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let status =
        (Option.map ~f:DataIntegrationEventDatasetLoadStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?message ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let status =
        field_map json__ "status"
          DataIntegrationEventDatasetLoadStatus.of_json in
      make ?message ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The target dataset load execution details."]
module DataIntegrationEventDatasetOperationType =
  struct
    type nonrec t =
      | APPEND 
      | UPSERT 
      | DELETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APPEND -> "APPEND"
      | UPSERT -> "UPSERT"
      | DELETE -> "DELETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "APPEND" -> APPEND
      | "UPSERT" -> UPSERT
      | "DELETE" -> DELETE
      | 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 DataIntegrationEventDatasetOperationType"
           xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"DataIntegrationEventDatasetOperationType" j)
    let to_json = simple_to_json to_value
  end
module AwsAccountId =
  struct
    type nonrec t = string
    let context_ = "AwsAccountId"
    let make i =
      let open Result in
        ok_or_failwith (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:"AwsAccountId" j
    let to_json = simple_to_json to_value
  end
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module InstanceDescription =
  struct
    type nonrec t = string
    let context_ = "InstanceDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:501) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"([a-zA-Z0-9., _\202\188'%-]){0,500}")));
        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:"InstanceDescription" j
    let to_json = simple_to_json to_value
  end
module InstanceName =
  struct
    type nonrec t = string
    let context_ = "InstanceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?![ _\202\188'%-])[a-zA-Z0-9 _\202\188'%-]{0,62}[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:"InstanceName" j
    let to_json = simple_to_json to_value
  end
module InstanceState =
  struct
    type nonrec t =
      | Initializing 
      | Active 
      | CreateFailed 
      | DeleteFailed 
      | Deleting 
      | Deleted 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Initializing -> "Initializing"
      | Active -> "Active"
      | CreateFailed -> "CreateFailed"
      | DeleteFailed -> "DeleteFailed"
      | Deleting -> "Deleting"
      | Deleted -> "Deleted"
      | Non_static_id s -> s
    let of_string =
      function
      | "Initializing" -> Initializing
      | "Active" -> Active
      | "CreateFailed" -> CreateFailed
      | "DeleteFailed" -> DeleteFailed
      | "Deleting" -> Deleting
      | "Deleted" -> Deleted
      | 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 InstanceState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InstanceState" j)
    let to_json = simple_to_json to_value
  end
module InstanceWebAppDnsDomain =
  struct
    type nonrec t = string
    let context_ = "InstanceWebAppDnsDomain"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"(?![-])[a-zA-Z0-9-]{1,62}[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:"InstanceWebAppDnsDomain" j
    let to_json = simple_to_json to_value
  end
module KmsKeyArn =
  struct
    type nonrec t = string
    let context_ = "KmsKeyArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:[a-z0-9][-.a-z0-9]{0,62}:kms:([a-z0-9][-.a-z0-9]{0,62})?:([a-z0-9][-.a-z0-9]{0,62})?:key/.{0,1019}")));
        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:"KmsKeyArn" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  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 UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:36) >>=
             (fun () ->
                (check_string_max i ~max:36) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UUID" j
    let to_json = simple_to_json to_value
  end
module AscResourceArn =
  struct
    type nonrec t = string
    let context_ = "AscResourceArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:scn(?::([a-z0-9-]+):([0-9]+):instance)?/([a-f0-9]{8}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-9]{4}-[a-f0-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:"AscResourceArn" j
    let to_json = simple_to_json to_value
  end
module DataLakeNamespaceDescription =
  struct
    type nonrec t = string
    let context_ = "DataLakeNamespaceDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataLakeNamespaceDescription" j
    let to_json = simple_to_json to_value
  end
module DataLakeNamespaceName =
  struct
    type nonrec t = string
    let context_ = "DataLakeNamespaceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[a-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:"DataLakeNamespaceName" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetDescription =
  struct
    type nonrec t = string
    let context_ = "DataLakeDatasetDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataLakeDatasetDescription" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetName =
  struct
    type nonrec t = string
    let context_ = "DataLakeDatasetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:75) >>=
                  (fun () -> check_pattern i ~pattern:"[a-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:"DataLakeDatasetName" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetPartitionSpec =
  struct
    type nonrec t =
      {
      fields: DataLakeDatasetPartitionFieldList.t
        [@ocaml.doc
          "The fields on which to partition a dataset. The partitions will be applied hierarchically based on the order of this list."]}
    let context_ = "DataLakeDatasetPartitionSpec"
    let make ~fields = fun () -> { fields }
    let to_value x =
      structure_to_value
        [("fields",
           (Some (DataLakeDatasetPartitionFieldList.to_value x.fields)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        DataLakeDatasetPartitionFieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      make ~fields ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields =
        field_map_exn json__ "fields"
          DataLakeDatasetPartitionFieldList.of_json in
      make ~fields ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The partition specification for a dataset."]
module DataLakeDatasetSchema =
  struct
    type nonrec t =
      {
      name: DataLakeDatasetSchemaName.t
        [@ocaml.doc "The name of the dataset schema."];
      fields: DataLakeDatasetSchemaFieldList.t
        [@ocaml.doc "The list of field details of the dataset schema."];
      primaryKeys: DataLakeDatasetPrimaryKeyFieldList.t option
        [@ocaml.doc
          "The list of primary key fields for the dataset. Primary keys defined can help data ingestion methods to ensure data uniqueness: CreateDataIntegrationFlow's dedupe strategy will leverage primary keys to perform records deduplication before write to dataset; SendDataIntegrationEvent's UPSERT and DELETE can only work with dataset with primary keys. For more details, refer to those data ingestion documentations. Note that defining primary keys does not necessarily mean the dataset cannot have duplicate records, duplicate records can still be ingested if CreateDataIntegrationFlow's dedupe disabled or through SendDataIntegrationEvent's APPEND operation."]}
    let context_ = "DataLakeDatasetSchema"
    let make ?primaryKeys =
      fun ~name -> fun ~fields -> fun () -> { primaryKeys; name; fields }
    let to_value x =
      structure_to_value
        [("name", (Some (DataLakeDatasetSchemaName.to_value x.name)));
        ("fields", (Some (DataLakeDatasetSchemaFieldList.to_value x.fields)));
        ("primaryKeys",
          (Option.map x.primaryKeys
             ~f:DataLakeDatasetPrimaryKeyFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryKeys =
        (Option.map ~f:DataLakeDatasetPrimaryKeyFieldList.of_xml)
          (Xml.child xml_arg0 "primaryKeys") in
      let fields =
        DataLakeDatasetSchemaFieldList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fields") in
      let name =
        DataLakeDatasetSchemaName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?primaryKeys ~fields ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryKeys =
        field_map json__ "primaryKeys"
          DataLakeDatasetPrimaryKeyFieldList.of_json in
      let fields =
        field_map_exn json__ "fields" DataLakeDatasetSchemaFieldList.of_json in
      let name =
        field_map_exn json__ "name" DataLakeDatasetSchemaName.of_json in
      make ?primaryKeys ~fields ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The schema details of the dataset. Note that for AWS Supply Chain dataset under asc namespace, it may have internal fields like connection_id that will be auto populated by data ingestion methods."]
module DataIntegrationFlowName =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[A-Za-z0-9-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataIntegrationFlowName" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowSourceList =
  struct
    type nonrec t = DataIntegrationFlowSource.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:40) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataIntegrationFlowSource.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:DataIntegrationFlowSource.of_xml)
    let of_json j =
      list_of_json ~kind:"DataIntegrationFlowSourceList"
        ~of_json:DataIntegrationFlowSource.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataIntegrationFlowTarget =
  struct
    type nonrec t =
      {
      targetType: DataIntegrationFlowTargetType.t
        [@ocaml.doc "The DataIntegrationFlow target type."];
      s3Target: DataIntegrationFlowS3TargetConfiguration.t option
        [@ocaml.doc "The S3 DataIntegrationFlow target."];
      datasetTarget: DataIntegrationFlowDatasetTargetConfiguration.t option
        [@ocaml.doc
          "The dataset DataIntegrationFlow target. Note that for AWS Supply Chain dataset under asc namespace, it has a connection_id internal field that is not allowed to be provided by client directly, they will be auto populated."]}
    let context_ = "DataIntegrationFlowTarget"
    let make ?s3Target =
      fun ?datasetTarget ->
        fun ~targetType -> fun () -> { s3Target; datasetTarget; targetType }
    let to_value x =
      structure_to_value
        [("targetType",
           (Some (DataIntegrationFlowTargetType.to_value x.targetType)));
        ("s3Target",
          (Option.map x.s3Target
             ~f:DataIntegrationFlowS3TargetConfiguration.to_value));
        ("datasetTarget",
          (Option.map x.datasetTarget
             ~f:DataIntegrationFlowDatasetTargetConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetTarget =
        (Option.map ~f:DataIntegrationFlowDatasetTargetConfiguration.of_xml)
          (Xml.child xml_arg0 "datasetTarget") in
      let s3Target =
        (Option.map ~f:DataIntegrationFlowS3TargetConfiguration.of_xml)
          (Xml.child xml_arg0 "s3Target") in
      let targetType =
        DataIntegrationFlowTargetType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetType") in
      make ?datasetTarget ?s3Target ~targetType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetTarget =
        field_map json__ "datasetTarget"
          DataIntegrationFlowDatasetTargetConfiguration.of_json in
      let s3Target =
        field_map json__ "s3Target"
          DataIntegrationFlowS3TargetConfiguration.of_json in
      let targetType =
        field_map_exn json__ "targetType"
          DataIntegrationFlowTargetType.of_json in
      make ?datasetTarget ?s3Target ~targetType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The DataIntegrationFlow target parameters."]
module DataIntegrationFlowTransformation =
  struct
    type nonrec t =
      {
      transformationType: DataIntegrationFlowTransformationType.t
        [@ocaml.doc "The DataIntegrationFlow transformation type."];
      sqlTransformation:
        DataIntegrationFlowSQLTransformationConfiguration.t option
        [@ocaml.doc
          "The SQL DataIntegrationFlow transformation configuration."]}
    let context_ = "DataIntegrationFlowTransformation"
    let make ?sqlTransformation =
      fun ~transformationType ->
        fun () -> { sqlTransformation; transformationType }
    let to_value x =
      structure_to_value
        [("transformationType",
           (Some
              (DataIntegrationFlowTransformationType.to_value
                 x.transformationType)));
        ("sqlTransformation",
          (Option.map x.sqlTransformation
             ~f:DataIntegrationFlowSQLTransformationConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sqlTransformation =
        (Option.map
           ~f:DataIntegrationFlowSQLTransformationConfiguration.of_xml)
          (Xml.child xml_arg0 "sqlTransformation") in
      let transformationType =
        DataIntegrationFlowTransformationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformationType") in
      make ?sqlTransformation ~transformationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sqlTransformation =
        field_map json__ "sqlTransformation"
          DataIntegrationFlowSQLTransformationConfiguration.of_json in
      let transformationType =
        field_map_exn json__ "transformationType"
          DataIntegrationFlowTransformationType.of_json in
      make ?sqlTransformation ~transformationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The DataIntegrationFlow transformation parameters."]
module DataIntegrationFlowExecutionOutputMetadata =
  struct
    type nonrec t =
      {
      diagnosticReportsRootS3URI:
        DataIntegrationFlowExecutionDiagnosticReportsRootS3URI.t option
        [@ocaml.doc
          "The S3 URI under which all diagnostic files (such as deduped records if any) are stored."]}
    let make ?diagnosticReportsRootS3URI =
      fun () -> { diagnosticReportsRootS3URI }
    let to_value x =
      structure_to_value
        [("diagnosticReportsRootS3URI",
           (Option.map x.diagnosticReportsRootS3URI
              ~f:DataIntegrationFlowExecutionDiagnosticReportsRootS3URI.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diagnosticReportsRootS3URI =
        (Option.map
           ~f:DataIntegrationFlowExecutionDiagnosticReportsRootS3URI.of_xml)
          (Xml.child xml_arg0 "diagnosticReportsRootS3URI") in
      make ?diagnosticReportsRootS3URI ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diagnosticReportsRootS3URI =
        field_map json__ "diagnosticReportsRootS3URI"
          DataIntegrationFlowExecutionDiagnosticReportsRootS3URI.of_json in
      make ?diagnosticReportsRootS3URI ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output metadata of the flow execution."]
module DataIntegrationFlowExecutionSourceInfo =
  struct
    type nonrec t =
      {
      sourceType: DataIntegrationFlowSourceType.t option
        [@ocaml.doc "The data integration flow execution source type."];
      s3Source: DataIntegrationFlowS3Source.t option
        [@ocaml.doc "The source details of a flow execution with S3 source."];
      datasetSource: DataIntegrationFlowDatasetSource.t option
        [@ocaml.doc
          "The source details of a flow execution with dataset source."]}
    let make ?sourceType =
      fun ?s3Source ->
        fun ?datasetSource ->
          fun () -> { sourceType; s3Source; datasetSource }
    let to_value x =
      structure_to_value
        [("sourceType",
           (Option.map x.sourceType ~f:DataIntegrationFlowSourceType.to_value));
        ("s3Source",
          (Option.map x.s3Source ~f:DataIntegrationFlowS3Source.to_value));
        ("datasetSource",
          (Option.map x.datasetSource
             ~f:DataIntegrationFlowDatasetSource.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetSource =
        (Option.map ~f:DataIntegrationFlowDatasetSource.of_xml)
          (Xml.child xml_arg0 "datasetSource") in
      let s3Source =
        (Option.map ~f:DataIntegrationFlowS3Source.of_xml)
          (Xml.child xml_arg0 "s3Source") in
      let sourceType =
        (Option.map ~f:DataIntegrationFlowSourceType.of_xml)
          (Xml.child xml_arg0 "sourceType") in
      make ?datasetSource ?s3Source ?sourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetSource =
        field_map json__ "datasetSource"
          DataIntegrationFlowDatasetSource.of_json in
      let s3Source =
        field_map json__ "s3Source" DataIntegrationFlowS3Source.of_json in
      let sourceType =
        field_map json__ "sourceType" DataIntegrationFlowSourceType.of_json in
      make ?datasetSource ?s3Source ?sourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The source information of a flow execution."]
module DataIntegrationFlowExecutionStatus =
  struct
    type nonrec t =
      | SUCCEEDED 
      | IN_PROGRESS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCEEDED -> "SUCCEEDED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCEEDED" -> SUCCEEDED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DataIntegrationFlowExecutionStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataIntegrationFlowExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module DataIntegrationEventDatasetTargetDetails =
  struct
    type nonrec t =
      {
      datasetIdentifier: DataIntegrationDatasetArn.t option
        [@ocaml.doc "The datalake dataset ARN identifier."];
      operationType: DataIntegrationEventDatasetOperationType.t option
        [@ocaml.doc
          "The target dataset load operation type. The available options are: APPEND - Add new records to the dataset. Noted that this operation type will just try to append records as-is without any primary key or partition constraints. UPSERT - Modify existing records in the dataset with primary key configured, events for datasets without primary keys are not allowed. If event data contains primary keys that match records in the dataset within same partition, then those existing records (in that partition) will be updated. If primary keys do not match, new records will be added. Note that if dataset contain records with duplicate primary key values in the same partition, those duplicate records will be deduped into one updated record. DELETE - Remove existing records in the dataset with primary key configured, events for datasets without primary keys are not allowed. If event data contains primary keys that match records in the dataset within same partition, then those existing records (in that partition) will be deleted. If primary keys do not match, no actions will be done. Note that if dataset contain records with duplicate primary key values in the same partition, all those duplicates will be removed."];
      datasetLoadExecution:
        DataIntegrationEventDatasetLoadExecutionDetails.t option
        [@ocaml.doc "The target dataset load execution."]}
    let make ?datasetIdentifier =
      fun ?operationType ->
        fun ?datasetLoadExecution ->
          fun () ->
            { datasetIdentifier; operationType; datasetLoadExecution }
    let to_value x =
      structure_to_value
        [("datasetIdentifier",
           (Option.map x.datasetIdentifier
              ~f:DataIntegrationDatasetArn.to_value));
        ("operationType",
          (Option.map x.operationType
             ~f:DataIntegrationEventDatasetOperationType.to_value));
        ("datasetLoadExecution",
          (Option.map x.datasetLoadExecution
             ~f:DataIntegrationEventDatasetLoadExecutionDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetLoadExecution =
        (Option.map ~f:DataIntegrationEventDatasetLoadExecutionDetails.of_xml)
          (Xml.child xml_arg0 "datasetLoadExecution") in
      let operationType =
        (Option.map ~f:DataIntegrationEventDatasetOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      let datasetIdentifier =
        (Option.map ~f:DataIntegrationDatasetArn.of_xml)
          (Xml.child xml_arg0 "datasetIdentifier") in
      make ?datasetLoadExecution ?operationType ?datasetIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetLoadExecution =
        field_map json__ "datasetLoadExecution"
          DataIntegrationEventDatasetLoadExecutionDetails.of_json in
      let operationType =
        field_map json__ "operationType"
          DataIntegrationEventDatasetOperationType.of_json in
      let datasetIdentifier =
        field_map json__ "datasetIdentifier"
          DataIntegrationDatasetArn.of_json in
      make ?datasetLoadExecution ?operationType ?datasetIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The target dataset details for a DATASET event type."]
module DataIntegrationEventGroupId =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationEventGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataIntegrationEventGroupId" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationEventType =
  struct
    type nonrec t =
      | Scn_data_forecast 
      | Scn_data_inventorylevel 
      | Scn_data_inboundorder 
      | Scn_data_inboundorderline 
      | Scn_data_inboundorderlineschedule 
      | Scn_data_outboundorderline 
      | Scn_data_outboundshipment 
      | Scn_data_processheader 
      | Scn_data_processoperation 
      | Scn_data_processproduct 
      | Scn_data_reservation 
      | Scn_data_shipment 
      | Scn_data_shipmentstop 
      | Scn_data_shipmentstoporder 
      | Scn_data_supplyplan 
      | Scn_data_dataset 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Scn_data_forecast -> "scn.data.forecast"
      | Scn_data_inventorylevel -> "scn.data.inventorylevel"
      | Scn_data_inboundorder -> "scn.data.inboundorder"
      | Scn_data_inboundorderline -> "scn.data.inboundorderline"
      | Scn_data_inboundorderlineschedule ->
          "scn.data.inboundorderlineschedule"
      | Scn_data_outboundorderline -> "scn.data.outboundorderline"
      | Scn_data_outboundshipment -> "scn.data.outboundshipment"
      | Scn_data_processheader -> "scn.data.processheader"
      | Scn_data_processoperation -> "scn.data.processoperation"
      | Scn_data_processproduct -> "scn.data.processproduct"
      | Scn_data_reservation -> "scn.data.reservation"
      | Scn_data_shipment -> "scn.data.shipment"
      | Scn_data_shipmentstop -> "scn.data.shipmentstop"
      | Scn_data_shipmentstoporder -> "scn.data.shipmentstoporder"
      | Scn_data_supplyplan -> "scn.data.supplyplan"
      | Scn_data_dataset -> "scn.data.dataset"
      | Non_static_id s -> s
    let of_string =
      function
      | "scn.data.forecast" -> Scn_data_forecast
      | "scn.data.inventorylevel" -> Scn_data_inventorylevel
      | "scn.data.inboundorder" -> Scn_data_inboundorder
      | "scn.data.inboundorderline" -> Scn_data_inboundorderline
      | "scn.data.inboundorderlineschedule" ->
          Scn_data_inboundorderlineschedule
      | "scn.data.outboundorderline" -> Scn_data_outboundorderline
      | "scn.data.outboundshipment" -> Scn_data_outboundshipment
      | "scn.data.processheader" -> Scn_data_processheader
      | "scn.data.processoperation" -> Scn_data_processoperation
      | "scn.data.processproduct" -> Scn_data_processproduct
      | "scn.data.reservation" -> Scn_data_reservation
      | "scn.data.shipment" -> Scn_data_shipment
      | "scn.data.shipmentstop" -> Scn_data_shipmentstop
      | "scn.data.shipmentstoporder" -> Scn_data_shipmentstoporder
      | "scn.data.supplyplan" -> Scn_data_supplyplan
      | "scn.data.dataset" -> Scn_data_dataset
      | 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 DataIntegrationEventType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataIntegrationEventType" j)
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Instance =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      awsAccountId: AwsAccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that owns the instance."];
      state: InstanceState.t option [@ocaml.doc "The state of the instance."];
      errorMessage: String_.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance error message. If the instance results in an unhealthy state, customers need to check the error message, delete the current instance, and recreate a new one based on the mitigation from the error message."];
      webAppDnsDomain: InstanceWebAppDnsDomain.t option
        [@ocaml.doc "The WebApp DNS domain name of the instance."];
      createdTime: Timestamp.t option
        [@ocaml.doc "The instance creation timestamp."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The instance last modified timestamp."];
      instanceName: InstanceName.t option
        [@ocaml.doc "The Amazon Web Services Supply Chain instance name."];
      instanceDescription: InstanceDescription.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance description."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN (Amazon Resource Name) of the Key Management Service (KMS) key you optionally provided for encryption. If you did not provide anything here, AWS Supply Chain uses the Amazon Web Services owned KMS key and nothing is returned."];
      versionNumber: Double.t option
        [@ocaml.doc "The version number of the instance."]}
    let make ?instanceId =
      fun ?awsAccountId ->
        fun ?state ->
          fun ?errorMessage ->
            fun ?webAppDnsDomain ->
              fun ?createdTime ->
                fun ?lastModifiedTime ->
                  fun ?instanceName ->
                    fun ?instanceDescription ->
                      fun ?kmsKeyArn ->
                        fun ?versionNumber ->
                          fun () ->
                            {
                              instanceId;
                              awsAccountId;
                              state;
                              errorMessage;
                              webAppDnsDomain;
                              createdTime;
                              lastModifiedTime;
                              instanceName;
                              instanceDescription;
                              kmsKeyArn;
                              versionNumber
                            }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("awsAccountId",
          (Option.map x.awsAccountId ~f:AwsAccountId.to_value));
        ("state", (Option.map x.state ~f:InstanceState.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("webAppDnsDomain",
          (Option.map x.webAppDnsDomain ~f:InstanceWebAppDnsDomain.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Timestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value));
        ("instanceName",
          (Option.map x.instanceName ~f:InstanceName.to_value));
        ("instanceDescription",
          (Option.map x.instanceDescription ~f:InstanceDescription.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("versionNumber", (Option.map x.versionNumber ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionNumber =
        (Option.map ~f:Double.of_xml) (Xml.child xml_arg0 "versionNumber") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let instanceDescription =
        (Option.map ~f:InstanceDescription.of_xml)
          (Xml.child xml_arg0 "instanceDescription") in
      let instanceName =
        (Option.map ~f:InstanceName.of_xml)
          (Xml.child xml_arg0 "instanceName") in
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdTime") in
      let webAppDnsDomain =
        (Option.map ~f:InstanceWebAppDnsDomain.of_xml)
          (Xml.child xml_arg0 "webAppDnsDomain") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let state =
        (Option.map ~f:InstanceState.of_xml) (Xml.child xml_arg0 "state") in
      let awsAccountId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "awsAccountId") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?versionNumber ?kmsKeyArn ?instanceDescription ?instanceName
        ?lastModifiedTime ?createdTime ?webAppDnsDomain ?errorMessage ?state
        ?awsAccountId ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionNumber = field_map json__ "versionNumber" Double.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let instanceDescription =
        field_map json__ "instanceDescription" InstanceDescription.of_json in
      let instanceName = field_map json__ "instanceName" InstanceName.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" Timestamp.of_json in
      let createdTime = field_map json__ "createdTime" Timestamp.of_json in
      let webAppDnsDomain =
        field_map json__ "webAppDnsDomain" InstanceWebAppDnsDomain.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let state = field_map json__ "state" InstanceState.of_json in
      let awsAccountId = field_map json__ "awsAccountId" AwsAccountId.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?versionNumber ?kmsKeyArn ?instanceDescription ?instanceName
        ?lastModifiedTime ?createdTime ?webAppDnsDomain ?errorMessage ?state
        ?awsAccountId ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the instance."]
module DataLakeNamespace =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataLakeNamespaceName.t option
        [@ocaml.doc "The name of the namespace."];
      arn: AscResourceArn.t option [@ocaml.doc "The arn of the namespace."];
      description: DataLakeNamespaceDescription.t option
        [@ocaml.doc "The description of the namespace."];
      createdTime: Timestamp.t option
        [@ocaml.doc "The creation time of the namespace."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The last modified time of the namespace."]}
    let make ?instanceId =
      fun ?name ->
        fun ?arn ->
          fun ?description ->
            fun ?createdTime ->
              fun ?lastModifiedTime ->
                fun () ->
                  {
                    instanceId;
                    name;
                    arn;
                    description;
                    createdTime;
                    lastModifiedTime
                  }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:DataLakeNamespaceName.to_value));
        ("arn", (Option.map x.arn ~f:AscResourceArn.to_value));
        ("description",
          (Option.map x.description ~f:DataLakeNamespaceDescription.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Timestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdTime") in
      let description =
        (Option.map ~f:DataLakeNamespaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let arn =
        (Option.map ~f:AscResourceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:DataLakeNamespaceName.of_xml)
          (Xml.child xml_arg0 "name") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?lastModifiedTime ?createdTime ?description ?arn ?name ?instanceId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" Timestamp.of_json in
      let createdTime = field_map json__ "createdTime" Timestamp.of_json in
      let description =
        field_map json__ "description" DataLakeNamespaceDescription.of_json in
      let arn = field_map json__ "arn" AscResourceArn.of_json in
      let name = field_map json__ "name" DataLakeNamespaceName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?lastModifiedTime ?createdTime ?description ?arn ?name ?instanceId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The data lake namespace details."]
module DataLakeDataset =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      namespace: DataLakeNamespaceName.t option
        [@ocaml.doc
          "The namespace of the dataset, besides the custom defined namespace, every instance comes with below pre-defined namespaces: asc - For information on the Amazon Web Services Supply Chain supported datasets see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - For datasets with custom user-defined schemas."];
      name: DataLakeDatasetName.t option
        [@ocaml.doc
          "The name of the dataset. For asc namespace, the name must be one of the supported data entities under https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html."];
      arn: AscResourceArn.t option [@ocaml.doc "The arn of the dataset."];
      schema: DataLakeDatasetSchema.t option
        [@ocaml.doc "The schema of the dataset."];
      description: DataLakeDatasetDescription.t option
        [@ocaml.doc "The description of the dataset."];
      partitionSpec: DataLakeDatasetPartitionSpec.t option ;
      createdTime: Timestamp.t option
        [@ocaml.doc "The creation time of the dataset."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The last modified time of the dataset."]}
    let make ?instanceId =
      fun ?namespace ->
        fun ?name ->
          fun ?arn ->
            fun ?schema ->
              fun ?description ->
                fun ?partitionSpec ->
                  fun ?createdTime ->
                    fun ?lastModifiedTime ->
                      fun () ->
                        {
                          instanceId;
                          namespace;
                          name;
                          arn;
                          schema;
                          description;
                          partitionSpec;
                          createdTime;
                          lastModifiedTime
                        }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("namespace",
          (Option.map x.namespace ~f:DataLakeNamespaceName.to_value));
        ("name", (Option.map x.name ~f:DataLakeDatasetName.to_value));
        ("arn", (Option.map x.arn ~f:AscResourceArn.to_value));
        ("schema", (Option.map x.schema ~f:DataLakeDatasetSchema.to_value));
        ("description",
          (Option.map x.description ~f:DataLakeDatasetDescription.to_value));
        ("partitionSpec",
          (Option.map x.partitionSpec
             ~f:DataLakeDatasetPartitionSpec.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Timestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdTime") in
      let partitionSpec =
        (Option.map ~f:DataLakeDatasetPartitionSpec.of_xml)
          (Xml.child xml_arg0 "partitionSpec") in
      let description =
        (Option.map ~f:DataLakeDatasetDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let schema =
        (Option.map ~f:DataLakeDatasetSchema.of_xml)
          (Xml.child xml_arg0 "schema") in
      let arn =
        (Option.map ~f:AscResourceArn.of_xml) (Xml.child xml_arg0 "arn") in
      let name =
        (Option.map ~f:DataLakeDatasetName.of_xml)
          (Xml.child xml_arg0 "name") in
      let namespace =
        (Option.map ~f:DataLakeNamespaceName.of_xml)
          (Xml.child xml_arg0 "namespace") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?lastModifiedTime ?createdTime ?partitionSpec ?description ?schema
        ?arn ?name ?namespace ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" Timestamp.of_json in
      let createdTime = field_map json__ "createdTime" Timestamp.of_json in
      let partitionSpec =
        field_map json__ "partitionSpec" DataLakeDatasetPartitionSpec.of_json in
      let description =
        field_map json__ "description" DataLakeDatasetDescription.of_json in
      let schema = field_map json__ "schema" DataLakeDatasetSchema.of_json in
      let arn = field_map json__ "arn" AscResourceArn.of_json in
      let name = field_map json__ "name" DataLakeDatasetName.of_json in
      let namespace =
        field_map json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?lastModifiedTime ?createdTime ?partitionSpec ?description ?schema
        ?arn ?name ?namespace ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The data lake dataset details."]
module DataIntegrationFlow =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc "The DataIntegrationFlow instance ID."];
      name: DataIntegrationFlowName.t option
        [@ocaml.doc "The DataIntegrationFlow name."];
      sources: DataIntegrationFlowSourceList.t option
        [@ocaml.doc "The DataIntegrationFlow source configurations."];
      transformation: DataIntegrationFlowTransformation.t option
        [@ocaml.doc "The DataIntegrationFlow transformation configurations."];
      target: DataIntegrationFlowTarget.t option
        [@ocaml.doc "The DataIntegrationFlow target configuration."];
      createdTime: Timestamp.t option
        [@ocaml.doc "The DataIntegrationFlow creation timestamp."];
      lastModifiedTime: Timestamp.t option
        [@ocaml.doc "The DataIntegrationFlow last modified timestamp."]}
    let make ?instanceId =
      fun ?name ->
        fun ?sources ->
          fun ?transformation ->
            fun ?target ->
              fun ?createdTime ->
                fun ?lastModifiedTime ->
                  fun () ->
                    {
                      instanceId;
                      name;
                      sources;
                      transformation;
                      target;
                      createdTime;
                      lastModifiedTime
                    }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:DataIntegrationFlowName.to_value));
        ("sources",
          (Option.map x.sources ~f:DataIntegrationFlowSourceList.to_value));
        ("transformation",
          (Option.map x.transformation
             ~f:DataIntegrationFlowTransformation.to_value));
        ("target",
          (Option.map x.target ~f:DataIntegrationFlowTarget.to_value));
        ("createdTime", (Option.map x.createdTime ~f:Timestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createdTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdTime") in
      let target =
        (Option.map ~f:DataIntegrationFlowTarget.of_xml)
          (Xml.child xml_arg0 "target") in
      let transformation =
        (Option.map ~f:DataIntegrationFlowTransformation.of_xml)
          (Xml.child xml_arg0 "transformation") in
      let sources =
        (Option.map ~f:DataIntegrationFlowSourceList.of_xml)
          (Xml.child xml_arg0 "sources") in
      let name =
        (Option.map ~f:DataIntegrationFlowName.of_xml)
          (Xml.child xml_arg0 "name") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?lastModifiedTime ?createdTime ?target ?transformation ?sources
        ?name ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" Timestamp.of_json in
      let createdTime = field_map json__ "createdTime" Timestamp.of_json in
      let target =
        field_map json__ "target" DataIntegrationFlowTarget.of_json in
      let transformation =
        field_map json__ "transformation"
          DataIntegrationFlowTransformation.of_json in
      let sources =
        field_map json__ "sources" DataIntegrationFlowSourceList.of_json in
      let name = field_map json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?lastModifiedTime ?createdTime ?target ?transformation ?sources
        ?name ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The DataIntegrationFlow details."]
module DataIntegrationFlowExecution =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc "The flow execution's instanceId."];
      flowName: DataIntegrationFlowName.t option
        [@ocaml.doc "The flow execution's flowName."];
      executionId: UUID.t option [@ocaml.doc "The flow executionId."];
      status: DataIntegrationFlowExecutionStatus.t option
        [@ocaml.doc "The status of flow execution."];
      sourceInfo: DataIntegrationFlowExecutionSourceInfo.t option
        [@ocaml.doc "The source information for a flow execution."];
      message: String_.t option
        [@ocaml.doc "The failure message (if any) of failed flow execution."];
      startTime: Timestamp.t option
        [@ocaml.doc "The flow execution start timestamp."];
      endTime: Timestamp.t option
        [@ocaml.doc "The flow execution end timestamp."];
      outputMetadata: DataIntegrationFlowExecutionOutputMetadata.t option
        [@ocaml.doc "The flow execution output metadata."]}
    let make ?instanceId =
      fun ?flowName ->
        fun ?executionId ->
          fun ?status ->
            fun ?sourceInfo ->
              fun ?message ->
                fun ?startTime ->
                  fun ?endTime ->
                    fun ?outputMetadata ->
                      fun () ->
                        {
                          instanceId;
                          flowName;
                          executionId;
                          status;
                          sourceInfo;
                          message;
                          startTime;
                          endTime;
                          outputMetadata
                        }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("flowName",
          (Option.map x.flowName ~f:DataIntegrationFlowName.to_value));
        ("executionId", (Option.map x.executionId ~f:UUID.to_value));
        ("status",
          (Option.map x.status ~f:DataIntegrationFlowExecutionStatus.to_value));
        ("sourceInfo",
          (Option.map x.sourceInfo
             ~f:DataIntegrationFlowExecutionSourceInfo.to_value));
        ("message", (Option.map x.message ~f:String_.to_value));
        ("startTime", (Option.map x.startTime ~f:Timestamp.to_value));
        ("endTime", (Option.map x.endTime ~f:Timestamp.to_value));
        ("outputMetadata",
          (Option.map x.outputMetadata
             ~f:DataIntegrationFlowExecutionOutputMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputMetadata =
        (Option.map ~f:DataIntegrationFlowExecutionOutputMetadata.of_xml)
          (Xml.child xml_arg0 "outputMetadata") in
      let endTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "startTime") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let sourceInfo =
        (Option.map ~f:DataIntegrationFlowExecutionSourceInfo.of_xml)
          (Xml.child xml_arg0 "sourceInfo") in
      let status =
        (Option.map ~f:DataIntegrationFlowExecutionStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let executionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "executionId") in
      let flowName =
        (Option.map ~f:DataIntegrationFlowName.of_xml)
          (Xml.child xml_arg0 "flowName") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?outputMetadata ?endTime ?startTime ?message ?sourceInfo ?status
        ?executionId ?flowName ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputMetadata =
        field_map json__ "outputMetadata"
          DataIntegrationFlowExecutionOutputMetadata.of_json in
      let endTime = field_map json__ "endTime" Timestamp.of_json in
      let startTime = field_map json__ "startTime" Timestamp.of_json in
      let message = field_map json__ "message" String_.of_json in
      let sourceInfo =
        field_map json__ "sourceInfo"
          DataIntegrationFlowExecutionSourceInfo.of_json in
      let status =
        field_map json__ "status" DataIntegrationFlowExecutionStatus.of_json in
      let executionId = field_map json__ "executionId" UUID.of_json in
      let flowName =
        field_map json__ "flowName" DataIntegrationFlowName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?outputMetadata ?endTime ?startTime ?message ?sourceInfo ?status
        ?executionId ?flowName ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The flow execution details."]
module DataIntegrationEvent =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      eventId: UUID.t option [@ocaml.doc "The unique event identifier."];
      eventType: DataIntegrationEventType.t option
        [@ocaml.doc "The data event type."];
      eventGroupId: DataIntegrationEventGroupId.t option
        [@ocaml.doc
          "Event identifier (for example, orderId for InboundOrder) used for data sharding or partitioning."];
      eventTimestamp: Timestamp.t option
        [@ocaml.doc "The event timestamp (in epoch seconds)."];
      datasetTargetDetails: DataIntegrationEventDatasetTargetDetails.t option
        [@ocaml.doc "The target dataset details for a DATASET event type."]}
    let make ?instanceId =
      fun ?eventId ->
        fun ?eventType ->
          fun ?eventGroupId ->
            fun ?eventTimestamp ->
              fun ?datasetTargetDetails ->
                fun () ->
                  {
                    instanceId;
                    eventId;
                    eventType;
                    eventGroupId;
                    eventTimestamp;
                    datasetTargetDetails
                  }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("eventId", (Option.map x.eventId ~f:UUID.to_value));
        ("eventType",
          (Option.map x.eventType ~f:DataIntegrationEventType.to_value));
        ("eventGroupId",
          (Option.map x.eventGroupId ~f:DataIntegrationEventGroupId.to_value));
        ("eventTimestamp",
          (Option.map x.eventTimestamp ~f:Timestamp.to_value));
        ("datasetTargetDetails",
          (Option.map x.datasetTargetDetails
             ~f:DataIntegrationEventDatasetTargetDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetTargetDetails =
        (Option.map ~f:DataIntegrationEventDatasetTargetDetails.of_xml)
          (Xml.child xml_arg0 "datasetTargetDetails") in
      let eventTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "eventTimestamp") in
      let eventGroupId =
        (Option.map ~f:DataIntegrationEventGroupId.of_xml)
          (Xml.child xml_arg0 "eventGroupId") in
      let eventType =
        (Option.map ~f:DataIntegrationEventType.of_xml)
          (Xml.child xml_arg0 "eventType") in
      let eventId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "eventId") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?datasetTargetDetails ?eventTimestamp ?eventGroupId ?eventType
        ?eventId ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetTargetDetails =
        field_map json__ "datasetTargetDetails"
          DataIntegrationEventDatasetTargetDetails.of_json in
      let eventTimestamp =
        field_map json__ "eventTimestamp" Timestamp.of_json in
      let eventGroupId =
        field_map json__ "eventGroupId" DataIntegrationEventGroupId.of_json in
      let eventType =
        field_map json__ "eventType" DataIntegrationEventType.of_json in
      let eventId = field_map json__ "eventId" UUID.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?datasetTargetDetails ?eventTimestamp ?eventGroupId ?eventType
        ?eventId ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The data integration event details."]
module ConfigurationJobStatus =
  struct
    type nonrec t =
      | NEW 
      | FAILED 
      | IN_PROGRESS 
      | QUEUED 
      | SUCCESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NEW -> "NEW"
      | FAILED -> "FAILED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | QUEUED -> "QUEUED"
      | SUCCESS -> "SUCCESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "NEW" -> NEW
      | "FAILED" -> FAILED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "QUEUED" -> QUEUED
      | "SUCCESS" -> SUCCESS
      | 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 ConfigurationJobStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConfigurationJobStatus" j)
    let to_json = simple_to_json to_value
  end
module ConfigurationS3Uri =
  struct
    type nonrec t = string
    let context_ = "ConfigurationS3Uri"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"[sS]3://[a-z0-9][a-z0-9.-]{1,61}[a-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:"ConfigurationS3Uri" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have the required privileges to perform this action."]
module ConflictException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updating or deleting a resource can cause an inconsistent state."]
module InternalServerException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Unexpected error during processing of request."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request references a resource which does not exist."]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request would cause a service quota to be exceeded."]
module ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input does not satisfy the constraints specified by an AWS service."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.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_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientToken =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:126) >>=
             (fun () -> check_string_min i ~min:33));
        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:"ClientToken" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Unique, case-sensitive identifier that you provide to ensure the idempotency of the request."]
module DataIntegrationEventData =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationEventData"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1048576) >>=
             (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:"DataIntegrationEventData" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationEventDatasetTargetConfiguration =
  struct
    type nonrec t =
      {
      datasetIdentifier: DataIntegrationDatasetArn.t
        [@ocaml.doc "The datalake dataset ARN identifier."];
      operationType: DataIntegrationEventDatasetOperationType.t
        [@ocaml.doc "The target dataset load operation type."]}
    let context_ = "DataIntegrationEventDatasetTargetConfiguration"
    let make ~datasetIdentifier =
      fun ~operationType -> fun () -> { datasetIdentifier; operationType }
    let to_value x =
      structure_to_value
        [("datasetIdentifier",
           (Some (DataIntegrationDatasetArn.to_value x.datasetIdentifier)));
        ("operationType",
          (Some
             (DataIntegrationEventDatasetOperationType.to_value
                x.operationType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let operationType =
        DataIntegrationEventDatasetOperationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operationType") in
      let datasetIdentifier =
        DataIntegrationDatasetArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetIdentifier") in
      make ~operationType ~datasetIdentifier ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let operationType =
        field_map_exn json__ "operationType"
          DataIntegrationEventDatasetOperationType.of_json in
      let datasetIdentifier =
        field_map_exn json__ "datasetIdentifier"
          DataIntegrationDatasetArn.of_json in
      make ~operationType ~datasetIdentifier ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The target dataset configuration for a DATASET event type."]
module SyntheticTimestamp_epoch_seconds =
  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 InstanceList =
  struct
    type nonrec t = Instance.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:Instance.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:Instance.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceList" ~of_json:Instance.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceNextToken =
  struct
    type nonrec t = string
    let context_ = "InstanceNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InstanceNextToken" j
    let to_json = simple_to_json to_value
  end
module InstanceMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InstanceMaxResults" 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 InstanceNameList =
  struct
    type nonrec t = InstanceName.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:InstanceName.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:InstanceName.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceNameList" ~of_json:InstanceName.of_json j
    let to_json v = composed_to_json to_value v
  end
module InstanceStateList =
  struct
    type nonrec t = InstanceState.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:6) >>= (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:InstanceState.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:InstanceState.of_xml)
    let of_json j =
      list_of_json ~kind:"InstanceStateList" ~of_json:InstanceState.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataLakeNamespaceList =
  struct
    type nonrec t = DataLakeNamespace.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataLakeNamespace.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:DataLakeNamespace.of_xml)
    let of_json j =
      list_of_json ~kind:"DataLakeNamespaceList"
        ~of_json:DataLakeNamespace.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataLakeNamespaceNextToken =
  struct
    type nonrec t = string
    let context_ = "DataLakeNamespaceNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:65535) >>=
             (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:"DataLakeNamespaceNextToken" j
    let to_json = simple_to_json to_value
  end
module DataLakeNamespaceMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DataLakeNamespaceMaxResults"
           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 DataLakeDatasetList =
  struct
    type nonrec t = DataLakeDataset.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataLakeDataset.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:DataLakeDataset.of_xml)
    let of_json j =
      list_of_json ~kind:"DataLakeDatasetList"
        ~of_json:DataLakeDataset.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataLakeDatasetNextToken =
  struct
    type nonrec t = string
    let context_ = "DataLakeDatasetNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:65535) >>=
             (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:"DataLakeDatasetNextToken" j
    let to_json = simple_to_json to_value
  end
module DataLakeDatasetMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DataLakeDatasetMaxResults"
           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 DataIntegrationFlowList =
  struct
    type nonrec t = DataIntegrationFlow.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:DataIntegrationFlow.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:DataIntegrationFlow.of_xml)
    let of_json j =
      list_of_json ~kind:"DataIntegrationFlowList"
        ~of_json:DataIntegrationFlow.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataIntegrationFlowNextToken =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:65535) >>=
             (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:"DataIntegrationFlowNextToken" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DataIntegrationFlowMaxResults"
           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 DataIntegrationFlowExecutionList =
  struct
    type nonrec t = DataIntegrationFlowExecution.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:DataIntegrationFlowExecution.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:DataIntegrationFlowExecution.of_xml)
    let of_json j =
      list_of_json ~kind:"DataIntegrationFlowExecutionList"
        ~of_json:DataIntegrationFlowExecution.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataIntegrationFlowExecutionNextToken =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationFlowExecutionNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:65535) >>=
             (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:"DataIntegrationFlowExecutionNextToken" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationFlowExecutionMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for DataIntegrationFlowExecutionMaxResults"
           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 DataIntegrationEventList =
  struct
    type nonrec t = DataIntegrationEvent.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:DataIntegrationEvent.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:DataIntegrationEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"DataIntegrationEventList"
        ~of_json:DataIntegrationEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataIntegrationEventNextToken =
  struct
    type nonrec t = string
    let context_ = "DataIntegrationEventNextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:65535) >>=
             (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:"DataIntegrationEventNextToken" j
    let to_json = simple_to_json to_value
  end
module DataIntegrationEventMaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:20) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for DataIntegrationEventMaxResults"
           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 BillOfMaterialsImportJob =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc "The BillOfMaterialsImportJob instanceId."];
      jobId: UUID.t option [@ocaml.doc "The BillOfMaterialsImportJob jobId."];
      status: ConfigurationJobStatus.t option
        [@ocaml.doc "The BillOfMaterialsImportJob ConfigurationJobStatus."];
      s3uri: ConfigurationS3Uri.t option
        [@ocaml.doc "The S3 URI from which the CSV is read."];
      message: String_.t option
        [@ocaml.doc
          "When the BillOfMaterialsImportJob has reached a terminal state, there will be a message."]}
    let make ?instanceId =
      fun ?jobId ->
        fun ?status ->
          fun ?s3uri ->
            fun ?message ->
              fun () -> { instanceId; jobId; status; s3uri; message }
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("jobId", (Option.map x.jobId ~f:UUID.to_value));
        ("status", (Option.map x.status ~f:ConfigurationJobStatus.to_value));
        ("s3uri", (Option.map x.s3uri ~f:ConfigurationS3Uri.to_value));
        ("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      let s3uri =
        (Option.map ~f:ConfigurationS3Uri.of_xml)
          (Xml.child xml_arg0 "s3uri") in
      let status =
        (Option.map ~f:ConfigurationJobStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let jobId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "jobId") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?message ?s3uri ?status ?jobId ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      let s3uri = field_map json__ "s3uri" ConfigurationS3Uri.of_json in
      let status = field_map json__ "status" ConfigurationJobStatus.of_json in
      let jobId = field_map json__ "jobId" UUID.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?message ?s3uri ?status ?jobId ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The BillOfMaterialsImportJob details."]
module UpdateInstanceResponse =
  struct
    type nonrec t =
      {
      instance: Instance.t option
        [@ocaml.doc "The instance resource data details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instance = fun () -> { instance }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instance", (Option.map x.instance ~f:Instance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instance =
        (Option.map ~f:Instance.of_xml) (Xml.child xml_arg0 "instance") in
      make ?instance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instance = field_map json__ "instance" Instance.of_json in
      make ?instance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for UpdateInstance."]
module UpdateInstanceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      instanceName: InstanceName.t option
        [@ocaml.doc "The AWS Supply Chain instance name."];
      instanceDescription: InstanceDescription.t option
        [@ocaml.doc "The AWS Supply Chain instance description."]}
    let context_ = "UpdateInstanceRequest"
    let make ?instanceName =
      fun ?instanceDescription ->
        fun ~instanceId ->
          fun () -> { instanceName; instanceDescription; instanceId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("instanceName",
          (Option.map x.instanceName ~f:InstanceName.to_value));
        ("instanceDescription",
          (Option.map x.instanceDescription ~f:InstanceDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceDescription =
        (Option.map ~f:InstanceDescription.of_xml)
          (Xml.child xml_arg0 "instanceDescription") in
      let instanceName =
        (Option.map ~f:InstanceName.of_xml)
          (Xml.child xml_arg0 "instanceName") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?instanceDescription ?instanceName ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceDescription =
        field_map json__ "instanceDescription" InstanceDescription.of_json in
      let instanceName = field_map json__ "instanceName" InstanceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?instanceDescription ?instanceName ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for UpdateInstance."]
module UpdateDataLakeNamespaceResponse =
  struct
    type nonrec t =
      {
      namespace: DataLakeNamespace.t option
        [@ocaml.doc "The updated namespace details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?namespace = fun () -> { namespace }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("namespace",
           (Option.map x.namespace ~f:DataLakeNamespace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        (Option.map ~f:DataLakeNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      make ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map json__ "namespace" DataLakeNamespace.of_json in
      make ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of UpdateDataLakeNamespace."]
module UpdateDataLakeNamespaceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The Amazon Web Services Chain instance identifier."];
      name: DataLakeNamespaceName.t
        [@ocaml.doc
          "The name of the namespace. Noted you cannot update namespace with name starting with asc, default, scn, aws, amazon, amzn"];
      description: DataLakeNamespaceDescription.t option
        [@ocaml.doc "The updated description of the data lake namespace."]}
    let context_ = "UpdateDataLakeNamespaceRequest"
    let make ?description =
      fun ~instanceId ->
        fun ~name -> fun () -> { description; instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataLakeNamespaceName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:DataLakeNamespaceDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:DataLakeNamespaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?description ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" DataLakeNamespaceDescription.of_json in
      let name = field_map_exn json__ "name" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?description ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of UpdateDataLakeNamespace."]
module UpdateDataLakeDatasetResponse =
  struct
    type nonrec t =
      {
      dataset: DataLakeDataset.t option
        [@ocaml.doc "The updated dataset details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dataset = fun () -> { dataset }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("dataset", (Option.map x.dataset ~f:DataLakeDataset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataset =
        (Option.map ~f:DataLakeDataset.of_xml) (Xml.child xml_arg0 "dataset") in
      make ?dataset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataset = field_map json__ "dataset" DataLakeDataset.of_json in
      make ?dataset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of UpdateDataLakeDataset."]
module UpdateDataLakeDatasetRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The Amazon Web Services Chain instance identifier."];
      namespace: DataLakeNamespaceName.t
        [@ocaml.doc
          "The namespace of the dataset, besides the custom defined namespace, every instance comes with below pre-defined namespaces: asc - For information on the Amazon Web Services Supply Chain supported datasets see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - For datasets with custom user-defined schemas."];
      name: DataLakeDatasetName.t
        [@ocaml.doc
          "The name of the dataset. For asc namespace, the name must be one of the supported data entities under https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html."];
      description: DataLakeDatasetDescription.t option
        [@ocaml.doc "The updated description of the data lake dataset."]}
    let context_ = "UpdateDataLakeDatasetRequest"
    let make ?description =
      fun ~instanceId ->
        fun ~namespace ->
          fun ~name -> fun () -> { description; instanceId; namespace; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("namespace", (Some (DataLakeNamespaceName.to_value x.namespace)));
        ("name", (Some (DataLakeDatasetName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:DataLakeDatasetDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:DataLakeDatasetDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        DataLakeDatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?description ~name ~namespace ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "description" DataLakeDatasetDescription.of_json in
      let name = field_map_exn json__ "name" DataLakeDatasetName.of_json in
      let namespace =
        field_map_exn json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?description ~name ~namespace ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of UpdateDataLakeDataset."]
module UpdateDataIntegrationFlowResponse =
  struct
    type nonrec t =
      {
      flow: DataIntegrationFlow.t option
        [@ocaml.doc "The details of the updated DataIntegrationFlow."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?flow = fun () -> { flow }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("flow", (Option.map x.flow ~f:DataIntegrationFlow.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flow =
        (Option.map ~f:DataIntegrationFlow.of_xml)
          (Xml.child xml_arg0 "flow") in
      make ?flow ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flow = field_map json__ "flow" DataIntegrationFlow.of_json in
      make ?flow ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for UpdateDataIntegrationFlow."]
module UpdateDataIntegrationFlowRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataIntegrationFlowName.t
        [@ocaml.doc "The name of the DataIntegrationFlow to be updated."];
      sources: DataIntegrationFlowSourceList.t option
        [@ocaml.doc
          "The new source configurations for the DataIntegrationFlow."];
      transformation: DataIntegrationFlowTransformation.t option
        [@ocaml.doc
          "The new transformation configurations for the DataIntegrationFlow."];
      target: DataIntegrationFlowTarget.t option
        [@ocaml.doc
          "The new target configurations for the DataIntegrationFlow."]}
    let context_ = "UpdateDataIntegrationFlowRequest"
    let make ?sources =
      fun ?transformation ->
        fun ?target ->
          fun ~instanceId ->
            fun ~name ->
              fun () -> { sources; transformation; target; instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataIntegrationFlowName.to_value x.name)));
        ("sources",
          (Option.map x.sources ~f:DataIntegrationFlowSourceList.to_value));
        ("transformation",
          (Option.map x.transformation
             ~f:DataIntegrationFlowTransformation.to_value));
        ("target",
          (Option.map x.target ~f:DataIntegrationFlowTarget.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let target =
        (Option.map ~f:DataIntegrationFlowTarget.of_xml)
          (Xml.child xml_arg0 "target") in
      let transformation =
        (Option.map ~f:DataIntegrationFlowTransformation.of_xml)
          (Xml.child xml_arg0 "transformation") in
      let sources =
        (Option.map ~f:DataIntegrationFlowSourceList.of_xml)
          (Xml.child xml_arg0 "sources") in
      let name =
        DataIntegrationFlowName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?target ?transformation ?sources ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let target =
        field_map json__ "target" DataIntegrationFlowTarget.of_json in
      let transformation =
        field_map json__ "transformation"
          DataIntegrationFlowTransformation.of_json in
      let sources =
        field_map json__ "sources" DataIntegrationFlowSourceList.of_json in
      let name = field_map_exn json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?target ?transformation ?sources ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for UpdateDataIntegrationFlow."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of UntagResource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AscResourceArn.t
        [@ocaml.doc
          "The Amazon Web Services Supply chain resource ARN that needs to be untagged."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "The list of tag keys to be deleted for an Amazon Web Services Supply Chain resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AscResourceArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        AscResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" AscResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of UntagResource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for TagResource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AscResourceArn.t
        [@ocaml.doc
          "The Amazon Web Services Supply chain resource ARN that needs to be tagged."];
      tags: TagMap.t
        [@ocaml.doc
          "The tags of the Amazon Web Services Supply chain resource to be created."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AscResourceArn.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        AscResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" AscResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of TagResource."]
module SendDataIntegrationEventResponse =
  struct
    type nonrec t =
      {
      eventId: UUID.t option [@ocaml.doc "The unique event identifier."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?eventId = fun () -> { eventId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("eventId", (Option.map x.eventId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "eventId") in
      make ?eventId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventId = field_map json__ "eventId" UUID.of_json in
      make ?eventId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for SendDataIntegrationEvent."]
module SendDataIntegrationEventRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      eventType: DataIntegrationEventType.t
        [@ocaml.doc
          "The data event type. scn.data.dataset - Send data directly to any specified dataset. scn.data.supplyplan - Send data to supply_plan dataset. scn.data.shipmentstoporder - Send data to shipment_stop_order dataset. scn.data.shipmentstop - Send data to shipment_stop dataset. scn.data.shipment - Send data to shipment dataset. scn.data.reservation - Send data to reservation dataset. scn.data.processproduct - Send data to process_product dataset. scn.data.processoperation - Send data to process_operation dataset. scn.data.processheader - Send data to process_header dataset. scn.data.forecast - Send data to forecast dataset. scn.data.inventorylevel - Send data to inv_level dataset. scn.data.inboundorder - Send data to inbound_order dataset. scn.data.inboundorderline - Send data to inbound_order_line dataset. scn.data.inboundorderlineschedule - Send data to inbound_order_line_schedule dataset. scn.data.outboundorderline - Send data to outbound_order_line dataset. scn.data.outboundshipment - Send data to outbound_shipment dataset."];
      data: DataIntegrationEventData.t
        [@ocaml.doc
          "The data payload of the event, should follow the data schema of the target dataset, or see Data entities supported in AWS Supply Chain. To send single data record, use JsonObject format; to send multiple data records, use JsonArray format. Note that for AWS Supply Chain dataset under asc namespace, it has a connection_id internal field that is not allowed to be provided by client directly, they will be auto populated."];
      eventGroupId: DataIntegrationEventGroupId.t
        [@ocaml.doc
          "Event identifier (for example, orderId for InboundOrder) used for data sharding or partitioning. Noted under one eventGroupId of same eventType and instanceId, events are processed sequentially in the order they are received by the server."];
      eventTimestamp: SyntheticTimestamp_epoch_seconds.t option
        [@ocaml.doc
          "The timestamp (in epoch seconds) associated with the event. If not provided, it will be assigned with current timestamp."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "The idempotent client token. The token is active for 8 hours, and within its lifetime, it ensures the request completes only once upon retry with same client token. If omitted, the AWS SDK generates a unique value so that AWS SDK can safely retry the request upon network errors."];
      datasetTarget: DataIntegrationEventDatasetTargetConfiguration.t option
        [@ocaml.doc
          "The target dataset configuration for scn.data.dataset event type."]}
    let context_ = "SendDataIntegrationEventRequest"
    let make ?eventTimestamp =
      fun ?clientToken ->
        fun ?datasetTarget ->
          fun ~instanceId ->
            fun ~eventType ->
              fun ~data ->
                fun ~eventGroupId ->
                  fun () ->
                    {
                      eventTimestamp;
                      clientToken;
                      datasetTarget;
                      instanceId;
                      eventType;
                      data;
                      eventGroupId
                    }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("eventType", (Some (DataIntegrationEventType.to_value x.eventType)));
        ("data", (Some (DataIntegrationEventData.to_value x.data)));
        ("eventGroupId",
          (Some (DataIntegrationEventGroupId.to_value x.eventGroupId)));
        ("eventTimestamp",
          (Option.map x.eventTimestamp
             ~f:SyntheticTimestamp_epoch_seconds.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetTarget",
          (Option.map x.datasetTarget
             ~f:DataIntegrationEventDatasetTargetConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetTarget =
        (Option.map ~f:DataIntegrationEventDatasetTargetConfiguration.of_xml)
          (Xml.child xml_arg0 "datasetTarget") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let eventTimestamp =
        (Option.map ~f:SyntheticTimestamp_epoch_seconds.of_xml)
          (Xml.child xml_arg0 "eventTimestamp") in
      let eventGroupId =
        DataIntegrationEventGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventGroupId") in
      let data =
        DataIntegrationEventData.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "data") in
      let eventType =
        DataIntegrationEventType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventType") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?datasetTarget ?clientToken ?eventTimestamp ~eventGroupId ~data
        ~eventType ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetTarget =
        field_map json__ "datasetTarget"
          DataIntegrationEventDatasetTargetConfiguration.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let eventTimestamp =
        field_map json__ "eventTimestamp"
          SyntheticTimestamp_epoch_seconds.of_json in
      let eventGroupId =
        field_map_exn json__ "eventGroupId"
          DataIntegrationEventGroupId.of_json in
      let data = field_map_exn json__ "data" DataIntegrationEventData.of_json in
      let eventType =
        field_map_exn json__ "eventType" DataIntegrationEventType.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?datasetTarget ?clientToken ?eventTimestamp ~eventGroupId ~data
        ~eventType ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for SendDataIntegrationEvent."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc
          "The tags added to an Amazon Web Services Supply Chain resource."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of ListTagsForResource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: AscResourceArn.t
        [@ocaml.doc
          "The Amazon Web Services Supply chain resource ARN that needs tags to be listed."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (AscResourceArn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        AscResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn =
        field_map_exn json__ "resourceArn" AscResourceArn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of ListTagsForResource."]
module ListInstancesResponse =
  struct
    type nonrec t =
      {
      instances: InstanceList.t option
        [@ocaml.doc "The list of instances resource data details."];
      nextToken: InstanceNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch the next page of instances."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instances =
      fun ?nextToken -> fun () -> { instances; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instances", (Option.map x.instances ~f:InstanceList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:InstanceNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:InstanceNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let instances =
        (Option.map ~f:InstanceList.of_xml) (Xml.child xml_arg0 "instances") in
      make ?nextToken ?instances ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" InstanceNextToken.of_json in
      let instances = field_map json__ "instances" InstanceList.of_json in
      make ?nextToken ?instances ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for ListInstances."]
module ListInstancesRequest =
  struct
    type nonrec t =
      {
      nextToken: InstanceNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch the next page of instances."];
      maxResults: InstanceMaxResults.t option
        [@ocaml.doc
          "Specify the maximum number of instances to fetch in this paginated request."];
      instanceNameFilter: InstanceNameList.t option
        [@ocaml.doc "The filter to ListInstances based on their names."];
      instanceStateFilter: InstanceStateList.t option
        [@ocaml.doc "The filter to ListInstances based on their state."]}
    let make ?nextToken =
      fun ?maxResults ->
        fun ?instanceNameFilter ->
          fun ?instanceStateFilter ->
            fun () ->
              {
                nextToken;
                maxResults;
                instanceNameFilter;
                instanceStateFilter
              }
    let to_value x =
      structure_to_value
        [("nextToken",
           (Option.map x.nextToken ~f:InstanceNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:InstanceMaxResults.to_value));
        ("instanceNameFilter",
          (Option.map x.instanceNameFilter ~f:InstanceNameList.to_value));
        ("instanceStateFilter",
          (Option.map x.instanceStateFilter ~f:InstanceStateList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceStateFilter =
        (Option.map ~f:InstanceStateList.of_xml)
          (Xml.child xml_arg0 "instanceStateFilter") in
      let instanceNameFilter =
        (Option.map ~f:InstanceNameList.of_xml)
          (Xml.child xml_arg0 "instanceNameFilter") in
      let maxResults =
        (Option.map ~f:InstanceMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:InstanceNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?instanceStateFilter ?instanceNameFilter ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceStateFilter =
        field_map json__ "instanceStateFilter" InstanceStateList.of_json in
      let instanceNameFilter =
        field_map json__ "instanceNameFilter" InstanceNameList.of_json in
      let maxResults =
        field_map json__ "maxResults" InstanceMaxResults.of_json in
      let nextToken = field_map json__ "nextToken" InstanceNextToken.of_json in
      make ?instanceStateFilter ?instanceNameFilter ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for ListInstances."]
module ListDataLakeNamespacesResponse =
  struct
    type nonrec t =
      {
      namespaces: DataLakeNamespaceList.t option
        [@ocaml.doc
          "The list of fetched namespace details. Noted it only contains custom namespaces, pre-defined namespaces are not included."];
      nextToken: DataLakeNamespaceNextToken.t option
        [@ocaml.doc "The pagination token to fetch next page of namespaces."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?namespaces =
      fun ?nextToken -> fun () -> { namespaces; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("namespaces",
           (Option.map x.namespaces ~f:DataLakeNamespaceList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:DataLakeNamespaceNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:DataLakeNamespaceNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let namespaces =
        (Option.map ~f:DataLakeNamespaceList.of_xml)
          (Xml.child xml_arg0 "namespaces") in
      make ?nextToken ?namespaces ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" DataLakeNamespaceNextToken.of_json in
      let namespaces =
        field_map json__ "namespaces" DataLakeNamespaceList.of_json in
      make ?nextToken ?namespaces ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of ListDataLakeNamespaces."]
module ListDataLakeNamespacesRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      nextToken: DataLakeNamespaceNextToken.t option
        [@ocaml.doc "The pagination token to fetch next page of namespaces."];
      maxResults: DataLakeNamespaceMaxResults.t option
        [@ocaml.doc
          "The max number of namespaces to fetch in this paginated request."]}
    let context_ = "ListDataLakeNamespacesRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~instanceId -> fun () -> { nextToken; maxResults; instanceId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("nextToken",
          (Option.map x.nextToken ~f:DataLakeNamespaceNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:DataLakeNamespaceMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DataLakeNamespaceMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:DataLakeNamespaceNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?maxResults ?nextToken ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" DataLakeNamespaceMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken" DataLakeNamespaceNextToken.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?maxResults ?nextToken ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of ListDataLakeNamespaces."]
module ListDataLakeDatasetsResponse =
  struct
    type nonrec t =
      {
      datasets: DataLakeDatasetList.t option
        [@ocaml.doc "The list of fetched dataset details."];
      nextToken: DataLakeDatasetNextToken.t option
        [@ocaml.doc "The pagination token to fetch next page of datasets."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasets = fun ?nextToken -> fun () -> { datasets; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasets",
           (Option.map x.datasets ~f:DataLakeDatasetList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:DataLakeDatasetNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:DataLakeDatasetNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let datasets =
        (Option.map ~f:DataLakeDatasetList.of_xml)
          (Xml.child xml_arg0 "datasets") in
      make ?nextToken ?datasets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" DataLakeDatasetNextToken.of_json in
      let datasets = field_map json__ "datasets" DataLakeDatasetList.of_json in
      make ?nextToken ?datasets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of ListDataLakeDatasets."]
module ListDataLakeDatasetsRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      namespace: DataLakeNamespaceName.t
        [@ocaml.doc
          "The namespace of the dataset, besides the custom defined namespace, every instance comes with below pre-defined namespaces: asc - For information on the Amazon Web Services Supply Chain supported datasets see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - For datasets with custom user-defined schemas."];
      nextToken: DataLakeDatasetNextToken.t option
        [@ocaml.doc "The pagination token to fetch next page of datasets."];
      maxResults: DataLakeDatasetMaxResults.t option
        [@ocaml.doc
          "The max number of datasets to fetch in this paginated request."]}
    let context_ = "ListDataLakeDatasetsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~instanceId ->
          fun ~namespace ->
            fun () -> { nextToken; maxResults; instanceId; namespace }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("namespace", (Some (DataLakeNamespaceName.to_value x.namespace)));
        ("nextToken",
          (Option.map x.nextToken ~f:DataLakeDatasetNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:DataLakeDatasetMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DataLakeDatasetMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:DataLakeDatasetNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let namespace =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?maxResults ?nextToken ~namespace ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" DataLakeDatasetMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken" DataLakeDatasetNextToken.of_json in
      let namespace =
        field_map_exn json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?maxResults ?nextToken ~namespace ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of ListDataLakeDatasets."]
module ListDataIntegrationFlowsResponse =
  struct
    type nonrec t =
      {
      flows: DataIntegrationFlowList.t option
        [@ocaml.doc "The response parameters for ListDataIntegrationFlows."];
      nextToken: DataIntegrationFlowNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch the next page of the DataIntegrationFlows."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?flows = fun ?nextToken -> fun () -> { flows; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("flows", (Option.map x.flows ~f:DataIntegrationFlowList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:DataIntegrationFlowNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:DataIntegrationFlowNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let flows =
        (Option.map ~f:DataIntegrationFlowList.of_xml)
          (Xml.child xml_arg0 "flows") in
      make ?nextToken ?flows ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" DataIntegrationFlowNextToken.of_json in
      let flows = field_map json__ "flows" DataIntegrationFlowList.of_json in
      make ?nextToken ?flows ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for ListDataIntegrationFlows."]
module ListDataIntegrationFlowsRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      nextToken: DataIntegrationFlowNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch the next page of the DataIntegrationFlows."];
      maxResults: DataIntegrationFlowMaxResults.t option
        [@ocaml.doc
          "Specify the maximum number of DataIntegrationFlows to fetch in one paginated request."]}
    let context_ = "ListDataIntegrationFlowsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~instanceId -> fun () -> { nextToken; maxResults; instanceId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("nextToken",
          (Option.map x.nextToken ~f:DataIntegrationFlowNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:DataIntegrationFlowMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DataIntegrationFlowMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:DataIntegrationFlowNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?maxResults ?nextToken ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" DataIntegrationFlowMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken" DataIntegrationFlowNextToken.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?maxResults ?nextToken ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for ListDataIntegrationFlows."]
module ListDataIntegrationFlowExecutionsResponse =
  struct
    type nonrec t =
      {
      flowExecutions: DataIntegrationFlowExecutionList.t option
        [@ocaml.doc "The list of flow executions."];
      nextToken: DataIntegrationFlowExecutionNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch next page of flow executions."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?flowExecutions =
      fun ?nextToken -> fun () -> { flowExecutions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("flowExecutions",
           (Option.map x.flowExecutions
              ~f:DataIntegrationFlowExecutionList.to_value));
        ("nextToken",
          (Option.map x.nextToken
             ~f:DataIntegrationFlowExecutionNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:DataIntegrationFlowExecutionNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let flowExecutions =
        (Option.map ~f:DataIntegrationFlowExecutionList.of_xml)
          (Xml.child xml_arg0 "flowExecutions") in
      make ?nextToken ?flowExecutions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken"
          DataIntegrationFlowExecutionNextToken.of_json in
      let flowExecutions =
        field_map json__ "flowExecutions"
          DataIntegrationFlowExecutionList.of_json in
      make ?nextToken ?flowExecutions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of ListFlowExecutions."]
module ListDataIntegrationFlowExecutionsRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      flowName: DataIntegrationFlowName.t [@ocaml.doc "The flow name."];
      nextToken: DataIntegrationFlowExecutionNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch next page of flow executions."];
      maxResults: DataIntegrationFlowExecutionMaxResults.t option
        [@ocaml.doc
          "The number to specify the max number of flow executions to fetch in this paginated request."]}
    let context_ = "ListDataIntegrationFlowExecutionsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~instanceId ->
          fun ~flowName ->
            fun () -> { nextToken; maxResults; instanceId; flowName }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("flowName", (Some (DataIntegrationFlowName.to_value x.flowName)));
        ("nextToken",
          (Option.map x.nextToken
             ~f:DataIntegrationFlowExecutionNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults
             ~f:DataIntegrationFlowExecutionMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DataIntegrationFlowExecutionMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:DataIntegrationFlowExecutionNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let flowName =
        DataIntegrationFlowName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "flowName") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?maxResults ?nextToken ~flowName ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults"
          DataIntegrationFlowExecutionMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken"
          DataIntegrationFlowExecutionNextToken.of_json in
      let flowName =
        field_map_exn json__ "flowName" DataIntegrationFlowName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?maxResults ?nextToken ~flowName ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of ListFlowExecutions."]
module ListDataIntegrationEventsResponse =
  struct
    type nonrec t =
      {
      events: DataIntegrationEventList.t option
        [@ocaml.doc "The list of data integration events."];
      nextToken: DataIntegrationEventNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch the next page of the ListDataIntegrationEvents."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?events = fun ?nextToken -> fun () -> { events; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("events",
           (Option.map x.events ~f:DataIntegrationEventList.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:DataIntegrationEventNextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:DataIntegrationEventNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let events =
        (Option.map ~f:DataIntegrationEventList.of_xml)
          (Xml.child xml_arg0 "events") in
      make ?nextToken ?events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken =
        field_map json__ "nextToken" DataIntegrationEventNextToken.of_json in
      let events = field_map json__ "events" DataIntegrationEventList.of_json in
      make ?nextToken ?events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for ListDataIntegrationEvents."]
module ListDataIntegrationEventsRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      eventType: DataIntegrationEventType.t option
        [@ocaml.doc
          "List data integration events for the specified eventType."];
      nextToken: DataIntegrationEventNextToken.t option
        [@ocaml.doc
          "The pagination token to fetch the next page of the data integration events."];
      maxResults: DataIntegrationEventMaxResults.t option
        [@ocaml.doc
          "Specify the maximum number of data integration events to fetch in one paginated request."]}
    let context_ = "ListDataIntegrationEventsRequest"
    let make ?eventType =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~instanceId ->
            fun () -> { eventType; nextToken; maxResults; instanceId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("eventType",
          (Option.map x.eventType ~f:DataIntegrationEventType.to_value));
        ("nextToken",
          (Option.map x.nextToken ~f:DataIntegrationEventNextToken.to_value));
        ("maxResults",
          (Option.map x.maxResults ~f:DataIntegrationEventMaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:DataIntegrationEventMaxResults.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:DataIntegrationEventNextToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let eventType =
        (Option.map ~f:DataIntegrationEventType.of_xml)
          (Xml.child xml_arg0 "eventType") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?maxResults ?nextToken ?eventType ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "maxResults" DataIntegrationEventMaxResults.of_json in
      let nextToken =
        field_map json__ "nextToken" DataIntegrationEventNextToken.of_json in
      let eventType =
        field_map json__ "eventType" DataIntegrationEventType.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?maxResults ?nextToken ?eventType ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for ListDataIntegrationEvents."]
module GetInstanceResponse =
  struct
    type nonrec t =
      {
      instance: Instance.t option
        [@ocaml.doc "The instance resource data details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instance = fun () -> { instance }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instance", (Option.map x.instance ~f:Instance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instance =
        (Option.map ~f:Instance.of_xml) (Xml.child xml_arg0 "instance") in
      make ?instance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instance = field_map json__ "instance" Instance.of_json in
      make ?instance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for GetInstance."]
module GetInstanceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier"]}
    let context_ = "GetInstanceRequest"
    let make ~instanceId = fun () -> { instanceId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for GetInstance."]
module GetDataLakeNamespaceResponse =
  struct
    type nonrec t =
      {
      namespace: DataLakeNamespace.t option
        [@ocaml.doc "The fetched namespace details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?namespace = fun () -> { namespace }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("namespace",
           (Option.map x.namespace ~f:DataLakeNamespace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        (Option.map ~f:DataLakeNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      make ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map json__ "namespace" DataLakeNamespace.of_json in
      make ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for GetDataLakeNamespace."]
module GetDataLakeNamespaceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataLakeNamespaceName.t
        [@ocaml.doc
          "The name of the namespace. Besides the namespaces user created, you can also specify the pre-defined namespaces: asc - Pre-defined namespace containing Amazon Web Services Supply Chain supported datasets, see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - Pre-defined namespace containing datasets with custom user-defined schemas."]}
    let context_ = "GetDataLakeNamespaceRequest"
    let make ~instanceId = fun ~name -> fun () -> { instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataLakeNamespaceName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for GetDataLakeNamespace."]
module GetDataLakeDatasetResponse =
  struct
    type nonrec t =
      {
      dataset: DataLakeDataset.t option
        [@ocaml.doc "The fetched dataset details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dataset = fun () -> { dataset }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("dataset", (Option.map x.dataset ~f:DataLakeDataset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataset =
        (Option.map ~f:DataLakeDataset.of_xml) (Xml.child xml_arg0 "dataset") in
      make ?dataset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataset = field_map json__ "dataset" DataLakeDataset.of_json in
      make ?dataset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for GetDataLakeDataset."]
module GetDataLakeDatasetRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      namespace: DataLakeNamespaceName.t
        [@ocaml.doc
          "The namespace of the dataset, besides the custom defined namespace, every instance comes with below pre-defined namespaces: asc - For information on the Amazon Web Services Supply Chain supported datasets see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - For datasets with custom user-defined schemas."];
      name: DataLakeDatasetName.t
        [@ocaml.doc
          "The name of the dataset. For asc namespace, the name must be one of the supported data entities under https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html."]}
    let context_ = "GetDataLakeDatasetRequest"
    let make ~instanceId =
      fun ~namespace ->
        fun ~name -> fun () -> { instanceId; namespace; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("namespace", (Some (DataLakeNamespaceName.to_value x.namespace)));
        ("name", (Some (DataLakeDatasetName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataLakeDatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~name ~namespace ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DataLakeDatasetName.of_json in
      let namespace =
        field_map_exn json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~name ~namespace ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for GetDataLakeDataset."]
module GetDataIntegrationFlowResponse =
  struct
    type nonrec t =
      {
      flow: DataIntegrationFlow.t option
        [@ocaml.doc "The details of the DataIntegrationFlow returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?flow = fun () -> { flow }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("flow", (Option.map x.flow ~f:DataIntegrationFlow.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flow =
        (Option.map ~f:DataIntegrationFlow.of_xml)
          (Xml.child xml_arg0 "flow") in
      make ?flow ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flow = field_map json__ "flow" DataIntegrationFlow.of_json in
      make ?flow ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for GetDataIntegrationFlow."]
module GetDataIntegrationFlowRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataIntegrationFlowName.t
        [@ocaml.doc "The name of the DataIntegrationFlow created."]}
    let context_ = "GetDataIntegrationFlowRequest"
    let make ~instanceId = fun ~name -> fun () -> { instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataIntegrationFlowName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataIntegrationFlowName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for GetDataIntegrationFlow."]
module GetDataIntegrationFlowExecutionResponse =
  struct
    type nonrec t =
      {
      flowExecution: DataIntegrationFlowExecution.t option
        [@ocaml.doc "The flow execution details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?flowExecution = fun () -> { flowExecution }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("flowExecution",
           (Option.map x.flowExecution
              ~f:DataIntegrationFlowExecution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let flowExecution =
        (Option.map ~f:DataIntegrationFlowExecution.of_xml)
          (Xml.child xml_arg0 "flowExecution") in
      make ?flowExecution ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let flowExecution =
        field_map json__ "flowExecution" DataIntegrationFlowExecution.of_json in
      make ?flowExecution ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of GetFlowExecution."]
module GetDataIntegrationFlowExecutionRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      flowName: DataIntegrationFlowName.t [@ocaml.doc "The flow name."];
      executionId: UUID.t [@ocaml.doc "The flow execution identifier."]}
    let context_ = "GetDataIntegrationFlowExecutionRequest"
    let make ~instanceId =
      fun ~flowName ->
        fun ~executionId -> fun () -> { instanceId; flowName; executionId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("flowName", (Some (DataIntegrationFlowName.to_value x.flowName)));
        ("executionId", (Some (UUID.to_value x.executionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let executionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "executionId") in
      let flowName =
        DataIntegrationFlowName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "flowName") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~executionId ~flowName ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let executionId = field_map_exn json__ "executionId" UUID.of_json in
      let flowName =
        field_map_exn json__ "flowName" DataIntegrationFlowName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~executionId ~flowName ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of GetFlowExecution."]
module GetDataIntegrationEventResponse =
  struct
    type nonrec t =
      {
      event: DataIntegrationEvent.t option
        [@ocaml.doc "The details of the DataIntegrationEvent returned."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?event = fun () -> { event }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("event", (Option.map x.event ~f:DataIntegrationEvent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let event =
        (Option.map ~f:DataIntegrationEvent.of_xml)
          (Xml.child xml_arg0 "event") in
      make ?event ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let event = field_map json__ "event" DataIntegrationEvent.of_json in
      make ?event ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for GetDataIntegrationEvent."]
module GetDataIntegrationEventRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      eventId: UUID.t [@ocaml.doc "The unique event identifier."]}
    let context_ = "GetDataIntegrationEventRequest"
    let make ~instanceId = fun ~eventId -> fun () -> { instanceId; eventId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("eventId", (Some (UUID.to_value x.eventId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "eventId") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~eventId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventId = field_map_exn json__ "eventId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~eventId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for GetDataIntegrationEvent."]
module GetBillOfMaterialsImportJobResponse =
  struct
    type nonrec t =
      {
      job: BillOfMaterialsImportJob.t option
        [@ocaml.doc "The BillOfMaterialsImportJob."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?job = fun () -> { job }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("job", (Option.map x.job ~f:BillOfMaterialsImportJob.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let job =
        (Option.map ~f:BillOfMaterialsImportJob.of_xml)
          (Xml.child xml_arg0 "job") in
      make ?job ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let job = field_map json__ "job" BillOfMaterialsImportJob.of_json in
      make ?job ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for GetBillOfMaterialsImportJob."]
module GetBillOfMaterialsImportJobRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      jobId: UUID.t [@ocaml.doc "The BillOfMaterialsImportJob identifier."]}
    let context_ = "GetBillOfMaterialsImportJobRequest"
    let make ~instanceId = fun ~jobId -> fun () -> { instanceId; jobId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("jobId", (Some (UUID.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~jobId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~jobId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for GetBillOfMaterialsImportJob."]
module DeleteInstanceResponse =
  struct
    type nonrec t =
      {
      instance: Instance.t option
        [@ocaml.doc "The AWS Supply Chain instance resource data details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instance = fun () -> { instance }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instance", (Option.map x.instance ~f:Instance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instance =
        (Option.map ~f:Instance.of_xml) (Xml.child xml_arg0 "instance") in
      make ?instance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instance = field_map json__ "instance" Instance.of_json in
      make ?instance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for DeleteInstance."]
module DeleteInstanceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."]}
    let context_ = "DeleteInstanceRequest"
    let make ~instanceId = fun () -> { instanceId }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for DeleteInstance."]
module DeleteDataLakeNamespaceResponse =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      name: DataLakeNamespaceName.t option
        [@ocaml.doc "The name of deleted namespace."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instanceId = fun ?name -> fun () -> { instanceId; name }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:DataLakeNamespaceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:DataLakeNamespaceName.of_xml)
          (Xml.child xml_arg0 "name") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?name ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" DataLakeNamespaceName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?name ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of DeleteDataLakeNamespace."]
module DeleteDataLakeNamespaceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      name: DataLakeNamespaceName.t
        [@ocaml.doc
          "The name of the namespace. Noted you cannot delete pre-defined namespace like asc, default which are only deleted through instance deletion."]}
    let context_ = "DeleteDataLakeNamespaceRequest"
    let make ~instanceId = fun ~name -> fun () -> { instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataLakeNamespaceName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of DeleteDataLakeNamespace."]
module DeleteDataLakeDatasetResponse =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      namespace: DataLakeNamespaceName.t option
        [@ocaml.doc "The namespace of deleted dataset."];
      name: DataLakeDatasetName.t option
        [@ocaml.doc "The name of deleted dataset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instanceId =
      fun ?namespace ->
        fun ?name -> fun () -> { instanceId; namespace; name }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("namespace",
          (Option.map x.namespace ~f:DataLakeNamespaceName.to_value));
        ("name", (Option.map x.name ~f:DataLakeDatasetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:DataLakeDatasetName.of_xml)
          (Xml.child xml_arg0 "name") in
      let namespace =
        (Option.map ~f:DataLakeNamespaceName.of_xml)
          (Xml.child xml_arg0 "namespace") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?name ?namespace ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" DataLakeDatasetName.of_json in
      let namespace =
        field_map json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?name ?namespace ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of DeleteDataLakeDataset."]
module DeleteDataLakeDatasetRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      namespace: DataLakeNamespaceName.t
        [@ocaml.doc
          "The namespace of the dataset, besides the custom defined namespace, every instance comes with below pre-defined namespaces: asc - For information on the Amazon Web Services Supply Chain supported datasets see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - For datasets with custom user-defined schemas."];
      name: DataLakeDatasetName.t
        [@ocaml.doc
          "The name of the dataset. For asc namespace, the name must be one of the supported data entities under https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html."]}
    let context_ = "DeleteDataLakeDatasetRequest"
    let make ~instanceId =
      fun ~namespace ->
        fun ~name -> fun () -> { instanceId; namespace; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("namespace", (Some (DataLakeNamespaceName.to_value x.namespace)));
        ("name", (Some (DataLakeDatasetName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataLakeDatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~name ~namespace ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DataLakeDatasetName.of_json in
      let namespace =
        field_map_exn json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~name ~namespace ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters of DeleteDataLakeDataset."]
module DeleteDataIntegrationFlowResponse =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataIntegrationFlowName.t option
        [@ocaml.doc "The name of the DataIntegrationFlow deleted."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instanceId = fun ?name -> fun () -> { instanceId; name }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:DataIntegrationFlowName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:DataIntegrationFlowName.of_xml)
          (Xml.child xml_arg0 "name") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?name ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?name ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for DeleteDataIntegrationFlow."]
module DeleteDataIntegrationFlowRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataIntegrationFlowName.t
        [@ocaml.doc "The name of the DataIntegrationFlow to be deleted."]}
    let context_ = "DeleteDataIntegrationFlowRequest"
    let make ~instanceId = fun ~name -> fun () -> { instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataIntegrationFlowName.to_value x.name)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        DataIntegrationFlowName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map_exn json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for DeleteDataIntegrationFlow."]
module CreateInstanceResponse =
  struct
    type nonrec t =
      {
      instance: Instance.t option
        [@ocaml.doc "The AWS Supply Chain instance resource data details."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instance = fun () -> { instance }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instance", (Option.map x.instance ~f:Instance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instance =
        (Option.map ~f:Instance.of_xml) (Xml.child xml_arg0 "instance") in
      make ?instance ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instance = field_map json__ "instance" Instance.of_json in
      make ?instance ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for CreateInstance."]
module CreateInstanceRequest =
  struct
    type nonrec t =
      {
      instanceName: InstanceName.t option
        [@ocaml.doc "The AWS Supply Chain instance name."];
      instanceDescription: InstanceDescription.t option
        [@ocaml.doc "The AWS Supply Chain instance description."];
      kmsKeyArn: KmsKeyArn.t option
        [@ocaml.doc
          "The ARN (Amazon Resource Name) of the Key Management Service (KMS) key you provide for encryption. This is required if you do not want to use the Amazon Web Services owned KMS key. If you don't provide anything here, AWS Supply Chain uses the Amazon Web Services owned KMS key."];
      webAppDnsDomain: InstanceWebAppDnsDomain.t option
        [@ocaml.doc
          "The DNS subdomain of the web app. This would be \"example\" in the URL \"example.scn.global.on.aws\". You can set this to a custom value, as long as the domain isn't already being used by someone else. The name may only include alphanumeric characters and hyphens."];
      tags: TagMap.t option
        [@ocaml.doc
          "The Amazon Web Services tags of an instance to be created."];
      clientToken: ClientToken.t option
        [@ocaml.doc "The client token for idempotency."]}
    let make ?instanceName =
      fun ?instanceDescription ->
        fun ?kmsKeyArn ->
          fun ?webAppDnsDomain ->
            fun ?tags ->
              fun ?clientToken ->
                fun () ->
                  {
                    instanceName;
                    instanceDescription;
                    kmsKeyArn;
                    webAppDnsDomain;
                    tags;
                    clientToken
                  }
    let to_value x =
      structure_to_value
        [("instanceName",
           (Option.map x.instanceName ~f:InstanceName.to_value));
        ("instanceDescription",
          (Option.map x.instanceDescription ~f:InstanceDescription.to_value));
        ("kmsKeyArn", (Option.map x.kmsKeyArn ~f:KmsKeyArn.to_value));
        ("webAppDnsDomain",
          (Option.map x.webAppDnsDomain ~f:InstanceWebAppDnsDomain.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let webAppDnsDomain =
        (Option.map ~f:InstanceWebAppDnsDomain.of_xml)
          (Xml.child xml_arg0 "webAppDnsDomain") in
      let kmsKeyArn =
        (Option.map ~f:KmsKeyArn.of_xml) (Xml.child xml_arg0 "kmsKeyArn") in
      let instanceDescription =
        (Option.map ~f:InstanceDescription.of_xml)
          (Xml.child xml_arg0 "instanceDescription") in
      let instanceName =
        (Option.map ~f:InstanceName.of_xml)
          (Xml.child xml_arg0 "instanceName") in
      make ?clientToken ?tags ?webAppDnsDomain ?kmsKeyArn
        ?instanceDescription ?instanceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let tags = field_map json__ "tags" TagMap.of_json in
      let webAppDnsDomain =
        field_map json__ "webAppDnsDomain" InstanceWebAppDnsDomain.of_json in
      let kmsKeyArn = field_map json__ "kmsKeyArn" KmsKeyArn.of_json in
      let instanceDescription =
        field_map json__ "instanceDescription" InstanceDescription.of_json in
      let instanceName = field_map json__ "instanceName" InstanceName.of_json in
      make ?clientToken ?tags ?webAppDnsDomain ?kmsKeyArn
        ?instanceDescription ?instanceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for CreateInstance."]
module CreateDataLakeNamespaceResponse =
  struct
    type nonrec t =
      {
      namespace: DataLakeNamespace.t option
        [@ocaml.doc "The detail of created namespace."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?namespace = fun () -> { namespace }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("namespace",
           (Option.map x.namespace ~f:DataLakeNamespace.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let namespace =
        (Option.map ~f:DataLakeNamespace.of_xml)
          (Xml.child xml_arg0 "namespace") in
      make ?namespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let namespace = field_map json__ "namespace" DataLakeNamespace.of_json in
      make ?namespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of CreateDataLakeNamespace."]
module CreateDataLakeNamespaceRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataLakeNamespaceName.t
        [@ocaml.doc
          "The name of the namespace. Noted you cannot create namespace with name starting with asc, default, scn, aws, amazon, amzn"];
      description: DataLakeNamespaceDescription.t option
        [@ocaml.doc "The description of the namespace."];
      tags: TagMap.t option [@ocaml.doc "The tags of the namespace."]}
    let context_ = "CreateDataLakeNamespaceRequest"
    let make ?description =
      fun ?tags ->
        fun ~instanceId ->
          fun ~name -> fun () -> { description; tags; instanceId; name }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataLakeNamespaceName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:DataLakeNamespaceDescription.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:DataLakeNamespaceDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?tags ?description ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let description =
        field_map json__ "description" DataLakeNamespaceDescription.of_json in
      let name = field_map_exn json__ "name" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?tags ?description ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for CreateDataLakeNamespace."]
module CreateDataLakeDatasetResponse =
  struct
    type nonrec t =
      {
      dataset: DataLakeDataset.t option
        [@ocaml.doc "The detail of created dataset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dataset = fun () -> { dataset }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("dataset", (Option.map x.dataset ~f:DataLakeDataset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataset =
        (Option.map ~f:DataLakeDataset.of_xml) (Xml.child xml_arg0 "dataset") in
      make ?dataset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataset = field_map json__ "dataset" DataLakeDataset.of_json in
      make ?dataset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters of CreateDataLakeDataset."]
module CreateDataLakeDatasetRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      namespace: DataLakeNamespaceName.t
        [@ocaml.doc
          "The namespace of the dataset, besides the custom defined namespace, every instance comes with below pre-defined namespaces: asc - For information on the Amazon Web Services Supply Chain supported datasets see https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html. default - For datasets with custom user-defined schemas."];
      name: DataLakeDatasetName.t
        [@ocaml.doc
          "The name of the dataset. For asc name space, the name must be one of the supported data entities under https://docs.aws.amazon.com/aws-supply-chain/latest/userguide/data-model-asc.html."];
      schema: DataLakeDatasetSchema.t option
        [@ocaml.doc
          "The custom schema of the data lake dataset and required for dataset in default and custom namespaces."];
      description: DataLakeDatasetDescription.t option
        [@ocaml.doc "The description of the dataset."];
      partitionSpec: DataLakeDatasetPartitionSpec.t option
        [@ocaml.doc
          "The partition specification of the dataset. Partitioning can effectively improve the dataset query performance by reducing the amount of data scanned during query execution. But partitioning or not will affect how data get ingested by data ingestion methods, such as SendDataIntegrationEvent's dataset UPSERT will upsert records within partition (instead of within whole dataset). For more details, refer to those data ingestion documentations."];
      tags: TagMap.t option [@ocaml.doc "The tags of the dataset."]}
    let context_ = "CreateDataLakeDatasetRequest"
    let make ?schema =
      fun ?description ->
        fun ?partitionSpec ->
          fun ?tags ->
            fun ~instanceId ->
              fun ~namespace ->
                fun ~name ->
                  fun () ->
                    {
                      schema;
                      description;
                      partitionSpec;
                      tags;
                      instanceId;
                      namespace;
                      name
                    }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("namespace", (Some (DataLakeNamespaceName.to_value x.namespace)));
        ("name", (Some (DataLakeDatasetName.to_value x.name)));
        ("schema", (Option.map x.schema ~f:DataLakeDatasetSchema.to_value));
        ("description",
          (Option.map x.description ~f:DataLakeDatasetDescription.to_value));
        ("partitionSpec",
          (Option.map x.partitionSpec
             ~f:DataLakeDatasetPartitionSpec.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let partitionSpec =
        (Option.map ~f:DataLakeDatasetPartitionSpec.of_xml)
          (Xml.child xml_arg0 "partitionSpec") in
      let description =
        (Option.map ~f:DataLakeDatasetDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let schema =
        (Option.map ~f:DataLakeDatasetSchema.of_xml)
          (Xml.child xml_arg0 "schema") in
      let name =
        DataLakeDatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let namespace =
        DataLakeNamespaceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "namespace") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?tags ?partitionSpec ?description ?schema ~name ~namespace
        ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let partitionSpec =
        field_map json__ "partitionSpec" DataLakeDatasetPartitionSpec.of_json in
      let description =
        field_map json__ "description" DataLakeDatasetDescription.of_json in
      let schema = field_map json__ "schema" DataLakeDatasetSchema.of_json in
      let name = field_map_exn json__ "name" DataLakeDatasetName.of_json in
      let namespace =
        field_map_exn json__ "namespace" DataLakeNamespaceName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?tags ?partitionSpec ?description ?schema ~name ~namespace
        ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for CreateDataLakeDataset."]
module CreateDataIntegrationFlowResponse =
  struct
    type nonrec t =
      {
      instanceId: UUID.t option
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataIntegrationFlowName.t option
        [@ocaml.doc "The name of the DataIntegrationFlow created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?instanceId = fun ?name -> fun () -> { instanceId; name }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("instanceId", (Option.map x.instanceId ~f:UUID.to_value));
        ("name", (Option.map x.name ~f:DataIntegrationFlowName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:DataIntegrationFlowName.of_xml)
          (Xml.child xml_arg0 "name") in
      let instanceId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "instanceId") in
      make ?name ?instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map json__ "instanceId" UUID.of_json in
      make ?name ?instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response parameters for CreateDataIntegrationFlow."]
module CreateDataIntegrationFlowRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc
          "The Amazon Web Services Supply Chain instance identifier."];
      name: DataIntegrationFlowName.t
        [@ocaml.doc "Name of the DataIntegrationFlow."];
      sources: DataIntegrationFlowSourceList.t
        [@ocaml.doc "The source configurations for DataIntegrationFlow."];
      transformation: DataIntegrationFlowTransformation.t
        [@ocaml.doc
          "The transformation configurations for DataIntegrationFlow."];
      target: DataIntegrationFlowTarget.t
        [@ocaml.doc "The target configurations for DataIntegrationFlow."];
      tags: TagMap.t option
        [@ocaml.doc "The tags of the DataIntegrationFlow to be created"]}
    let context_ = "CreateDataIntegrationFlowRequest"
    let make ?tags =
      fun ~instanceId ->
        fun ~name ->
          fun ~sources ->
            fun ~transformation ->
              fun ~target ->
                fun () ->
                  { tags; instanceId; name; sources; transformation; target }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("name", (Some (DataIntegrationFlowName.to_value x.name)));
        ("sources",
          (Some (DataIntegrationFlowSourceList.to_value x.sources)));
        ("transformation",
          (Some (DataIntegrationFlowTransformation.to_value x.transformation)));
        ("target", (Some (DataIntegrationFlowTarget.to_value x.target)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let target =
        DataIntegrationFlowTarget.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "target") in
      let transformation =
        DataIntegrationFlowTransformation.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "transformation") in
      let sources =
        DataIntegrationFlowSourceList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sources") in
      let name =
        DataIntegrationFlowName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?tags ~target ~transformation ~sources ~name ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let target =
        field_map_exn json__ "target" DataIntegrationFlowTarget.of_json in
      let transformation =
        field_map_exn json__ "transformation"
          DataIntegrationFlowTransformation.of_json in
      let sources =
        field_map_exn json__ "sources" DataIntegrationFlowSourceList.of_json in
      let name = field_map_exn json__ "name" DataIntegrationFlowName.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?tags ~target ~transformation ~sources ~name ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request parameters for CreateDataIntegrationFlow."]
module CreateBillOfMaterialsImportJobResponse =
  struct
    type nonrec t =
      {
      jobId: UUID.t option
        [@ocaml.doc "The new BillOfMaterialsImportJob identifier."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun () -> { jobId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("jobId", (Option.map x.jobId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map json__ "jobId" UUID.of_json in make ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response parameters of CreateBillOfMaterialsImportJob."]
module CreateBillOfMaterialsImportJobRequest =
  struct
    type nonrec t =
      {
      instanceId: UUID.t
        [@ocaml.doc "The AWS Supply Chain instance identifier."];
      s3uri: ConfigurationS3Uri.t
        [@ocaml.doc
          "The S3 URI of the CSV file to be imported. The bucket must grant permissions for AWS Supply Chain to read the file."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "An idempotency token ensures the API request is only completed no more than once. This way, retrying the request will not trigger the operation multiple times. A client token is a unique, case-sensitive string of 33 to 128 ASCII characters. To make an idempotent API request, specify a client token in the request. You should not reuse the same client token for other requests. If you retry a successful request with the same client token, the request will succeed with no further actions being taken, and you will receive the same API response as the original successful request."]}
    let context_ = "CreateBillOfMaterialsImportJobRequest"
    let make ?clientToken =
      fun ~instanceId ->
        fun ~s3uri -> fun () -> { clientToken; instanceId; s3uri }
    let to_value x =
      structure_to_value
        [("instanceId", (Some (UUID.to_value x.instanceId)));
        ("s3uri", (Some (ConfigurationS3Uri.to_value x.s3uri)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let s3uri =
        ConfigurationS3Uri.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "s3uri") in
      let instanceId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "instanceId") in
      make ?clientToken ~s3uri ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let s3uri = field_map_exn json__ "s3uri" ConfigurationS3Uri.of_json in
      let instanceId = field_map_exn json__ "instanceId" UUID.of_json in
      make ?clientToken ~s3uri ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request parameters for CreateBillOfMaterialsImportJob."]