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.schemas
let apiVersion = "2019-12-02"
let endpointPrefix = "schemas"
let serviceFullName = "Schemas"
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 Type =
  struct
    type nonrec t =
      | OpenApi3 
      | JSONSchemaDraft4 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OpenApi3 -> "OpenApi3"
      | JSONSchemaDraft4 -> "JSONSchemaDraft4"
      | Non_static_id s -> s
    let of_string =
      function
      | "OpenApi3" -> OpenApi3
      | "JSONSchemaDraft4" -> JSONSchemaDraft4
      | 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 Zz__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 Zz__timestampIso8601 =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module SearchSchemaVersionSummary =
  struct
    type nonrec t =
      {
      createdDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The date the schema version was created."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema"];
      type_: Type.t option [@ocaml.doc "The type of schema."]}
    let make ?createdDate =
      fun ?schemaVersion ->
        fun ?type_ -> fun () -> { createdDate; schemaVersion; type_ }
    let to_value x =
      structure_to_value
        [("CreatedDate",
           (Option.map x.createdDate ~f:Zz__timestampIso8601.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Type", (Option.map x.type_ ~f:Type.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:Type.of_xml) (Xml.child xml_arg0 "Type") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let createdDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "CreatedDate") in
      make ?type_ ?schemaVersion ?createdDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Type.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let createdDate =
        field_map json__ "CreatedDate" Zz__timestampIso8601.of_json in
      make ?type_ ?schemaVersion ?createdDate ()
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfSearchSchemaVersionSummary =
  struct
    type nonrec t = SearchSchemaVersionSummary.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:SearchSchemaVersionSummary.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:SearchSchemaVersionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfSearchSchemaVersionSummary"
        ~of_json:SearchSchemaVersionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = (Zz__string.t * Zz__string.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((Zz__string.of_string chopped),
                              (Zz__string.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (Zz__string.to_value x) |>
                    (fun x -> (Zz__string.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:Zz__string.of_string
        ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module DiscovererState =
  struct
    type nonrec t =
      | STARTED 
      | STOPPED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STARTED -> "STARTED"
      | STOPPED -> "STOPPED"
      | Non_static_id s -> s
    let of_string =
      function
      | "STARTED" -> STARTED
      | "STOPPED" -> STOPPED
      | 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 DiscovererState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DiscovererState" j)
    let to_json = simple_to_json to_value
  end
module Zz__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 SearchSchemaSummary =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersions: Zz__listOfSearchSchemaVersionSummary.t option
        [@ocaml.doc "An array of schema version summaries."]}
    let make ?registryName =
      fun ?schemaArn ->
        fun ?schemaName ->
          fun ?schemaVersions ->
            fun () -> { registryName; schemaArn; schemaName; schemaVersions }
    let to_value x =
      structure_to_value
        [("RegistryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersions",
          (Option.map x.schemaVersions
             ~f:Zz__listOfSearchSchemaVersionSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersions =
        (Option.map ~f:Zz__listOfSearchSchemaVersionSummary.of_xml)
          (Xml.child xml_arg0 "SchemaVersions") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryName") in
      make ?schemaVersions ?schemaName ?schemaArn ?registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersions =
        field_map json__ "SchemaVersions"
          Zz__listOfSearchSchemaVersionSummary.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      make ?schemaVersions ?schemaName ?schemaArn ?registryName ()
    let to_json v = composed_to_json to_value v
  end
module SchemaSummary =
  struct
    type nonrec t =
      {
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that schema was modified."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the schema."];
      versionCount: Zz__long.t option
        [@ocaml.doc "The number of versions available for the schema."]}
    let make ?lastModified =
      fun ?schemaArn ->
        fun ?schemaName ->
          fun ?tags ->
            fun ?versionCount ->
              fun () ->
                { lastModified; schemaArn; schemaName; tags; versionCount }
    let to_value x =
      structure_to_value
        [("LastModified",
           (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("VersionCount", (Option.map x.versionCount ~f:Zz__long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionCount =
        (Option.map ~f:Zz__long.of_xml) (Xml.child xml_arg0 "VersionCount") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      make ?versionCount ?tags ?schemaName ?schemaArn ?lastModified ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionCount = field_map json__ "VersionCount" Zz__long.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      make ?versionCount ?tags ?schemaName ?schemaArn ?lastModified ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A summary of schema details."]
module SchemaVersionSummary =
  struct
    type nonrec t =
      {
      schemaArn: Zz__string.t option
        [@ocaml.doc "The ARN of the schema version."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema."];
      type_: Type.t option [@ocaml.doc "The type of schema."]}
    let make ?schemaArn =
      fun ?schemaName ->
        fun ?schemaVersion ->
          fun ?type_ ->
            fun () -> { schemaArn; schemaName; schemaVersion; type_ }
    let to_value x =
      structure_to_value
        [("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Type", (Option.map x.type_ ~f:Type.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:Type.of_xml) (Xml.child xml_arg0 "Type") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      make ?type_ ?schemaVersion ?schemaName ?schemaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Type.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      make ?type_ ?schemaVersion ?schemaName ?schemaArn ()
    let to_json v = composed_to_json to_value v
  end
module RegistrySummary =
  struct
    type nonrec t =
      {
      registryArn: Zz__string.t option
        [@ocaml.doc "The ARN of the registry."];
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the registry."]}
    let make ?registryArn =
      fun ?registryName ->
        fun ?tags -> fun () -> { registryArn; registryName; tags }
    let to_value x =
      structure_to_value
        [("RegistryArn", (Option.map x.registryArn ~f:Zz__string.to_value));
        ("RegistryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryName") in
      let registryArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryArn") in
      make ?tags ?registryName ?registryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      let registryArn = field_map json__ "RegistryArn" Zz__string.of_json in
      make ?tags ?registryName ?registryArn ()
    let to_json v = composed_to_json to_value v
  end
module DiscovererSummary =
  struct
    type nonrec t =
      {
      discovererArn: Zz__string.t option
        [@ocaml.doc "The ARN of the discoverer."];
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      sourceArn: Zz__string.t option [@ocaml.doc "The ARN of the event bus."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "The Status if the discoverer will discover schemas from events sent from another account."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    let make ?discovererArn =
      fun ?discovererId ->
        fun ?sourceArn ->
          fun ?state ->
            fun ?crossAccount ->
              fun ?tags ->
                fun () ->
                  {
                    discovererArn;
                    discovererId;
                    sourceArn;
                    state;
                    crossAccount;
                    tags
                  }
    let to_value x =
      structure_to_value
        [("DiscovererArn",
           (Option.map x.discovererArn ~f:Zz__string.to_value));
        ("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      let discovererArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "DiscovererArn") in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let state = field_map json__ "State" DiscovererState.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      let discovererArn = field_map json__ "DiscovererArn" Zz__string.of_json in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ()
    let to_json v = composed_to_json to_value v
  end
module GetDiscoveredSchemaVersionItemInput =
  struct
    type nonrec t = string
    let context_ = "GetDiscoveredSchemaVersionItemInput"
    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:"GetDiscoveredSchemaVersionItemInput" j
    let to_json = simple_to_json to_value
  end
module BadRequestException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module ForbiddenException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module InternalServerErrorException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module NotFoundException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module ServiceUnavailableException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module Zz__stringMin0Max256 =
  struct
    type nonrec t = string
    let context_ = "__stringMin0Max256"
    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:"__stringMin0Max256" j
    let to_json = simple_to_json to_value
  end
module Zz__stringMin0Max36 =
  struct
    type nonrec t = string
    let context_ = "__stringMin0Max36"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (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:"__stringMin0Max36" j
    let to_json = simple_to_json to_value
  end
module Zz__stringMin1Max100000 =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max100000"
    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:"__stringMin1Max100000" j
    let to_json = simple_to_json to_value
  end
module UnauthorizedException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module Zz__listOf__string =
  struct
    type nonrec t = Zz__string.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:Zz__string.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:Zz__string.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOf__string" ~of_json:Zz__string.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfSearchSchemaSummary =
  struct
    type nonrec t = SearchSchemaSummary.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:SearchSchemaSummary.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:SearchSchemaSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfSearchSchemaSummary"
        ~of_json:SearchSchemaSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for __integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module PreconditionFailedException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module CodeGenerationStatus =
  struct
    type nonrec t =
      | CREATE_IN_PROGRESS 
      | CREATE_COMPLETE 
      | CREATE_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATE_IN_PROGRESS -> "CREATE_IN_PROGRESS"
      | CREATE_COMPLETE -> "CREATE_COMPLETE"
      | CREATE_FAILED -> "CREATE_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATE_IN_PROGRESS" -> CREATE_IN_PROGRESS
      | "CREATE_COMPLETE" -> CREATE_COMPLETE
      | "CREATE_FAILED" -> CREATE_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 CodeGenerationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CodeGenerationStatus" j)
    let to_json = simple_to_json to_value
  end
module GoneException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module TooManyRequestsException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfSchemaSummary =
  struct
    type nonrec t = SchemaSummary.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:SchemaSummary.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:SchemaSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfSchemaSummary"
        ~of_json:SchemaSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfSchemaVersionSummary =
  struct
    type nonrec t = SchemaVersionSummary.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:SchemaVersionSummary.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:SchemaVersionSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfSchemaVersionSummary"
        ~of_json:SchemaVersionSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfRegistrySummary =
  struct
    type nonrec t = RegistrySummary.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:RegistrySummary.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:RegistrySummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfRegistrySummary"
        ~of_json:RegistrySummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfDiscovererSummary =
  struct
    type nonrec t = DiscovererSummary.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:DiscovererSummary.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:DiscovererSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfDiscovererSummary"
        ~of_json:DiscovererSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module Zz__listOfGetDiscoveredSchemaVersionItemInput =
  struct
    type nonrec t = GetDiscoveredSchemaVersionItemInput.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:GetDiscoveredSchemaVersionItemInput.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:GetDiscoveredSchemaVersionItemInput.of_xml)
    let of_json j =
      list_of_json ~kind:"__listOfGetDiscoveredSchemaVersionItemInput"
        ~of_json:GetDiscoveredSchemaVersionItemInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module Body =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      code: Zz__string.t option [@ocaml.doc "The error code."];
      message: Zz__string.t option
        [@ocaml.doc "The message string of the error output."]}
    let make ?code = fun ?message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Option.map x.code ~f:Zz__string.to_value));
        ("Message", (Option.map x.message ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Message") in
      let code =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Code") in
      make ?message ?code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" Zz__string.of_json in
      let code = field_map json__ "Code" Zz__string.of_json in
      make ?message ?code ()
    let to_json v = composed_to_json to_value v
  end
module Zz__stringMin20Max1600 =
  struct
    type nonrec t = string
    let context_ = "__stringMin20Max1600"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (fun () -> check_string_min i ~min:20));
        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:"__stringMin20Max1600" j
    let to_json = simple_to_json to_value
  end
module Zz__timestampUnix =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Zz__stringMin1Max1600 =
  struct
    type nonrec t = string
    let context_ = "__stringMin1Max1600"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1600) >>=
             (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:"__stringMin1Max1600" j
    let to_json = simple_to_json to_value
  end
module Zz__integerMin1Max29000 =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:29000) >>=
             (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 __integerMin1Max29000" 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 Zz__double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module UpdateSchemaResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the schema."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that schema was modified."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema"];
      tags: Tags.t option ;
      type_: Zz__string.t option [@ocaml.doc "The type of the schema."];
      versionCreatedDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The date the schema version was created."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?lastModified ->
        fun ?schemaArn ->
          fun ?schemaName ->
            fun ?schemaVersion ->
              fun ?tags ->
                fun ?type_ ->
                  fun ?versionCreatedDate ->
                    fun () ->
                      {
                        description;
                        lastModified;
                        schemaArn;
                        schemaName;
                        schemaVersion;
                        tags;
                        type_;
                        versionCreatedDate
                      }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value));
        ("VersionCreatedDate",
          (Option.map x.versionCreatedDate ~f:Zz__timestampIso8601.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionCreatedDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "VersionCreatedDate") in
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionCreatedDate =
        field_map json__ "VersionCreatedDate" Zz__timestampIso8601.of_json in
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the schema definition Inactive schemas will be deleted after two years."]
module UpdateSchemaRequest =
  struct
    type nonrec t =
      {
      clientTokenId: Zz__stringMin0Max36.t option
        [@ocaml.doc "The ID of the client token."];
      content: Zz__stringMin1Max100000.t option
        [@ocaml.doc "The source of the schema definition."];
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "The description of the schema."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      type_: Type.t option
        [@ocaml.doc "The schema type for the events schema."]}
    let context_ = "UpdateSchemaRequest"
    let make ?clientTokenId =
      fun ?content ->
        fun ?description ->
          fun ?type_ ->
            fun ~registryName ->
              fun ~schemaName ->
                fun () ->
                  {
                    clientTokenId;
                    content;
                    description;
                    type_;
                    registryName;
                    schemaName
                  }
    let to_value x =
      structure_to_value
        [("ClientTokenId",
           (Option.map x.clientTokenId ~f:Zz__stringMin0Max36.to_value));
        ("Content",
          (Option.map x.content ~f:Zz__stringMin1Max100000.to_value));
        ("Description",
          (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("Type", (Option.map x.type_ ~f:Type.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:Type.of_xml) (Xml.child xml_arg0 "Type") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      let content =
        (Option.map ~f:Zz__stringMin1Max100000.of_xml)
          (Xml.child xml_arg0 "Content") in
      let clientTokenId =
        (Option.map ~f:Zz__stringMin0Max36.of_xml)
          (Xml.child xml_arg0 "ClientTokenId") in
      make ?type_ ~schemaName ~registryName ?description ?content
        ?clientTokenId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Type.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      let content =
        field_map json__ "Content" Zz__stringMin1Max100000.of_json in
      let clientTokenId =
        field_map json__ "ClientTokenId" Zz__stringMin0Max36.of_json in
      make ?type_ ~schemaName ~registryName ?description ?content
        ?clientTokenId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the schema definition Inactive schemas will be deleted after two years."]
module UpdateSchemaInput =
  struct
    type nonrec t =
      {
      clientTokenId: Zz__stringMin0Max36.t option
        [@ocaml.doc "The ID of the client token."];
      content: Zz__stringMin1Max100000.t option
        [@ocaml.doc "The source of the schema definition."];
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "The description of the schema."];
      type_: Type.t option
        [@ocaml.doc "The schema type for the events schema."]}
    let make ?clientTokenId =
      fun ?content ->
        fun ?description ->
          fun ?type_ ->
            fun () -> { clientTokenId; content; description; type_ }
    let to_value x =
      structure_to_value
        [("ClientTokenId",
           (Option.map x.clientTokenId ~f:Zz__stringMin0Max36.to_value));
        ("Content",
          (Option.map x.content ~f:Zz__stringMin1Max100000.to_value));
        ("Description",
          (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("Type", (Option.map x.type_ ~f:Type.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ = (Option.map ~f:Type.of_xml) (Xml.child xml_arg0 "Type") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      let content =
        (Option.map ~f:Zz__stringMin1Max100000.of_xml)
          (Xml.child xml_arg0 "Content") in
      let clientTokenId =
        (Option.map ~f:Zz__stringMin0Max36.of_xml)
          (Xml.child xml_arg0 "ClientTokenId") in
      make ?type_ ?description ?content ?clientTokenId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Type.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      let content =
        field_map json__ "Content" Zz__stringMin1Max100000.of_json in
      let clientTokenId =
        field_map json__ "ClientTokenId" Zz__stringMin0Max36.of_json in
      make ?type_ ?description ?content ?clientTokenId ()
    let to_json v = composed_to_json to_value v
  end
module UpdateRegistryResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the registry."];
      registryArn: Zz__string.t option
        [@ocaml.doc "The ARN of the registry."];
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the registry."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?registryArn ->
        fun ?registryName ->
          fun ?tags ->
            fun () -> { description; registryArn; registryName; tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("RegistryArn", (Option.map x.registryArn ~f:Zz__string.to_value));
        ("RegistryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryName") in
      let registryArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?registryName ?registryArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      let registryArn = field_map json__ "RegistryArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?registryName ?registryArn ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates a registry."]
module UpdateRegistryRequest =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "The description of the registry to update."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."]}
    let context_ = "UpdateRegistryRequest"
    let make ?description =
      fun ~registryName -> fun () -> { description; registryName }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ~registryName ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ~registryName ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the registry."]
module UpdateRegistryInput =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "The description of the registry to update."]}
    let make ?description = fun () -> { description }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?description ()
    let to_json v = composed_to_json to_value v
  end
module UpdateDiscovererResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the discoverer."];
      discovererArn: Zz__string.t option
        [@ocaml.doc "The ARN of the discoverer."];
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      sourceArn: Zz__string.t option [@ocaml.doc "The ARN of the event bus."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "The Status if the discoverer will discover schemas from events sent from another account."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?discovererArn ->
        fun ?discovererId ->
          fun ?sourceArn ->
            fun ?state ->
              fun ?crossAccount ->
                fun ?tags ->
                  fun () ->
                    {
                      description;
                      discovererArn;
                      discovererId;
                      sourceArn;
                      state;
                      crossAccount;
                      tags
                    }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("DiscovererArn",
          (Option.map x.discovererArn ~f:Zz__string.to_value));
        ("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      let discovererArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "DiscovererArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let state = field_map json__ "State" DiscovererState.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      let discovererArn = field_map json__ "DiscovererArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the discoverer"]
module UpdateDiscovererRequest =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "The description of the discoverer to update."];
      discovererId: Zz__string.t [@ocaml.doc "The ID of the discoverer."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "Support discovery of schemas in events sent to the bus from another account. (default: true)"]}
    let context_ = "UpdateDiscovererRequest"
    let make ?description =
      fun ?crossAccount ->
        fun ~discovererId ->
          fun () -> { description; crossAccount; discovererId }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("discovererId", (Some (Zz__string.to_value x.discovererId)));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let discovererId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "discovererId") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?crossAccount ~discovererId ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let discovererId =
        field_map_exn json__ "DiscovererId" Zz__string.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?crossAccount ~discovererId ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the discoverer"]
module UpdateDiscovererInput =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "The description of the discoverer to update."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "Support discovery of schemas in events sent to the bus from another account. (default: true)"]}
    let make ?description =
      fun ?crossAccount -> fun () -> { description; crossAccount }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?crossAccount ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?crossAccount ?description ()
    let to_json v = composed_to_json to_value v
  end
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t [@ocaml.doc "The ARN of the resource."];
      tagKeys: Zz__listOf__string.t [@ocaml.doc "Keys of key-value pairs."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)));
        ("tagKeys", (Some (Zz__listOf__string.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        Zz__listOf__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") 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" Zz__listOf__string.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes tags from a resource."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t [@ocaml.doc "The ARN of the resource."];
      tags: Tags.t [@ocaml.doc "Tags associated with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") 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" Tags.of_json in
      let resourceArn = field_map_exn json__ "ResourceArn" Zz__string.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end
module TagResourceInput =
  struct
    type nonrec t =
      {
      tags: Tags.t [@ocaml.doc "Tags associated with the resource."]}
    let context_ = "TagResourceInput"
    let make ~tags = fun () -> { tags }
    let to_value x =
      structure_to_value [("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      make ~tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" Tags.of_json in make ~tags ()
    let to_json v = composed_to_json to_value v
  end
module StopDiscovererResponse =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?discovererId = fun ?state -> fun () -> { discovererId; state }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      make ?state ?discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" DiscovererState.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      make ?state ?discovererId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the discoverer"]
module StopDiscovererRequest =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t [@ocaml.doc "The ID of the discoverer."]}
    let context_ = "StopDiscovererRequest"
    let make ~discovererId = fun () -> { discovererId }
    let to_value x =
      structure_to_value
        [("discovererId", (Some (Zz__string.to_value x.discovererId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let discovererId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "discovererId") in
      make ~discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let discovererId =
        field_map_exn json__ "DiscovererId" Zz__string.of_json in
      make ~discovererId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Stops the discoverer"]
module StartDiscovererResponse =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?discovererId = fun ?state -> fun () -> { discovererId; state }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      make ?state ?discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" DiscovererState.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      make ?state ?discovererId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the discoverer"]
module StartDiscovererRequest =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t [@ocaml.doc "The ID of the discoverer."]}
    let context_ = "StartDiscovererRequest"
    let make ~discovererId = fun () -> { discovererId }
    let to_value x =
      structure_to_value
        [("discovererId", (Some (Zz__string.to_value x.discovererId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let discovererId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "discovererId") in
      make ~discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let discovererId =
        field_map_exn json__ "DiscovererId" Zz__string.of_json in
      make ~discovererId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Starts the discoverer"]
module SearchSchemasResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      schemas: Zz__listOfSearchSchemaSummary.t option
        [@ocaml.doc "An array of SearchSchemaSummary information."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?schemas -> fun () -> { nextToken; schemas }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("Schemas",
          (Option.map x.schemas ~f:Zz__listOfSearchSchemaSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemas =
        (Option.map ~f:Zz__listOfSearchSchemaSummary.of_xml)
          (Xml.child xml_arg0 "Schemas") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?schemas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemas =
        field_map json__ "Schemas" Zz__listOfSearchSchemaSummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?schemas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Search the schemas"]
module SearchSchemasRequest =
  struct
    type nonrec t =
      {
      keywords: Zz__string.t
        [@ocaml.doc
          "Specifying this limits the results to only schemas that include the provided keywords."];
      limit: Zz__integer.t option ;
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."]}
    let context_ = "SearchSchemasRequest"
    let make ?limit =
      fun ?nextToken ->
        fun ~keywords ->
          fun ~registryName ->
            fun () -> { limit; nextToken; keywords; registryName }
    let to_value x =
      structure_to_value
        [("keywords", (Some (Zz__string.to_value x.keywords)));
        ("limit", (Option.map x.limit ~f:Zz__integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:Zz__integer.of_xml) (Xml.child xml_arg0 "limit") in
      let keywords =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "keywords") in
      make ~registryName ?nextToken ?limit ~keywords ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let limit = field_map json__ "Limit" Zz__integer.of_json in
      let keywords = field_map_exn json__ "Keywords" Zz__string.of_json in
      make ~registryName ?nextToken ?limit ~keywords ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Search the schemas"]
module SearchSchemasOutput =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      schemas: Zz__listOfSearchSchemaSummary.t option
        [@ocaml.doc "An array of SearchSchemaSummary information."]}
    let make ?nextToken = fun ?schemas -> fun () -> { nextToken; schemas }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("Schemas",
          (Option.map x.schemas ~f:Zz__listOfSearchSchemaSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemas =
        (Option.map ~f:Zz__listOfSearchSchemaSummary.of_xml)
          (Xml.child xml_arg0 "Schemas") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?schemas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemas =
        field_map json__ "Schemas" Zz__listOfSearchSchemaSummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?schemas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end
module SchemaOutput =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the schema."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that schema was modified."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema"];
      tags: Tags.t option ;
      type_: Zz__string.t option [@ocaml.doc "The type of the schema."];
      versionCreatedDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The date the schema version was created."]}
    let make ?description =
      fun ?lastModified ->
        fun ?schemaArn ->
          fun ?schemaName ->
            fun ?schemaVersion ->
              fun ?tags ->
                fun ?type_ ->
                  fun ?versionCreatedDate ->
                    fun () ->
                      {
                        description;
                        lastModified;
                        schemaArn;
                        schemaName;
                        schemaVersion;
                        tags;
                        type_;
                        versionCreatedDate
                      }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value));
        ("VersionCreatedDate",
          (Option.map x.versionCreatedDate ~f:Zz__timestampIso8601.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionCreatedDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "VersionCreatedDate") in
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionCreatedDate =
        field_map json__ "VersionCreatedDate" Zz__timestampIso8601.of_json in
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ()
    let to_json v = composed_to_json to_value v
  end
module RegistryOutput =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the registry."];
      registryArn: Zz__string.t option
        [@ocaml.doc "The ARN of the registry."];
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the registry."]}
    let make ?description =
      fun ?registryArn ->
        fun ?registryName ->
          fun ?tags ->
            fun () -> { description; registryArn; registryName; tags }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("RegistryArn", (Option.map x.registryArn ~f:Zz__string.to_value));
        ("RegistryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryName") in
      let registryArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?registryName ?registryArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      let registryArn = field_map json__ "RegistryArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?registryName ?registryArn ?description ()
    let to_json v = composed_to_json to_value v
  end
module PutResourcePolicyResponse =
  struct
    type nonrec t =
      {
      policy: Zz__string.t option [@ocaml.doc "The resource-based policy."];
      revisionId: Zz__string.t option
        [@ocaml.doc "The revision ID of the policy."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `PreconditionFailedException of PreconditionFailedException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "PreconditionFailedException" ->
          `PreconditionFailedException
            (PreconditionFailedException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "PreconditionFailedException" ->
          `PreconditionFailedException
            (PreconditionFailedException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `PreconditionFailedException e ->
          `Assoc
            [("error", (`String "PreconditionFailedException"));
            ("details", (PreconditionFailedException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Policy", (Option.map x.policy ~f:Zz__string.to_value));
        ("RevisionId", (Option.map x.revisionId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RevisionId") in
      let policy =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "RevisionId" Zz__string.of_json in
      let policy = field_map json__ "Policy" Zz__string.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The name of the policy."]
module PutResourcePolicyRequest =
  struct
    type nonrec t =
      {
      policy: Zz__string.t [@ocaml.doc "The resource-based policy."];
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      revisionId: Zz__string.t option
        [@ocaml.doc "The revision ID of the policy."]}
    let context_ = "PutResourcePolicyRequest"
    let make ?registryName =
      fun ?revisionId ->
        fun ~policy -> fun () -> { registryName; revisionId; policy }
    let to_value x =
      structure_to_value
        [("Policy", (Some (Zz__string.to_value x.policy)));
        ("registryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("RevisionId", (Option.map x.revisionId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RevisionId") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "registryName") in
      let policy =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      make ?revisionId ?registryName ~policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "RevisionId" Zz__string.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      let policy = field_map_exn json__ "Policy" Zz__string.of_json in
      make ?revisionId ?registryName ~policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The name of the policy."]
module PutResourcePolicyOutput =
  struct
    type nonrec t =
      {
      policy: Zz__string.t option [@ocaml.doc "The resource-based policy."];
      revisionId: Zz__string.t option
        [@ocaml.doc "The revision ID of the policy."]}
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let to_value x =
      structure_to_value
        [("Policy", (Option.map x.policy ~f:Zz__string.to_value));
        ("RevisionId", (Option.map x.revisionId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RevisionId") in
      let policy =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "RevisionId" Zz__string.of_json in
      let policy = field_map json__ "Policy" Zz__string.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource-based policy."]
module PutResourcePolicyInput =
  struct
    type nonrec t =
      {
      policy: Zz__string.t [@ocaml.doc "The resource-based policy."];
      revisionId: Zz__string.t option
        [@ocaml.doc "The revision ID of the policy."]}
    let context_ = "PutResourcePolicyInput"
    let make ?revisionId = fun ~policy -> fun () -> { revisionId; policy }
    let to_value x =
      structure_to_value
        [("Policy", (Some (Zz__string.to_value x.policy)));
        ("RevisionId", (Option.map x.revisionId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RevisionId") in
      let policy =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      make ?revisionId ~policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "RevisionId" Zz__string.of_json in
      let policy = field_map_exn json__ "Policy" Zz__string.of_json in
      make ?revisionId ~policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Only update the policy if the revision ID matches the ID that's specified. Use this option to avoid modifying a policy that has changed since you last read it."]
module PutCodeBindingResponse =
  struct
    type nonrec t =
      {
      creationDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The time and date that the code binding was created."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that code bindings were modified."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema."];
      status: CodeGenerationStatus.t option
        [@ocaml.doc "The current status of code binding generation."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `GoneException of GoneException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?creationDate =
      fun ?lastModified ->
        fun ?schemaVersion ->
          fun ?status ->
            fun () -> { creationDate; lastModified; schemaVersion; status }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "GoneException" -> `GoneException (GoneException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "GoneException" -> `GoneException (GoneException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `GoneException e ->
          `Assoc
            [("error", (`String "GoneException"));
            ("details", (GoneException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("CreationDate",
           (Option.map x.creationDate ~f:Zz__timestampIso8601.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Status", (Option.map x.status ~f:CodeGenerationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CodeGenerationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let creationDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      make ?status ?schemaVersion ?lastModified ?creationDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" CodeGenerationStatus.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let creationDate =
        field_map json__ "CreationDate" Zz__timestampIso8601.of_json in
      make ?status ?schemaVersion ?lastModified ?creationDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Put code binding URI"]
module PutCodeBindingRequest =
  struct
    type nonrec t =
      {
      language: Zz__string.t [@ocaml.doc "The language of the code binding."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only this schema version."]}
    let context_ = "PutCodeBindingRequest"
    let make ?schemaVersion =
      fun ~language ->
        fun ~registryName ->
          fun ~schemaName ->
            fun () -> { schemaVersion; language; registryName; schemaName }
    let to_value x =
      structure_to_value
        [("language", (Some (Zz__string.to_value x.language)));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("schemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let language =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "language") in
      make ?schemaVersion ~schemaName ~registryName ~language ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let language = field_map_exn json__ "Language" Zz__string.of_json in
      make ?schemaVersion ~schemaName ~registryName ~language ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Put code binding URI"]
module ListTagsForResourceResponse =
  struct
    type nonrec t = {
      tags: Tags.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get tags for resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Zz__string.t [@ocaml.doc "The ARN of the resource."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resource-arn", (Some (Zz__string.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resource-arn") 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" Zz__string.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get tags for resource."]
module ListTagsForResourceOutput =
  struct
    type nonrec t = {
      tags: Tags.t option }
    let make ?tags = fun () -> { tags }
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end
module ListSchemasResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      schemas: Zz__listOfSchemaSummary.t option
        [@ocaml.doc "An array of schema summaries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?schemas -> fun () -> { nextToken; schemas }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("Schemas",
          (Option.map x.schemas ~f:Zz__listOfSchemaSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemas =
        (Option.map ~f:Zz__listOfSchemaSummary.of_xml)
          (Xml.child xml_arg0 "Schemas") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?schemas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemas =
        field_map json__ "Schemas" Zz__listOfSchemaSummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?schemas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the schemas."]
module ListSchemasRequest =
  struct
    type nonrec t =
      {
      limit: Zz__integer.t option ;
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaNamePrefix: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only those schema names that start with the specified prefix."]}
    let context_ = "ListSchemasRequest"
    let make ?limit =
      fun ?nextToken ->
        fun ?schemaNamePrefix ->
          fun ~registryName ->
            fun () -> { limit; nextToken; schemaNamePrefix; registryName }
    let to_value x =
      structure_to_value
        [("limit", (Option.map x.limit ~f:Zz__integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaNamePrefix",
          (Option.map x.schemaNamePrefix ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaNamePrefix =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "schemaNamePrefix") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:Zz__integer.of_xml) (Xml.child xml_arg0 "limit") in
      make ?schemaNamePrefix ~registryName ?nextToken ?limit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaNamePrefix =
        field_map json__ "SchemaNamePrefix" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let limit = field_map json__ "Limit" Zz__integer.of_json in
      make ?schemaNamePrefix ~registryName ?nextToken ?limit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the schemas."]
module ListSchemasOutput =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      schemas: Zz__listOfSchemaSummary.t option
        [@ocaml.doc "An array of schema summaries."]}
    let make ?nextToken = fun ?schemas -> fun () -> { nextToken; schemas }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("Schemas",
          (Option.map x.schemas ~f:Zz__listOfSchemaSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemas =
        (Option.map ~f:Zz__listOfSchemaSummary.of_xml)
          (Xml.child xml_arg0 "Schemas") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?schemas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemas =
        field_map json__ "Schemas" Zz__listOfSchemaSummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?schemas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end
module ListSchemaVersionsResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      schemaVersions: Zz__listOfSchemaVersionSummary.t option
        [@ocaml.doc "An array of schema version summaries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?schemaVersions -> fun () -> { nextToken; schemaVersions }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("SchemaVersions",
          (Option.map x.schemaVersions
             ~f:Zz__listOfSchemaVersionSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersions =
        (Option.map ~f:Zz__listOfSchemaVersionSummary.of_xml)
          (Xml.child xml_arg0 "SchemaVersions") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?schemaVersions ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersions =
        field_map json__ "SchemaVersions"
          Zz__listOfSchemaVersionSummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?schemaVersions ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a list of the schema versions and related information."]
module ListSchemaVersionsRequest =
  struct
    type nonrec t =
      {
      limit: Zz__integer.t option ;
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."]}
    let context_ = "ListSchemaVersionsRequest"
    let make ?limit =
      fun ?nextToken ->
        fun ~registryName ->
          fun ~schemaName ->
            fun () -> { limit; nextToken; registryName; schemaName }
    let to_value x =
      structure_to_value
        [("limit", (Option.map x.limit ~f:Zz__integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:Zz__integer.of_xml) (Xml.child xml_arg0 "limit") in
      make ~schemaName ~registryName ?nextToken ?limit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let limit = field_map json__ "Limit" Zz__integer.of_json in
      make ~schemaName ~registryName ?nextToken ?limit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a list of the schema versions and related information."]
module ListSchemaVersionsOutput =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      schemaVersions: Zz__listOfSchemaVersionSummary.t option
        [@ocaml.doc "An array of schema version summaries."]}
    let make ?nextToken =
      fun ?schemaVersions -> fun () -> { nextToken; schemaVersions }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("SchemaVersions",
          (Option.map x.schemaVersions
             ~f:Zz__listOfSchemaVersionSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersions =
        (Option.map ~f:Zz__listOfSchemaVersionSummary.of_xml)
          (Xml.child xml_arg0 "SchemaVersions") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?schemaVersions ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersions =
        field_map json__ "SchemaVersions"
          Zz__listOfSchemaVersionSummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?schemaVersions ?nextToken ()
    let to_json v = composed_to_json to_value v
  end
module ListRegistriesResponse =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      registries: Zz__listOfRegistrySummary.t option
        [@ocaml.doc "An array of registry summaries."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?registries -> fun () -> { nextToken; registries }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("Registries",
          (Option.map x.registries ~f:Zz__listOfRegistrySummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registries =
        (Option.map ~f:Zz__listOfRegistrySummary.of_xml)
          (Xml.child xml_arg0 "Registries") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?registries ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registries =
        field_map json__ "Registries" Zz__listOfRegistrySummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?registries ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the registries."]
module ListRegistriesRequest =
  struct
    type nonrec t =
      {
      limit: Zz__integer.t option ;
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      registryNamePrefix: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only those registry names that start with the specified prefix."];
      scope: Zz__string.t option
        [@ocaml.doc
          "Can be set to Local or AWS to limit responses to your custom registries, or the ones provided by AWS."]}
    let make ?limit =
      fun ?nextToken ->
        fun ?registryNamePrefix ->
          fun ?scope ->
            fun () -> { limit; nextToken; registryNamePrefix; scope }
    let to_value x =
      structure_to_value
        [("limit", (Option.map x.limit ~f:Zz__integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("registryNamePrefix",
          (Option.map x.registryNamePrefix ~f:Zz__string.to_value));
        ("scope", (Option.map x.scope ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let scope =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "scope") in
      let registryNamePrefix =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "registryNamePrefix") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:Zz__integer.of_xml) (Xml.child xml_arg0 "limit") in
      make ?scope ?registryNamePrefix ?nextToken ?limit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let scope = field_map json__ "Scope" Zz__string.of_json in
      let registryNamePrefix =
        field_map json__ "RegistryNamePrefix" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let limit = field_map json__ "Limit" Zz__integer.of_json in
      make ?scope ?registryNamePrefix ?nextToken ?limit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the registries."]
module ListRegistriesOutput =
  struct
    type nonrec t =
      {
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      registries: Zz__listOfRegistrySummary.t option
        [@ocaml.doc "An array of registry summaries."]}
    let make ?nextToken =
      fun ?registries -> fun () -> { nextToken; registries }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("Registries",
          (Option.map x.registries ~f:Zz__listOfRegistrySummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registries =
        (Option.map ~f:Zz__listOfRegistrySummary.of_xml)
          (Xml.child xml_arg0 "Registries") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?registries ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registries =
        field_map json__ "Registries" Zz__listOfRegistrySummary.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      make ?registries ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the registries."]
module ListDiscoverersResponse =
  struct
    type nonrec t =
      {
      discoverers: Zz__listOfDiscovererSummary.t option
        [@ocaml.doc "An array of DiscovererSummary information."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?discoverers =
      fun ?nextToken -> fun () -> { discoverers; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Discoverers",
           (Option.map x.discoverers ~f:Zz__listOfDiscovererSummary.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let discoverers =
        (Option.map ~f:Zz__listOfDiscovererSummary.of_xml)
          (Xml.child xml_arg0 "Discoverers") in
      make ?nextToken ?discoverers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let discoverers =
        field_map json__ "Discoverers" Zz__listOfDiscovererSummary.of_json in
      make ?nextToken ?discoverers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the discoverers."]
module ListDiscoverersRequest =
  struct
    type nonrec t =
      {
      discovererIdPrefix: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only those discoverer IDs that start with the specified prefix."];
      limit: Zz__integer.t option ;
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."];
      sourceArnPrefix: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only those ARNs that start with the specified prefix."]}
    let make ?discovererIdPrefix =
      fun ?limit ->
        fun ?nextToken ->
          fun ?sourceArnPrefix ->
            fun () ->
              { discovererIdPrefix; limit; nextToken; sourceArnPrefix }
    let to_value x =
      structure_to_value
        [("discovererIdPrefix",
           (Option.map x.discovererIdPrefix ~f:Zz__string.to_value));
        ("limit", (Option.map x.limit ~f:Zz__integer.to_value));
        ("nextToken", (Option.map x.nextToken ~f:Zz__string.to_value));
        ("sourceArnPrefix",
          (Option.map x.sourceArnPrefix ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceArnPrefix =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "sourceArnPrefix") in
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:Zz__integer.of_xml) (Xml.child xml_arg0 "limit") in
      let discovererIdPrefix =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "discovererIdPrefix") in
      make ?sourceArnPrefix ?nextToken ?limit ?discovererIdPrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceArnPrefix =
        field_map json__ "SourceArnPrefix" Zz__string.of_json in
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let limit = field_map json__ "Limit" Zz__integer.of_json in
      let discovererIdPrefix =
        field_map json__ "DiscovererIdPrefix" Zz__string.of_json in
      make ?sourceArnPrefix ?nextToken ?limit ?discovererIdPrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the discoverers."]
module ListDiscoverersOutput =
  struct
    type nonrec t =
      {
      discoverers: Zz__listOfDiscovererSummary.t option
        [@ocaml.doc "An array of DiscovererSummary information."];
      nextToken: Zz__string.t option
        [@ocaml.doc
          "The token that specifies the next page of results to return. To request the first page, leave NextToken empty. The token will expire in 24 hours, and cannot be shared with other accounts."]}
    let make ?discoverers =
      fun ?nextToken -> fun () -> { discoverers; nextToken }
    let to_value x =
      structure_to_value
        [("Discoverers",
           (Option.map x.discoverers ~f:Zz__listOfDiscovererSummary.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "NextToken") in
      let discoverers =
        (Option.map ~f:Zz__listOfDiscovererSummary.of_xml)
          (Xml.child xml_arg0 "Discoverers") in
      make ?nextToken ?discoverers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Zz__string.of_json in
      let discoverers =
        field_map json__ "Discoverers" Zz__listOfDiscovererSummary.of_json in
      make ?nextToken ?discoverers ()
    let to_json v = composed_to_json to_value v
  end
module Limit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Limit" 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 GetResourcePolicyResponse =
  struct
    type nonrec t =
      {
      policy: Zz__string.t option [@ocaml.doc "The resource-based policy."];
      revisionId: Zz__string.t option [@ocaml.doc "The revision ID."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Policy", (Option.map x.policy ~f:Zz__string.to_value));
        ("RevisionId", (Option.map x.revisionId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RevisionId") in
      let policy =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "RevisionId" Zz__string.of_json in
      let policy = field_map json__ "Policy" Zz__string.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the resource-based policy attached to a given registry."]
module GetResourcePolicyRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."]}
    let make ?registryName = fun () -> { registryName }
    let to_value x =
      structure_to_value
        [("registryName", (Option.map x.registryName ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "registryName") in
      make ?registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      make ?registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the resource-based policy attached to a given registry."]
module GetResourcePolicyOutput =
  struct
    type nonrec t =
      {
      policy: Zz__string.t option [@ocaml.doc "The resource-based policy."];
      revisionId: Zz__string.t option [@ocaml.doc "The revision ID."]}
    let make ?policy = fun ?revisionId -> fun () -> { policy; revisionId }
    let to_value x =
      structure_to_value
        [("Policy", (Option.map x.policy ~f:Zz__string.to_value));
        ("RevisionId", (Option.map x.revisionId ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RevisionId") in
      let policy =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Policy") in
      make ?revisionId ?policy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "RevisionId" Zz__string.of_json in
      let policy = field_map json__ "Policy" Zz__string.of_json in
      make ?revisionId ?policy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the policy."]
module GetDiscoveredSchemaResponse =
  struct
    type nonrec t =
      {
      content: Zz__string.t option
        [@ocaml.doc "The source of the schema definition."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?content = fun () -> { content }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Content", (Option.map x.content ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Content") in
      make ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map json__ "Content" Zz__string.of_json in
      make ?content ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the discovered schema that was generated based on sampled events."]
module GetDiscoveredSchemaRequest =
  struct
    type nonrec t =
      {
      events: Zz__listOfGetDiscoveredSchemaVersionItemInput.t
        [@ocaml.doc
          "An array of strings where each string is a JSON event. These are the events that were used to generate the schema. The array includes a single type of event and has a maximum size of 10 events."];
      type_: Type.t [@ocaml.doc "The type of event."]}
    let context_ = "GetDiscoveredSchemaRequest"
    let make ~events = fun ~type_ -> fun () -> { events; type_ }
    let to_value x =
      structure_to_value
        [("Events",
           (Some
              (Zz__listOfGetDiscoveredSchemaVersionItemInput.to_value
                 x.events)));
        ("Type", (Some (Type.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let events =
        Zz__listOfGetDiscoveredSchemaVersionItemInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Events") in
      make ~type_ ~events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" Type.of_json in
      let events =
        field_map_exn json__ "Events"
          Zz__listOfGetDiscoveredSchemaVersionItemInput.of_json in
      make ~type_ ~events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Get the discovered schema that was generated based on sampled events."]
module GetDiscoveredSchemaOutput =
  struct
    type nonrec t =
      {
      content: Zz__string.t option
        [@ocaml.doc "The source of the schema definition."]}
    let make ?content = fun () -> { content }
    let to_value x =
      structure_to_value
        [("Content", (Option.map x.content ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Content") in
      make ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map json__ "Content" Zz__string.of_json in
      make ?content ()
    let to_json v = composed_to_json to_value v
  end
module GetDiscoveredSchemaInput =
  struct
    type nonrec t =
      {
      events: Zz__listOfGetDiscoveredSchemaVersionItemInput.t
        [@ocaml.doc
          "An array of strings where each string is a JSON event. These are the events that were used to generate the schema. The array includes a single type of event and has a maximum size of 10 events."];
      type_: Type.t [@ocaml.doc "The type of event."]}
    let context_ = "GetDiscoveredSchemaInput"
    let make ~events = fun ~type_ -> fun () -> { events; type_ }
    let to_value x =
      structure_to_value
        [("Events",
           (Some
              (Zz__listOfGetDiscoveredSchemaVersionItemInput.to_value
                 x.events)));
        ("Type", (Some (Type.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let events =
        Zz__listOfGetDiscoveredSchemaVersionItemInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Events") in
      make ~type_ ~events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" Type.of_json in
      let events =
        field_map_exn json__ "Events"
          Zz__listOfGetDiscoveredSchemaVersionItemInput.of_json in
      make ~type_ ~events ()
    let to_json v = composed_to_json to_value v
  end
module GetCodeBindingSourceResponse =
  struct
    type nonrec t = {
      body: Body.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?body = fun () -> { body }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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 ?body:(Some pipe) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value [("Body", (Option.map x.body ~f:Body.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let body = (Option.map ~f:Body.of_xml) (Xml.child xml_arg0 "Body") in
      make ?body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let body = field_map json__ "Body" Body.of_json in make ?body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the code binding source URI."]
module GetCodeBindingSourceRequest =
  struct
    type nonrec t =
      {
      language: Zz__string.t [@ocaml.doc "The language of the code binding."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only this schema version."]}
    let context_ = "GetCodeBindingSourceRequest"
    let make ?schemaVersion =
      fun ~language ->
        fun ~registryName ->
          fun ~schemaName ->
            fun () -> { schemaVersion; language; registryName; schemaName }
    let to_value x =
      structure_to_value
        [("language", (Some (Zz__string.to_value x.language)));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("schemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let language =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "language") in
      make ?schemaVersion ~schemaName ~registryName ~language ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let language = field_map_exn json__ "Language" Zz__string.of_json in
      make ?schemaVersion ~schemaName ~registryName ~language ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Get the code binding source URI."]
module GetCodeBindingSourceOutput =
  struct
    type nonrec t = string
    let context_ = "GetCodeBindingSourceOutput"
    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:"GetCodeBindingSourceOutput" j
    let to_json = simple_to_json to_value
  end
module ExportSchemaResponse =
  struct
    type nonrec t =
      {
      content: Zz__string.t option ;
      schemaArn: Zz__string.t option ;
      schemaName: Zz__string.t option ;
      schemaVersion: Zz__string.t option ;
      type_: Zz__string.t option }
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?content =
      fun ?schemaArn ->
        fun ?schemaName ->
          fun ?schemaVersion ->
            fun ?type_ ->
              fun () ->
                { content; schemaArn; schemaName; schemaVersion; type_ }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Content", (Option.map x.content ~f:Zz__string.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let content =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Content") in
      make ?type_ ?schemaVersion ?schemaName ?schemaArn ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let content = field_map json__ "Content" Zz__string.of_json in
      make ?type_ ?schemaVersion ?schemaName ?schemaArn ?content ()
    let to_json v = composed_to_json to_value v
  end
module ExportSchemaRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only this schema version."];
      type_: Zz__string.t }
    let context_ = "ExportSchemaRequest"
    let make ?schemaVersion =
      fun ~registryName ->
        fun ~schemaName ->
          fun ~type_ ->
            fun () -> { schemaVersion; registryName; schemaName; type_ }
    let to_value x =
      structure_to_value
        [("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("schemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("type", (Some (Zz__string.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      make ~type_ ?schemaVersion ~schemaName ~registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" Zz__string.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      make ~type_ ?schemaVersion ~schemaName ~registryName ()
    let to_json v = composed_to_json to_value v
  end
module ExportSchemaOutput =
  struct
    type nonrec t =
      {
      content: Zz__string.t option ;
      schemaArn: Zz__string.t option ;
      schemaName: Zz__string.t option ;
      schemaVersion: Zz__string.t option ;
      type_: Zz__string.t option }
    let make ?content =
      fun ?schemaArn ->
        fun ?schemaName ->
          fun ?schemaVersion ->
            fun ?type_ ->
              fun () ->
                { content; schemaArn; schemaName; schemaVersion; type_ }
    let to_value x =
      structure_to_value
        [("Content", (Option.map x.content ~f:Zz__string.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let content =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Content") in
      make ?type_ ?schemaVersion ?schemaName ?schemaArn ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let content = field_map json__ "Content" Zz__string.of_json in
      make ?type_ ?schemaVersion ?schemaName ?schemaArn ?content ()
    let to_json v = composed_to_json to_value v
  end
module ErrorOutput =
  struct
    type nonrec t =
      {
      code: Zz__string.t [@ocaml.doc "The error code."];
      message: Zz__string.t
        [@ocaml.doc "The message string of the error output."]}
    let context_ = "ErrorOutput"
    let make ~code = fun ~message -> fun () -> { code; message }
    let to_value x =
      structure_to_value
        [("Code", (Some (Zz__string.to_value x.code)));
        ("Message", (Some (Zz__string.to_value x.message)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Message") in
      let code =
        Zz__string.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Code") in
      make ~message ~code ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map_exn json__ "Message" Zz__string.of_json in
      let code = field_map_exn json__ "Code" Zz__string.of_json in
      make ~message ~code ()
    let to_json v = composed_to_json to_value v
  end
module DiscovererStateOutput =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."]}
    let make ?discovererId = fun ?state -> fun () -> { discovererId; state }
    let to_value x =
      structure_to_value
        [("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      make ?state ?discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let state = field_map json__ "State" DiscovererState.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      make ?state ?discovererId ()
    let to_json v = composed_to_json to_value v
  end
module DiscovererOutput =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the discoverer."];
      discovererArn: Zz__string.t option
        [@ocaml.doc "The ARN of the discoverer."];
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      sourceArn: Zz__string.t option [@ocaml.doc "The ARN of the event bus."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "The Status if the discoverer will discover schemas from events sent from another account."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    let make ?description =
      fun ?discovererArn ->
        fun ?discovererId ->
          fun ?sourceArn ->
            fun ?state ->
              fun ?crossAccount ->
                fun ?tags ->
                  fun () ->
                    {
                      description;
                      discovererArn;
                      discovererId;
                      sourceArn;
                      state;
                      crossAccount;
                      tags
                    }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("DiscovererArn",
          (Option.map x.discovererArn ~f:Zz__string.to_value));
        ("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      let discovererArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "DiscovererArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let state = field_map json__ "State" DiscovererState.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      let discovererArn = field_map json__ "DiscovererArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let to_json v = composed_to_json to_value v
  end
module DescribeSchemaResponse =
  struct
    type nonrec t =
      {
      content: Zz__string.t option
        [@ocaml.doc "The source of the schema definition."];
      description: Zz__string.t option
        [@ocaml.doc "The description of the schema."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that schema was modified."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema"];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."];
      type_: Zz__string.t option [@ocaml.doc "The type of the schema."];
      versionCreatedDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The date the schema version was created."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?content =
      fun ?description ->
        fun ?lastModified ->
          fun ?schemaArn ->
            fun ?schemaName ->
              fun ?schemaVersion ->
                fun ?tags ->
                  fun ?type_ ->
                    fun ?versionCreatedDate ->
                      fun () ->
                        {
                          content;
                          description;
                          lastModified;
                          schemaArn;
                          schemaName;
                          schemaVersion;
                          tags;
                          type_;
                          versionCreatedDate
                        }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Content", (Option.map x.content ~f:Zz__string.to_value));
        ("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value));
        ("VersionCreatedDate",
          (Option.map x.versionCreatedDate ~f:Zz__timestampIso8601.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionCreatedDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "VersionCreatedDate") in
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      let content =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Content") in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionCreatedDate =
        field_map json__ "VersionCreatedDate" Zz__timestampIso8601.of_json in
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let content = field_map json__ "Content" Zz__string.of_json in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ?content ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieve the schema definition."]
module DescribeSchemaRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only this schema version."]}
    let context_ = "DescribeSchemaRequest"
    let make ?schemaVersion =
      fun ~registryName ->
        fun ~schemaName ->
          fun () -> { schemaVersion; registryName; schemaName }
    let to_value x =
      structure_to_value
        [("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("schemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      make ?schemaVersion ~schemaName ~registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      make ?schemaVersion ~schemaName ~registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieve the schema definition."]
module DescribeSchemaOutput =
  struct
    type nonrec t =
      {
      content: Zz__string.t option
        [@ocaml.doc "The source of the schema definition."];
      description: Zz__string.t option
        [@ocaml.doc "The description of the schema."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that schema was modified."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema"];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."];
      type_: Zz__string.t option [@ocaml.doc "The type of the schema."];
      versionCreatedDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The date the schema version was created."]}
    let make ?content =
      fun ?description ->
        fun ?lastModified ->
          fun ?schemaArn ->
            fun ?schemaName ->
              fun ?schemaVersion ->
                fun ?tags ->
                  fun ?type_ ->
                    fun ?versionCreatedDate ->
                      fun () ->
                        {
                          content;
                          description;
                          lastModified;
                          schemaArn;
                          schemaName;
                          schemaVersion;
                          tags;
                          type_;
                          versionCreatedDate
                        }
    let to_value x =
      structure_to_value
        [("Content", (Option.map x.content ~f:Zz__string.to_value));
        ("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value));
        ("VersionCreatedDate",
          (Option.map x.versionCreatedDate ~f:Zz__timestampIso8601.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionCreatedDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "VersionCreatedDate") in
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      let content =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Content") in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionCreatedDate =
        field_map json__ "VersionCreatedDate" Zz__timestampIso8601.of_json in
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      let content = field_map json__ "Content" Zz__string.of_json in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ?content ()
    let to_json v = composed_to_json to_value v
  end
module DescribeRegistryResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the registry."];
      registryArn: Zz__string.t option
        [@ocaml.doc "The ARN of the registry."];
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the registry."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?registryArn ->
        fun ?registryName ->
          fun ?tags ->
            fun () -> { description; registryArn; registryName; tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("RegistryArn", (Option.map x.registryArn ~f:Zz__string.to_value));
        ("RegistryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryName") in
      let registryArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?registryName ?registryArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      let registryArn = field_map json__ "RegistryArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?registryName ?registryArn ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the registry."]
module DescribeRegistryRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."]}
    let context_ = "DescribeRegistryRequest"
    let make ~registryName = fun () -> { registryName }
    let to_value x =
      structure_to_value
        [("registryName", (Some (Zz__string.to_value x.registryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      make ~registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      make ~registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the registry."]
module DescribeDiscovererResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the discoverer."];
      discovererArn: Zz__string.t option
        [@ocaml.doc "The ARN of the discoverer."];
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      sourceArn: Zz__string.t option [@ocaml.doc "The ARN of the event bus."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "The Status if the discoverer will discover schemas from events sent from another account."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?discovererArn ->
        fun ?discovererId ->
          fun ?sourceArn ->
            fun ?state ->
              fun ?crossAccount ->
                fun ?tags ->
                  fun () ->
                    {
                      description;
                      discovererArn;
                      discovererId;
                      sourceArn;
                      state;
                      crossAccount;
                      tags
                    }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("DiscovererArn",
          (Option.map x.discovererArn ~f:Zz__string.to_value));
        ("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      let discovererArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "DiscovererArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let state = field_map json__ "State" DiscovererState.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      let discovererArn = field_map json__ "DiscovererArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the discoverer."]
module DescribeDiscovererRequest =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t [@ocaml.doc "The ID of the discoverer."]}
    let context_ = "DescribeDiscovererRequest"
    let make ~discovererId = fun () -> { discovererId }
    let to_value x =
      structure_to_value
        [("discovererId", (Some (Zz__string.to_value x.discovererId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let discovererId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "discovererId") in
      make ~discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let discovererId =
        field_map_exn json__ "DiscovererId" Zz__string.of_json in
      make ~discovererId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the discoverer."]
module DescribeCodeBindingResponse =
  struct
    type nonrec t =
      {
      creationDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The time and date that the code binding was created."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that code bindings were modified."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema."];
      status: CodeGenerationStatus.t option
        [@ocaml.doc "The current status of code binding generation."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?creationDate =
      fun ?lastModified ->
        fun ?schemaVersion ->
          fun ?status ->
            fun () -> { creationDate; lastModified; schemaVersion; status }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("CreationDate",
           (Option.map x.creationDate ~f:Zz__timestampIso8601.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Status", (Option.map x.status ~f:CodeGenerationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CodeGenerationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let creationDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      make ?status ?schemaVersion ?lastModified ?creationDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" CodeGenerationStatus.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let creationDate =
        field_map json__ "CreationDate" Zz__timestampIso8601.of_json in
      make ?status ?schemaVersion ?lastModified ?creationDate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describe the code binding URI."]
module DescribeCodeBindingRequest =
  struct
    type nonrec t =
      {
      language: Zz__string.t [@ocaml.doc "The language of the code binding."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc
          "Specifying this limits the results to only this schema version."]}
    let context_ = "DescribeCodeBindingRequest"
    let make ?schemaVersion =
      fun ~language ->
        fun ~registryName ->
          fun ~schemaName ->
            fun () -> { schemaVersion; language; registryName; schemaName }
    let to_value x =
      structure_to_value
        [("language", (Some (Zz__string.to_value x.language)));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("schemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "schemaVersion") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let language =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "language") in
      make ?schemaVersion ~schemaName ~registryName ~language ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let language = field_map_exn json__ "Language" Zz__string.of_json in
      make ?schemaVersion ~schemaName ~registryName ~language ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describe the code binding URI."]
module DeleteSchemaVersionRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t
        [@ocaml.doc "The version number of the schema"]}
    let context_ = "DeleteSchemaVersionRequest"
    let make ~registryName =
      fun ~schemaName ->
        fun ~schemaVersion ->
          fun () -> { registryName; schemaName; schemaVersion }
    let to_value x =
      structure_to_value
        [("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("schemaVersion", (Some (Zz__string.to_value x.schemaVersion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaVersion =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaVersion") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      make ~schemaVersion ~schemaName ~registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaVersion =
        field_map_exn json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      make ~schemaVersion ~schemaName ~registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete the schema version definition"]
module DeleteSchemaRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."]}
    let context_ = "DeleteSchemaRequest"
    let make ~registryName =
      fun ~schemaName -> fun () -> { registryName; schemaName }
    let to_value x =
      structure_to_value
        [("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      make ~schemaName ~registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      make ~schemaName ~registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Delete a schema definition."]
module DeleteResourcePolicyRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."]}
    let make ?registryName = fun () -> { registryName }
    let to_value x =
      structure_to_value
        [("registryName", (Option.map x.registryName ~f:Zz__string.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "registryName") in
      make ?registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      make ?registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete the resource-based policy attached to the specified registry."]
module DeleteRegistryRequest =
  struct
    type nonrec t =
      {
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."]}
    let context_ = "DeleteRegistryRequest"
    let make ~registryName = fun () -> { registryName }
    let to_value x =
      structure_to_value
        [("registryName", (Some (Zz__string.to_value x.registryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      make ~registryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      make ~registryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a Registry."]
module DeleteDiscovererRequest =
  struct
    type nonrec t =
      {
      discovererId: Zz__string.t [@ocaml.doc "The ID of the discoverer."]}
    let context_ = "DeleteDiscovererRequest"
    let make ~discovererId = fun () -> { discovererId }
    let to_value x =
      structure_to_value
        [("discovererId", (Some (Zz__string.to_value x.discovererId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let discovererId =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "discovererId") in
      make ~discovererId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let discovererId =
        field_map_exn json__ "DiscovererId" Zz__string.of_json in
      make ~discovererId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a discoverer."]
module CreateSchemaResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the schema."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that schema was modified."];
      schemaArn: Zz__string.t option [@ocaml.doc "The ARN of the schema."];
      schemaName: Zz__string.t option [@ocaml.doc "The name of the schema."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema"];
      tags: Tags.t option ;
      type_: Zz__string.t option [@ocaml.doc "The type of the schema."];
      versionCreatedDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The date the schema version was created."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?lastModified ->
        fun ?schemaArn ->
          fun ?schemaName ->
            fun ?schemaVersion ->
              fun ?tags ->
                fun ?type_ ->
                  fun ?versionCreatedDate ->
                    fun () ->
                      {
                        description;
                        lastModified;
                        schemaArn;
                        schemaName;
                        schemaVersion;
                        tags;
                        type_;
                        versionCreatedDate
                      }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaArn", (Option.map x.schemaArn ~f:Zz__string.to_value));
        ("SchemaName", (Option.map x.schemaName ~f:Zz__string.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Option.map x.type_ ~f:Zz__string.to_value));
        ("VersionCreatedDate",
          (Option.map x.versionCreatedDate ~f:Zz__timestampIso8601.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionCreatedDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "VersionCreatedDate") in
      let type_ =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let schemaName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaName") in
      let schemaArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SchemaArn") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionCreatedDate =
        field_map json__ "VersionCreatedDate" Zz__timestampIso8601.of_json in
      let type_ = field_map json__ "Type" Zz__string.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let schemaName = field_map json__ "SchemaName" Zz__string.of_json in
      let schemaArn = field_map json__ "SchemaArn" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?versionCreatedDate ?type_ ?tags ?schemaVersion ?schemaName
        ?schemaArn ?lastModified ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a schema definition. Inactive schemas will be deleted after two years."]
module CreateSchemaRequest =
  struct
    type nonrec t =
      {
      content: Zz__stringMin1Max100000.t
        [@ocaml.doc "The source of the schema definition."];
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "A description of the schema."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      schemaName: Zz__string.t [@ocaml.doc "The name of the schema."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the schema."];
      type_: Type.t [@ocaml.doc "The type of schema."]}
    let context_ = "CreateSchemaRequest"
    let make ?description =
      fun ?tags ->
        fun ~content ->
          fun ~registryName ->
            fun ~schemaName ->
              fun ~type_ ->
                fun () ->
                  {
                    description;
                    tags;
                    content;
                    registryName;
                    schemaName;
                    type_
                  }
    let to_value x =
      structure_to_value
        [("Content", (Some (Zz__stringMin1Max100000.to_value x.content)));
        ("Description",
          (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("schemaName", (Some (Zz__string.to_value x.schemaName)));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Some (Type.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let schemaName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schemaName") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      let content =
        Zz__stringMin1Max100000.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Content") in
      make ~type_ ?tags ~schemaName ~registryName ?description ~content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" Type.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let schemaName = field_map_exn json__ "SchemaName" Zz__string.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      let content =
        field_map_exn json__ "Content" Zz__stringMin1Max100000.of_json in
      make ~type_ ?tags ~schemaName ~registryName ?description ~content ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a schema definition. Inactive schemas will be deleted after two years."]
module CreateSchemaInput =
  struct
    type nonrec t =
      {
      content: Zz__stringMin1Max100000.t
        [@ocaml.doc "The source of the schema definition."];
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "A description of the schema."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the schema."];
      type_: Type.t [@ocaml.doc "The type of schema."]}
    let context_ = "CreateSchemaInput"
    let make ?description =
      fun ?tags ->
        fun ~content ->
          fun ~type_ -> fun () -> { description; tags; content; type_ }
    let to_value x =
      structure_to_value
        [("Content", (Some (Zz__stringMin1Max100000.to_value x.content)));
        ("Description",
          (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value));
        ("Type", (Some (Type.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Type.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      let content =
        Zz__stringMin1Max100000.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Content") in
      make ~type_ ?tags ?description ~content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "Type" Type.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      let content =
        field_map_exn json__ "Content" Zz__stringMin1Max100000.of_json in
      make ~type_ ?tags ?description ~content ()
    let to_json v = composed_to_json to_value v
  end
module CreateRegistryResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the registry."];
      registryArn: Zz__string.t option
        [@ocaml.doc "The ARN of the registry."];
      registryName: Zz__string.t option
        [@ocaml.doc "The name of the registry."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the registry."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?registryArn ->
        fun ?registryName ->
          fun ?tags ->
            fun () -> { description; registryArn; registryName; tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("RegistryArn", (Option.map x.registryArn ~f:Zz__string.to_value));
        ("RegistryName", (Option.map x.registryName ~f:Zz__string.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let registryName =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryName") in
      let registryArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "RegistryArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?registryName ?registryArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let registryName = field_map json__ "RegistryName" Zz__string.of_json in
      let registryArn = field_map json__ "RegistryArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?registryName ?registryArn ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a registry."]
module CreateRegistryRequest =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "A description of the registry to be created."];
      registryName: Zz__string.t [@ocaml.doc "The name of the registry."];
      tags: Tags.t option [@ocaml.doc "Tags to associate with the registry."]}
    let context_ = "CreateRegistryRequest"
    let make ?description =
      fun ?tags ->
        fun ~registryName -> fun () -> { description; tags; registryName }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("registryName", (Some (Zz__string.to_value x.registryName)));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let registryName =
        Zz__string.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "registryName") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?tags ~registryName ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let registryName =
        field_map_exn json__ "RegistryName" Zz__string.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?tags ~registryName ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a registry."]
module CreateRegistryInput =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "A description of the registry to be created."];
      tags: Tags.t option [@ocaml.doc "Tags to associate with the registry."]}
    let make ?description = fun ?tags -> fun () -> { description; tags }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?tags ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?tags ?description ()
    let to_json v = composed_to_json to_value v
  end
module CreateDiscovererResponse =
  struct
    type nonrec t =
      {
      description: Zz__string.t option
        [@ocaml.doc "The description of the discoverer."];
      discovererArn: Zz__string.t option
        [@ocaml.doc "The ARN of the discoverer."];
      discovererId: Zz__string.t option
        [@ocaml.doc "The ID of the discoverer."];
      sourceArn: Zz__string.t option [@ocaml.doc "The ARN of the event bus."];
      state: DiscovererState.t option
        [@ocaml.doc "The state of the discoverer."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "The Status if the discoverer will discover schemas from events sent from another account."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `ConflictException of ConflictException.t 
      | `ForbiddenException of ForbiddenException.t 
      | `InternalServerErrorException of InternalServerErrorException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?description =
      fun ?discovererArn ->
        fun ?discovererId ->
          fun ?sourceArn ->
            fun ?state ->
              fun ?crossAccount ->
                fun ?tags ->
                  fun () ->
                    {
                      description;
                      discovererArn;
                      discovererId;
                      sourceArn;
                      state;
                      crossAccount;
                      tags
                    }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_json json)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "ForbiddenException" ->
          `ForbiddenException (ForbiddenException.of_xml xml)
      | "InternalServerErrorException" ->
          `InternalServerErrorException
            (InternalServerErrorException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `ForbiddenException e ->
          `Assoc
            [("error", (`String "ForbiddenException"));
            ("details", (ForbiddenException.to_json e))]
      | `InternalServerErrorException e ->
          `Assoc
            [("error", (`String "InternalServerErrorException"));
            ("details", (InternalServerErrorException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("Description", (Option.map x.description ~f:Zz__string.to_value));
        ("DiscovererArn",
          (Option.map x.discovererArn ~f:Zz__string.to_value));
        ("DiscovererId", (Option.map x.discovererId ~f:Zz__string.to_value));
        ("SourceArn", (Option.map x.sourceArn ~f:Zz__string.to_value));
        ("State", (Option.map x.state ~f:DiscovererState.to_value));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let state =
        (Option.map ~f:DiscovererState.of_xml) (Xml.child xml_arg0 "State") in
      let sourceArn =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "SourceArn") in
      let discovererId =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "DiscovererId") in
      let discovererArn =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "DiscovererArn") in
      let description =
        (Option.map ~f:Zz__string.of_xml) (Xml.child xml_arg0 "Description") in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let state = field_map json__ "State" DiscovererState.of_json in
      let sourceArn = field_map json__ "SourceArn" Zz__string.of_json in
      let discovererId = field_map json__ "DiscovererId" Zz__string.of_json in
      let discovererArn = field_map json__ "DiscovererArn" Zz__string.of_json in
      let description = field_map json__ "Description" Zz__string.of_json in
      make ?tags ?crossAccount ?state ?sourceArn ?discovererId ?discovererArn
        ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a discoverer."]
module CreateDiscovererRequest =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "A description for the discoverer."];
      sourceArn: Zz__stringMin20Max1600.t
        [@ocaml.doc "The ARN of the event bus."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "Support discovery of schemas in events sent to the bus from another account. (default: true)."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    let context_ = "CreateDiscovererRequest"
    let make ?description =
      fun ?crossAccount ->
        fun ?tags ->
          fun ~sourceArn ->
            fun () -> { description; crossAccount; tags; sourceArn }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("SourceArn", (Some (Zz__stringMin20Max1600.to_value x.sourceArn)));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let sourceArn =
        Zz__stringMin20Max1600.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceArn") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?tags ?crossAccount ~sourceArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let sourceArn =
        field_map_exn json__ "SourceArn" Zz__stringMin20Max1600.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?tags ?crossAccount ~sourceArn ?description ()
    let to_json v = composed_to_json to_value v
  end
module CreateDiscovererInput =
  struct
    type nonrec t =
      {
      description: Zz__stringMin0Max256.t option
        [@ocaml.doc "A description for the discoverer."];
      sourceArn: Zz__stringMin20Max1600.t
        [@ocaml.doc "The ARN of the event bus."];
      crossAccount: Zz__boolean.t option
        [@ocaml.doc
          "Support discovery of schemas in events sent to the bus from another account. (default: true)."];
      tags: Tags.t option [@ocaml.doc "Tags associated with the resource."]}
    let context_ = "CreateDiscovererInput"
    let make ?description =
      fun ?crossAccount ->
        fun ?tags ->
          fun ~sourceArn ->
            fun () -> { description; crossAccount; tags; sourceArn }
    let to_value x =
      structure_to_value
        [("Description",
           (Option.map x.description ~f:Zz__stringMin0Max256.to_value));
        ("SourceArn", (Some (Zz__stringMin20Max1600.to_value x.sourceArn)));
        ("CrossAccount", (Option.map x.crossAccount ~f:Zz__boolean.to_value));
        ("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      let crossAccount =
        (Option.map ~f:Zz__boolean.of_xml)
          (Xml.child xml_arg0 "CrossAccount") in
      let sourceArn =
        Zz__stringMin20Max1600.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceArn") in
      let description =
        (Option.map ~f:Zz__stringMin0Max256.of_xml)
          (Xml.child xml_arg0 "Description") in
      make ?tags ?crossAccount ~sourceArn ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let crossAccount = field_map json__ "CrossAccount" Zz__boolean.of_json in
      let sourceArn =
        field_map_exn json__ "SourceArn" Zz__stringMin20Max1600.of_json in
      let description =
        field_map json__ "Description" Zz__stringMin0Max256.of_json in
      make ?tags ?crossAccount ~sourceArn ?description ()
    let to_json v = composed_to_json to_value v
  end
module CodeBindingOutput =
  struct
    type nonrec t =
      {
      creationDate: Zz__timestampIso8601.t option
        [@ocaml.doc "The time and date that the code binding was created."];
      lastModified: Zz__timestampIso8601.t option
        [@ocaml.doc "The date and time that code bindings were modified."];
      schemaVersion: Zz__string.t option
        [@ocaml.doc "The version number of the schema."];
      status: CodeGenerationStatus.t option
        [@ocaml.doc "The current status of code binding generation."]}
    let make ?creationDate =
      fun ?lastModified ->
        fun ?schemaVersion ->
          fun ?status ->
            fun () -> { creationDate; lastModified; schemaVersion; status }
    let to_value x =
      structure_to_value
        [("CreationDate",
           (Option.map x.creationDate ~f:Zz__timestampIso8601.to_value));
        ("LastModified",
          (Option.map x.lastModified ~f:Zz__timestampIso8601.to_value));
        ("SchemaVersion",
          (Option.map x.schemaVersion ~f:Zz__string.to_value));
        ("Status", (Option.map x.status ~f:CodeGenerationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:CodeGenerationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let schemaVersion =
        (Option.map ~f:Zz__string.of_xml)
          (Xml.child xml_arg0 "SchemaVersion") in
      let lastModified =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "LastModified") in
      let creationDate =
        (Option.map ~f:Zz__timestampIso8601.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      make ?status ?schemaVersion ?lastModified ?creationDate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" CodeGenerationStatus.of_json in
      let schemaVersion = field_map json__ "SchemaVersion" Zz__string.of_json in
      let lastModified =
        field_map json__ "LastModified" Zz__timestampIso8601.of_json in
      let creationDate =
        field_map json__ "CreationDate" Zz__timestampIso8601.of_json in
      make ?status ?schemaVersion ?lastModified ?creationDate ()
    let to_json v = composed_to_json to_value v
  end