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.bedrock_data_automation
let apiVersion = "2023-07-26"
let endpointPrefix = "bedrock-data-automation"
let serviceFullName = "Data Automation for Amazon Bedrock"
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 State =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration State" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"State" j)
    let to_json = simple_to_json to_value
  end
module PhraseDisplayAsText =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Text to configure how phrase is displayed in Transcript"]
    let context_ = "PhraseDisplayAsText"
    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:".*.+.*")));
        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:"PhraseDisplayAsText" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Text to configure how phrase is displayed in Transcript"]
module PhraseText =
  struct
    type nonrec t = string[@@ocaml.doc "Text content of the phrase"]
    let context_ = "PhraseText"
    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:".*.+.*")));
        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:"PhraseText" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Text content of the phrase"]
module ChannelLabelingConfiguration =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "ChannelLabelingConfiguration"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Channel labeling configuration"]
module SpeakerLabelingConfiguration =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "SpeakerLabelingConfiguration"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Speaker labeling configuration"]
module Phrase =
  struct
    type nonrec t =
      {
      text: PhraseText.t ;
      displayAsText: PhraseDisplayAsText.t option }
    let context_ = "Phrase"
    let make ?displayAsText = fun ~text -> fun () -> { displayAsText; text }
    let to_value x =
      structure_to_value
        [("text", (Some (PhraseText.to_value x.text)));
        ("displayAsText",
          (Option.map x.displayAsText ~f:PhraseDisplayAsText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayAsText =
        (Option.map ~f:PhraseDisplayAsText.of_xml)
          (Xml.child xml_arg0 "displayAsText") in
      let text =
        PhraseText.of_xml (Xml.child_exn ~context:context_ xml_arg0 "text") in
      make ?displayAsText ~text ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayAsText =
        field_map json__ "displayAsText" PhraseDisplayAsText.of_json in
      let text = field_map_exn json__ "text" PhraseText.of_json in
      make ?displayAsText ~text ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Phrase structure for vocabulary"]
module PIIEntityType =
  struct
    type nonrec t =
      | ALL 
      | ADDRESS 
      | AGE 
      | NAME 
      | EMAIL 
      | PHONE 
      | USERNAME 
      | PASSWORD 
      | DRIVER_ID 
      | LICENSE_PLATE 
      | VEHICLE_IDENTIFICATION_NUMBER 
      | CREDIT_DEBIT_CARD_CVV 
      | CREDIT_DEBIT_CARD_EXPIRY 
      | CREDIT_DEBIT_CARD_NUMBER 
      | PIN 
      | INTERNATIONAL_BANK_ACCOUNT_NUMBER 
      | SWIFT_CODE 
      | IP_ADDRESS 
      | MAC_ADDRESS 
      | URL 
      | AWS_ACCESS_KEY 
      | AWS_SECRET_KEY 
      | US_BANK_ACCOUNT_NUMBER 
      | US_BANK_ROUTING_NUMBER 
      | US_INDIVIDUAL_TAX_IDENTIFICATION_NUMBER 
      | US_PASSPORT_NUMBER 
      | US_SOCIAL_SECURITY_NUMBER 
      | CA_HEALTH_NUMBER 
      | CA_SOCIAL_INSURANCE_NUMBER 
      | UK_NATIONAL_HEALTH_SERVICE_NUMBER 
      | UK_NATIONAL_INSURANCE_NUMBER 
      | UK_UNIQUE_TAXPAYER_REFERENCE_NUMBER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | ADDRESS -> "ADDRESS"
      | AGE -> "AGE"
      | NAME -> "NAME"
      | EMAIL -> "EMAIL"
      | PHONE -> "PHONE"
      | USERNAME -> "USERNAME"
      | PASSWORD -> "PASSWORD"
      | DRIVER_ID -> "DRIVER_ID"
      | LICENSE_PLATE -> "LICENSE_PLATE"
      | VEHICLE_IDENTIFICATION_NUMBER -> "VEHICLE_IDENTIFICATION_NUMBER"
      | CREDIT_DEBIT_CARD_CVV -> "CREDIT_DEBIT_CARD_CVV"
      | CREDIT_DEBIT_CARD_EXPIRY -> "CREDIT_DEBIT_CARD_EXPIRY"
      | CREDIT_DEBIT_CARD_NUMBER -> "CREDIT_DEBIT_CARD_NUMBER"
      | PIN -> "PIN"
      | INTERNATIONAL_BANK_ACCOUNT_NUMBER ->
          "INTERNATIONAL_BANK_ACCOUNT_NUMBER"
      | SWIFT_CODE -> "SWIFT_CODE"
      | IP_ADDRESS -> "IP_ADDRESS"
      | MAC_ADDRESS -> "MAC_ADDRESS"
      | URL -> "URL"
      | AWS_ACCESS_KEY -> "AWS_ACCESS_KEY"
      | AWS_SECRET_KEY -> "AWS_SECRET_KEY"
      | US_BANK_ACCOUNT_NUMBER -> "US_BANK_ACCOUNT_NUMBER"
      | US_BANK_ROUTING_NUMBER -> "US_BANK_ROUTING_NUMBER"
      | US_INDIVIDUAL_TAX_IDENTIFICATION_NUMBER ->
          "US_INDIVIDUAL_TAX_IDENTIFICATION_NUMBER"
      | US_PASSPORT_NUMBER -> "US_PASSPORT_NUMBER"
      | US_SOCIAL_SECURITY_NUMBER -> "US_SOCIAL_SECURITY_NUMBER"
      | CA_HEALTH_NUMBER -> "CA_HEALTH_NUMBER"
      | CA_SOCIAL_INSURANCE_NUMBER -> "CA_SOCIAL_INSURANCE_NUMBER"
      | UK_NATIONAL_HEALTH_SERVICE_NUMBER ->
          "UK_NATIONAL_HEALTH_SERVICE_NUMBER"
      | UK_NATIONAL_INSURANCE_NUMBER -> "UK_NATIONAL_INSURANCE_NUMBER"
      | UK_UNIQUE_TAXPAYER_REFERENCE_NUMBER ->
          "UK_UNIQUE_TAXPAYER_REFERENCE_NUMBER"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "ADDRESS" -> ADDRESS
      | "AGE" -> AGE
      | "NAME" -> NAME
      | "EMAIL" -> EMAIL
      | "PHONE" -> PHONE
      | "USERNAME" -> USERNAME
      | "PASSWORD" -> PASSWORD
      | "DRIVER_ID" -> DRIVER_ID
      | "LICENSE_PLATE" -> LICENSE_PLATE
      | "VEHICLE_IDENTIFICATION_NUMBER" -> VEHICLE_IDENTIFICATION_NUMBER
      | "CREDIT_DEBIT_CARD_CVV" -> CREDIT_DEBIT_CARD_CVV
      | "CREDIT_DEBIT_CARD_EXPIRY" -> CREDIT_DEBIT_CARD_EXPIRY
      | "CREDIT_DEBIT_CARD_NUMBER" -> CREDIT_DEBIT_CARD_NUMBER
      | "PIN" -> PIN
      | "INTERNATIONAL_BANK_ACCOUNT_NUMBER" ->
          INTERNATIONAL_BANK_ACCOUNT_NUMBER
      | "SWIFT_CODE" -> SWIFT_CODE
      | "IP_ADDRESS" -> IP_ADDRESS
      | "MAC_ADDRESS" -> MAC_ADDRESS
      | "URL" -> URL
      | "AWS_ACCESS_KEY" -> AWS_ACCESS_KEY
      | "AWS_SECRET_KEY" -> AWS_SECRET_KEY
      | "US_BANK_ACCOUNT_NUMBER" -> US_BANK_ACCOUNT_NUMBER
      | "US_BANK_ROUTING_NUMBER" -> US_BANK_ROUTING_NUMBER
      | "US_INDIVIDUAL_TAX_IDENTIFICATION_NUMBER" ->
          US_INDIVIDUAL_TAX_IDENTIFICATION_NUMBER
      | "US_PASSPORT_NUMBER" -> US_PASSPORT_NUMBER
      | "US_SOCIAL_SECURITY_NUMBER" -> US_SOCIAL_SECURITY_NUMBER
      | "CA_HEALTH_NUMBER" -> CA_HEALTH_NUMBER
      | "CA_SOCIAL_INSURANCE_NUMBER" -> CA_SOCIAL_INSURANCE_NUMBER
      | "UK_NATIONAL_HEALTH_SERVICE_NUMBER" ->
          UK_NATIONAL_HEALTH_SERVICE_NUMBER
      | "UK_NATIONAL_INSURANCE_NUMBER" -> UK_NATIONAL_INSURANCE_NUMBER
      | "UK_UNIQUE_TAXPAYER_REFERENCE_NUMBER" ->
          UK_UNIQUE_TAXPAYER_REFERENCE_NUMBER
      | 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 PIIEntityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PIIEntityType" j)
    let to_json = simple_to_json to_value
  end
module TranscriptConfiguration =
  struct
    type nonrec t =
      {
      speakerLabeling: SpeakerLabelingConfiguration.t option ;
      channelLabeling: ChannelLabelingConfiguration.t option }
    let make ?speakerLabeling =
      fun ?channelLabeling -> fun () -> { speakerLabeling; channelLabeling }
    let to_value x =
      structure_to_value
        [("speakerLabeling",
           (Option.map x.speakerLabeling
              ~f:SpeakerLabelingConfiguration.to_value));
        ("channelLabeling",
          (Option.map x.channelLabeling
             ~f:ChannelLabelingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let channelLabeling =
        (Option.map ~f:ChannelLabelingConfiguration.of_xml)
          (Xml.child xml_arg0 "channelLabeling") in
      let speakerLabeling =
        (Option.map ~f:SpeakerLabelingConfiguration.of_xml)
          (Xml.child xml_arg0 "speakerLabeling") in
      make ?channelLabeling ?speakerLabeling ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let channelLabeling =
        field_map json__ "channelLabeling"
          ChannelLabelingConfiguration.of_json in
      let speakerLabeling =
        field_map json__ "speakerLabeling"
          SpeakerLabelingConfiguration.of_json in
      make ?channelLabeling ?speakerLabeling ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for transcript related features"]
module AudioExtractionCategoryType =
  struct
    type nonrec t =
      | AUDIO_CONTENT_MODERATION 
      | TRANSCRIPT 
      | TOPIC_CONTENT_MODERATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUDIO_CONTENT_MODERATION -> "AUDIO_CONTENT_MODERATION"
      | TRANSCRIPT -> "TRANSCRIPT"
      | TOPIC_CONTENT_MODERATION -> "TOPIC_CONTENT_MODERATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUDIO_CONTENT_MODERATION" -> AUDIO_CONTENT_MODERATION
      | "TRANSCRIPT" -> TRANSCRIPT
      | "TOPIC_CONTENT_MODERATION" -> TOPIC_CONTENT_MODERATION
      | 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 AudioExtractionCategoryType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AudioExtractionCategoryType" j)
    let to_json = simple_to_json to_value
  end
module DocumentOutputTextFormatType =
  struct
    type nonrec t =
      | PLAIN_TEXT 
      | MARKDOWN 
      | HTML 
      | CSV 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PLAIN_TEXT -> "PLAIN_TEXT"
      | MARKDOWN -> "MARKDOWN"
      | HTML -> "HTML"
      | CSV -> "CSV"
      | Non_static_id s -> s
    let of_string =
      function
      | "PLAIN_TEXT" -> PLAIN_TEXT
      | "MARKDOWN" -> MARKDOWN
      | "HTML" -> HTML
      | "CSV" -> CSV
      | 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 DocumentOutputTextFormatType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DocumentOutputTextFormatType" j)
    let to_json = simple_to_json to_value
  end
module DocumentExtractionGranularityType =
  struct
    type nonrec t =
      | DOCUMENT 
      | PAGE 
      | ELEMENT 
      | WORD 
      | LINE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DOCUMENT -> "DOCUMENT"
      | PAGE -> "PAGE"
      | ELEMENT -> "ELEMENT"
      | WORD -> "WORD"
      | LINE -> "LINE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DOCUMENT" -> DOCUMENT
      | "PAGE" -> PAGE
      | "ELEMENT" -> ELEMENT
      | "WORD" -> WORD
      | "LINE" -> LINE
      | 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 DocumentExtractionGranularityType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DocumentExtractionGranularityType" j)
    let to_json = simple_to_json to_value
  end
module ImageExtractionCategoryType =
  struct
    type nonrec t =
      | CONTENT_MODERATION 
      | TEXT_DETECTION 
      | LOGOS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONTENT_MODERATION -> "CONTENT_MODERATION"
      | TEXT_DETECTION -> "TEXT_DETECTION"
      | LOGOS -> "LOGOS"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONTENT_MODERATION" -> CONTENT_MODERATION
      | "TEXT_DETECTION" -> TEXT_DETECTION
      | "LOGOS" -> LOGOS
      | 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 ImageExtractionCategoryType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ImageExtractionCategoryType" j)
    let to_json = simple_to_json to_value
  end
module VideoExtractionCategoryType =
  struct
    type nonrec t =
      | CONTENT_MODERATION 
      | TEXT_DETECTION 
      | TRANSCRIPT 
      | LOGOS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CONTENT_MODERATION -> "CONTENT_MODERATION"
      | TEXT_DETECTION -> "TEXT_DETECTION"
      | TRANSCRIPT -> "TRANSCRIPT"
      | LOGOS -> "LOGOS"
      | Non_static_id s -> s
    let of_string =
      function
      | "CONTENT_MODERATION" -> CONTENT_MODERATION
      | "TEXT_DETECTION" -> TEXT_DETECTION
      | "TRANSCRIPT" -> TRANSCRIPT
      | "LOGOS" -> LOGOS
      | 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 VideoExtractionCategoryType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VideoExtractionCategoryType" j)
    let to_json = simple_to_json to_value
  end
module EntityDescription =
  struct
    type nonrec t = string[@@ocaml.doc "Description of the entity"]
    let context_ = "EntityDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9\\s!\"\\#\\$%'&\\(\\)\\*\\+\\,\\-\\./:;=\\?@\\[\\\\\\]\\^_`\\{\\|\\}~><\195\128-\195\150\195\152-\195\156\195\159\195\160-\195\182\195\184-\195\188\225\186\158\194\191\194\161\197\146-\197\147\194\176\194\163\194\165\226\130\185\226\130\172\194\167\194\169\194\170\194\174\226\132\162\194\185\194\177-\194\181\226\156\147\226\145\134-\226\145\137\224\184\191\226\130\189\226\130\177\226\130\166\226\130\163\226\130\169\226\130\171\226\130\186]*")));
        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:"EntityDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description of the entity"]
module EntityId =
  struct
    type nonrec t = string[@@ocaml.doc "Unique identifier for the entity"]
    let context_ = "EntityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EntityId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Unique identifier for the entity"]
module Language =
  struct
    type nonrec t =
      | EN 
      | DE 
      | ES 
      | FR 
      | IT 
      | PT 
      | JA 
      | KO 
      | CN 
      | TW 
      | HK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EN -> "EN"
      | DE -> "DE"
      | ES -> "ES"
      | FR -> "FR"
      | IT -> "IT"
      | PT -> "PT"
      | JA -> "JA"
      | KO -> "KO"
      | CN -> "CN"
      | TW -> "TW"
      | HK -> "HK"
      | Non_static_id s -> s
    let of_string =
      function
      | "EN" -> EN
      | "DE" -> DE
      | "ES" -> ES
      | "FR" -> FR
      | "IT" -> IT
      | "PT" -> PT
      | "JA" -> JA
      | "KO" -> KO
      | "CN" -> CN
      | "TW" -> TW
      | "HK" -> HK
      | 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 Language" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Language" j)
    let to_json = simple_to_json to_value
  end
module PhraseList =
  struct
    type nonrec t = Phrase.t list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Phrase.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:Phrase.of_xml)
    let of_json j = list_of_json ~kind:"PhraseList" ~of_json:Phrase.of_json j
    let to_json v = composed_to_json to_value v
  end
module PIIEntityTypes =
  struct
    type nonrec t = PIIEntityType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:32) >>= (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:PIIEntityType.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:PIIEntityType.of_xml)
    let of_json j =
      list_of_json ~kind:"PIIEntityTypes" ~of_json:PIIEntityType.of_json j
    let to_json v = composed_to_json to_value v
  end
module PIIRedactionMaskMode =
  struct
    type nonrec t =
      | PII 
      | ENTITY_TYPE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PII -> "PII"
      | ENTITY_TYPE -> "ENTITY_TYPE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PII" -> PII
      | "ENTITY_TYPE" -> ENTITY_TYPE
      | 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 PIIRedactionMaskMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PIIRedactionMaskMode" j)
    let to_json = simple_to_json to_value
  end
module SensitiveDataDetectionScopeType =
  struct
    type nonrec t =
      | STANDARD 
      | CUSTOM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | CUSTOM -> "CUSTOM"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "CUSTOM" -> CUSTOM
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SensitiveDataDetectionScopeType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SensitiveDataDetectionScopeType" j)
    let to_json = simple_to_json to_value
  end
module AudioExtractionCategoryTypeConfiguration =
  struct
    type nonrec t = {
      transcript: TranscriptConfiguration.t option }
    let make ?transcript = fun () -> { transcript }
    let to_value x =
      structure_to_value
        [("transcript",
           (Option.map x.transcript ~f:TranscriptConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transcript =
        (Option.map ~f:TranscriptConfiguration.of_xml)
          (Xml.child xml_arg0 "transcript") in
      make ?transcript ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transcript =
        field_map json__ "transcript" TranscriptConfiguration.of_json in
      make ?transcript ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration for different audio extraction category types"]
module AudioExtractionCategoryTypes =
  struct
    type nonrec t = AudioExtractionCategoryType.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:AudioExtractionCategoryType.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:AudioExtractionCategoryType.of_xml)
    let of_json j =
      list_of_json ~kind:"AudioExtractionCategoryTypes"
        ~of_json:AudioExtractionCategoryType.of_json j
    let to_json v = composed_to_json to_value v
  end
module AudioStandardGenerativeFieldType =
  struct
    type nonrec t =
      | AUDIO_SUMMARY 
      | IAB 
      | TOPIC_SUMMARY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AUDIO_SUMMARY -> "AUDIO_SUMMARY"
      | IAB -> "IAB"
      | TOPIC_SUMMARY -> "TOPIC_SUMMARY"
      | Non_static_id s -> s
    let of_string =
      function
      | "AUDIO_SUMMARY" -> AUDIO_SUMMARY
      | "IAB" -> IAB
      | "TOPIC_SUMMARY" -> TOPIC_SUMMARY
      | 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 AudioStandardGenerativeFieldType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AudioStandardGenerativeFieldType" j)
    let to_json = simple_to_json to_value
  end
module DocumentOutputTextFormatTypes =
  struct
    type nonrec t = DocumentOutputTextFormatType.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:DocumentOutputTextFormatType.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:DocumentOutputTextFormatType.of_xml)
    let of_json j =
      list_of_json ~kind:"DocumentOutputTextFormatTypes"
        ~of_json:DocumentOutputTextFormatType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DocumentExtractionGranularityTypes =
  struct
    type nonrec t = DocumentExtractionGranularityType.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:DocumentExtractionGranularityType.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:DocumentExtractionGranularityType.of_xml)
    let of_json j =
      list_of_json ~kind:"DocumentExtractionGranularityTypes"
        ~of_json:DocumentExtractionGranularityType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageExtractionCategoryTypes =
  struct
    type nonrec t = ImageExtractionCategoryType.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:ImageExtractionCategoryType.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:ImageExtractionCategoryType.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageExtractionCategoryTypes"
        ~of_json:ImageExtractionCategoryType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageStandardGenerativeFieldType =
  struct
    type nonrec t =
      | IMAGE_SUMMARY 
      | IAB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IMAGE_SUMMARY -> "IMAGE_SUMMARY"
      | IAB -> "IAB"
      | Non_static_id s -> s
    let of_string =
      function
      | "IMAGE_SUMMARY" -> IMAGE_SUMMARY
      | "IAB" -> IAB
      | 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 ImageStandardGenerativeFieldType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ImageStandardGenerativeFieldType" j)
    let to_json = simple_to_json to_value
  end
module VideoExtractionCategoryTypes =
  struct
    type nonrec t = VideoExtractionCategoryType.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:VideoExtractionCategoryType.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:VideoExtractionCategoryType.of_xml)
    let of_json j =
      list_of_json ~kind:"VideoExtractionCategoryTypes"
        ~of_json:VideoExtractionCategoryType.of_json j
    let to_json v = composed_to_json to_value v
  end
module VideoStandardGenerativeFieldType =
  struct
    type nonrec t =
      | VIDEO_SUMMARY 
      | IAB 
      | CHAPTER_SUMMARY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VIDEO_SUMMARY -> "VIDEO_SUMMARY"
      | IAB -> "IAB"
      | CHAPTER_SUMMARY -> "CHAPTER_SUMMARY"
      | Non_static_id s -> s
    let of_string =
      function
      | "VIDEO_SUMMARY" -> VIDEO_SUMMARY
      | "IAB" -> IAB
      | "CHAPTER_SUMMARY" -> CHAPTER_SUMMARY
      | 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 VideoStandardGenerativeFieldType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"VideoStandardGenerativeFieldType" j)
    let to_json = simple_to_json to_value
  end
module S3ObjectVersion =
  struct
    type nonrec t = string[@@ocaml.doc "S3 object version."]
    let context_ = "S3ObjectVersion"
    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:"S3ObjectVersion" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "S3 object version."]
module S3Uri =
  struct
    type nonrec t = string[@@ocaml.doc "A path in S3"]
    let context_ = "S3Uri"
    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:"s3://[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:"S3Uri" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A path in S3"]
module VocabularyEntityInfo =
  struct
    type nonrec t =
      {
      entityId: EntityId.t option ;
      description: EntityDescription.t option ;
      language: Language.t ;
      phrases: PhraseList.t }
    let context_ = "VocabularyEntityInfo"
    let make ?entityId =
      fun ?description ->
        fun ~language ->
          fun ~phrases ->
            fun () -> { entityId; description; language; phrases }
    let to_value x =
      structure_to_value
        [("entityId", (Option.map x.entityId ~f:EntityId.to_value));
        ("description",
          (Option.map x.description ~f:EntityDescription.to_value));
        ("language", (Some (Language.to_value x.language)));
        ("phrases", (Some (PhraseList.to_value x.phrases)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let phrases =
        PhraseList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "phrases") in
      let language =
        Language.of_xml (Xml.child_exn ~context:context_ xml_arg0 "language") in
      let description =
        (Option.map ~f:EntityDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let entityId =
        (Option.map ~f:EntityId.of_xml) (Xml.child xml_arg0 "entityId") in
      make ~phrases ~language ?description ?entityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let phrases = field_map_exn json__ "phrases" PhraseList.of_json in
      let language = field_map_exn json__ "language" Language.of_json in
      let description =
        field_map json__ "description" EntityDescription.of_json in
      let entityId = field_map json__ "entityId" EntityId.of_json in
      make ~phrases ~language ?description ?entityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Vocabulary entity info with detailed information"]
module BlueprintArn =
  struct
    type nonrec t = string[@@ocaml.doc "ARN of a Blueprint"]
    let context_ = "BlueprintArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-us-gov):bedrock:[a-zA-Z0-9-]*:(aws|[0-9]{12}):blueprint/(bedrock-data-automation-public-[a-zA-Z0-9-_]{1,30}|[a-zA-Z0-9-]{12,36})")));
        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:"BlueprintArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ARN of a Blueprint"]
module BlueprintStage =
  struct
    type nonrec t =
      | DEVELOPMENT 
      | LIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEVELOPMENT -> "DEVELOPMENT"
      | LIVE -> "LIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEVELOPMENT" -> DEVELOPMENT
      | "LIVE" -> LIVE
      | 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 BlueprintStage" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BlueprintStage" j)
    let to_json = simple_to_json to_value
  end
module BlueprintVersion =
  struct
    type nonrec t = string[@@ocaml.doc "Blueprint Version"]
    let context_ = "BlueprintVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[0-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:"BlueprintVersion" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Blueprint Version"]
module DataAutomationLibraryArn =
  struct
    type nonrec t = string[@@ocaml.doc
                            "ARN generated at the server side when a DataAutomationLibrary is created"]
    let context_ = "DataAutomationLibraryArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-iso|-iso-[a-z]|-us-gov):bedrock:[a-zA-Z0-9-]*:[0-9]{12}:data-automation-library/[a-zA-Z0-9-]{12,36}")));
        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:"DataAutomationLibraryArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "ARN generated at the server side when a DataAutomationLibrary is created"]
module AudioGenerativeOutputLanguage =
  struct
    type nonrec t =
      | DEFAULT 
      | EN 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | DEFAULT -> "DEFAULT" | EN -> "EN" | Non_static_id s -> s
    let of_string =
      function | "DEFAULT" -> DEFAULT | "EN" -> EN | 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 AudioGenerativeOutputLanguage"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AudioGenerativeOutputLanguage" j)
    let to_json = simple_to_json to_value
  end
module AudioInputLanguages =
  struct
    type nonrec t = Language.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:Language.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:Language.of_xml)
    let of_json j =
      list_of_json ~kind:"AudioInputLanguages" ~of_json:Language.of_json j
    let to_json v = composed_to_json to_value v
  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 PIIEntitiesConfiguration =
  struct
    type nonrec t =
      {
      piiEntityTypes: PIIEntityTypes.t option
        [@ocaml.doc "Types of PII entities to detect"];
      redactionMaskMode: PIIRedactionMaskMode.t option
        [@ocaml.doc "Mode for redacting detected PII"]}
    let make ?piiEntityTypes =
      fun ?redactionMaskMode ->
        fun () -> { piiEntityTypes; redactionMaskMode }
    let to_value x =
      structure_to_value
        [("piiEntityTypes",
           (Option.map x.piiEntityTypes ~f:PIIEntityTypes.to_value));
        ("redactionMaskMode",
          (Option.map x.redactionMaskMode ~f:PIIRedactionMaskMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let redactionMaskMode =
        (Option.map ~f:PIIRedactionMaskMode.of_xml)
          (Xml.child xml_arg0 "redactionMaskMode") in
      let piiEntityTypes =
        (Option.map ~f:PIIEntityTypes.of_xml)
          (Xml.child xml_arg0 "piiEntityTypes") in
      make ?redactionMaskMode ?piiEntityTypes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let redactionMaskMode =
        field_map json__ "redactionMaskMode" PIIRedactionMaskMode.of_json in
      let piiEntityTypes =
        field_map json__ "piiEntityTypes" PIIEntityTypes.of_json in
      make ?redactionMaskMode ?piiEntityTypes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for PII entities detection and redaction"]
module SensitiveDataDetectionMode =
  struct
    type nonrec t =
      | DETECTION 
      | DETECTION_AND_REDACTION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DETECTION -> "DETECTION"
      | DETECTION_AND_REDACTION -> "DETECTION_AND_REDACTION"
      | Non_static_id s -> s
    let of_string =
      function
      | "DETECTION" -> DETECTION
      | "DETECTION_AND_REDACTION" -> DETECTION_AND_REDACTION
      | 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 SensitiveDataDetectionMode"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SensitiveDataDetectionMode" j)
    let to_json = simple_to_json to_value
  end
module SensitiveDataDetectionScope =
  struct
    type nonrec t = SensitiveDataDetectionScopeType.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:2) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SensitiveDataDetectionScopeType.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:SensitiveDataDetectionScopeType.of_xml)
    let of_json j =
      list_of_json ~kind:"SensitiveDataDetectionScope"
        ~of_json:SensitiveDataDetectionScopeType.of_json j
    let to_json v = composed_to_json to_value v
  end
module AudioExtractionCategory =
  struct
    type nonrec t =
      {
      state: State.t ;
      types: AudioExtractionCategoryTypes.t option ;
      typeConfiguration: AudioExtractionCategoryTypeConfiguration.t option }
    let context_ = "AudioExtractionCategory"
    let make ?types =
      fun ?typeConfiguration ->
        fun ~state -> fun () -> { types; typeConfiguration; state }
    let to_value x =
      structure_to_value
        [("state", (Some (State.to_value x.state)));
        ("types",
          (Option.map x.types ~f:AudioExtractionCategoryTypes.to_value));
        ("typeConfiguration",
          (Option.map x.typeConfiguration
             ~f:AudioExtractionCategoryTypeConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let typeConfiguration =
        (Option.map ~f:AudioExtractionCategoryTypeConfiguration.of_xml)
          (Xml.child xml_arg0 "typeConfiguration") in
      let types =
        (Option.map ~f:AudioExtractionCategoryTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ?typeConfiguration ?types ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let typeConfiguration =
        field_map json__ "typeConfiguration"
          AudioExtractionCategoryTypeConfiguration.of_json in
      let types =
        field_map json__ "types" AudioExtractionCategoryTypes.of_json in
      let state = field_map_exn json__ "state" State.of_json in
      make ?typeConfiguration ?types ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Category of Audio Extraction"]
module AudioStandardGenerativeFieldTypes =
  struct
    type nonrec t = AudioStandardGenerativeFieldType.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:AudioStandardGenerativeFieldType.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:AudioStandardGenerativeFieldType.of_xml)
    let of_json j =
      list_of_json ~kind:"AudioStandardGenerativeFieldTypes"
        ~of_json:AudioStandardGenerativeFieldType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DocumentOutputAdditionalFileFormat =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "DocumentOutputAdditionalFileFormat"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Additional File Format of Document Output"]
module DocumentOutputTextFormat =
  struct
    type nonrec t = {
      types: DocumentOutputTextFormatTypes.t option }
    let make ?types = fun () -> { types }
    let to_value x =
      structure_to_value
        [("types",
           (Option.map x.types ~f:DocumentOutputTextFormatTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:DocumentOutputTextFormatTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      make ?types ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" DocumentOutputTextFormatTypes.of_json in
      make ?types ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Text Format of Document Output"]
module DocumentBoundingBox =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "DocumentBoundingBox"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Bounding Box Configuration of Document Extraction"]
module DocumentExtractionGranularity =
  struct
    type nonrec t = {
      types: DocumentExtractionGranularityTypes.t option }
    let make ?types = fun () -> { types }
    let to_value x =
      structure_to_value
        [("types",
           (Option.map x.types ~f:DocumentExtractionGranularityTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:DocumentExtractionGranularityTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      make ?types ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" DocumentExtractionGranularityTypes.of_json in
      make ?types ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Granularity of Document Extraction"]
module ImageBoundingBox =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "ImageBoundingBox"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Bounding Box Configuration of Image Extraction"]
module ImageExtractionCategory =
  struct
    type nonrec t =
      {
      state: State.t ;
      types: ImageExtractionCategoryTypes.t option }
    let context_ = "ImageExtractionCategory"
    let make ?types = fun ~state -> fun () -> { types; state }
    let to_value x =
      structure_to_value
        [("state", (Some (State.to_value x.state)));
        ("types",
          (Option.map x.types ~f:ImageExtractionCategoryTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:ImageExtractionCategoryTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ?types ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" ImageExtractionCategoryTypes.of_json in
      let state = field_map_exn json__ "state" State.of_json in
      make ?types ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Category of Image Extraction"]
module ImageStandardGenerativeFieldTypes =
  struct
    type nonrec t = ImageStandardGenerativeFieldType.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:ImageStandardGenerativeFieldType.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:ImageStandardGenerativeFieldType.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageStandardGenerativeFieldTypes"
        ~of_json:ImageStandardGenerativeFieldType.of_json j
    let to_json v = composed_to_json to_value v
  end
module VideoBoundingBox =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "VideoBoundingBox"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Bounding Box Configuration of Video Extraction"]
module VideoExtractionCategory =
  struct
    type nonrec t =
      {
      state: State.t ;
      types: VideoExtractionCategoryTypes.t option }
    let context_ = "VideoExtractionCategory"
    let make ?types = fun ~state -> fun () -> { types; state }
    let to_value x =
      structure_to_value
        [("state", (Some (State.to_value x.state)));
        ("types",
          (Option.map x.types ~f:VideoExtractionCategoryTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:VideoExtractionCategoryTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ?types ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" VideoExtractionCategoryTypes.of_json in
      let state = field_map_exn json__ "state" State.of_json in
      make ?types ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Category of Video Extraction"]
module VideoStandardGenerativeFieldTypes =
  struct
    type nonrec t = VideoStandardGenerativeFieldType.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:VideoStandardGenerativeFieldType.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:VideoStandardGenerativeFieldType.of_xml)
    let of_json j =
      list_of_json ~kind:"VideoStandardGenerativeFieldTypes"
        ~of_json:VideoStandardGenerativeFieldType.of_json j
    let to_json v = composed_to_json to_value v
  end
module NonBlankString =
  struct
    type nonrec t = string[@@ocaml.doc "Non Blank String"]
    let context_ = "NonBlankString"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[\\s\\S]+"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NonBlankString" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Non Blank String"]
module S3Object =
  struct
    type nonrec t =
      {
      s3Uri: S3Uri.t [@ocaml.doc "S3 uri."];
      version: S3ObjectVersion.t option [@ocaml.doc "S3 object version."]}
    let context_ = "S3Object"
    let make ?version = fun ~s3Uri -> fun () -> { version; s3Uri }
    let to_value x =
      structure_to_value
        [("s3Uri", (Some (S3Uri.to_value x.s3Uri)));
        ("version", (Option.map x.version ~f:S3ObjectVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:S3ObjectVersion.of_xml) (Xml.child xml_arg0 "version") in
      let s3Uri =
        S3Uri.of_xml (Xml.child_exn ~context:context_ xml_arg0 "s3Uri") in
      make ?version ~s3Uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "version" S3ObjectVersion.of_json in
      let s3Uri = field_map_exn json__ "s3Uri" S3Uri.of_json in
      make ?version ~s3Uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "S3 object"]
module DateTimestamp =
  struct
    type nonrec t = string[@@ocaml.doc "Time Stamp"]
    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[@@ocaml.doc "Time Stamp"]
module VocabularyEntitySummaryNumOfPhrasesInteger =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml
           ~kind:"an integer for VocabularyEntitySummaryNumOfPhrasesInteger"
           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 EntityIdList =
  struct
    type nonrec t = EntityId.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:EntityId.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:EntityId.of_xml)
    let of_json j =
      list_of_json ~kind:"EntityIdList" ~of_json:EntityId.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpsertEntityInfo =
  struct
    type nonrec t = {
      vocabulary: VocabularyEntityInfo.t option }
    let make ?vocabulary = fun () -> { vocabulary }
    let to_value x =
      structure_to_value
        [("vocabulary",
           (Option.map x.vocabulary ~f:VocabularyEntityInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vocabulary =
        (Option.map ~f:VocabularyEntityInfo.of_xml)
          (Xml.child xml_arg0 "vocabulary") in
      make ?vocabulary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vocabulary =
        field_map json__ "vocabulary" VocabularyEntityInfo.of_json in
      make ?vocabulary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input configuration for upserting data in a DataAutomationLibraryIngestionJob"]
module BlueprintItem =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t ;
      blueprintVersion: BlueprintVersion.t option ;
      blueprintStage: BlueprintStage.t option }
    let context_ = "BlueprintItem"
    let make ?blueprintVersion =
      fun ?blueprintStage ->
        fun ~blueprintArn ->
          fun () -> { blueprintVersion; blueprintStage; blueprintArn }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("blueprintVersion",
          (Option.map x.blueprintVersion ~f:BlueprintVersion.to_value));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let blueprintVersion =
        (Option.map ~f:BlueprintVersion.of_xml)
          (Xml.child xml_arg0 "blueprintVersion") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?blueprintStage ?blueprintVersion ~blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let blueprintVersion =
        field_map json__ "blueprintVersion" BlueprintVersion.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?blueprintStage ?blueprintVersion ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Blueprint Item"]
module DataAutomationLibraryItem =
  struct
    type nonrec t = {
      libraryArn: DataAutomationLibraryArn.t }
    let context_ = "DataAutomationLibraryItem"
    let make ~libraryArn = fun () -> { libraryArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DataAutomationLibrary Item"]
module AudioLanguageConfiguration =
  struct
    type nonrec t =
      {
      inputLanguages: AudioInputLanguages.t option ;
      generativeOutputLanguage: AudioGenerativeOutputLanguage.t option ;
      identifyMultipleLanguages: Boolean.t option
        [@ocaml.doc "Enable multiple language identification in audio"]}
    let make ?inputLanguages =
      fun ?generativeOutputLanguage ->
        fun ?identifyMultipleLanguages ->
          fun () ->
            {
              inputLanguages;
              generativeOutputLanguage;
              identifyMultipleLanguages
            }
    let to_value x =
      structure_to_value
        [("inputLanguages",
           (Option.map x.inputLanguages ~f:AudioInputLanguages.to_value));
        ("generativeOutputLanguage",
          (Option.map x.generativeOutputLanguage
             ~f:AudioGenerativeOutputLanguage.to_value));
        ("identifyMultipleLanguages",
          (Option.map x.identifyMultipleLanguages ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identifyMultipleLanguages =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "identifyMultipleLanguages") in
      let generativeOutputLanguage =
        (Option.map ~f:AudioGenerativeOutputLanguage.of_xml)
          (Xml.child xml_arg0 "generativeOutputLanguage") in
      let inputLanguages =
        (Option.map ~f:AudioInputLanguages.of_xml)
          (Xml.child xml_arg0 "inputLanguages") in
      make ?identifyMultipleLanguages ?generativeOutputLanguage
        ?inputLanguages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identifyMultipleLanguages =
        field_map json__ "identifyMultipleLanguages" Boolean.of_json in
      let generativeOutputLanguage =
        field_map json__ "generativeOutputLanguage"
          AudioGenerativeOutputLanguage.of_json in
      let inputLanguages =
        field_map json__ "inputLanguages" AudioInputLanguages.of_json in
      make ?identifyMultipleLanguages ?generativeOutputLanguage
        ?inputLanguages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Optional configuration for audio language settings"]
module ModalityProcessingConfiguration =
  struct
    type nonrec t = {
      state: State.t option }
    let make ?state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Option.map x.state ~f:State.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state = (Option.map ~f:State.of_xml) (Xml.child xml_arg0 "state") in
      make ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" State.of_json in make ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration to enable/disable processing of modality"]
module SensitiveDataConfiguration =
  struct
    type nonrec t =
      {
      detectionMode: SensitiveDataDetectionMode.t
        [@ocaml.doc "Mode for sensitive data detection"];
      detectionScope: SensitiveDataDetectionScope.t option
        [@ocaml.doc
          "Scope of detection - what types of sensitive data to detect"];
      piiEntitiesConfiguration: PIIEntitiesConfiguration.t option
        [@ocaml.doc "Configuration for PII entities detection and redaction"]}
    let context_ = "SensitiveDataConfiguration"
    let make ?detectionScope =
      fun ?piiEntitiesConfiguration ->
        fun ~detectionMode ->
          fun () ->
            { detectionScope; piiEntitiesConfiguration; detectionMode }
    let to_value x =
      structure_to_value
        [("detectionMode",
           (Some (SensitiveDataDetectionMode.to_value x.detectionMode)));
        ("detectionScope",
          (Option.map x.detectionScope
             ~f:SensitiveDataDetectionScope.to_value));
        ("piiEntitiesConfiguration",
          (Option.map x.piiEntitiesConfiguration
             ~f:PIIEntitiesConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let piiEntitiesConfiguration =
        (Option.map ~f:PIIEntitiesConfiguration.of_xml)
          (Xml.child xml_arg0 "piiEntitiesConfiguration") in
      let detectionScope =
        (Option.map ~f:SensitiveDataDetectionScope.of_xml)
          (Xml.child xml_arg0 "detectionScope") in
      let detectionMode =
        SensitiveDataDetectionMode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "detectionMode") in
      make ?piiEntitiesConfiguration ?detectionScope ~detectionMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let piiEntitiesConfiguration =
        field_map json__ "piiEntitiesConfiguration"
          PIIEntitiesConfiguration.of_json in
      let detectionScope =
        field_map json__ "detectionScope" SensitiveDataDetectionScope.of_json in
      let detectionMode =
        field_map_exn json__ "detectionMode"
          SensitiveDataDetectionMode.of_json in
      make ?piiEntitiesConfiguration ?detectionScope ~detectionMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for sensitive data detection and redaction"]
module SplitterConfiguration =
  struct
    type nonrec t = {
      state: State.t option }
    let make ?state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Option.map x.state ~f:State.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state = (Option.map ~f:State.of_xml) (Xml.child xml_arg0 "state") in
      make ?state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "state" State.of_json in make ?state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration of Splitter"]
module DesiredModality =
  struct
    type nonrec t =
      | IMAGE 
      | DOCUMENT 
      | AUDIO 
      | VIDEO 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IMAGE -> "IMAGE"
      | DOCUMENT -> "DOCUMENT"
      | AUDIO -> "AUDIO"
      | VIDEO -> "VIDEO"
      | Non_static_id s -> s
    let of_string =
      function
      | "IMAGE" -> IMAGE
      | "DOCUMENT" -> DOCUMENT
      | "AUDIO" -> AUDIO
      | "VIDEO" -> VIDEO
      | 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 DesiredModality" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DesiredModality" j)
    let to_json = simple_to_json to_value
  end
module AudioStandardExtraction =
  struct
    type nonrec t = {
      category: AudioExtractionCategory.t }
    let context_ = "AudioStandardExtraction"
    let make ~category = fun () -> { category }
    let to_value x =
      structure_to_value
        [("category", (Some (AudioExtractionCategory.to_value x.category)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let category =
        AudioExtractionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let category =
        field_map_exn json__ "category" AudioExtractionCategory.of_json in
      make ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Extraction Configuration of Audio"]
module AudioStandardGenerativeField =
  struct
    type nonrec t =
      {
      state: State.t ;
      types: AudioStandardGenerativeFieldTypes.t option }
    let context_ = "AudioStandardGenerativeField"
    let make ?types = fun ~state -> fun () -> { types; state }
    let to_value x =
      structure_to_value
        [("state", (Some (State.to_value x.state)));
        ("types",
          (Option.map x.types ~f:AudioStandardGenerativeFieldTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:AudioStandardGenerativeFieldTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ?types ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" AudioStandardGenerativeFieldTypes.of_json in
      let state = field_map_exn json__ "state" State.of_json in
      make ?types ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Generative Field Configuration of Audio"]
module DocumentOutputFormat =
  struct
    type nonrec t =
      {
      textFormat: DocumentOutputTextFormat.t ;
      additionalFileFormat: DocumentOutputAdditionalFileFormat.t }
    let context_ = "DocumentOutputFormat"
    let make ~textFormat =
      fun ~additionalFileFormat ->
        fun () -> { textFormat; additionalFileFormat }
    let to_value x =
      structure_to_value
        [("textFormat",
           (Some (DocumentOutputTextFormat.to_value x.textFormat)));
        ("additionalFileFormat",
          (Some
             (DocumentOutputAdditionalFileFormat.to_value
                x.additionalFileFormat)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalFileFormat =
        DocumentOutputAdditionalFileFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "additionalFileFormat") in
      let textFormat =
        DocumentOutputTextFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "textFormat") in
      make ~additionalFileFormat ~textFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalFileFormat =
        field_map_exn json__ "additionalFileFormat"
          DocumentOutputAdditionalFileFormat.of_json in
      let textFormat =
        field_map_exn json__ "textFormat" DocumentOutputTextFormat.of_json in
      make ~additionalFileFormat ~textFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output Format of Document"]
module DocumentStandardExtraction =
  struct
    type nonrec t =
      {
      granularity: DocumentExtractionGranularity.t ;
      boundingBox: DocumentBoundingBox.t }
    let context_ = "DocumentStandardExtraction"
    let make ~granularity =
      fun ~boundingBox -> fun () -> { granularity; boundingBox }
    let to_value x =
      structure_to_value
        [("granularity",
           (Some (DocumentExtractionGranularity.to_value x.granularity)));
        ("boundingBox", (Some (DocumentBoundingBox.to_value x.boundingBox)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boundingBox =
        DocumentBoundingBox.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "boundingBox") in
      let granularity =
        DocumentExtractionGranularity.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "granularity") in
      make ~boundingBox ~granularity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boundingBox =
        field_map_exn json__ "boundingBox" DocumentBoundingBox.of_json in
      let granularity =
        field_map_exn json__ "granularity"
          DocumentExtractionGranularity.of_json in
      make ~boundingBox ~granularity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Extraction Configuration of Document"]
module DocumentStandardGenerativeField =
  struct
    type nonrec t = {
      state: State.t }
    let context_ = "DocumentStandardGenerativeField"
    let make ~state = fun () -> { state }
    let to_value x =
      structure_to_value [("state", (Some (State.to_value x.state)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map_exn json__ "state" State.of_json in
      make ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Generative Field Configuration of Document"]
module ImageStandardExtraction =
  struct
    type nonrec t =
      {
      category: ImageExtractionCategory.t ;
      boundingBox: ImageBoundingBox.t }
    let context_ = "ImageStandardExtraction"
    let make ~category =
      fun ~boundingBox -> fun () -> { category; boundingBox }
    let to_value x =
      structure_to_value
        [("category", (Some (ImageExtractionCategory.to_value x.category)));
        ("boundingBox", (Some (ImageBoundingBox.to_value x.boundingBox)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boundingBox =
        ImageBoundingBox.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "boundingBox") in
      let category =
        ImageExtractionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~boundingBox ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boundingBox =
        field_map_exn json__ "boundingBox" ImageBoundingBox.of_json in
      let category =
        field_map_exn json__ "category" ImageExtractionCategory.of_json in
      make ~boundingBox ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Extraction Configuration of Image"]
module ImageStandardGenerativeField =
  struct
    type nonrec t =
      {
      state: State.t ;
      types: ImageStandardGenerativeFieldTypes.t option }
    let context_ = "ImageStandardGenerativeField"
    let make ?types = fun ~state -> fun () -> { types; state }
    let to_value x =
      structure_to_value
        [("state", (Some (State.to_value x.state)));
        ("types",
          (Option.map x.types ~f:ImageStandardGenerativeFieldTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:ImageStandardGenerativeFieldTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ?types ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" ImageStandardGenerativeFieldTypes.of_json in
      let state = field_map_exn json__ "state" State.of_json in
      make ?types ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Generative Field Configuration of Image"]
module VideoStandardExtraction =
  struct
    type nonrec t =
      {
      category: VideoExtractionCategory.t ;
      boundingBox: VideoBoundingBox.t }
    let context_ = "VideoStandardExtraction"
    let make ~category =
      fun ~boundingBox -> fun () -> { category; boundingBox }
    let to_value x =
      structure_to_value
        [("category", (Some (VideoExtractionCategory.to_value x.category)));
        ("boundingBox", (Some (VideoBoundingBox.to_value x.boundingBox)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let boundingBox =
        VideoBoundingBox.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "boundingBox") in
      let category =
        VideoExtractionCategory.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "category") in
      make ~boundingBox ~category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let boundingBox =
        field_map_exn json__ "boundingBox" VideoBoundingBox.of_json in
      let category =
        field_map_exn json__ "category" VideoExtractionCategory.of_json in
      make ~boundingBox ~category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Extraction Configuration of Video"]
module VideoStandardGenerativeField =
  struct
    type nonrec t =
      {
      state: State.t ;
      types: VideoStandardGenerativeFieldTypes.t option }
    let context_ = "VideoStandardGenerativeField"
    let make ?types = fun ~state -> fun () -> { types; state }
    let to_value x =
      structure_to_value
        [("state", (Some (State.to_value x.state)));
        ("types",
          (Option.map x.types ~f:VideoStandardGenerativeFieldTypes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let types =
        (Option.map ~f:VideoStandardGenerativeFieldTypes.of_xml)
          (Xml.child xml_arg0 "types") in
      let state =
        State.of_xml (Xml.child_exn ~context:context_ xml_arg0 "state") in
      make ?types ~state ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let types =
        field_map json__ "types" VideoStandardGenerativeFieldTypes.of_json in
      let state = field_map_exn json__ "state" State.of_json in
      make ?types ~state ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Generative Field Configuration of Video"]
module EntityMetadata =
  struct
    type nonrec t = string[@@ocaml.doc
                            "JSON string representing relevant metadata for the entity type"]
    let context_ = "EntityMetadata"
    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:"EntityMetadata" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "JSON string representing relevant metadata for the entity type"]
module EntityType =
  struct
    type nonrec t =
      | VOCABULARY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | VOCABULARY -> "VOCABULARY" | Non_static_id s -> s
    let of_string =
      function | "VOCABULARY" -> VOCABULARY | 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 EntityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EntityType" j)
    let to_json = simple_to_json to_value
  end
module ValidationExceptionField =
  struct
    type nonrec t =
      {
      name: NonBlankString.t option ;
      message: NonBlankString.t option }
    let make ?name = fun ?message -> fun () -> { name; message }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:NonBlankString.to_value));
        ("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      let name =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "name") in
      make ?message ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" NonBlankString.of_json in
      let name = field_map json__ "name" NonBlankString.of_json in
      make ?message ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stores information about a field passed inside a request that resulted in an exception"]
module EncryptionContextKey =
  struct
    type nonrec t = string[@@ocaml.doc "Encryption context key."]
    let context_ = "EncryptionContextKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EncryptionContextKey" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Encryption context key."]
module EncryptionContextValue =
  struct
    type nonrec t = string[@@ocaml.doc "Encryption context value."]
    let context_ = "EncryptionContextValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"EncryptionContextValue" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Encryption context value."]
module BlueprintOptimizationSample =
  struct
    type nonrec t =
      {
      assetS3Object: S3Object.t [@ocaml.doc "S3 Object of the asset"];
      groundTruthS3Object: S3Object.t
        [@ocaml.doc "Ground truth for the Blueprint and Asset combination"]}
    let context_ = "BlueprintOptimizationSample"
    let make ~assetS3Object =
      fun ~groundTruthS3Object ->
        fun () -> { assetS3Object; groundTruthS3Object }
    let to_value x =
      structure_to_value
        [("assetS3Object", (Some (S3Object.to_value x.assetS3Object)));
        ("groundTruthS3Object",
          (Some (S3Object.to_value x.groundTruthS3Object)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groundTruthS3Object =
        S3Object.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "groundTruthS3Object") in
      let assetS3Object =
        S3Object.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "assetS3Object") in
      make ~groundTruthS3Object ~assetS3Object ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groundTruthS3Object =
        field_map_exn json__ "groundTruthS3Object" S3Object.of_json in
      let assetS3Object =
        field_map_exn json__ "assetS3Object" S3Object.of_json in
      make ~groundTruthS3Object ~assetS3Object ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Blueprint Recommendation Sample"]
module TagKey =
  struct
    type nonrec t = string[@@ocaml.doc "Defines the context of the tag."]
    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[@@ocaml.doc "Defines the context of the tag."]
module TagValue =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Defines the value within the context. e.g. <key=reason, value=training>."]
    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[@@ocaml.doc
       "Defines the value within the context. e.g. <key=reason, value=training>."]
module DataAutomationProjectArn =
  struct
    type nonrec t = string[@@ocaml.doc "ARN of a DataAutomationProject"]
    let context_ = "DataAutomationProjectArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-us-gov):bedrock:[a-zA-Z0-9-]*:(aws|[0-9]{12}):data-automation-project/[a-zA-Z0-9-]{12,36}")));
        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:"DataAutomationProjectArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ARN of a DataAutomationProject"]
module DataAutomationProjectName =
  struct
    type nonrec t = string[@@ocaml.doc "Name of the DataAutomationProject"]
    let context_ = "DataAutomationProjectName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataAutomationProjectName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Name of the DataAutomationProject"]
module DataAutomationProjectStage =
  struct
    type nonrec t =
      | DEVELOPMENT 
      | LIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEVELOPMENT -> "DEVELOPMENT"
      | LIVE -> "LIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEVELOPMENT" -> DEVELOPMENT
      | "LIVE" -> LIVE
      | 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 DataAutomationProjectStage"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataAutomationProjectStage" j)
    let to_json = simple_to_json to_value
  end
module DataAutomationProjectType =
  struct
    type nonrec t =
      | ASYNC 
      | SYNC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASYNC -> "ASYNC" | SYNC -> "SYNC" | Non_static_id s -> s
    let of_string =
      function | "ASYNC" -> ASYNC | "SYNC" -> SYNC | 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 DataAutomationProjectType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataAutomationProjectType" j)
    let to_json = simple_to_json to_value
  end
module DataAutomationLibraryIngestionJobArn =
  struct
    type nonrec t = string[@@ocaml.doc
                            "ARN of the DataAutomationLibraryIngestionJob"]
    let context_ = "DataAutomationLibraryIngestionJobArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-iso|-iso-[a-z]|-us-gov):bedrock:[a-zA-Z0-9-]*:[0-9]{12}:data-automation-library-ingestion-job/[a-zA-Z0-9-]{12,36}")));
        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:"DataAutomationLibraryIngestionJobArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ARN of the DataAutomationLibraryIngestionJob"]
module LibraryIngestionJobOperationType =
  struct
    type nonrec t =
      | UPSERT 
      | DELETE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UPSERT -> "UPSERT"
      | DELETE -> "DELETE"
      | Non_static_id s -> s
    let of_string =
      function
      | "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 LibraryIngestionJobOperationType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LibraryIngestionJobOperationType" j)
    let to_json = simple_to_json to_value
  end
module LibraryIngestionJobStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | COMPLETED 
      | COMPLETED_WITH_ERRORS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | COMPLETED_WITH_ERRORS -> "COMPLETED_WITH_ERRORS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | "COMPLETED_WITH_ERRORS" -> COMPLETED_WITH_ERRORS
      | "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 LibraryIngestionJobStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"LibraryIngestionJobStatus" j)
    let to_json = simple_to_json to_value
  end
module VocabularyEntitySummary =
  struct
    type nonrec t =
      {
      entityId: EntityId.t option ;
      description: EntityDescription.t option ;
      language: Language.t option ;
      numOfPhrases: VocabularyEntitySummaryNumOfPhrasesInteger.t option
        [@ocaml.doc "num of phrases in the entity"];
      lastModifiedTime: DateTimestamp.t option }
    let make ?entityId =
      fun ?description ->
        fun ?language ->
          fun ?numOfPhrases ->
            fun ?lastModifiedTime ->
              fun () ->
                {
                  entityId;
                  description;
                  language;
                  numOfPhrases;
                  lastModifiedTime
                }
    let to_value x =
      structure_to_value
        [("entityId", (Option.map x.entityId ~f:EntityId.to_value));
        ("description",
          (Option.map x.description ~f:EntityDescription.to_value));
        ("language", (Option.map x.language ~f:Language.to_value));
        ("numOfPhrases",
          (Option.map x.numOfPhrases
             ~f:VocabularyEntitySummaryNumOfPhrasesInteger.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let numOfPhrases =
        (Option.map ~f:VocabularyEntitySummaryNumOfPhrasesInteger.of_xml)
          (Xml.child xml_arg0 "numOfPhrases") in
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let description =
        (Option.map ~f:EntityDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let entityId =
        (Option.map ~f:EntityId.of_xml) (Xml.child xml_arg0 "entityId") in
      make ?lastModifiedTime ?numOfPhrases ?language ?description ?entityId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" DateTimestamp.of_json in
      let numOfPhrases =
        field_map json__ "numOfPhrases"
          VocabularyEntitySummaryNumOfPhrasesInteger.of_json in
      let language = field_map json__ "language" Language.of_json in
      let description =
        field_map json__ "description" EntityDescription.of_json in
      let entityId = field_map json__ "entityId" EntityId.of_json in
      make ?lastModifiedTime ?numOfPhrases ?language ?description ?entityId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a Vocabulary entity"]
module DataAutomationLibraryName =
  struct
    type nonrec t = string[@@ocaml.doc "Name of the DataAutomationLibrary"]
    let context_ = "DataAutomationLibraryName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DataAutomationLibraryName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Name of the DataAutomationLibrary"]
module BlueprintName =
  struct
    type nonrec t = string[@@ocaml.doc "Name of the Blueprint"]
    let context_ = "BlueprintName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9-_]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"BlueprintName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Name of the Blueprint"]
module DeleteEntitiesInfo =
  struct
    type nonrec t = {
      entityIds: EntityIdList.t }
    let context_ = "DeleteEntitiesInfo"
    let make ~entityIds = fun () -> { entityIds }
    let to_value x =
      structure_to_value
        [("entityIds", (Some (EntityIdList.to_value x.entityIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entityIds =
        EntityIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityIds") in
      make ~entityIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entityIds = field_map_exn json__ "entityIds" EntityIdList.of_json in
      make ~entityIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input for entities needed to be deleted"]
module UpsertEntitiesInfo =
  struct
    type nonrec t = UpsertEntityInfo.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:UpsertEntityInfo.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:UpsertEntityInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"UpsertEntitiesInfo"
        ~of_json:UpsertEntityInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlueprintItems =
  struct
    type nonrec t = BlueprintItem.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:BlueprintItem.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:BlueprintItem.of_xml)
    let of_json j =
      list_of_json ~kind:"BlueprintItems" ~of_json:BlueprintItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataAutomationLibraryItems =
  struct
    type nonrec t = DataAutomationLibraryItem.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DataAutomationLibraryItem.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:DataAutomationLibraryItem.of_xml)
    let of_json j =
      list_of_json ~kind:"DataAutomationLibraryItems"
        ~of_json:DataAutomationLibraryItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module AudioOverrideConfiguration =
  struct
    type nonrec t =
      {
      modalityProcessing: ModalityProcessingConfiguration.t option ;
      languageConfiguration: AudioLanguageConfiguration.t option ;
      sensitiveDataConfiguration: SensitiveDataConfiguration.t option }
    let make ?modalityProcessing =
      fun ?languageConfiguration ->
        fun ?sensitiveDataConfiguration ->
          fun () ->
            {
              modalityProcessing;
              languageConfiguration;
              sensitiveDataConfiguration
            }
    let to_value x =
      structure_to_value
        [("modalityProcessing",
           (Option.map x.modalityProcessing
              ~f:ModalityProcessingConfiguration.to_value));
        ("languageConfiguration",
          (Option.map x.languageConfiguration
             ~f:AudioLanguageConfiguration.to_value));
        ("sensitiveDataConfiguration",
          (Option.map x.sensitiveDataConfiguration
             ~f:SensitiveDataConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sensitiveDataConfiguration =
        (Option.map ~f:SensitiveDataConfiguration.of_xml)
          (Xml.child xml_arg0 "sensitiveDataConfiguration") in
      let languageConfiguration =
        (Option.map ~f:AudioLanguageConfiguration.of_xml)
          (Xml.child xml_arg0 "languageConfiguration") in
      let modalityProcessing =
        (Option.map ~f:ModalityProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "modalityProcessing") in
      make ?sensitiveDataConfiguration ?languageConfiguration
        ?modalityProcessing ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sensitiveDataConfiguration =
        field_map json__ "sensitiveDataConfiguration"
          SensitiveDataConfiguration.of_json in
      let languageConfiguration =
        field_map json__ "languageConfiguration"
          AudioLanguageConfiguration.of_json in
      let modalityProcessing =
        field_map json__ "modalityProcessing"
          ModalityProcessingConfiguration.of_json in
      make ?sensitiveDataConfiguration ?languageConfiguration
        ?modalityProcessing ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Override Configuration of Audio"]
module DocumentOverrideConfiguration =
  struct
    type nonrec t =
      {
      splitter: SplitterConfiguration.t option ;
      modalityProcessing: ModalityProcessingConfiguration.t option ;
      sensitiveDataConfiguration: SensitiveDataConfiguration.t option }
    let make ?splitter =
      fun ?modalityProcessing ->
        fun ?sensitiveDataConfiguration ->
          fun () ->
            { splitter; modalityProcessing; sensitiveDataConfiguration }
    let to_value x =
      structure_to_value
        [("splitter",
           (Option.map x.splitter ~f:SplitterConfiguration.to_value));
        ("modalityProcessing",
          (Option.map x.modalityProcessing
             ~f:ModalityProcessingConfiguration.to_value));
        ("sensitiveDataConfiguration",
          (Option.map x.sensitiveDataConfiguration
             ~f:SensitiveDataConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sensitiveDataConfiguration =
        (Option.map ~f:SensitiveDataConfiguration.of_xml)
          (Xml.child xml_arg0 "sensitiveDataConfiguration") in
      let modalityProcessing =
        (Option.map ~f:ModalityProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "modalityProcessing") in
      let splitter =
        (Option.map ~f:SplitterConfiguration.of_xml)
          (Xml.child xml_arg0 "splitter") in
      make ?sensitiveDataConfiguration ?modalityProcessing ?splitter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sensitiveDataConfiguration =
        field_map json__ "sensitiveDataConfiguration"
          SensitiveDataConfiguration.of_json in
      let modalityProcessing =
        field_map json__ "modalityProcessing"
          ModalityProcessingConfiguration.of_json in
      let splitter =
        field_map json__ "splitter" SplitterConfiguration.of_json in
      make ?sensitiveDataConfiguration ?modalityProcessing ?splitter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Override Configuration of Document"]
module ImageOverrideConfiguration =
  struct
    type nonrec t =
      {
      modalityProcessing: ModalityProcessingConfiguration.t option ;
      sensitiveDataConfiguration: SensitiveDataConfiguration.t option }
    let make ?modalityProcessing =
      fun ?sensitiveDataConfiguration ->
        fun () -> { modalityProcessing; sensitiveDataConfiguration }
    let to_value x =
      structure_to_value
        [("modalityProcessing",
           (Option.map x.modalityProcessing
              ~f:ModalityProcessingConfiguration.to_value));
        ("sensitiveDataConfiguration",
          (Option.map x.sensitiveDataConfiguration
             ~f:SensitiveDataConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sensitiveDataConfiguration =
        (Option.map ~f:SensitiveDataConfiguration.of_xml)
          (Xml.child xml_arg0 "sensitiveDataConfiguration") in
      let modalityProcessing =
        (Option.map ~f:ModalityProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "modalityProcessing") in
      make ?sensitiveDataConfiguration ?modalityProcessing ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sensitiveDataConfiguration =
        field_map json__ "sensitiveDataConfiguration"
          SensitiveDataConfiguration.of_json in
      let modalityProcessing =
        field_map json__ "modalityProcessing"
          ModalityProcessingConfiguration.of_json in
      make ?sensitiveDataConfiguration ?modalityProcessing ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Override Configuration of Image"]
module ModalityRoutingConfiguration =
  struct
    type nonrec t =
      {
      jpeg: DesiredModality.t option ;
      png: DesiredModality.t option ;
      mp4: DesiredModality.t option ;
      mov: DesiredModality.t option }
    let make ?jpeg =
      fun ?png -> fun ?mp4 -> fun ?mov -> fun () -> { jpeg; png; mp4; mov }
    let to_value x =
      structure_to_value
        [("jpeg", (Option.map x.jpeg ~f:DesiredModality.to_value));
        ("png", (Option.map x.png ~f:DesiredModality.to_value));
        ("mp4", (Option.map x.mp4 ~f:DesiredModality.to_value));
        ("mov", (Option.map x.mov ~f:DesiredModality.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mov =
        (Option.map ~f:DesiredModality.of_xml) (Xml.child xml_arg0 "mov") in
      let mp4 =
        (Option.map ~f:DesiredModality.of_xml) (Xml.child xml_arg0 "mp4") in
      let png =
        (Option.map ~f:DesiredModality.of_xml) (Xml.child xml_arg0 "png") in
      let jpeg =
        (Option.map ~f:DesiredModality.of_xml) (Xml.child xml_arg0 "jpeg") in
      make ?mov ?mp4 ?png ?jpeg ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mov = field_map json__ "mov" DesiredModality.of_json in
      let mp4 = field_map json__ "mp4" DesiredModality.of_json in
      let png = field_map json__ "png" DesiredModality.of_json in
      let jpeg = field_map json__ "jpeg" DesiredModality.of_json in
      make ?mov ?mp4 ?png ?jpeg ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration for routing file type to desired modality"]
module VideoOverrideConfiguration =
  struct
    type nonrec t =
      {
      modalityProcessing: ModalityProcessingConfiguration.t option ;
      sensitiveDataConfiguration: SensitiveDataConfiguration.t option }
    let make ?modalityProcessing =
      fun ?sensitiveDataConfiguration ->
        fun () -> { modalityProcessing; sensitiveDataConfiguration }
    let to_value x =
      structure_to_value
        [("modalityProcessing",
           (Option.map x.modalityProcessing
              ~f:ModalityProcessingConfiguration.to_value));
        ("sensitiveDataConfiguration",
          (Option.map x.sensitiveDataConfiguration
             ~f:SensitiveDataConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sensitiveDataConfiguration =
        (Option.map ~f:SensitiveDataConfiguration.of_xml)
          (Xml.child xml_arg0 "sensitiveDataConfiguration") in
      let modalityProcessing =
        (Option.map ~f:ModalityProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "modalityProcessing") in
      make ?sensitiveDataConfiguration ?modalityProcessing ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sensitiveDataConfiguration =
        field_map json__ "sensitiveDataConfiguration"
          SensitiveDataConfiguration.of_json in
      let modalityProcessing =
        field_map json__ "modalityProcessing"
          ModalityProcessingConfiguration.of_json in
      make ?sensitiveDataConfiguration ?modalityProcessing ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Override Configuration of Video"]
module AudioStandardOutputConfiguration =
  struct
    type nonrec t =
      {
      extraction: AudioStandardExtraction.t option ;
      generativeField: AudioStandardGenerativeField.t option }
    let make ?extraction =
      fun ?generativeField -> fun () -> { extraction; generativeField }
    let to_value x =
      structure_to_value
        [("extraction",
           (Option.map x.extraction ~f:AudioStandardExtraction.to_value));
        ("generativeField",
          (Option.map x.generativeField
             ~f:AudioStandardGenerativeField.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generativeField =
        (Option.map ~f:AudioStandardGenerativeField.of_xml)
          (Xml.child xml_arg0 "generativeField") in
      let extraction =
        (Option.map ~f:AudioStandardExtraction.of_xml)
          (Xml.child xml_arg0 "extraction") in
      make ?generativeField ?extraction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generativeField =
        field_map json__ "generativeField"
          AudioStandardGenerativeField.of_json in
      let extraction =
        field_map json__ "extraction" AudioStandardExtraction.of_json in
      make ?generativeField ?extraction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Output Configuration of Audio"]
module DocumentStandardOutputConfiguration =
  struct
    type nonrec t =
      {
      extraction: DocumentStandardExtraction.t option ;
      generativeField: DocumentStandardGenerativeField.t option ;
      outputFormat: DocumentOutputFormat.t option }
    let make ?extraction =
      fun ?generativeField ->
        fun ?outputFormat ->
          fun () -> { extraction; generativeField; outputFormat }
    let to_value x =
      structure_to_value
        [("extraction",
           (Option.map x.extraction ~f:DocumentStandardExtraction.to_value));
        ("generativeField",
          (Option.map x.generativeField
             ~f:DocumentStandardGenerativeField.to_value));
        ("outputFormat",
          (Option.map x.outputFormat ~f:DocumentOutputFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputFormat =
        (Option.map ~f:DocumentOutputFormat.of_xml)
          (Xml.child xml_arg0 "outputFormat") in
      let generativeField =
        (Option.map ~f:DocumentStandardGenerativeField.of_xml)
          (Xml.child xml_arg0 "generativeField") in
      let extraction =
        (Option.map ~f:DocumentStandardExtraction.of_xml)
          (Xml.child xml_arg0 "extraction") in
      make ?outputFormat ?generativeField ?extraction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputFormat =
        field_map json__ "outputFormat" DocumentOutputFormat.of_json in
      let generativeField =
        field_map json__ "generativeField"
          DocumentStandardGenerativeField.of_json in
      let extraction =
        field_map json__ "extraction" DocumentStandardExtraction.of_json in
      make ?outputFormat ?generativeField ?extraction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Output Configuration of Document"]
module ImageStandardOutputConfiguration =
  struct
    type nonrec t =
      {
      extraction: ImageStandardExtraction.t option ;
      generativeField: ImageStandardGenerativeField.t option }
    let make ?extraction =
      fun ?generativeField -> fun () -> { extraction; generativeField }
    let to_value x =
      structure_to_value
        [("extraction",
           (Option.map x.extraction ~f:ImageStandardExtraction.to_value));
        ("generativeField",
          (Option.map x.generativeField
             ~f:ImageStandardGenerativeField.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generativeField =
        (Option.map ~f:ImageStandardGenerativeField.of_xml)
          (Xml.child xml_arg0 "generativeField") in
      let extraction =
        (Option.map ~f:ImageStandardExtraction.of_xml)
          (Xml.child xml_arg0 "extraction") in
      make ?generativeField ?extraction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generativeField =
        field_map json__ "generativeField"
          ImageStandardGenerativeField.of_json in
      let extraction =
        field_map json__ "extraction" ImageStandardExtraction.of_json in
      make ?generativeField ?extraction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Output Configuration of Image"]
module VideoStandardOutputConfiguration =
  struct
    type nonrec t =
      {
      extraction: VideoStandardExtraction.t option ;
      generativeField: VideoStandardGenerativeField.t option }
    let make ?extraction =
      fun ?generativeField -> fun () -> { extraction; generativeField }
    let to_value x =
      structure_to_value
        [("extraction",
           (Option.map x.extraction ~f:VideoStandardExtraction.to_value));
        ("generativeField",
          (Option.map x.generativeField
             ~f:VideoStandardGenerativeField.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let generativeField =
        (Option.map ~f:VideoStandardGenerativeField.of_xml)
          (Xml.child xml_arg0 "generativeField") in
      let extraction =
        (Option.map ~f:VideoStandardExtraction.of_xml)
          (Xml.child xml_arg0 "extraction") in
      make ?generativeField ?extraction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let generativeField =
        field_map json__ "generativeField"
          VideoStandardGenerativeField.of_json in
      let extraction =
        field_map json__ "extraction" VideoStandardExtraction.of_json in
      make ?generativeField ?extraction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard Output Configuration of Video"]
module EntityTypeInfo =
  struct
    type nonrec t =
      {
      entityType: EntityType.t option ;
      entityMetadata: EntityMetadata.t option }
    let make ?entityType =
      fun ?entityMetadata -> fun () -> { entityType; entityMetadata }
    let to_value x =
      structure_to_value
        [("entityType", (Option.map x.entityType ~f:EntityType.to_value));
        ("entityMetadata",
          (Option.map x.entityMetadata ~f:EntityMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entityMetadata =
        (Option.map ~f:EntityMetadata.of_xml)
          (Xml.child xml_arg0 "entityMetadata") in
      let entityType =
        (Option.map ~f:EntityType.of_xml) (Xml.child xml_arg0 "entityType") in
      make ?entityMetadata ?entityType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entityMetadata =
        field_map json__ "entityMetadata" EntityMetadata.of_json in
      let entityType = field_map json__ "entityType" EntityType.of_json in
      make ?entityMetadata ?entityType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an entity type in the DataAutomationLibrary"]
module ValidationExceptionFieldList =
  struct
    type nonrec t = ValidationExceptionField.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ValidationExceptionField.to_value)) |>
        (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:ValidationExceptionField.of_xml)
    let of_json j =
      list_of_json ~kind:"ValidationExceptionFieldList"
        ~of_json:ValidationExceptionField.of_json j
    let to_json v = composed_to_json to_value v
  end
module KmsEncryptionContext =
  struct
    type nonrec t = (EncryptionContextKey.t * EncryptionContextValue.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_min i ~min:1); 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 ->
                            ((EncryptionContextKey.of_string chopped),
                              (EncryptionContextValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (EncryptionContextKey.to_value x) |>
                    (fun x ->
                       (EncryptionContextValue.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:EncryptionContextKey.of_string
        ~of_json:EncryptionContextValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module KmsKeyId =
  struct
    type nonrec t = string[@@ocaml.doc "KMS Key Identifier"]
    let context_ = "KmsKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9][A-Za-z0-9:_/+=,@.-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "KMS Key Identifier"]
module BlueprintOptimizationSamples =
  struct
    type nonrec t = BlueprintOptimizationSample.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:BlueprintOptimizationSample.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:BlueprintOptimizationSample.of_xml)
    let of_json j =
      list_of_json ~kind:"BlueprintOptimizationSamples"
        ~of_json:BlueprintOptimizationSample.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlueprintSchema =
  struct
    type nonrec t = string[@@ocaml.doc "Schema of the blueprint"]
    let context_ = "BlueprintSchema"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100000) >>=
             (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:"BlueprintSchema" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Schema of the blueprint"]
module Type =
  struct
    type nonrec t =
      | DOCUMENT 
      | IMAGE 
      | AUDIO 
      | VIDEO 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DOCUMENT -> "DOCUMENT"
      | IMAGE -> "IMAGE"
      | AUDIO -> "AUDIO"
      | VIDEO -> "VIDEO"
      | Non_static_id s -> s
    let of_string =
      function
      | "DOCUMENT" -> DOCUMENT
      | "IMAGE" -> IMAGE
      | "AUDIO" -> AUDIO
      | "VIDEO" -> VIDEO
      | 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 Type" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Type" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t = {
      key: TagKey.t ;
      value: TagValue.t }
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("key", (Some (TagKey.to_value x.key)));
        ("value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" TagValue.of_json in
      let key = field_map_exn json__ "key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Key value pair of a tag"]
module DataAutomationProjectSummary =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t option ;
      projectStage: DataAutomationProjectStage.t option ;
      projectType: DataAutomationProjectType.t option ;
      projectName: DataAutomationProjectName.t option ;
      creationTime: DateTimestamp.t option }
    let make ?projectArn =
      fun ?projectStage ->
        fun ?projectType ->
          fun ?projectName ->
            fun ?creationTime ->
              fun () ->
                {
                  projectArn;
                  projectStage;
                  projectType;
                  projectName;
                  creationTime
                }
    let to_value x =
      structure_to_value
        [("projectArn",
           (Option.map x.projectArn ~f:DataAutomationProjectArn.to_value));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value));
        ("projectType",
          (Option.map x.projectType ~f:DataAutomationProjectType.to_value));
        ("projectName",
          (Option.map x.projectName ~f:DataAutomationProjectName.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let projectName =
        (Option.map ~f:DataAutomationProjectName.of_xml)
          (Xml.child xml_arg0 "projectName") in
      let projectType =
        (Option.map ~f:DataAutomationProjectType.of_xml)
          (Xml.child xml_arg0 "projectType") in
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectArn =
        (Option.map ~f:DataAutomationProjectArn.of_xml)
          (Xml.child xml_arg0 "projectArn") in
      make ?creationTime ?projectName ?projectType ?projectStage ?projectArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let projectName =
        field_map json__ "projectName" DataAutomationProjectName.of_json in
      let projectType =
        field_map json__ "projectType" DataAutomationProjectType.of_json in
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectArn =
        field_map json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?creationTime ?projectName ?projectType ?projectStage ?projectArn
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a DataAutomationProject"]
module DataAutomationLibraryIngestionJobSummary =
  struct
    type nonrec t =
      {
      jobArn: DataAutomationLibraryIngestionJobArn.t option ;
      jobStatus: LibraryIngestionJobStatus.t option ;
      entityType: EntityType.t option ;
      operationType: LibraryIngestionJobOperationType.t option ;
      creationTime: DateTimestamp.t option ;
      completionTime: DateTimestamp.t option }
    let make ?jobArn =
      fun ?jobStatus ->
        fun ?entityType ->
          fun ?operationType ->
            fun ?creationTime ->
              fun ?completionTime ->
                fun () ->
                  {
                    jobArn;
                    jobStatus;
                    entityType;
                    operationType;
                    creationTime;
                    completionTime
                  }
    let to_value x =
      structure_to_value
        [("jobArn",
           (Option.map x.jobArn
              ~f:DataAutomationLibraryIngestionJobArn.to_value));
        ("jobStatus",
          (Option.map x.jobStatus ~f:LibraryIngestionJobStatus.to_value));
        ("entityType", (Option.map x.entityType ~f:EntityType.to_value));
        ("operationType",
          (Option.map x.operationType
             ~f:LibraryIngestionJobOperationType.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value));
        ("completionTime",
          (Option.map x.completionTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let completionTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let operationType =
        (Option.map ~f:LibraryIngestionJobOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      let entityType =
        (Option.map ~f:EntityType.of_xml) (Xml.child xml_arg0 "entityType") in
      let jobStatus =
        (Option.map ~f:LibraryIngestionJobStatus.of_xml)
          (Xml.child xml_arg0 "jobStatus") in
      let jobArn =
        (Option.map ~f:DataAutomationLibraryIngestionJobArn.of_xml)
          (Xml.child xml_arg0 "jobArn") in
      make ?completionTime ?creationTime ?operationType ?entityType
        ?jobStatus ?jobArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let completionTime =
        field_map json__ "completionTime" DateTimestamp.of_json in
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let operationType =
        field_map json__ "operationType"
          LibraryIngestionJobOperationType.of_json in
      let entityType = field_map json__ "entityType" EntityType.of_json in
      let jobStatus =
        field_map json__ "jobStatus" LibraryIngestionJobStatus.of_json in
      let jobArn =
        field_map json__ "jobArn"
          DataAutomationLibraryIngestionJobArn.of_json in
      make ?completionTime ?creationTime ?operationType ?entityType
        ?jobStatus ?jobArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a DataAutomationLibraryIngestionJob"]
module DataAutomationLibraryEntitySummary =
  struct
    type nonrec t = {
      vocabulary: VocabularyEntitySummary.t option }
    let make ?vocabulary = fun () -> { vocabulary }
    let to_value x =
      structure_to_value
        [("vocabulary",
           (Option.map x.vocabulary ~f:VocabularyEntitySummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vocabulary =
        (Option.map ~f:VocabularyEntitySummary.of_xml)
          (Xml.child xml_arg0 "vocabulary") in
      make ?vocabulary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vocabulary =
        field_map json__ "vocabulary" VocabularyEntitySummary.of_json in
      make ?vocabulary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summarized information about an entity"]
module DataAutomationLibrarySummary =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t option ;
      libraryName: DataAutomationLibraryName.t option ;
      creationTime: DateTimestamp.t option }
    let make ?libraryArn =
      fun ?libraryName ->
        fun ?creationTime ->
          fun () -> { libraryArn; libraryName; creationTime }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Option.map x.libraryArn ~f:DataAutomationLibraryArn.to_value));
        ("libraryName",
          (Option.map x.libraryName ~f:DataAutomationLibraryName.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let libraryName =
        (Option.map ~f:DataAutomationLibraryName.of_xml)
          (Xml.child xml_arg0 "libraryName") in
      let libraryArn =
        (Option.map ~f:DataAutomationLibraryArn.of_xml)
          (Xml.child xml_arg0 "libraryArn") in
      make ?creationTime ?libraryName ?libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let libraryName =
        field_map json__ "libraryName" DataAutomationLibraryName.of_json in
      let libraryArn =
        field_map json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?creationTime ?libraryName ?libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a DataAutomationLibrary"]
module BlueprintSummary =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t option ;
      blueprintVersion: BlueprintVersion.t option ;
      blueprintStage: BlueprintStage.t option ;
      blueprintName: BlueprintName.t option ;
      creationTime: DateTimestamp.t option ;
      lastModifiedTime: DateTimestamp.t option }
    let make ?blueprintArn =
      fun ?blueprintVersion ->
        fun ?blueprintStage ->
          fun ?blueprintName ->
            fun ?creationTime ->
              fun ?lastModifiedTime ->
                fun () ->
                  {
                    blueprintArn;
                    blueprintVersion;
                    blueprintStage;
                    blueprintName;
                    creationTime;
                    lastModifiedTime
                  }
    let to_value x =
      structure_to_value
        [("blueprintArn",
           (Option.map x.blueprintArn ~f:BlueprintArn.to_value));
        ("blueprintVersion",
          (Option.map x.blueprintVersion ~f:BlueprintVersion.to_value));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value));
        ("blueprintName",
          (Option.map x.blueprintName ~f:BlueprintName.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let blueprintName =
        (Option.map ~f:BlueprintName.of_xml)
          (Xml.child xml_arg0 "blueprintName") in
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let blueprintVersion =
        (Option.map ~f:BlueprintVersion.of_xml)
          (Xml.child xml_arg0 "blueprintVersion") in
      let blueprintArn =
        (Option.map ~f:BlueprintArn.of_xml)
          (Xml.child xml_arg0 "blueprintArn") in
      make ?lastModifiedTime ?creationTime ?blueprintName ?blueprintStage
        ?blueprintVersion ?blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" DateTimestamp.of_json in
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let blueprintName =
        field_map json__ "blueprintName" BlueprintName.of_json in
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let blueprintVersion =
        field_map json__ "blueprintVersion" BlueprintVersion.of_json in
      let blueprintArn = field_map json__ "blueprintArn" BlueprintArn.of_json in
      make ?lastModifiedTime ?creationTime ?blueprintName ?blueprintStage
        ?blueprintVersion ?blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Summary of a Blueprint"]
module InlinePayload =
  struct
    type nonrec t =
      {
      upsertEntitiesInfo: UpsertEntitiesInfo.t option ;
      deleteEntitiesInfo: DeleteEntitiesInfo.t option }
    let make ?upsertEntitiesInfo =
      fun ?deleteEntitiesInfo ->
        fun () -> { upsertEntitiesInfo; deleteEntitiesInfo }
    let to_value x =
      structure_to_value
        [("upsertEntitiesInfo",
           (Option.map x.upsertEntitiesInfo ~f:UpsertEntitiesInfo.to_value));
        ("deleteEntitiesInfo",
          (Option.map x.deleteEntitiesInfo ~f:DeleteEntitiesInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteEntitiesInfo =
        (Option.map ~f:DeleteEntitiesInfo.of_xml)
          (Xml.child xml_arg0 "deleteEntitiesInfo") in
      let upsertEntitiesInfo =
        (Option.map ~f:UpsertEntitiesInfo.of_xml)
          (Xml.child xml_arg0 "upsertEntitiesInfo") in
      make ?deleteEntitiesInfo ?upsertEntitiesInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteEntitiesInfo =
        field_map json__ "deleteEntitiesInfo" DeleteEntitiesInfo.of_json in
      let upsertEntitiesInfo =
        field_map json__ "upsertEntitiesInfo" UpsertEntitiesInfo.of_json in
      make ?deleteEntitiesInfo ?upsertEntitiesInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input payload structure definition"]
module EventBridgeConfiguration =
  struct
    type nonrec t =
      {
      eventBridgeEnabled: Boolean.t [@ocaml.doc "Event bridge flag."]}
    let context_ = "EventBridgeConfiguration"
    let make ~eventBridgeEnabled = fun () -> { eventBridgeEnabled }
    let to_value x =
      structure_to_value
        [("eventBridgeEnabled",
           (Some (Boolean.to_value x.eventBridgeEnabled)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBridgeEnabled =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "eventBridgeEnabled") in
      make ~eventBridgeEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBridgeEnabled =
        field_map_exn json__ "eventBridgeEnabled" Boolean.of_json in
      make ~eventBridgeEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Event bridge configuration."]
module CustomOutputConfiguration =
  struct
    type nonrec t = {
      blueprints: BlueprintItems.t option }
    let make ?blueprints = fun () -> { blueprints }
    let to_value x =
      structure_to_value
        [("blueprints", (Option.map x.blueprints ~f:BlueprintItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprints =
        (Option.map ~f:BlueprintItems.of_xml)
          (Xml.child xml_arg0 "blueprints") in
      make ?blueprints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprints = field_map json__ "blueprints" BlueprintItems.of_json in
      make ?blueprints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Custom output configuration"]
module DataAutomationLibraryConfiguration =
  struct
    type nonrec t = {
      libraries: DataAutomationLibraryItems.t option }
    let make ?libraries = fun () -> { libraries }
    let to_value x =
      structure_to_value
        [("libraries",
           (Option.map x.libraries ~f:DataAutomationLibraryItems.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraries =
        (Option.map ~f:DataAutomationLibraryItems.of_xml)
          (Xml.child xml_arg0 "libraries") in
      make ?libraries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraries =
        field_map json__ "libraries" DataAutomationLibraryItems.of_json in
      make ?libraries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DataAutomation Library configuration"]
module DataAutomationProjectDescription =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Description of the DataAutomationProject"]
    let context_ = "DataAutomationProjectDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (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:"DataAutomationProjectDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description of the DataAutomationProject"]
module DataAutomationProjectStatus =
  struct
    type nonrec t =
      | COMPLETED 
      | IN_PROGRESS 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETED -> "COMPLETED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETED" -> COMPLETED
      | "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 DataAutomationProjectStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataAutomationProjectStatus" j)
    let to_json = simple_to_json to_value
  end
module OverrideConfiguration =
  struct
    type nonrec t =
      {
      document: DocumentOverrideConfiguration.t option ;
      image: ImageOverrideConfiguration.t option ;
      video: VideoOverrideConfiguration.t option ;
      audio: AudioOverrideConfiguration.t option ;
      modalityRouting: ModalityRoutingConfiguration.t option }
    let make ?document =
      fun ?image ->
        fun ?video ->
          fun ?audio ->
            fun ?modalityRouting ->
              fun () -> { document; image; video; audio; modalityRouting }
    let to_value x =
      structure_to_value
        [("document",
           (Option.map x.document ~f:DocumentOverrideConfiguration.to_value));
        ("image",
          (Option.map x.image ~f:ImageOverrideConfiguration.to_value));
        ("video",
          (Option.map x.video ~f:VideoOverrideConfiguration.to_value));
        ("audio",
          (Option.map x.audio ~f:AudioOverrideConfiguration.to_value));
        ("modalityRouting",
          (Option.map x.modalityRouting
             ~f:ModalityRoutingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modalityRouting =
        (Option.map ~f:ModalityRoutingConfiguration.of_xml)
          (Xml.child xml_arg0 "modalityRouting") in
      let audio =
        (Option.map ~f:AudioOverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "audio") in
      let video =
        (Option.map ~f:VideoOverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "video") in
      let image =
        (Option.map ~f:ImageOverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "image") in
      let document =
        (Option.map ~f:DocumentOverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "document") in
      make ?modalityRouting ?audio ?video ?image ?document ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modalityRouting =
        field_map json__ "modalityRouting"
          ModalityRoutingConfiguration.of_json in
      let audio = field_map json__ "audio" AudioOverrideConfiguration.of_json in
      let video = field_map json__ "video" VideoOverrideConfiguration.of_json in
      let image = field_map json__ "image" ImageOverrideConfiguration.of_json in
      let document =
        field_map json__ "document" DocumentOverrideConfiguration.of_json in
      make ?modalityRouting ?audio ?video ?image ?document ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Override configuration"]
module StandardOutputConfiguration =
  struct
    type nonrec t =
      {
      document: DocumentStandardOutputConfiguration.t option ;
      image: ImageStandardOutputConfiguration.t option ;
      video: VideoStandardOutputConfiguration.t option ;
      audio: AudioStandardOutputConfiguration.t option }
    let make ?document =
      fun ?image ->
        fun ?video ->
          fun ?audio -> fun () -> { document; image; video; audio }
    let to_value x =
      structure_to_value
        [("document",
           (Option.map x.document
              ~f:DocumentStandardOutputConfiguration.to_value));
        ("image",
          (Option.map x.image ~f:ImageStandardOutputConfiguration.to_value));
        ("video",
          (Option.map x.video ~f:VideoStandardOutputConfiguration.to_value));
        ("audio",
          (Option.map x.audio ~f:AudioStandardOutputConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let audio =
        (Option.map ~f:AudioStandardOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "audio") in
      let video =
        (Option.map ~f:VideoStandardOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "video") in
      let image =
        (Option.map ~f:ImageStandardOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "image") in
      let document =
        (Option.map ~f:DocumentStandardOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "document") in
      make ?audio ?video ?image ?document ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let audio =
        field_map json__ "audio" AudioStandardOutputConfiguration.of_json in
      let video =
        field_map json__ "video" VideoStandardOutputConfiguration.of_json in
      let image =
        field_map json__ "image" ImageStandardOutputConfiguration.of_json in
      let document =
        field_map json__ "document"
          DocumentStandardOutputConfiguration.of_json in
      make ?audio ?video ?image ?document ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Standard output configuration"]
module DataAutomationLibraryDescription =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Description of the DataAutomationLibrary"]
    let context_ = "DataAutomationLibraryDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:300) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9\\s!\"\\#\\$%'&\\(\\)\\*\\+\\,\\-\\./:;=\\?@\\[\\\\\\]\\^_`\\{\\|\\}~><\195\128-\195\150\195\152-\195\156\195\159\195\160-\195\182\195\184-\195\188\225\186\158\194\191\194\161\197\146-\197\147\194\176\194\163\194\165\226\130\185\226\130\172\194\167\194\169\194\170\194\174\226\132\162\194\185\194\177-\194\181\226\156\147\226\145\134-\226\145\137\224\184\191\226\130\189\226\130\177\226\130\166\226\130\163\226\130\169\226\130\171\226\130\186]*")));
        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:"DataAutomationLibraryDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description of the DataAutomationLibrary"]
module DataAutomationLibraryStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | DELETING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | DELETING -> "DELETING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "DELETING" -> DELETING
      | 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 DataAutomationLibraryStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataAutomationLibraryStatus" j)
    let to_json = simple_to_json to_value
  end
module EntityTypeInfoList =
  struct
    type nonrec t = EntityTypeInfo.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:EntityTypeInfo.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:EntityTypeInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"EntityTypeInfoList" ~of_json:EntityTypeInfo.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module OutputConfiguration =
  struct
    type nonrec t = {
      s3Uri: S3Uri.t [@ocaml.doc "S3 Uri"]}
    let context_ = "OutputConfiguration"
    let make ~s3Uri = fun () -> { s3Uri }
    let to_value x =
      structure_to_value [("s3Uri", (Some (S3Uri.to_value x.s3Uri)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Uri =
        S3Uri.of_xml (Xml.child_exn ~context:context_ xml_arg0 "s3Uri") in
      make ~s3Uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Uri = field_map_exn json__ "s3Uri" S3Uri.of_json in
      make ~s3Uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Output configuration for DataAutomationLibraryIngestionJob"]
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 VocabularyEntity =
  struct
    type nonrec t =
      {
      entityId: EntityId.t option ;
      description: EntityDescription.t option ;
      language: Language.t option ;
      phrases: PhraseList.t option ;
      lastModifiedTime: DateTimestamp.t option }
    let make ?entityId =
      fun ?description ->
        fun ?language ->
          fun ?phrases ->
            fun ?lastModifiedTime ->
              fun () ->
                { entityId; description; language; phrases; lastModifiedTime
                }
    let to_value x =
      structure_to_value
        [("entityId", (Option.map x.entityId ~f:EntityId.to_value));
        ("description",
          (Option.map x.description ~f:EntityDescription.to_value));
        ("language", (Option.map x.language ~f:Language.to_value));
        ("phrases", (Option.map x.phrases ~f:PhraseList.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let phrases =
        (Option.map ~f:PhraseList.of_xml) (Xml.child xml_arg0 "phrases") in
      let language =
        (Option.map ~f:Language.of_xml) (Xml.child xml_arg0 "language") in
      let description =
        (Option.map ~f:EntityDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let entityId =
        (Option.map ~f:EntityId.of_xml) (Xml.child xml_arg0 "entityId") in
      make ?lastModifiedTime ?phrases ?language ?description ?entityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" DateTimestamp.of_json in
      let phrases = field_map json__ "phrases" PhraseList.of_json in
      let language = field_map json__ "language" Language.of_json in
      let description =
        field_map json__ "description" EntityDescription.of_json in
      let entityId = field_map json__ "entityId" EntityId.of_json in
      make ?lastModifiedTime ?phrases ?language ?description ?entityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Vocabulary entity with detailed information"]
module AccessDeniedException =
  struct
    type nonrec t = {
      message: NonBlankString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when a request is denied per access permissions"]
module ConflictException =
  struct
    type nonrec t = {
      message: NonBlankString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when there is a conflict performing an operation"]
module InternalServerException =
  struct
    type nonrec t = {
      message: NonBlankString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown if there was an unexpected error during processing of request"]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: NonBlankString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when a resource referenced by the operation does not exist"]
module ServiceQuotaExceededException =
  struct
    type nonrec t = {
      message: NonBlankString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when a request is made beyond the service quota"]
module ThrottlingException =
  struct
    type nonrec t = {
      message: NonBlankString.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:NonBlankString.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" NonBlankString.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when the number of requests exceeds the limit"]
module ValidationException =
  struct
    type nonrec t =
      {
      message: NonBlankString.t option ;
      fieldList: ValidationExceptionFieldList.t option }
    let make ?message = fun ?fieldList -> fun () -> { message; fieldList }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:NonBlankString.to_value));
        ("fieldList",
          (Option.map x.fieldList ~f:ValidationExceptionFieldList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fieldList =
        (Option.map ~f:ValidationExceptionFieldList.of_xml)
          (Xml.child xml_arg0 "fieldList") in
      let message =
        (Option.map ~f:NonBlankString.of_xml) (Xml.child xml_arg0 "message") in
      make ?fieldList ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fieldList =
        field_map json__ "fieldList" ValidationExceptionFieldList.of_json in
      let message = field_map json__ "message" NonBlankString.of_json in
      make ?fieldList ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when the request's input validation fails"]
module EncryptionConfiguration =
  struct
    type nonrec t =
      {
      kmsKeyId: KmsKeyId.t ;
      kmsEncryptionContext: KmsEncryptionContext.t option }
    let context_ = "EncryptionConfiguration"
    let make ?kmsEncryptionContext =
      fun ~kmsKeyId -> fun () -> { kmsEncryptionContext; kmsKeyId }
    let to_value x =
      structure_to_value
        [("kmsKeyId", (Some (KmsKeyId.to_value x.kmsKeyId)));
        ("kmsEncryptionContext",
          (Option.map x.kmsEncryptionContext ~f:KmsEncryptionContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsEncryptionContext =
        (Option.map ~f:KmsEncryptionContext.of_xml)
          (Xml.child xml_arg0 "kmsEncryptionContext") in
      let kmsKeyId =
        KmsKeyId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "kmsKeyId") in
      make ?kmsEncryptionContext ~kmsKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsEncryptionContext =
        field_map json__ "kmsEncryptionContext" KmsEncryptionContext.of_json in
      let kmsKeyId = field_map_exn json__ "kmsKeyId" KmsKeyId.of_json in
      make ?kmsEncryptionContext ~kmsKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "KMS Encryption Configuration"]
module ClientToken =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Client specified token used for idempotency checks"]
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:33) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9](-*[a-zA-Z0-9]){0,256}")));
        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 "Client specified token used for idempotency checks"]
module Blueprint =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t option ;
      schema: BlueprintSchema.t option ;
      type_: Type.t option ;
      creationTime: DateTimestamp.t option ;
      lastModifiedTime: DateTimestamp.t option ;
      blueprintName: BlueprintName.t option ;
      blueprintVersion: BlueprintVersion.t option ;
      blueprintStage: BlueprintStage.t option ;
      kmsKeyId: KmsKeyId.t option ;
      kmsEncryptionContext: KmsEncryptionContext.t option ;
      optimizationSamples: BlueprintOptimizationSamples.t option ;
      optimizationTime: DateTimestamp.t option }
    let make ?blueprintArn =
      fun ?schema ->
        fun ?type_ ->
          fun ?creationTime ->
            fun ?lastModifiedTime ->
              fun ?blueprintName ->
                fun ?blueprintVersion ->
                  fun ?blueprintStage ->
                    fun ?kmsKeyId ->
                      fun ?kmsEncryptionContext ->
                        fun ?optimizationSamples ->
                          fun ?optimizationTime ->
                            fun () ->
                              {
                                blueprintArn;
                                schema;
                                type_;
                                creationTime;
                                lastModifiedTime;
                                blueprintName;
                                blueprintVersion;
                                blueprintStage;
                                kmsKeyId;
                                kmsEncryptionContext;
                                optimizationSamples;
                                optimizationTime
                              }
    let to_value x =
      structure_to_value
        [("blueprintArn",
           (Option.map x.blueprintArn ~f:BlueprintArn.to_value));
        ("schema", (Option.map x.schema ~f:BlueprintSchema.to_value));
        ("type", (Option.map x.type_ ~f:Type.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:DateTimestamp.to_value));
        ("blueprintName",
          (Option.map x.blueprintName ~f:BlueprintName.to_value));
        ("blueprintVersion",
          (Option.map x.blueprintVersion ~f:BlueprintVersion.to_value));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("kmsEncryptionContext",
          (Option.map x.kmsEncryptionContext ~f:KmsEncryptionContext.to_value));
        ("optimizationSamples",
          (Option.map x.optimizationSamples
             ~f:BlueprintOptimizationSamples.to_value));
        ("optimizationTime",
          (Option.map x.optimizationTime ~f:DateTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let optimizationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "optimizationTime") in
      let optimizationSamples =
        (Option.map ~f:BlueprintOptimizationSamples.of_xml)
          (Xml.child xml_arg0 "optimizationSamples") in
      let kmsEncryptionContext =
        (Option.map ~f:KmsEncryptionContext.of_xml)
          (Xml.child xml_arg0 "kmsEncryptionContext") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let blueprintVersion =
        (Option.map ~f:BlueprintVersion.of_xml)
          (Xml.child xml_arg0 "blueprintVersion") in
      let blueprintName =
        (Option.map ~f:BlueprintName.of_xml)
          (Xml.child xml_arg0 "blueprintName") in
      let lastModifiedTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let type_ = (Option.map ~f:Type.of_xml) (Xml.child xml_arg0 "type") in
      let schema =
        (Option.map ~f:BlueprintSchema.of_xml) (Xml.child xml_arg0 "schema") in
      let blueprintArn =
        (Option.map ~f:BlueprintArn.of_xml)
          (Xml.child xml_arg0 "blueprintArn") in
      make ?optimizationTime ?optimizationSamples ?kmsEncryptionContext
        ?kmsKeyId ?blueprintStage ?blueprintVersion ?blueprintName
        ?lastModifiedTime ?creationTime ?type_ ?schema ?blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let optimizationTime =
        field_map json__ "optimizationTime" DateTimestamp.of_json in
      let optimizationSamples =
        field_map json__ "optimizationSamples"
          BlueprintOptimizationSamples.of_json in
      let kmsEncryptionContext =
        field_map json__ "kmsEncryptionContext" KmsEncryptionContext.of_json in
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let blueprintVersion =
        field_map json__ "blueprintVersion" BlueprintVersion.of_json in
      let blueprintName =
        field_map json__ "blueprintName" BlueprintName.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" DateTimestamp.of_json in
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let type_ = field_map json__ "type" Type.of_json in
      let schema = field_map json__ "schema" BlueprintSchema.of_json in
      let blueprintArn = field_map json__ "blueprintArn" BlueprintArn.of_json in
      make ?optimizationTime ?optimizationSamples ?kmsEncryptionContext
        ?kmsKeyId ?blueprintStage ?blueprintVersion ?blueprintName
        ?lastModifiedTime ?creationTime ?type_ ?schema ?blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the information of a Blueprint."]
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 TaggableResourceArn =
  struct
    type nonrec t = string[@@ocaml.doc "ARN of a taggable resource"]
    let context_ = "TaggableResourceArn"
    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(|-cn|-iso|-iso-[a-z]|-us-gov):bedrock:[a-z0-9-]*:[0-9]{12}:(blueprint|data-automation-project|blueprint-optimization-invocation|data-automation-library|data-automation-library-ingestion-job)/[a-zA-Z0-9-]{12,36}")));
        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:"TaggableResourceArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ARN of a taggable resource"]
module TagList =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataAutomationProjectSummaries =
  struct
    type nonrec t = DataAutomationProjectSummary.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:DataAutomationProjectSummary.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:DataAutomationProjectSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DataAutomationProjectSummaries"
        ~of_json:DataAutomationProjectSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string[@@ocaml.doc "Pagination token"]
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"\\S*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Pagination token"]
module BlueprintFilter =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t ;
      blueprintVersion: BlueprintVersion.t option ;
      blueprintStage: BlueprintStage.t option }
    let context_ = "BlueprintFilter"
    let make ?blueprintVersion =
      fun ?blueprintStage ->
        fun ~blueprintArn ->
          fun () -> { blueprintVersion; blueprintStage; blueprintArn }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("blueprintVersion",
          (Option.map x.blueprintVersion ~f:BlueprintVersion.to_value));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let blueprintVersion =
        (Option.map ~f:BlueprintVersion.of_xml)
          (Xml.child xml_arg0 "blueprintVersion") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?blueprintStage ?blueprintVersion ~blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let blueprintVersion =
        field_map json__ "blueprintVersion" BlueprintVersion.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?blueprintStage ?blueprintVersion ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Blueprint Filter"]
module DataAutomationLibraryFilter =
  struct
    type nonrec t = {
      libraryArn: DataAutomationLibraryArn.t }
    let context_ = "DataAutomationLibraryFilter"
    let make ~libraryArn = fun () -> { libraryArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Data Automation Library Filter"]
module DataAutomationProjectStageFilter =
  struct
    type nonrec t =
      | DEVELOPMENT 
      | LIVE 
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEVELOPMENT -> "DEVELOPMENT"
      | LIVE -> "LIVE"
      | ALL -> "ALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEVELOPMENT" -> DEVELOPMENT
      | "LIVE" -> LIVE
      | "ALL" -> ALL
      | 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 DataAutomationProjectStageFilter"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DataAutomationProjectStageFilter" j)
    let to_json = simple_to_json to_value
  end
module MaxResults =
  struct
    type nonrec t = int[@@ocaml.doc "Max Results"]
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Max Results"]
module ResourceOwner =
  struct
    type nonrec t =
      | SERVICE 
      | ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVICE -> "SERVICE"
      | ACCOUNT -> "ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVICE" -> SERVICE
      | "ACCOUNT" -> ACCOUNT
      | 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 ResourceOwner" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceOwner" j)
    let to_json = simple_to_json to_value
  end
module DataAutomationLibraryIngestionJobSummaries =
  struct
    type nonrec t = DataAutomationLibraryIngestionJobSummary.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:DataAutomationLibraryIngestionJobSummary.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:DataAutomationLibraryIngestionJobSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DataAutomationLibraryIngestionJobSummaries"
        ~of_json:DataAutomationLibraryIngestionJobSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataAutomationLibraryEntitySummaries =
  struct
    type nonrec t = DataAutomationLibraryEntitySummary.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:DataAutomationLibraryEntitySummary.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:DataAutomationLibraryEntitySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DataAutomationLibraryEntitySummaries"
        ~of_json:DataAutomationLibraryEntitySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataAutomationLibrarySummaries =
  struct
    type nonrec t = DataAutomationLibrarySummary.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:DataAutomationLibrarySummary.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:DataAutomationLibrarySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DataAutomationLibrarySummaries"
        ~of_json:DataAutomationLibrarySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module DataAutomationProjectFilter =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t ;
      projectStage: DataAutomationProjectStage.t option }
    let context_ = "DataAutomationProjectFilter"
    let make ?projectStage =
      fun ~projectArn -> fun () -> { projectStage; projectArn }
    let to_value x =
      structure_to_value
        [("projectArn",
           (Some (DataAutomationProjectArn.to_value x.projectArn)));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectArn =
        DataAutomationProjectArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectArn") in
      make ?projectStage ~projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectArn =
        field_map_exn json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?projectStage ~projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Data Automation Project Filter"]
module Blueprints =
  struct
    type nonrec t = BlueprintSummary.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:BlueprintSummary.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:BlueprintSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"Blueprints" ~of_json:BlueprintSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlueprintStageFilter =
  struct
    type nonrec t =
      | DEVELOPMENT 
      | LIVE 
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEVELOPMENT -> "DEVELOPMENT"
      | LIVE -> "LIVE"
      | ALL -> "ALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEVELOPMENT" -> DEVELOPMENT
      | "LIVE" -> LIVE
      | "ALL" -> ALL
      | 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 BlueprintStageFilter" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BlueprintStageFilter" j)
    let to_json = simple_to_json to_value
  end
module InputConfiguration =
  struct
    type nonrec t =
      {
      s3Object: S3Object.t option [@ocaml.doc "S3 object"];
      inlinePayload: InlinePayload.t option [@ocaml.doc "Input Payload"]}
    let make ?s3Object =
      fun ?inlinePayload -> fun () -> { s3Object; inlinePayload }
    let to_value x =
      structure_to_value
        [("s3Object", (Option.map x.s3Object ~f:S3Object.to_value));
        ("inlinePayload",
          (Option.map x.inlinePayload ~f:InlinePayload.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inlinePayload =
        (Option.map ~f:InlinePayload.of_xml)
          (Xml.child xml_arg0 "inlinePayload") in
      let s3Object =
        (Option.map ~f:S3Object.of_xml) (Xml.child xml_arg0 "s3Object") in
      make ?inlinePayload ?s3Object ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inlinePayload =
        field_map json__ "inlinePayload" InlinePayload.of_json in
      let s3Object = field_map json__ "s3Object" S3Object.of_json in
      make ?inlinePayload ?s3Object ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Input configuration for DataAutomationLibraryIngestionJob"]
module NotificationConfiguration =
  struct
    type nonrec t =
      {
      eventBridgeConfiguration: EventBridgeConfiguration.t
        [@ocaml.doc "Event bridge configuration."]}
    let context_ = "NotificationConfiguration"
    let make ~eventBridgeConfiguration =
      fun () -> { eventBridgeConfiguration }
    let to_value x =
      structure_to_value
        [("eventBridgeConfiguration",
           (Some
              (EventBridgeConfiguration.to_value x.eventBridgeConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventBridgeConfiguration =
        EventBridgeConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "eventBridgeConfiguration") in
      make ~eventBridgeConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventBridgeConfiguration =
        field_map_exn json__ "eventBridgeConfiguration"
          EventBridgeConfiguration.of_json in
      make ~eventBridgeConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Notification configuration."]
module BlueprintOptimizationInvocationArn =
  struct
    type nonrec t = string[@@ocaml.doc "Invocation arn."]
    let context_ = "BlueprintOptimizationInvocationArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-iso|-iso-[a-z]|-us-gov):bedrock:[a-zA-Z0-9-]*:[0-9]{12}:blueprint-optimization-invocation/[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:"BlueprintOptimizationInvocationArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Invocation arn."]
module BlueprintOptimizationObject =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t [@ocaml.doc "Arn of blueprint."];
      stage: BlueprintStage.t option [@ocaml.doc "Stage of blueprint."]}
    let context_ = "BlueprintOptimizationObject"
    let make ?stage = fun ~blueprintArn -> fun () -> { stage; blueprintArn }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("stage", (Option.map x.stage ~f:BlueprintStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let stage =
        (Option.map ~f:BlueprintStage.of_xml) (Xml.child xml_arg0 "stage") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?stage ~blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let stage = field_map json__ "stage" BlueprintStage.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?stage ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Structure for single blueprint entity."]
module BlueprintOptimizationOutputConfiguration =
  struct
    type nonrec t = {
      s3Object: S3Object.t [@ocaml.doc "S3 object."]}
    let context_ = "BlueprintOptimizationOutputConfiguration"
    let make ~s3Object = fun () -> { s3Object }
    let to_value x =
      structure_to_value
        [("s3Object", (Some (S3Object.to_value x.s3Object)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Object =
        S3Object.of_xml (Xml.child_exn ~context:context_ xml_arg0 "s3Object") in
      make ~s3Object ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Object = field_map_exn json__ "s3Object" S3Object.of_json in
      make ~s3Object ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Blueprint Optimization Output configuration."]
module DataAutomationProfileArn =
  struct
    type nonrec t = string[@@ocaml.doc "Data automation profile arn."]
    let context_ = "DataAutomationProfileArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(|-cn|-us-gov):bedrock:[a-zA-Z0-9-]*:(aws|[0-9]{12}):data-automation-profile/[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:"DataAutomationProfileArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Data automation profile arn."]
module DataAutomationProject =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t option ;
      creationTime: DateTimestamp.t option ;
      lastModifiedTime: DateTimestamp.t option ;
      projectName: DataAutomationProjectName.t option ;
      projectStage: DataAutomationProjectStage.t option ;
      projectType: DataAutomationProjectType.t option ;
      projectDescription: DataAutomationProjectDescription.t option ;
      standardOutputConfiguration: StandardOutputConfiguration.t option ;
      customOutputConfiguration: CustomOutputConfiguration.t option ;
      overrideConfiguration: OverrideConfiguration.t option ;
      dataAutomationLibraryConfiguration:
        DataAutomationLibraryConfiguration.t option ;
      status: DataAutomationProjectStatus.t option ;
      kmsKeyId: KmsKeyId.t option ;
      kmsEncryptionContext: KmsEncryptionContext.t option }
    let make ?projectArn =
      fun ?creationTime ->
        fun ?lastModifiedTime ->
          fun ?projectName ->
            fun ?projectStage ->
              fun ?projectType ->
                fun ?projectDescription ->
                  fun ?standardOutputConfiguration ->
                    fun ?customOutputConfiguration ->
                      fun ?overrideConfiguration ->
                        fun ?dataAutomationLibraryConfiguration ->
                          fun ?status ->
                            fun ?kmsKeyId ->
                              fun ?kmsEncryptionContext ->
                                fun () ->
                                  {
                                    projectArn;
                                    creationTime;
                                    lastModifiedTime;
                                    projectName;
                                    projectStage;
                                    projectType;
                                    projectDescription;
                                    standardOutputConfiguration;
                                    customOutputConfiguration;
                                    overrideConfiguration;
                                    dataAutomationLibraryConfiguration;
                                    status;
                                    kmsKeyId;
                                    kmsEncryptionContext
                                  }
    let to_value x =
      structure_to_value
        [("projectArn",
           (Option.map x.projectArn ~f:DataAutomationProjectArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:DateTimestamp.to_value));
        ("projectName",
          (Option.map x.projectName ~f:DataAutomationProjectName.to_value));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value));
        ("projectType",
          (Option.map x.projectType ~f:DataAutomationProjectType.to_value));
        ("projectDescription",
          (Option.map x.projectDescription
             ~f:DataAutomationProjectDescription.to_value));
        ("standardOutputConfiguration",
          (Option.map x.standardOutputConfiguration
             ~f:StandardOutputConfiguration.to_value));
        ("customOutputConfiguration",
          (Option.map x.customOutputConfiguration
             ~f:CustomOutputConfiguration.to_value));
        ("overrideConfiguration",
          (Option.map x.overrideConfiguration
             ~f:OverrideConfiguration.to_value));
        ("dataAutomationLibraryConfiguration",
          (Option.map x.dataAutomationLibraryConfiguration
             ~f:DataAutomationLibraryConfiguration.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationProjectStatus.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("kmsEncryptionContext",
          (Option.map x.kmsEncryptionContext ~f:KmsEncryptionContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsEncryptionContext =
        (Option.map ~f:KmsEncryptionContext.of_xml)
          (Xml.child xml_arg0 "kmsEncryptionContext") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let status =
        (Option.map ~f:DataAutomationProjectStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let dataAutomationLibraryConfiguration =
        (Option.map ~f:DataAutomationLibraryConfiguration.of_xml)
          (Xml.child xml_arg0 "dataAutomationLibraryConfiguration") in
      let overrideConfiguration =
        (Option.map ~f:OverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "overrideConfiguration") in
      let customOutputConfiguration =
        (Option.map ~f:CustomOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "customOutputConfiguration") in
      let standardOutputConfiguration =
        (Option.map ~f:StandardOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "standardOutputConfiguration") in
      let projectDescription =
        (Option.map ~f:DataAutomationProjectDescription.of_xml)
          (Xml.child xml_arg0 "projectDescription") in
      let projectType =
        (Option.map ~f:DataAutomationProjectType.of_xml)
          (Xml.child xml_arg0 "projectType") in
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectName =
        (Option.map ~f:DataAutomationProjectName.of_xml)
          (Xml.child xml_arg0 "projectName") in
      let lastModifiedTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let projectArn =
        (Option.map ~f:DataAutomationProjectArn.of_xml)
          (Xml.child xml_arg0 "projectArn") in
      make ?kmsEncryptionContext ?kmsKeyId ?status
        ?dataAutomationLibraryConfiguration ?overrideConfiguration
        ?customOutputConfiguration ?standardOutputConfiguration
        ?projectDescription ?projectType ?projectStage ?projectName
        ?lastModifiedTime ?creationTime ?projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsEncryptionContext =
        field_map json__ "kmsEncryptionContext" KmsEncryptionContext.of_json in
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let status =
        field_map json__ "status" DataAutomationProjectStatus.of_json in
      let dataAutomationLibraryConfiguration =
        field_map json__ "dataAutomationLibraryConfiguration"
          DataAutomationLibraryConfiguration.of_json in
      let overrideConfiguration =
        field_map json__ "overrideConfiguration"
          OverrideConfiguration.of_json in
      let customOutputConfiguration =
        field_map json__ "customOutputConfiguration"
          CustomOutputConfiguration.of_json in
      let standardOutputConfiguration =
        field_map json__ "standardOutputConfiguration"
          StandardOutputConfiguration.of_json in
      let projectDescription =
        field_map json__ "projectDescription"
          DataAutomationProjectDescription.of_json in
      let projectType =
        field_map json__ "projectType" DataAutomationProjectType.of_json in
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectName =
        field_map json__ "projectName" DataAutomationProjectName.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" DateTimestamp.of_json in
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let projectArn =
        field_map json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?kmsEncryptionContext ?kmsKeyId ?status
        ?dataAutomationLibraryConfiguration ?overrideConfiguration
        ?customOutputConfiguration ?standardOutputConfiguration
        ?projectDescription ?projectType ?projectStage ?projectName
        ?lastModifiedTime ?creationTime ?projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the information of a DataAutomationProject."]
module DataAutomationLibrary =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t option ;
      creationTime: DateTimestamp.t option ;
      libraryName: DataAutomationLibraryName.t option ;
      libraryDescription: DataAutomationLibraryDescription.t option ;
      status: DataAutomationLibraryStatus.t option ;
      entityTypes: EntityTypeInfoList.t option ;
      kmsKeyId: KmsKeyId.t option ;
      kmsEncryptionContext: KmsEncryptionContext.t option }
    let make ?libraryArn =
      fun ?creationTime ->
        fun ?libraryName ->
          fun ?libraryDescription ->
            fun ?status ->
              fun ?entityTypes ->
                fun ?kmsKeyId ->
                  fun ?kmsEncryptionContext ->
                    fun () ->
                      {
                        libraryArn;
                        creationTime;
                        libraryName;
                        libraryDescription;
                        status;
                        entityTypes;
                        kmsKeyId;
                        kmsEncryptionContext
                      }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Option.map x.libraryArn ~f:DataAutomationLibraryArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value));
        ("libraryName",
          (Option.map x.libraryName ~f:DataAutomationLibraryName.to_value));
        ("libraryDescription",
          (Option.map x.libraryDescription
             ~f:DataAutomationLibraryDescription.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationLibraryStatus.to_value));
        ("entityTypes",
          (Option.map x.entityTypes ~f:EntityTypeInfoList.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("kmsEncryptionContext",
          (Option.map x.kmsEncryptionContext ~f:KmsEncryptionContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsEncryptionContext =
        (Option.map ~f:KmsEncryptionContext.of_xml)
          (Xml.child xml_arg0 "kmsEncryptionContext") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let entityTypes =
        (Option.map ~f:EntityTypeInfoList.of_xml)
          (Xml.child xml_arg0 "entityTypes") in
      let status =
        (Option.map ~f:DataAutomationLibraryStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let libraryDescription =
        (Option.map ~f:DataAutomationLibraryDescription.of_xml)
          (Xml.child xml_arg0 "libraryDescription") in
      let libraryName =
        (Option.map ~f:DataAutomationLibraryName.of_xml)
          (Xml.child xml_arg0 "libraryName") in
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let libraryArn =
        (Option.map ~f:DataAutomationLibraryArn.of_xml)
          (Xml.child xml_arg0 "libraryArn") in
      make ?kmsEncryptionContext ?kmsKeyId ?entityTypes ?status
        ?libraryDescription ?libraryName ?creationTime ?libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsEncryptionContext =
        field_map json__ "kmsEncryptionContext" KmsEncryptionContext.of_json in
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let entityTypes =
        field_map json__ "entityTypes" EntityTypeInfoList.of_json in
      let status =
        field_map json__ "status" DataAutomationLibraryStatus.of_json in
      let libraryDescription =
        field_map json__ "libraryDescription"
          DataAutomationLibraryDescription.of_json in
      let libraryName =
        field_map json__ "libraryName" DataAutomationLibraryName.of_json in
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let libraryArn =
        field_map json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?kmsEncryptionContext ?kmsKeyId ?entityTypes ?status
        ?libraryDescription ?libraryName ?creationTime ?libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains the information of a DataAutomationLibrary."]
module DataAutomationLibraryIngestionJob =
  struct
    type nonrec t =
      {
      jobArn: DataAutomationLibraryIngestionJobArn.t option
        [@ocaml.doc "ARN of the DataAutomationLibraryIngestionJob"];
      creationTime: DateTimestamp.t option
        [@ocaml.doc
          "Timestamp when the DataAutomationLibraryIngestionJob was created"];
      entityType: EntityType.t option
        [@ocaml.doc
          "The entity type associated with DataAutomationLibraryIngestionJob"];
      operationType: LibraryIngestionJobOperationType.t option
        [@ocaml.doc
          "The operation associated with DataAutomationLibraryIngestionJob"];
      jobStatus: LibraryIngestionJobStatus.t option
        [@ocaml.doc "The status of the DataAutomationLibraryIngestionJob"];
      outputConfiguration: OutputConfiguration.t option
        [@ocaml.doc
          "Output configuration of DataAutomationLibraryIngestionJob"];
      completionTime: DateTimestamp.t option
        [@ocaml.doc
          "Timestamp when the DataAutomationLibraryIngestionJob was completed"];
      errorMessage: String_.t option [@ocaml.doc "Error message"];
      errorType: String_.t option [@ocaml.doc "Error type"]}
    let make ?jobArn =
      fun ?creationTime ->
        fun ?entityType ->
          fun ?operationType ->
            fun ?jobStatus ->
              fun ?outputConfiguration ->
                fun ?completionTime ->
                  fun ?errorMessage ->
                    fun ?errorType ->
                      fun () ->
                        {
                          jobArn;
                          creationTime;
                          entityType;
                          operationType;
                          jobStatus;
                          outputConfiguration;
                          completionTime;
                          errorMessage;
                          errorType
                        }
    let to_value x =
      structure_to_value
        [("jobArn",
           (Option.map x.jobArn
              ~f:DataAutomationLibraryIngestionJobArn.to_value));
        ("creationTime",
          (Option.map x.creationTime ~f:DateTimestamp.to_value));
        ("entityType", (Option.map x.entityType ~f:EntityType.to_value));
        ("operationType",
          (Option.map x.operationType
             ~f:LibraryIngestionJobOperationType.to_value));
        ("jobStatus",
          (Option.map x.jobStatus ~f:LibraryIngestionJobStatus.to_value));
        ("outputConfiguration",
          (Option.map x.outputConfiguration ~f:OutputConfiguration.to_value));
        ("completionTime",
          (Option.map x.completionTime ~f:DateTimestamp.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("errorType", (Option.map x.errorType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorType") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let completionTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "completionTime") in
      let outputConfiguration =
        (Option.map ~f:OutputConfiguration.of_xml)
          (Xml.child xml_arg0 "outputConfiguration") in
      let jobStatus =
        (Option.map ~f:LibraryIngestionJobStatus.of_xml)
          (Xml.child xml_arg0 "jobStatus") in
      let operationType =
        (Option.map ~f:LibraryIngestionJobOperationType.of_xml)
          (Xml.child xml_arg0 "operationType") in
      let entityType =
        (Option.map ~f:EntityType.of_xml) (Xml.child xml_arg0 "entityType") in
      let creationTime =
        (Option.map ~f:DateTimestamp.of_xml)
          (Xml.child xml_arg0 "creationTime") in
      let jobArn =
        (Option.map ~f:DataAutomationLibraryIngestionJobArn.of_xml)
          (Xml.child xml_arg0 "jobArn") in
      make ?errorType ?errorMessage ?completionTime ?outputConfiguration
        ?jobStatus ?operationType ?entityType ?creationTime ?jobArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorType = field_map json__ "errorType" String_.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let completionTime =
        field_map json__ "completionTime" DateTimestamp.of_json in
      let outputConfiguration =
        field_map json__ "outputConfiguration" OutputConfiguration.of_json in
      let jobStatus =
        field_map json__ "jobStatus" LibraryIngestionJobStatus.of_json in
      let operationType =
        field_map json__ "operationType"
          LibraryIngestionJobOperationType.of_json in
      let entityType = field_map json__ "entityType" EntityType.of_json in
      let creationTime =
        field_map json__ "creationTime" DateTimestamp.of_json in
      let jobArn =
        field_map json__ "jobArn"
          DataAutomationLibraryIngestionJobArn.of_json in
      make ?errorType ?errorMessage ?completionTime ?outputConfiguration
        ?jobStatus ?operationType ?entityType ?creationTime ?jobArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains the information of a DataAutomationLibraryIngestionJob"]
module EntityDetails =
  struct
    type nonrec t = {
      vocabulary: VocabularyEntity.t option }
    let make ?vocabulary = fun () -> { vocabulary }
    let to_value x =
      structure_to_value
        [("vocabulary",
           (Option.map x.vocabulary ~f:VocabularyEntity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vocabulary =
        (Option.map ~f:VocabularyEntity.of_xml)
          (Xml.child xml_arg0 "vocabulary") in
      make ?vocabulary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vocabulary = field_map json__ "vocabulary" VocabularyEntity.of_json in
      make ?vocabulary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information about an entity"]
module BlueprintOptimizationJobStatus =
  struct
    type nonrec t =
      | Created 
      | InProgress 
      | Success 
      | ServiceError 
      | ClientError 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Created -> "Created"
      | InProgress -> "InProgress"
      | Success -> "Success"
      | ServiceError -> "ServiceError"
      | ClientError -> "ClientError"
      | Non_static_id s -> s
    let of_string =
      function
      | "Created" -> Created
      | "InProgress" -> InProgress
      | "Success" -> Success
      | "ServiceError" -> ServiceError
      | "ClientError" -> ClientError
      | 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 BlueprintOptimizationJobStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BlueprintOptimizationJobStatus" j)
    let to_json = simple_to_json to_value
  end
module UpdateDataAutomationProjectResponse =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t option ;
      projectStage: DataAutomationProjectStage.t option ;
      status: DataAutomationProjectStatus.t option }
    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 ?projectArn =
      fun ?projectStage ->
        fun ?status -> fun () -> { projectArn; projectStage; status }
    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
        [("projectArn",
           (Option.map x.projectArn ~f:DataAutomationProjectArn.to_value));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationProjectStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataAutomationProjectStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectArn =
        (Option.map ~f:DataAutomationProjectArn.of_xml)
          (Xml.child xml_arg0 "projectArn") in
      make ?status ?projectStage ?projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" DataAutomationProjectStatus.of_json in
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectArn =
        field_map json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?status ?projectStage ?projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Update DataAutomationProject Response"]
module UpdateDataAutomationProjectRequest =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationProject is created"];
      projectStage: DataAutomationProjectStage.t option ;
      projectDescription: DataAutomationProjectDescription.t option ;
      standardOutputConfiguration: StandardOutputConfiguration.t ;
      customOutputConfiguration: CustomOutputConfiguration.t option ;
      overrideConfiguration: OverrideConfiguration.t option ;
      dataAutomationLibraryConfiguration:
        DataAutomationLibraryConfiguration.t option ;
      encryptionConfiguration: EncryptionConfiguration.t option }
    let context_ = "UpdateDataAutomationProjectRequest"
    let make ?projectStage =
      fun ?projectDescription ->
        fun ?customOutputConfiguration ->
          fun ?overrideConfiguration ->
            fun ?dataAutomationLibraryConfiguration ->
              fun ?encryptionConfiguration ->
                fun ~projectArn ->
                  fun ~standardOutputConfiguration ->
                    fun () ->
                      {
                        projectStage;
                        projectDescription;
                        customOutputConfiguration;
                        overrideConfiguration;
                        dataAutomationLibraryConfiguration;
                        encryptionConfiguration;
                        projectArn;
                        standardOutputConfiguration
                      }
    let to_value x =
      structure_to_value
        [("projectArn",
           (Some (DataAutomationProjectArn.to_value x.projectArn)));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value));
        ("projectDescription",
          (Option.map x.projectDescription
             ~f:DataAutomationProjectDescription.to_value));
        ("standardOutputConfiguration",
          (Some
             (StandardOutputConfiguration.to_value
                x.standardOutputConfiguration)));
        ("customOutputConfiguration",
          (Option.map x.customOutputConfiguration
             ~f:CustomOutputConfiguration.to_value));
        ("overrideConfiguration",
          (Option.map x.overrideConfiguration
             ~f:OverrideConfiguration.to_value));
        ("dataAutomationLibraryConfiguration",
          (Option.map x.dataAutomationLibraryConfiguration
             ~f:DataAutomationLibraryConfiguration.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let dataAutomationLibraryConfiguration =
        (Option.map ~f:DataAutomationLibraryConfiguration.of_xml)
          (Xml.child xml_arg0 "dataAutomationLibraryConfiguration") in
      let overrideConfiguration =
        (Option.map ~f:OverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "overrideConfiguration") in
      let customOutputConfiguration =
        (Option.map ~f:CustomOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "customOutputConfiguration") in
      let standardOutputConfiguration =
        StandardOutputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "standardOutputConfiguration") in
      let projectDescription =
        (Option.map ~f:DataAutomationProjectDescription.of_xml)
          (Xml.child xml_arg0 "projectDescription") in
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectArn =
        DataAutomationProjectArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectArn") in
      make ?encryptionConfiguration ?dataAutomationLibraryConfiguration
        ?overrideConfiguration ?customOutputConfiguration
        ~standardOutputConfiguration ?projectDescription ?projectStage
        ~projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let dataAutomationLibraryConfiguration =
        field_map json__ "dataAutomationLibraryConfiguration"
          DataAutomationLibraryConfiguration.of_json in
      let overrideConfiguration =
        field_map json__ "overrideConfiguration"
          OverrideConfiguration.of_json in
      let customOutputConfiguration =
        field_map json__ "customOutputConfiguration"
          CustomOutputConfiguration.of_json in
      let standardOutputConfiguration =
        field_map_exn json__ "standardOutputConfiguration"
          StandardOutputConfiguration.of_json in
      let projectDescription =
        field_map json__ "projectDescription"
          DataAutomationProjectDescription.of_json in
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectArn =
        field_map_exn json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?encryptionConfiguration ?dataAutomationLibraryConfiguration
        ?overrideConfiguration ?customOutputConfiguration
        ~standardOutputConfiguration ?projectDescription ?projectStage
        ~projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Update DataAutomationProject Request"]
module UpdateDataAutomationLibraryResponse =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t option ;
      status: DataAutomationLibraryStatus.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryArn = fun ?status -> fun () -> { libraryArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Option.map x.libraryArn ~f:DataAutomationLibraryArn.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationLibraryStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataAutomationLibraryStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let libraryArn =
        (Option.map ~f:DataAutomationLibraryArn.of_xml)
          (Xml.child xml_arg0 "libraryArn") in
      make ?status ?libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" DataAutomationLibraryStatus.of_json in
      let libraryArn =
        field_map json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?status ?libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Update DataAutomationLibrary Response"]
module UpdateDataAutomationLibraryRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"];
      libraryDescription: DataAutomationLibraryDescription.t option ;
      clientToken: ClientToken.t option }
    let context_ = "UpdateDataAutomationLibraryRequest"
    let make ?libraryDescription =
      fun ?clientToken ->
        fun ~libraryArn ->
          fun () -> { libraryDescription; clientToken; libraryArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)));
        ("libraryDescription",
          (Option.map x.libraryDescription
             ~f:DataAutomationLibraryDescription.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 libraryDescription =
        (Option.map ~f:DataAutomationLibraryDescription.of_xml)
          (Xml.child xml_arg0 "libraryDescription") in
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ?clientToken ?libraryDescription ~libraryArn ()
    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 libraryDescription =
        field_map json__ "libraryDescription"
          DataAutomationLibraryDescription.of_json in
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?clientToken ?libraryDescription ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Update DataAutomationLibrary Request"]
module UpdateBlueprintResponse =
  struct
    type nonrec t = {
      blueprint: Blueprint.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?blueprint = fun () -> { blueprint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("blueprint", (Option.map x.blueprint ~f:Blueprint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprint =
        (Option.map ~f:Blueprint.of_xml) (Xml.child xml_arg0 "blueprint") in
      make ?blueprint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprint = field_map json__ "blueprint" Blueprint.of_json in
      make ?blueprint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Update Blueprint Response"]
module UpdateBlueprintRequest =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t
        [@ocaml.doc
          "ARN generated at the server side when a Blueprint is created"];
      schema: BlueprintSchema.t ;
      blueprintStage: BlueprintStage.t option ;
      encryptionConfiguration: EncryptionConfiguration.t option }
    let context_ = "UpdateBlueprintRequest"
    let make ?blueprintStage =
      fun ?encryptionConfiguration ->
        fun ~blueprintArn ->
          fun ~schema ->
            fun () ->
              { blueprintStage; encryptionConfiguration; blueprintArn; schema
              }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("schema", (Some (BlueprintSchema.to_value x.schema)));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let schema =
        BlueprintSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schema") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?encryptionConfiguration ?blueprintStage ~schema ~blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let schema = field_map_exn json__ "schema" BlueprintSchema.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?encryptionConfiguration ?blueprintStage ~schema ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Update Blueprint Request"]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Untag an Amazon Bedrock Data Automation resource"]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: TaggableResourceArn.t ;
      tagKeys: TagKeyList.t }
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (TaggableResourceArn.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 =
        TaggableResourceArn.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" TaggableResourceArn.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Untag an Amazon Bedrock Data Automation resource"]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Tag an Amazon Bedrock Data Automation resource"]
module TagResourceRequest =
  struct
    type nonrec t = {
      resourceARN: TaggableResourceArn.t ;
      tags: TagList.t }
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (TaggableResourceArn.to_value x.resourceARN)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceARN =
        TaggableResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let resourceARN =
        field_map_exn json__ "resourceARN" TaggableResourceArn.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Tag an Amazon Bedrock Data Automation resource"]
module ListTagsForResourceResponse =
  struct
    type nonrec t = {
      tags: TagList.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List tags for an Amazon Bedrock Data Automation resource"]
module ListTagsForResourceRequest =
  struct
    type nonrec t = {
      resourceARN: TaggableResourceArn.t }
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (TaggableResourceArn.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        TaggableResourceArn.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" TaggableResourceArn.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List tags for an Amazon Bedrock Data Automation resource"]
module ListDataAutomationProjectsResponse =
  struct
    type nonrec t =
      {
      projects: DataAutomationProjectSummaries.t option ;
      nextToken: NextToken.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?projects = fun ?nextToken -> fun () -> { projects; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("projects",
           (Option.map x.projects ~f:DataAutomationProjectSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let projects =
        (Option.map ~f:DataAutomationProjectSummaries.of_xml)
          (Xml.child xml_arg0 "projects") in
      make ?nextToken ?projects ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let projects =
        field_map json__ "projects" DataAutomationProjectSummaries.of_json in
      make ?nextToken ?projects ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationProject Response"]
module ListDataAutomationProjectsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option ;
      nextToken: NextToken.t option ;
      projectStageFilter: DataAutomationProjectStageFilter.t option ;
      blueprintFilter: BlueprintFilter.t option ;
      resourceOwner: ResourceOwner.t option ;
      libraryFilter: DataAutomationLibraryFilter.t option }
    let make ?maxResults =
      fun ?nextToken ->
        fun ?projectStageFilter ->
          fun ?blueprintFilter ->
            fun ?resourceOwner ->
              fun ?libraryFilter ->
                fun () ->
                  {
                    maxResults;
                    nextToken;
                    projectStageFilter;
                    blueprintFilter;
                    resourceOwner;
                    libraryFilter
                  }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("projectStageFilter",
          (Option.map x.projectStageFilter
             ~f:DataAutomationProjectStageFilter.to_value));
        ("blueprintFilter",
          (Option.map x.blueprintFilter ~f:BlueprintFilter.to_value));
        ("resourceOwner",
          (Option.map x.resourceOwner ~f:ResourceOwner.to_value));
        ("libraryFilter",
          (Option.map x.libraryFilter ~f:DataAutomationLibraryFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryFilter =
        (Option.map ~f:DataAutomationLibraryFilter.of_xml)
          (Xml.child xml_arg0 "libraryFilter") in
      let resourceOwner =
        (Option.map ~f:ResourceOwner.of_xml)
          (Xml.child xml_arg0 "resourceOwner") in
      let blueprintFilter =
        (Option.map ~f:BlueprintFilter.of_xml)
          (Xml.child xml_arg0 "blueprintFilter") in
      let projectStageFilter =
        (Option.map ~f:DataAutomationProjectStageFilter.of_xml)
          (Xml.child xml_arg0 "projectStageFilter") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?libraryFilter ?resourceOwner ?blueprintFilter ?projectStageFilter
        ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryFilter =
        field_map json__ "libraryFilter" DataAutomationLibraryFilter.of_json in
      let resourceOwner =
        field_map json__ "resourceOwner" ResourceOwner.of_json in
      let blueprintFilter =
        field_map json__ "blueprintFilter" BlueprintFilter.of_json in
      let projectStageFilter =
        field_map json__ "projectStageFilter"
          DataAutomationProjectStageFilter.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?libraryFilter ?resourceOwner ?blueprintFilter ?projectStageFilter
        ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationProject Request"]
module ListDataAutomationLibraryIngestionJobsResponse =
  struct
    type nonrec t =
      {
      jobs: DataAutomationLibraryIngestionJobSummaries.t option
        [@ocaml.doc "List of data automation library ingestion jobs"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving the next set of results"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobs = fun ?nextToken -> fun () -> { jobs; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobs",
           (Option.map x.jobs
              ~f:DataAutomationLibraryIngestionJobSummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let jobs =
        (Option.map ~f:DataAutomationLibraryIngestionJobSummaries.of_xml)
          (Xml.child xml_arg0 "jobs") in
      make ?nextToken ?jobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let jobs =
        field_map json__ "jobs"
          DataAutomationLibraryIngestionJobSummaries.of_json in
      make ?nextToken ?jobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationLibraryIngestionJobs Response"]
module ListDataAutomationLibraryIngestionJobsRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"];
      maxResults: MaxResults.t option ;
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving the next set of results"]}
    let context_ = "ListDataAutomationLibraryIngestionJobsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~libraryArn -> fun () -> { maxResults; nextToken; libraryArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ?nextToken ?maxResults ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?nextToken ?maxResults ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationLibraryIngestionJobs Request"]
module ListDataAutomationLibraryEntitiesResponse =
  struct
    type nonrec t =
      {
      entities: DataAutomationLibraryEntitySummaries.t option
        [@ocaml.doc "List of entities"];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving the next set of results"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?entities = fun ?nextToken -> fun () -> { entities; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("entities",
           (Option.map x.entities
              ~f:DataAutomationLibraryEntitySummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let entities =
        (Option.map ~f:DataAutomationLibraryEntitySummaries.of_xml)
          (Xml.child xml_arg0 "entities") in
      make ?nextToken ?entities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let entities =
        field_map json__ "entities"
          DataAutomationLibraryEntitySummaries.of_json in
      make ?nextToken ?entities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationLibraryEntities Response"]
module ListDataAutomationLibraryEntitiesRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"];
      entityType: EntityType.t
        [@ocaml.doc "The entity type for which the entity list is requested"];
      maxResults: MaxResults.t option ;
      nextToken: NextToken.t option
        [@ocaml.doc
          "Pagination token for retrieving the next set of results"]}
    let context_ = "ListDataAutomationLibraryEntitiesRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~libraryArn ->
          fun ~entityType ->
            fun () -> { maxResults; nextToken; libraryArn; entityType }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)));
        ("entityType", (Some (EntityType.to_value x.entityType)));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let entityType =
        EntityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityType") in
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ?nextToken ?maxResults ~entityType ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let entityType = field_map_exn json__ "entityType" EntityType.of_json in
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?nextToken ?maxResults ~entityType ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationLibraryEntities Request"]
module ListDataAutomationLibrariesResponse =
  struct
    type nonrec t =
      {
      libraries: DataAutomationLibrarySummaries.t option ;
      nextToken: NextToken.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraries =
      fun ?nextToken -> fun () -> { libraries; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("libraries",
           (Option.map x.libraries ~f:DataAutomationLibrarySummaries.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let libraries =
        (Option.map ~f:DataAutomationLibrarySummaries.of_xml)
          (Xml.child xml_arg0 "libraries") in
      make ?nextToken ?libraries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let libraries =
        field_map json__ "libraries" DataAutomationLibrarySummaries.of_json in
      make ?nextToken ?libraries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationLibraries Response"]
module ListDataAutomationLibrariesRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option ;
      nextToken: NextToken.t option ;
      projectFilter: DataAutomationProjectFilter.t option }
    let make ?maxResults =
      fun ?nextToken ->
        fun ?projectFilter ->
          fun () -> { maxResults; nextToken; projectFilter }
    let to_value x =
      structure_to_value
        [("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("projectFilter",
          (Option.map x.projectFilter ~f:DataAutomationProjectFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectFilter =
        (Option.map ~f:DataAutomationProjectFilter.of_xml)
          (Xml.child xml_arg0 "projectFilter") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      make ?projectFilter ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectFilter =
        field_map json__ "projectFilter" DataAutomationProjectFilter.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      make ?projectFilter ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List DataAutomationLibraries Request"]
module ListBlueprintsResponse =
  struct
    type nonrec t =
      {
      blueprints: Blueprints.t option ;
      nextToken: NextToken.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?blueprints =
      fun ?nextToken -> fun () -> { blueprints; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("blueprints", (Option.map x.blueprints ~f:Blueprints.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let blueprints =
        (Option.map ~f:Blueprints.of_xml) (Xml.child xml_arg0 "blueprints") in
      make ?nextToken ?blueprints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let blueprints = field_map json__ "blueprints" Blueprints.of_json in
      make ?nextToken ?blueprints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List Blueprint Response"]
module ListBlueprintsRequest =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t option ;
      resourceOwner: ResourceOwner.t option ;
      blueprintStageFilter: BlueprintStageFilter.t option ;
      maxResults: MaxResults.t option ;
      nextToken: NextToken.t option ;
      projectFilter: DataAutomationProjectFilter.t option }
    let make ?blueprintArn =
      fun ?resourceOwner ->
        fun ?blueprintStageFilter ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ?projectFilter ->
                fun () ->
                  {
                    blueprintArn;
                    resourceOwner;
                    blueprintStageFilter;
                    maxResults;
                    nextToken;
                    projectFilter
                  }
    let to_value x =
      structure_to_value
        [("blueprintArn",
           (Option.map x.blueprintArn ~f:BlueprintArn.to_value));
        ("resourceOwner",
          (Option.map x.resourceOwner ~f:ResourceOwner.to_value));
        ("blueprintStageFilter",
          (Option.map x.blueprintStageFilter ~f:BlueprintStageFilter.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("projectFilter",
          (Option.map x.projectFilter ~f:DataAutomationProjectFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectFilter =
        (Option.map ~f:DataAutomationProjectFilter.of_xml)
          (Xml.child xml_arg0 "projectFilter") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let blueprintStageFilter =
        (Option.map ~f:BlueprintStageFilter.of_xml)
          (Xml.child xml_arg0 "blueprintStageFilter") in
      let resourceOwner =
        (Option.map ~f:ResourceOwner.of_xml)
          (Xml.child xml_arg0 "resourceOwner") in
      let blueprintArn =
        (Option.map ~f:BlueprintArn.of_xml)
          (Xml.child xml_arg0 "blueprintArn") in
      make ?projectFilter ?nextToken ?maxResults ?blueprintStageFilter
        ?resourceOwner ?blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectFilter =
        field_map json__ "projectFilter" DataAutomationProjectFilter.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let blueprintStageFilter =
        field_map json__ "blueprintStageFilter" BlueprintStageFilter.of_json in
      let resourceOwner =
        field_map json__ "resourceOwner" ResourceOwner.of_json in
      let blueprintArn = field_map json__ "blueprintArn" BlueprintArn.of_json in
      make ?projectFilter ?nextToken ?maxResults ?blueprintStageFilter
        ?resourceOwner ?blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List Blueprint Request"]
module InvokeDataAutomationLibraryIngestionJobResponse =
  struct
    type nonrec t =
      {
      jobArn: DataAutomationLibraryIngestionJobArn.t option
        [@ocaml.doc "ARN of the DataAutomationLibraryIngestionJob"]}
    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 ?jobArn = fun () -> { jobArn }
    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
        [("jobArn",
           (Option.map x.jobArn
              ~f:DataAutomationLibraryIngestionJobArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobArn =
        (Option.map ~f:DataAutomationLibraryIngestionJobArn.of_xml)
          (Xml.child xml_arg0 "jobArn") in
      make ?jobArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobArn =
        field_map json__ "jobArn"
          DataAutomationLibraryIngestionJobArn.of_json in
      make ?jobArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invoke DataAutomationLibraryIngestionJob Response"]
module InvokeDataAutomationLibraryIngestionJobRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"];
      clientToken: ClientToken.t option [@ocaml.doc "Idempotency token"];
      inputConfiguration: InputConfiguration.t
        [@ocaml.doc
          "Input configuration of DataAutomationLibraryIngestionJob request"];
      entityType: EntityType.t
        [@ocaml.doc
          "The entity type for which DataAutomationLibraryIngestionJob is being run"];
      operationType: LibraryIngestionJobOperationType.t
        [@ocaml.doc
          "The operation to be performed by DataAutomationLibraryIngestionJob"];
      outputConfiguration: OutputConfiguration.t
        [@ocaml.doc
          "Output configuration of DataAutomationLibraryIngestionJob"];
      notificationConfiguration: NotificationConfiguration.t option
        [@ocaml.doc "Notification configuration."];
      tags: TagList.t option [@ocaml.doc "List of tags"]}
    let context_ = "InvokeDataAutomationLibraryIngestionJobRequest"
    let make ?clientToken =
      fun ?notificationConfiguration ->
        fun ?tags ->
          fun ~libraryArn ->
            fun ~inputConfiguration ->
              fun ~entityType ->
                fun ~operationType ->
                  fun ~outputConfiguration ->
                    fun () ->
                      {
                        clientToken;
                        notificationConfiguration;
                        tags;
                        libraryArn;
                        inputConfiguration;
                        entityType;
                        operationType;
                        outputConfiguration
                      }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("inputConfiguration",
          (Some (InputConfiguration.to_value x.inputConfiguration)));
        ("entityType", (Some (EntityType.to_value x.entityType)));
        ("operationType",
          (Some (LibraryIngestionJobOperationType.to_value x.operationType)));
        ("outputConfiguration",
          (Some (OutputConfiguration.to_value x.outputConfiguration)));
        ("notificationConfiguration",
          (Option.map x.notificationConfiguration
             ~f:NotificationConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let notificationConfiguration =
        (Option.map ~f:NotificationConfiguration.of_xml)
          (Xml.child xml_arg0 "notificationConfiguration") in
      let outputConfiguration =
        OutputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputConfiguration") in
      let operationType =
        LibraryIngestionJobOperationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "operationType") in
      let entityType =
        EntityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityType") in
      let inputConfiguration =
        InputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inputConfiguration") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ?tags ?notificationConfiguration ~outputConfiguration
        ~operationType ~entityType ~inputConfiguration ?clientToken
        ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let notificationConfiguration =
        field_map json__ "notificationConfiguration"
          NotificationConfiguration.of_json in
      let outputConfiguration =
        field_map_exn json__ "outputConfiguration"
          OutputConfiguration.of_json in
      let operationType =
        field_map_exn json__ "operationType"
          LibraryIngestionJobOperationType.of_json in
      let entityType = field_map_exn json__ "entityType" EntityType.of_json in
      let inputConfiguration =
        field_map_exn json__ "inputConfiguration" InputConfiguration.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?tags ?notificationConfiguration ~outputConfiguration
        ~operationType ~entityType ~inputConfiguration ?clientToken
        ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invoke DataAutomationLibraryIngestionJob Request"]
module InvokeBlueprintOptimizationAsyncResponse =
  struct
    type nonrec t =
      {
      invocationArn: BlueprintOptimizationInvocationArn.t option
        [@ocaml.doc "ARN of the blueprint optimization job"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?invocationArn = fun () -> { invocationArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("invocationArn",
           (Option.map x.invocationArn
              ~f:BlueprintOptimizationInvocationArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invocationArn =
        (Option.map ~f:BlueprintOptimizationInvocationArn.of_xml)
          (Xml.child xml_arg0 "invocationArn") in
      make ?invocationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invocationArn =
        field_map json__ "invocationArn"
          BlueprintOptimizationInvocationArn.of_json in
      make ?invocationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invoke Blueprint Optimization Async Response"]
module InvokeBlueprintOptimizationAsyncRequest =
  struct
    type nonrec t =
      {
      blueprint: BlueprintOptimizationObject.t
        [@ocaml.doc "Blueprint to be optimized"];
      samples: BlueprintOptimizationSamples.t
        [@ocaml.doc "List of Blueprint Optimization Samples"];
      outputConfiguration: BlueprintOptimizationOutputConfiguration.t
        [@ocaml.doc
          "Output configuration where the results should be placed"];
      dataAutomationProfileArn: DataAutomationProfileArn.t
        [@ocaml.doc "Data automation profile ARN"];
      encryptionConfiguration: EncryptionConfiguration.t option
        [@ocaml.doc "Encryption configuration."];
      tags: TagList.t option [@ocaml.doc "List of tags."]}
    let context_ = "InvokeBlueprintOptimizationAsyncRequest"
    let make ?encryptionConfiguration =
      fun ?tags ->
        fun ~blueprint ->
          fun ~samples ->
            fun ~outputConfiguration ->
              fun ~dataAutomationProfileArn ->
                fun () ->
                  {
                    encryptionConfiguration;
                    tags;
                    blueprint;
                    samples;
                    outputConfiguration;
                    dataAutomationProfileArn
                  }
    let to_value x =
      structure_to_value
        [("blueprint",
           (Some (BlueprintOptimizationObject.to_value x.blueprint)));
        ("samples", (Some (BlueprintOptimizationSamples.to_value x.samples)));
        ("outputConfiguration",
          (Some
             (BlueprintOptimizationOutputConfiguration.to_value
                x.outputConfiguration)));
        ("dataAutomationProfileArn",
          (Some
             (DataAutomationProfileArn.to_value x.dataAutomationProfileArn)));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let dataAutomationProfileArn =
        DataAutomationProfileArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "dataAutomationProfileArn") in
      let outputConfiguration =
        BlueprintOptimizationOutputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "outputConfiguration") in
      let samples =
        BlueprintOptimizationSamples.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "samples") in
      let blueprint =
        BlueprintOptimizationObject.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprint") in
      make ?tags ?encryptionConfiguration ~dataAutomationProfileArn
        ~outputConfiguration ~samples ~blueprint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let dataAutomationProfileArn =
        field_map_exn json__ "dataAutomationProfileArn"
          DataAutomationProfileArn.of_json in
      let outputConfiguration =
        field_map_exn json__ "outputConfiguration"
          BlueprintOptimizationOutputConfiguration.of_json in
      let samples =
        field_map_exn json__ "samples" BlueprintOptimizationSamples.of_json in
      let blueprint =
        field_map_exn json__ "blueprint" BlueprintOptimizationObject.of_json in
      make ?tags ?encryptionConfiguration ~dataAutomationProfileArn
        ~outputConfiguration ~samples ~blueprint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invoke Blueprint Optimization Async Request"]
module GetDataAutomationProjectResponse =
  struct
    type nonrec t = {
      project: DataAutomationProject.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?project = fun () -> { project }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("project",
           (Option.map x.project ~f:DataAutomationProject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let project =
        (Option.map ~f:DataAutomationProject.of_xml)
          (Xml.child xml_arg0 "project") in
      make ?project ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let project = field_map json__ "project" DataAutomationProject.of_json in
      make ?project ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationProject Response"]
module GetDataAutomationProjectRequest =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationProject is created"];
      projectStage: DataAutomationProjectStage.t option
        [@ocaml.doc
          "Optional field to delete a specific DataAutomationProject stage"]}
    let context_ = "GetDataAutomationProjectRequest"
    let make ?projectStage =
      fun ~projectArn -> fun () -> { projectStage; projectArn }
    let to_value x =
      structure_to_value
        [("projectArn",
           (Some (DataAutomationProjectArn.to_value x.projectArn)));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectArn =
        DataAutomationProjectArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectArn") in
      make ?projectStage ~projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectArn =
        field_map_exn json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?projectStage ~projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationProject Request"]
module GetDataAutomationLibraryResponse =
  struct
    type nonrec t = {
      library: DataAutomationLibrary.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?library = fun () -> { library }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("library",
           (Option.map x.library ~f:DataAutomationLibrary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let library =
        (Option.map ~f:DataAutomationLibrary.of_xml)
          (Xml.child xml_arg0 "library") in
      make ?library ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let library = field_map json__ "library" DataAutomationLibrary.of_json in
      make ?library ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationLibrary Response"]
module GetDataAutomationLibraryRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"]}
    let context_ = "GetDataAutomationLibraryRequest"
    let make ~libraryArn = fun () -> { libraryArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationLibrary Request"]
module GetDataAutomationLibraryIngestionJobResponse =
  struct
    type nonrec t =
      {
      job: DataAutomationLibraryIngestionJob.t option
        [@ocaml.doc "Contains the information of a library ingestion job"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?job = fun () -> { job }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("job",
           (Option.map x.job ~f:DataAutomationLibraryIngestionJob.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let job =
        (Option.map ~f:DataAutomationLibraryIngestionJob.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" DataAutomationLibraryIngestionJob.of_json in
      make ?job ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationLibraryIngestionJob Response"]
module GetDataAutomationLibraryIngestionJobRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"];
      jobArn: DataAutomationLibraryIngestionJobArn.t
        [@ocaml.doc "ARN of the DataAutomationLibraryIngestionJob"]}
    let context_ = "GetDataAutomationLibraryIngestionJobRequest"
    let make ~libraryArn = fun ~jobArn -> fun () -> { libraryArn; jobArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)));
        ("jobArn",
          (Some (DataAutomationLibraryIngestionJobArn.to_value x.jobArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobArn =
        DataAutomationLibraryIngestionJobArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "jobArn") in
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ~jobArn ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobArn =
        field_map_exn json__ "jobArn"
          DataAutomationLibraryIngestionJobArn.of_json in
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ~jobArn ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationLibraryIngestionJob Request"]
module GetDataAutomationLibraryEntityResponse =
  struct
    type nonrec t =
      {
      entity: EntityDetails.t option
        [@ocaml.doc "Detailed information about the entity"]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?entity = fun () -> { entity }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("entity", (Option.map x.entity ~f:EntityDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entity =
        (Option.map ~f:EntityDetails.of_xml) (Xml.child xml_arg0 "entity") in
      make ?entity ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entity = field_map json__ "entity" EntityDetails.of_json in
      make ?entity ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationLibraryEntity Response"]
module GetDataAutomationLibraryEntityRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"];
      entityType: EntityType.t
        [@ocaml.doc "The entity type for which the entity is requested"];
      entityId: EntityId.t [@ocaml.doc "Unique identifier for the entity"]}
    let context_ = "GetDataAutomationLibraryEntityRequest"
    let make ~libraryArn =
      fun ~entityType ->
        fun ~entityId -> fun () -> { libraryArn; entityType; entityId }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)));
        ("entityType", (Some (EntityType.to_value x.entityType)));
        ("entityId", (Some (EntityId.to_value x.entityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entityId =
        EntityId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "entityId") in
      let entityType =
        EntityType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "entityType") in
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ~entityId ~entityType ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entityId = field_map_exn json__ "entityId" EntityId.of_json in
      let entityType = field_map_exn json__ "entityType" EntityType.of_json in
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ~entityId ~entityType ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get DataAutomationLibraryEntity Request"]
module GetBlueprintResponse =
  struct
    type nonrec t = {
      blueprint: Blueprint.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?blueprint = fun () -> { blueprint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("blueprint", (Option.map x.blueprint ~f:Blueprint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprint =
        (Option.map ~f:Blueprint.of_xml) (Xml.child xml_arg0 "blueprint") in
      make ?blueprint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprint = field_map json__ "blueprint" Blueprint.of_json in
      make ?blueprint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get Blueprint Response"]
module GetBlueprintRequest =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t
        [@ocaml.doc
          "ARN generated at the server side when a Blueprint is created"];
      blueprintVersion: BlueprintVersion.t option
        [@ocaml.doc "Optional field to get a specific Blueprint version"];
      blueprintStage: BlueprintStage.t option
        [@ocaml.doc "Optional field to get a specific Blueprint stage"]}
    let context_ = "GetBlueprintRequest"
    let make ?blueprintVersion =
      fun ?blueprintStage ->
        fun ~blueprintArn ->
          fun () -> { blueprintVersion; blueprintStage; blueprintArn }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("blueprintVersion",
          (Option.map x.blueprintVersion ~f:BlueprintVersion.to_value));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let blueprintVersion =
        (Option.map ~f:BlueprintVersion.of_xml)
          (Xml.child xml_arg0 "blueprintVersion") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?blueprintStage ?blueprintVersion ~blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let blueprintVersion =
        field_map json__ "blueprintVersion" BlueprintVersion.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?blueprintStage ?blueprintVersion ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get Blueprint Request"]
module GetBlueprintOptimizationStatusResponse =
  struct
    type nonrec t =
      {
      status: BlueprintOptimizationJobStatus.t option
        [@ocaml.doc "Job Status."];
      errorType: String_.t option [@ocaml.doc "Error Type."];
      errorMessage: String_.t option [@ocaml.doc "Error Message."];
      outputConfiguration: BlueprintOptimizationOutputConfiguration.t option
        [@ocaml.doc "Output configuration."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?errorType ->
        fun ?errorMessage ->
          fun ?outputConfiguration ->
            fun () ->
              { status; errorType; errorMessage; outputConfiguration }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("status",
           (Option.map x.status ~f:BlueprintOptimizationJobStatus.to_value));
        ("errorType", (Option.map x.errorType ~f:String_.to_value));
        ("errorMessage", (Option.map x.errorMessage ~f:String_.to_value));
        ("outputConfiguration",
          (Option.map x.outputConfiguration
             ~f:BlueprintOptimizationOutputConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputConfiguration =
        (Option.map ~f:BlueprintOptimizationOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "outputConfiguration") in
      let errorMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorMessage") in
      let errorType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "errorType") in
      let status =
        (Option.map ~f:BlueprintOptimizationJobStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      make ?outputConfiguration ?errorMessage ?errorType ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputConfiguration =
        field_map json__ "outputConfiguration"
          BlueprintOptimizationOutputConfiguration.of_json in
      let errorMessage = field_map json__ "errorMessage" String_.of_json in
      let errorType = field_map json__ "errorType" String_.of_json in
      let status =
        field_map json__ "status" BlueprintOptimizationJobStatus.of_json in
      make ?outputConfiguration ?errorMessage ?errorType ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response of GetBlueprintOptimizationStatus API."]
module GetBlueprintOptimizationStatusRequest =
  struct
    type nonrec t =
      {
      invocationArn: BlueprintOptimizationInvocationArn.t
        [@ocaml.doc "Invocation arn."]}
    let context_ = "GetBlueprintOptimizationStatusRequest"
    let make ~invocationArn = fun () -> { invocationArn }
    let to_value x =
      structure_to_value
        [("invocationArn",
           (Some
              (BlueprintOptimizationInvocationArn.to_value x.invocationArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let invocationArn =
        BlueprintOptimizationInvocationArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "invocationArn") in
      make ~invocationArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let invocationArn =
        field_map_exn json__ "invocationArn"
          BlueprintOptimizationInvocationArn.of_json in
      make ~invocationArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Structure for request of GetBlueprintOptimizationStatus API."]
module DeleteDataAutomationProjectResponse =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t option ;
      status: DataAutomationProjectStatus.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?projectArn = fun ?status -> fun () -> { projectArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("projectArn",
           (Option.map x.projectArn ~f:DataAutomationProjectArn.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationProjectStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataAutomationProjectStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let projectArn =
        (Option.map ~f:DataAutomationProjectArn.of_xml)
          (Xml.child xml_arg0 "projectArn") in
      make ?status ?projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" DataAutomationProjectStatus.of_json in
      let projectArn =
        field_map json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?status ?projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete DataAutomationProject Response"]
module DeleteDataAutomationProjectRequest =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationProject is created"]}
    let context_ = "DeleteDataAutomationProjectRequest"
    let make ~projectArn = fun () -> { projectArn }
    let to_value x =
      structure_to_value
        [("projectArn",
           (Some (DataAutomationProjectArn.to_value x.projectArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let projectArn =
        DataAutomationProjectArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectArn") in
      make ~projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let projectArn =
        field_map_exn json__ "projectArn" DataAutomationProjectArn.of_json in
      make ~projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete DataAutomationProject Request"]
module DeleteDataAutomationLibraryResponse =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t option ;
      status: DataAutomationLibraryStatus.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryArn = fun ?status -> fun () -> { libraryArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Option.map x.libraryArn ~f:DataAutomationLibraryArn.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationLibraryStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataAutomationLibraryStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let libraryArn =
        (Option.map ~f:DataAutomationLibraryArn.of_xml)
          (Xml.child xml_arg0 "libraryArn") in
      make ?status ?libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" DataAutomationLibraryStatus.of_json in
      let libraryArn =
        field_map json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?status ?libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete DataAutomationLibrary Response"]
module DeleteDataAutomationLibraryRequest =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t
        [@ocaml.doc
          "ARN generated at the server side when a DataAutomationLibrary is created"]}
    let context_ = "DeleteDataAutomationLibraryRequest"
    let make ~libraryArn = fun () -> { libraryArn }
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Some (DataAutomationLibraryArn.to_value x.libraryArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryArn =
        DataAutomationLibraryArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryArn") in
      make ~libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryArn =
        field_map_exn json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ~libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete DataAutomationLibrary Request"]
module DeleteBlueprintResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete Blueprint Response"]
module DeleteBlueprintRequest =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t
        [@ocaml.doc
          "ARN generated at the server side when a Blueprint is created"];
      blueprintVersion: BlueprintVersion.t option
        [@ocaml.doc "Optional field to delete a specific Blueprint version"]}
    let context_ = "DeleteBlueprintRequest"
    let make ?blueprintVersion =
      fun ~blueprintArn -> fun () -> { blueprintVersion; blueprintArn }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("blueprintVersion",
          (Option.map x.blueprintVersion ~f:BlueprintVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprintVersion =
        (Option.map ~f:BlueprintVersion.of_xml)
          (Xml.child xml_arg0 "blueprintVersion") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?blueprintVersion ~blueprintArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprintVersion =
        field_map json__ "blueprintVersion" BlueprintVersion.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?blueprintVersion ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete Blueprint Request"]
module CreateDataAutomationProjectResponse =
  struct
    type nonrec t =
      {
      projectArn: DataAutomationProjectArn.t option ;
      projectStage: DataAutomationProjectStage.t option ;
      status: DataAutomationProjectStatus.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?projectArn =
      fun ?projectStage ->
        fun ?status -> fun () -> { projectArn; projectStage; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("projectArn",
           (Option.map x.projectArn ~f:DataAutomationProjectArn.to_value));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationProjectStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataAutomationProjectStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectArn =
        (Option.map ~f:DataAutomationProjectArn.of_xml)
          (Xml.child xml_arg0 "projectArn") in
      make ?status ?projectStage ?projectArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" DataAutomationProjectStatus.of_json in
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectArn =
        field_map json__ "projectArn" DataAutomationProjectArn.of_json in
      make ?status ?projectStage ?projectArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create DataAutomationProject Response"]
module CreateDataAutomationProjectRequest =
  struct
    type nonrec t =
      {
      projectName: DataAutomationProjectName.t ;
      projectDescription: DataAutomationProjectDescription.t option ;
      projectStage: DataAutomationProjectStage.t option ;
      projectType: DataAutomationProjectType.t option ;
      standardOutputConfiguration: StandardOutputConfiguration.t ;
      customOutputConfiguration: CustomOutputConfiguration.t option ;
      overrideConfiguration: OverrideConfiguration.t option ;
      dataAutomationLibraryConfiguration:
        DataAutomationLibraryConfiguration.t option ;
      clientToken: ClientToken.t option ;
      encryptionConfiguration: EncryptionConfiguration.t option ;
      tags: TagList.t option }
    let context_ = "CreateDataAutomationProjectRequest"
    let make ?projectDescription =
      fun ?projectStage ->
        fun ?projectType ->
          fun ?customOutputConfiguration ->
            fun ?overrideConfiguration ->
              fun ?dataAutomationLibraryConfiguration ->
                fun ?clientToken ->
                  fun ?encryptionConfiguration ->
                    fun ?tags ->
                      fun ~projectName ->
                        fun ~standardOutputConfiguration ->
                          fun () ->
                            {
                              projectDescription;
                              projectStage;
                              projectType;
                              customOutputConfiguration;
                              overrideConfiguration;
                              dataAutomationLibraryConfiguration;
                              clientToken;
                              encryptionConfiguration;
                              tags;
                              projectName;
                              standardOutputConfiguration
                            }
    let to_value x =
      structure_to_value
        [("projectName",
           (Some (DataAutomationProjectName.to_value x.projectName)));
        ("projectDescription",
          (Option.map x.projectDescription
             ~f:DataAutomationProjectDescription.to_value));
        ("projectStage",
          (Option.map x.projectStage ~f:DataAutomationProjectStage.to_value));
        ("projectType",
          (Option.map x.projectType ~f:DataAutomationProjectType.to_value));
        ("standardOutputConfiguration",
          (Some
             (StandardOutputConfiguration.to_value
                x.standardOutputConfiguration)));
        ("customOutputConfiguration",
          (Option.map x.customOutputConfiguration
             ~f:CustomOutputConfiguration.to_value));
        ("overrideConfiguration",
          (Option.map x.overrideConfiguration
             ~f:OverrideConfiguration.to_value));
        ("dataAutomationLibraryConfiguration",
          (Option.map x.dataAutomationLibraryConfiguration
             ~f:DataAutomationLibraryConfiguration.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let dataAutomationLibraryConfiguration =
        (Option.map ~f:DataAutomationLibraryConfiguration.of_xml)
          (Xml.child xml_arg0 "dataAutomationLibraryConfiguration") in
      let overrideConfiguration =
        (Option.map ~f:OverrideConfiguration.of_xml)
          (Xml.child xml_arg0 "overrideConfiguration") in
      let customOutputConfiguration =
        (Option.map ~f:CustomOutputConfiguration.of_xml)
          (Xml.child xml_arg0 "customOutputConfiguration") in
      let standardOutputConfiguration =
        StandardOutputConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "standardOutputConfiguration") in
      let projectType =
        (Option.map ~f:DataAutomationProjectType.of_xml)
          (Xml.child xml_arg0 "projectType") in
      let projectStage =
        (Option.map ~f:DataAutomationProjectStage.of_xml)
          (Xml.child xml_arg0 "projectStage") in
      let projectDescription =
        (Option.map ~f:DataAutomationProjectDescription.of_xml)
          (Xml.child xml_arg0 "projectDescription") in
      let projectName =
        DataAutomationProjectName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "projectName") in
      make ?tags ?encryptionConfiguration ?clientToken
        ?dataAutomationLibraryConfiguration ?overrideConfiguration
        ?customOutputConfiguration ~standardOutputConfiguration ?projectType
        ?projectStage ?projectDescription ~projectName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let dataAutomationLibraryConfiguration =
        field_map json__ "dataAutomationLibraryConfiguration"
          DataAutomationLibraryConfiguration.of_json in
      let overrideConfiguration =
        field_map json__ "overrideConfiguration"
          OverrideConfiguration.of_json in
      let customOutputConfiguration =
        field_map json__ "customOutputConfiguration"
          CustomOutputConfiguration.of_json in
      let standardOutputConfiguration =
        field_map_exn json__ "standardOutputConfiguration"
          StandardOutputConfiguration.of_json in
      let projectType =
        field_map json__ "projectType" DataAutomationProjectType.of_json in
      let projectStage =
        field_map json__ "projectStage" DataAutomationProjectStage.of_json in
      let projectDescription =
        field_map json__ "projectDescription"
          DataAutomationProjectDescription.of_json in
      let projectName =
        field_map_exn json__ "projectName" DataAutomationProjectName.of_json in
      make ?tags ?encryptionConfiguration ?clientToken
        ?dataAutomationLibraryConfiguration ?overrideConfiguration
        ?customOutputConfiguration ~standardOutputConfiguration ?projectType
        ?projectStage ?projectDescription ~projectName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create DataAutomationProject Request"]
module CreateDataAutomationLibraryResponse =
  struct
    type nonrec t =
      {
      libraryArn: DataAutomationLibraryArn.t option ;
      status: DataAutomationLibraryStatus.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryArn = fun ?status -> fun () -> { libraryArn; status }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("libraryArn",
           (Option.map x.libraryArn ~f:DataAutomationLibraryArn.to_value));
        ("status",
          (Option.map x.status ~f:DataAutomationLibraryStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataAutomationLibraryStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let libraryArn =
        (Option.map ~f:DataAutomationLibraryArn.of_xml)
          (Xml.child xml_arg0 "libraryArn") in
      make ?status ?libraryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status =
        field_map json__ "status" DataAutomationLibraryStatus.of_json in
      let libraryArn =
        field_map json__ "libraryArn" DataAutomationLibraryArn.of_json in
      make ?status ?libraryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create DataAutomationLibrary Response"]
module CreateDataAutomationLibraryRequest =
  struct
    type nonrec t =
      {
      libraryName: DataAutomationLibraryName.t ;
      libraryDescription: DataAutomationLibraryDescription.t option ;
      clientToken: ClientToken.t option ;
      encryptionConfiguration: EncryptionConfiguration.t option ;
      tags: TagList.t option }
    let context_ = "CreateDataAutomationLibraryRequest"
    let make ?libraryDescription =
      fun ?clientToken ->
        fun ?encryptionConfiguration ->
          fun ?tags ->
            fun ~libraryName ->
              fun () ->
                {
                  libraryDescription;
                  clientToken;
                  encryptionConfiguration;
                  tags;
                  libraryName
                }
    let to_value x =
      structure_to_value
        [("libraryName",
           (Some (DataAutomationLibraryName.to_value x.libraryName)));
        ("libraryDescription",
          (Option.map x.libraryDescription
             ~f:DataAutomationLibraryDescription.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let libraryDescription =
        (Option.map ~f:DataAutomationLibraryDescription.of_xml)
          (Xml.child xml_arg0 "libraryDescription") in
      let libraryName =
        DataAutomationLibraryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryName") in
      make ?tags ?encryptionConfiguration ?clientToken ?libraryDescription
        ~libraryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let libraryDescription =
        field_map json__ "libraryDescription"
          DataAutomationLibraryDescription.of_json in
      let libraryName =
        field_map_exn json__ "libraryName" DataAutomationLibraryName.of_json in
      make ?tags ?encryptionConfiguration ?clientToken ?libraryDescription
        ~libraryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create DataAutomationLibrary Request"]
module CreateBlueprintVersionResponse =
  struct
    type nonrec t = {
      blueprint: Blueprint.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?blueprint = fun () -> { blueprint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("blueprint", (Option.map x.blueprint ~f:Blueprint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprint =
        (Option.map ~f:Blueprint.of_xml) (Xml.child xml_arg0 "blueprint") in
      make ?blueprint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprint = field_map json__ "blueprint" Blueprint.of_json in
      make ?blueprint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create Blueprint Version Response"]
module CreateBlueprintVersionRequest =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t
        [@ocaml.doc
          "ARN generated at the server side when a Blueprint is created"];
      clientToken: ClientToken.t option }
    let context_ = "CreateBlueprintVersionRequest"
    let make ?clientToken =
      fun ~blueprintArn -> fun () -> { clientToken; blueprintArn }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("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 blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?clientToken ~blueprintArn ()
    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 blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?clientToken ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create Blueprint Version Request"]
module CreateBlueprintResponse =
  struct
    type nonrec t = {
      blueprint: Blueprint.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?blueprint = fun () -> { blueprint }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("blueprint", (Option.map x.blueprint ~f:Blueprint.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blueprint =
        (Option.map ~f:Blueprint.of_xml) (Xml.child xml_arg0 "blueprint") in
      make ?blueprint ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blueprint = field_map json__ "blueprint" Blueprint.of_json in
      make ?blueprint ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create Blueprint Response"]
module CreateBlueprintRequest =
  struct
    type nonrec t =
      {
      blueprintName: BlueprintName.t ;
      type_: Type.t ;
      blueprintStage: BlueprintStage.t option ;
      schema: BlueprintSchema.t ;
      clientToken: ClientToken.t option ;
      encryptionConfiguration: EncryptionConfiguration.t option ;
      tags: TagList.t option }
    let context_ = "CreateBlueprintRequest"
    let make ?blueprintStage =
      fun ?clientToken ->
        fun ?encryptionConfiguration ->
          fun ?tags ->
            fun ~blueprintName ->
              fun ~type_ ->
                fun ~schema ->
                  fun () ->
                    {
                      blueprintStage;
                      clientToken;
                      encryptionConfiguration;
                      tags;
                      blueprintName;
                      type_;
                      schema
                    }
    let to_value x =
      structure_to_value
        [("blueprintName", (Some (BlueprintName.to_value x.blueprintName)));
        ("type", (Some (Type.to_value x.type_)));
        ("blueprintStage",
          (Option.map x.blueprintStage ~f:BlueprintStage.to_value));
        ("schema", (Some (BlueprintSchema.to_value x.schema)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("encryptionConfiguration",
          (Option.map x.encryptionConfiguration
             ~f:EncryptionConfiguration.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let encryptionConfiguration =
        (Option.map ~f:EncryptionConfiguration.of_xml)
          (Xml.child xml_arg0 "encryptionConfiguration") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let schema =
        BlueprintSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schema") in
      let blueprintStage =
        (Option.map ~f:BlueprintStage.of_xml)
          (Xml.child xml_arg0 "blueprintStage") in
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let blueprintName =
        BlueprintName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintName") in
      make ?tags ?encryptionConfiguration ?clientToken ~schema
        ?blueprintStage ~type_ ~blueprintName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let encryptionConfiguration =
        field_map json__ "encryptionConfiguration"
          EncryptionConfiguration.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let schema = field_map_exn json__ "schema" BlueprintSchema.of_json in
      let blueprintStage =
        field_map json__ "blueprintStage" BlueprintStage.of_json in
      let type_ = field_map_exn json__ "type" Type.of_json in
      let blueprintName =
        field_map_exn json__ "blueprintName" BlueprintName.of_json in
      make ?tags ?encryptionConfiguration ?clientToken ~schema
        ?blueprintStage ~type_ ~blueprintName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create Blueprint Request"]
module CopyBlueprintStageResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CopyBlueprintStage Response"]
module CopyBlueprintStageRequest =
  struct
    type nonrec t =
      {
      blueprintArn: BlueprintArn.t [@ocaml.doc "Blueprint to be copied"];
      sourceStage: BlueprintStage.t [@ocaml.doc "Source stage to copy from"];
      targetStage: BlueprintStage.t [@ocaml.doc "Target stage to copy to"];
      clientToken: ClientToken.t option
        [@ocaml.doc "Client token for idempotency"]}
    let context_ = "CopyBlueprintStageRequest"
    let make ?clientToken =
      fun ~blueprintArn ->
        fun ~sourceStage ->
          fun ~targetStage ->
            fun () -> { clientToken; blueprintArn; sourceStage; targetStage }
    let to_value x =
      structure_to_value
        [("blueprintArn", (Some (BlueprintArn.to_value x.blueprintArn)));
        ("sourceStage", (Some (BlueprintStage.to_value x.sourceStage)));
        ("targetStage", (Some (BlueprintStage.to_value x.targetStage)));
        ("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 targetStage =
        BlueprintStage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targetStage") in
      let sourceStage =
        BlueprintStage.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceStage") in
      let blueprintArn =
        BlueprintArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "blueprintArn") in
      make ?clientToken ~targetStage ~sourceStage ~blueprintArn ()
    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 targetStage =
        field_map_exn json__ "targetStage" BlueprintStage.of_json in
      let sourceStage =
        field_map_exn json__ "sourceStage" BlueprintStage.of_json in
      let blueprintArn =
        field_map_exn json__ "blueprintArn" BlueprintArn.of_json in
      make ?clientToken ~targetStage ~sourceStage ~blueprintArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CopyBlueprintStage Request"]