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.ecr_public
let apiVersion = "2020-10-30"
let endpointPrefix = "api.ecr-public"
let serviceFullName = "Amazon Elastic Container Registry Public"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon ECR Public"
let targetPrefix = "SpencerFrontendService"
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 DefaultRegistryAliasFlag =
  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 PrimaryRegistryAliasFlag =
  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 RegistryAliasName =
  struct
    type nonrec t = string
    let context_ = "RegistryAliasName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-z][a-z0-9]+(?:[._-][a-z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegistryAliasName" j
    let to_json = simple_to_json to_value
  end
module RegistryAliasStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | PENDING 
      | REJECTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | PENDING -> "PENDING"
      | REJECTED -> "REJECTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "PENDING" -> PENDING
      | "REJECTED" -> REJECTED
      | 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 RegistryAliasStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RegistryAliasStatus" j)
    let to_json = simple_to_json to_value
  end
module RegistryAlias =
  struct
    type nonrec t =
      {
      name: RegistryAliasName.t option
        [@ocaml.doc "The name of the registry alias."];
      status: RegistryAliasStatus.t option
        [@ocaml.doc "The status of the registry alias."];
      primaryRegistryAlias: PrimaryRegistryAliasFlag.t option
        [@ocaml.doc
          "Indicates whether the registry alias is the primary alias for the registry. If true, the alias is the primary registry alias and is displayed in both the repository URL and the image URI used in the docker pull commands on the Amazon ECR Public Gallery. A registry alias that isn't the primary registry alias can be used in the repository URI in a docker pull command."];
      defaultRegistryAlias: DefaultRegistryAliasFlag.t option
        [@ocaml.doc
          "Indicates whether the registry alias is the default alias for the registry. When the first public repository is created, your public registry is assigned a default registry alias."]}
    let make ?name =
      fun ?status ->
        fun ?primaryRegistryAlias ->
          fun ?defaultRegistryAlias ->
            fun () ->
              { name; status; primaryRegistryAlias; defaultRegistryAlias }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:RegistryAliasName.to_value));
        ("status", (Option.map x.status ~f:RegistryAliasStatus.to_value));
        ("primaryRegistryAlias",
          (Option.map x.primaryRegistryAlias
             ~f:PrimaryRegistryAliasFlag.to_value));
        ("defaultRegistryAlias",
          (Option.map x.defaultRegistryAlias
             ~f:DefaultRegistryAliasFlag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultRegistryAlias =
        (Option.map ~f:DefaultRegistryAliasFlag.of_xml)
          (Xml.child xml_arg0 "defaultRegistryAlias") in
      let primaryRegistryAlias =
        (Option.map ~f:PrimaryRegistryAliasFlag.of_xml)
          (Xml.child xml_arg0 "primaryRegistryAlias") in
      let status =
        (Option.map ~f:RegistryAliasStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let name =
        (Option.map ~f:RegistryAliasName.of_xml) (Xml.child xml_arg0 "name") in
      make ?defaultRegistryAlias ?primaryRegistryAlias ?status ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultRegistryAlias =
        field_map json__ "defaultRegistryAlias"
          DefaultRegistryAliasFlag.of_json in
      let primaryRegistryAlias =
        field_map json__ "primaryRegistryAlias"
          PrimaryRegistryAliasFlag.of_json in
      let status = field_map json__ "status" RegistryAliasStatus.of_json in
      let name = field_map json__ "name" RegistryAliasName.of_json in
      make ?defaultRegistryAlias ?primaryRegistryAlias ?status ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing the aliases for a public registry. A public registry is given an alias when it's created. However, a custom alias can be set using the Amazon ECR console. For more information, see Registries in the Amazon Elastic Container Registry User Guide."]
module ImageTag =
  struct
    type nonrec t = string
    let context_ = "ImageTag"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (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:"ImageTag" j
    let to_json = simple_to_json to_value
  end
module ImageDigest =
  struct
    type nonrec t = string
    let context_ = "ImageDigest"
    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:"ImageDigest" j
    let to_json = simple_to_json to_value
  end
module ImageSizeInBytes =
  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 MediaType =
  struct
    type nonrec t = string
    let context_ = "MediaType"
    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:"MediaType" j
    let to_json = simple_to_json to_value
  end
module PushTimestamp =
  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 TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Architecture =
  struct
    type nonrec t = string
    let context_ = "Architecture"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"Architecture" j
    let to_json = simple_to_json to_value
  end
module OperatingSystem =
  struct
    type nonrec t = string
    let context_ = "OperatingSystem"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (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:"OperatingSystem" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Arn" j
    let to_json = simple_to_json to_value
  end
module CreationTimestamp =
  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 RegistryId =
  struct
    type nonrec t = string
    let context_ = "RegistryId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"[0-9]{12}"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegistryId" j
    let to_json = simple_to_json to_value
  end
module RepositoryName =
  struct
    type nonrec t = string
    let context_ = "RepositoryName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:205) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(?:[a-z0-9]+(?:[._-][a-z0-9]+)*/)*[a-z0-9]+(?:[._-][a-z0-9]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RepositoryName" j
    let to_json = simple_to_json to_value
  end
module Url =
  struct
    type nonrec t = string
    let context_ = "Url"
    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:"Url" j
    let to_json = simple_to_json to_value
  end
module RegistryAliasList =
  struct
    type nonrec t = RegistryAlias.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:RegistryAlias.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:RegistryAlias.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistryAliasList" ~of_json:RegistryAlias.of_json j
    let to_json v = composed_to_json to_value v
  end
module RegistryVerified =
  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 ImageTagList =
  struct
    type nonrec t = ImageTag.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:ImageTag.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:ImageTag.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageTagList" ~of_json:ImageTag.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReferencedImageDetail =
  struct
    type nonrec t =
      {
      imageDigest: ImageDigest.t option
        [@ocaml.doc "The sha256 digest of the image manifest."];
      imageSizeInBytes: ImageSizeInBytes.t option
        [@ocaml.doc
          "The size, in bytes, of the image in the repository. If the image is a manifest list, this is the max size of all manifests in the list. Beginning with Docker version 1.9, the Docker client compresses image layers before pushing them to a V2 Docker registry. The output of the docker images command shows the uncompressed image size, so it might return a larger image size than the image sizes that are returned by DescribeImages."];
      imagePushedAt: PushTimestamp.t option
        [@ocaml.doc
          "The date and time, expressed in standard JavaScript date format, which the current image tag was pushed to the repository at."];
      imageManifestMediaType: MediaType.t option
        [@ocaml.doc "The media type of the image manifest."];
      artifactMediaType: MediaType.t option
        [@ocaml.doc "The artifact media type of the image."]}
    let make ?imageDigest =
      fun ?imageSizeInBytes ->
        fun ?imagePushedAt ->
          fun ?imageManifestMediaType ->
            fun ?artifactMediaType ->
              fun () ->
                {
                  imageDigest;
                  imageSizeInBytes;
                  imagePushedAt;
                  imageManifestMediaType;
                  artifactMediaType
                }
    let to_value x =
      structure_to_value
        [("imageDigest", (Option.map x.imageDigest ~f:ImageDigest.to_value));
        ("imageSizeInBytes",
          (Option.map x.imageSizeInBytes ~f:ImageSizeInBytes.to_value));
        ("imagePushedAt",
          (Option.map x.imagePushedAt ~f:PushTimestamp.to_value));
        ("imageManifestMediaType",
          (Option.map x.imageManifestMediaType ~f:MediaType.to_value));
        ("artifactMediaType",
          (Option.map x.artifactMediaType ~f:MediaType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let artifactMediaType =
        (Option.map ~f:MediaType.of_xml)
          (Xml.child xml_arg0 "artifactMediaType") in
      let imageManifestMediaType =
        (Option.map ~f:MediaType.of_xml)
          (Xml.child xml_arg0 "imageManifestMediaType") in
      let imagePushedAt =
        (Option.map ~f:PushTimestamp.of_xml)
          (Xml.child xml_arg0 "imagePushedAt") in
      let imageSizeInBytes =
        (Option.map ~f:ImageSizeInBytes.of_xml)
          (Xml.child xml_arg0 "imageSizeInBytes") in
      let imageDigest =
        (Option.map ~f:ImageDigest.of_xml) (Xml.child xml_arg0 "imageDigest") in
      make ?artifactMediaType ?imageManifestMediaType ?imagePushedAt
        ?imageSizeInBytes ?imageDigest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactMediaType =
        field_map json__ "artifactMediaType" MediaType.of_json in
      let imageManifestMediaType =
        field_map json__ "imageManifestMediaType" MediaType.of_json in
      let imagePushedAt =
        field_map json__ "imagePushedAt" PushTimestamp.of_json in
      let imageSizeInBytes =
        field_map json__ "imageSizeInBytes" ImageSizeInBytes.of_json in
      let imageDigest = field_map json__ "imageDigest" ImageDigest.of_json in
      make ?artifactMediaType ?imageManifestMediaType ?imagePushedAt
        ?imageSizeInBytes ?imageDigest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that describes the image tag details that are returned by a DescribeImageTags action."]
module ImageFailureCode =
  struct
    type nonrec t =
      | InvalidImageDigest 
      | InvalidImageTag 
      | ImageTagDoesNotMatchDigest 
      | ImageNotFound 
      | MissingDigestAndTag 
      | ImageReferencedByManifestList 
      | KmsError 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InvalidImageDigest -> "InvalidImageDigest"
      | InvalidImageTag -> "InvalidImageTag"
      | ImageTagDoesNotMatchDigest -> "ImageTagDoesNotMatchDigest"
      | ImageNotFound -> "ImageNotFound"
      | MissingDigestAndTag -> "MissingDigestAndTag"
      | ImageReferencedByManifestList -> "ImageReferencedByManifestList"
      | KmsError -> "KmsError"
      | Non_static_id s -> s
    let of_string =
      function
      | "InvalidImageDigest" -> InvalidImageDigest
      | "InvalidImageTag" -> InvalidImageTag
      | "ImageTagDoesNotMatchDigest" -> ImageTagDoesNotMatchDigest
      | "ImageNotFound" -> ImageNotFound
      | "MissingDigestAndTag" -> MissingDigestAndTag
      | "ImageReferencedByManifestList" -> ImageReferencedByManifestList
      | "KmsError" -> KmsError
      | 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 ImageFailureCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImageFailureCode" j)
    let to_json = simple_to_json to_value
  end
module ImageFailureReason =
  struct
    type nonrec t = string
    let context_ = "ImageFailureReason"
    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:"ImageFailureReason" j
    let to_json = simple_to_json to_value
  end
module ImageIdentifier =
  struct
    type nonrec t =
      {
      imageDigest: ImageDigest.t option
        [@ocaml.doc "The sha256 digest of the image manifest."];
      imageTag: ImageTag.t option
        [@ocaml.doc "The tag that's used for the image."]}
    let make ?imageDigest =
      fun ?imageTag -> fun () -> { imageDigest; imageTag }
    let to_value x =
      structure_to_value
        [("imageDigest", (Option.map x.imageDigest ~f:ImageDigest.to_value));
        ("imageTag", (Option.map x.imageTag ~f:ImageTag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageTag =
        (Option.map ~f:ImageTag.of_xml) (Xml.child xml_arg0 "imageTag") in
      let imageDigest =
        (Option.map ~f:ImageDigest.of_xml) (Xml.child xml_arg0 "imageDigest") in
      make ?imageTag ?imageDigest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageTag = field_map json__ "imageTag" ImageTag.of_json in
      let imageDigest = field_map json__ "imageDigest" ImageDigest.of_json in
      make ?imageTag ?imageDigest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object with identifying information for an Amazon ECR image."]
module BatchedOperationLayerDigest =
  struct
    type nonrec t = string
    let context_ = "BatchedOperationLayerDigest"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"BatchedOperationLayerDigest" j
    let to_json = simple_to_json to_value
  end
module LayerFailureCode =
  struct
    type nonrec t =
      | InvalidLayerDigest 
      | MissingLayerDigest 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InvalidLayerDigest -> "InvalidLayerDigest"
      | MissingLayerDigest -> "MissingLayerDigest"
      | Non_static_id s -> s
    let of_string =
      function
      | "InvalidLayerDigest" -> InvalidLayerDigest
      | "MissingLayerDigest" -> MissingLayerDigest
      | 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 LayerFailureCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LayerFailureCode" j)
    let to_json = simple_to_json to_value
  end
module LayerFailureReason =
  struct
    type nonrec t = string
    let context_ = "LayerFailureReason"
    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:"LayerFailureReason" j
    let to_json = simple_to_json to_value
  end
module LayerAvailability =
  struct
    type nonrec t =
      | AVAILABLE 
      | UNAVAILABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AVAILABLE -> "AVAILABLE"
      | UNAVAILABLE -> "UNAVAILABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "AVAILABLE" -> AVAILABLE
      | "UNAVAILABLE" -> UNAVAILABLE
      | 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 LayerAvailability" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LayerAvailability" j)
    let to_json = simple_to_json to_value
  end
module LayerDigest =
  struct
    type nonrec t = string
    let context_ = "LayerDigest"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i ~pattern:"[a-zA-Z0-9-_+.]+:[a-fA-F0-9]+");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LayerDigest" j
    let to_json = simple_to_json to_value
  end
module LayerSizeInBytes =
  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 ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module PartSize =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); 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 UploadId =
  struct
    type nonrec t = string
    let context_ = "UploadId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UploadId" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t option
        [@ocaml.doc
          "One part of a key-value pair that make up a tag. A key is a general label that acts like a category for more specific tag values."];
      value: TagValue.t option
        [@ocaml.doc
          "The optional part of a key-value pair that make up a tag. A value acts as a descriptor within a tag category (key)."]}
    let make ?key = fun ?value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:TagKey.to_value));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:TagKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" TagValue.of_json in
      let key = field_map json__ "Key" TagKey.of_json in make ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The metadata that you apply to a resource to help you categorize and organize them. Each tag consists of a key and an optional value. You define both. Tag keys can have a maximum character length of 128 characters, and tag values can have a maximum length of 256 characters."]
module AboutText =
  struct
    type nonrec t = string
    let context_ = "AboutText"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:25600); 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:"AboutText" j
    let to_json = simple_to_json to_value
  end
module ArchitectureList =
  struct
    type nonrec t = Architecture.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Architecture.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:Architecture.of_xml)
    let of_json j =
      list_of_json ~kind:"ArchitectureList" ~of_json:Architecture.of_json j
    let to_json v = composed_to_json to_value v
  end
module MarketplaceCertified =
  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 OperatingSystemList =
  struct
    type nonrec t = OperatingSystem.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:50); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:OperatingSystem.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:OperatingSystem.of_xml)
    let of_json j =
      list_of_json ~kind:"OperatingSystemList"
        ~of_json:OperatingSystem.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryDescription =
  struct
    type nonrec t = string
    let context_ = "RepositoryDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RepositoryDescription" j
    let to_json = simple_to_json to_value
  end
module ResourceUrl =
  struct
    type nonrec t = string
    let context_ = "ResourceUrl"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:2048); 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:"ResourceUrl" j
    let to_json = simple_to_json to_value
  end
module UsageText =
  struct
    type nonrec t = string
    let context_ = "UsageText"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:25600); 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:"UsageText" j
    let to_json = simple_to_json to_value
  end
module LogoImageBlob =
  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 RegistryDisplayName =
  struct
    type nonrec t = string
    let context_ = "RegistryDisplayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (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:"RegistryDisplayName" j
    let to_json = simple_to_json to_value
  end
module ImageManifest =
  struct
    type nonrec t = string
    let context_ = "ImageManifest"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4194304) >>=
             (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:"ImageManifest" j
    let to_json = simple_to_json to_value
  end
module RegistryIdOrAlias =
  struct
    type nonrec t = string
    let context_ = "RegistryIdOrAlias"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:2));
        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:"RegistryIdOrAlias" j
    let to_json = simple_to_json to_value
  end
module Base64 =
  struct
    type nonrec t = string
    let context_ = "Base64"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^\\S+$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Base64" j
    let to_json = simple_to_json to_value
  end
module ExpirationTimestamp =
  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 Repository =
  struct
    type nonrec t =
      {
      repositoryArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that identifies the repository. The ARN contains the arn:aws:ecr namespace, followed by the region of the repository, Amazon Web Services account ID of the repository owner, repository namespace, and repository name. For example, arn:aws:ecr:region:012345678910:repository/test."];
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry that contains the repository."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc "The name of the repository."];
      repositoryUri: Url.t option
        [@ocaml.doc
          "The URI for the repository. You can use this URI for container image push and pull operations."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The date and time, in JavaScript date format, when the repository was created."]}
    let make ?repositoryArn =
      fun ?registryId ->
        fun ?repositoryName ->
          fun ?repositoryUri ->
            fun ?createdAt ->
              fun () ->
                {
                  repositoryArn;
                  registryId;
                  repositoryName;
                  repositoryUri;
                  createdAt
                }
    let to_value x =
      structure_to_value
        [("repositoryArn", (Option.map x.repositoryArn ~f:Arn.to_value));
        ("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("repositoryUri", (Option.map x.repositoryUri ~f:Url.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let repositoryUri =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "repositoryUri") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      let repositoryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "repositoryArn") in
      make ?createdAt ?repositoryUri ?repositoryName ?registryId
        ?repositoryArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createdAt = field_map json__ "createdAt" CreationTimestamp.of_json in
      let repositoryUri = field_map json__ "repositoryUri" Url.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      let repositoryArn = field_map json__ "repositoryArn" Arn.of_json in
      make ?createdAt ?repositoryUri ?repositoryName ?registryId
        ?repositoryArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object representing a repository."]
module Registry =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the registry. If you do not specify a registry, the default public registry is assumed."];
      registryArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the public registry."];
      registryUri: Url.t option
        [@ocaml.doc
          "The URI of a public registry. The URI contains a universal prefix and the registry alias."];
      verified: RegistryVerified.t option
        [@ocaml.doc
          "Indicates whether the account is a verified Amazon Web Services Marketplace vendor. If an account is verified, each public repository receives a verified account badge on the Amazon ECR Public Gallery."];
      aliases: RegistryAliasList.t option
        [@ocaml.doc
          "An array of objects that represents the aliases for a public registry."]}
    let make ?registryId =
      fun ?registryArn ->
        fun ?registryUri ->
          fun ?verified ->
            fun ?aliases ->
              fun () ->
                { registryId; registryArn; registryUri; verified; aliases }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("registryArn", (Option.map x.registryArn ~f:Arn.to_value));
        ("registryUri", (Option.map x.registryUri ~f:Url.to_value));
        ("verified", (Option.map x.verified ~f:RegistryVerified.to_value));
        ("aliases", (Option.map x.aliases ~f:RegistryAliasList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aliases =
        (Option.map ~f:RegistryAliasList.of_xml)
          (Xml.child xml_arg0 "aliases") in
      let verified =
        (Option.map ~f:RegistryVerified.of_xml)
          (Xml.child xml_arg0 "verified") in
      let registryUri =
        (Option.map ~f:Url.of_xml) (Xml.child xml_arg0 "registryUri") in
      let registryArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "registryArn") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?aliases ?verified ?registryUri ?registryArn ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aliases = field_map json__ "aliases" RegistryAliasList.of_json in
      let verified = field_map json__ "verified" RegistryVerified.of_json in
      let registryUri = field_map json__ "registryUri" Url.of_json in
      let registryArn = field_map json__ "registryArn" Arn.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?aliases ?verified ?registryUri ?registryArn ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of a public registry."]
module ImageDetail =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry where this image belongs."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc "The name of the repository where this image belongs."];
      imageDigest: ImageDigest.t option
        [@ocaml.doc "The sha256 digest of the image manifest."];
      imageTags: ImageTagList.t option
        [@ocaml.doc "The list of tags that's associated with this image."];
      imageSizeInBytes: ImageSizeInBytes.t option
        [@ocaml.doc
          "The size, in bytes, of the image in the repository. If the image is a manifest list, this is the max size of all manifests in the list. Beginning with Docker version 1.9, the Docker client compresses image layers before pushing them to a V2 Docker registry. The output of the docker images command shows the uncompressed image size, so it might return a larger image size than the image sizes that are returned by DescribeImages."];
      imagePushedAt: PushTimestamp.t option
        [@ocaml.doc
          "The date and time, expressed in standard JavaScript date format, that the current image was pushed to the repository at."];
      imageManifestMediaType: MediaType.t option
        [@ocaml.doc "The media type of the image manifest."];
      artifactMediaType: MediaType.t option
        [@ocaml.doc "The artifact media type of the image."]}
    let make ?registryId =
      fun ?repositoryName ->
        fun ?imageDigest ->
          fun ?imageTags ->
            fun ?imageSizeInBytes ->
              fun ?imagePushedAt ->
                fun ?imageManifestMediaType ->
                  fun ?artifactMediaType ->
                    fun () ->
                      {
                        registryId;
                        repositoryName;
                        imageDigest;
                        imageTags;
                        imageSizeInBytes;
                        imagePushedAt;
                        imageManifestMediaType;
                        artifactMediaType
                      }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("imageDigest", (Option.map x.imageDigest ~f:ImageDigest.to_value));
        ("imageTags", (Option.map x.imageTags ~f:ImageTagList.to_value));
        ("imageSizeInBytes",
          (Option.map x.imageSizeInBytes ~f:ImageSizeInBytes.to_value));
        ("imagePushedAt",
          (Option.map x.imagePushedAt ~f:PushTimestamp.to_value));
        ("imageManifestMediaType",
          (Option.map x.imageManifestMediaType ~f:MediaType.to_value));
        ("artifactMediaType",
          (Option.map x.artifactMediaType ~f:MediaType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let artifactMediaType =
        (Option.map ~f:MediaType.of_xml)
          (Xml.child xml_arg0 "artifactMediaType") in
      let imageManifestMediaType =
        (Option.map ~f:MediaType.of_xml)
          (Xml.child xml_arg0 "imageManifestMediaType") in
      let imagePushedAt =
        (Option.map ~f:PushTimestamp.of_xml)
          (Xml.child xml_arg0 "imagePushedAt") in
      let imageSizeInBytes =
        (Option.map ~f:ImageSizeInBytes.of_xml)
          (Xml.child xml_arg0 "imageSizeInBytes") in
      let imageTags =
        (Option.map ~f:ImageTagList.of_xml) (Xml.child xml_arg0 "imageTags") in
      let imageDigest =
        (Option.map ~f:ImageDigest.of_xml) (Xml.child xml_arg0 "imageDigest") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?artifactMediaType ?imageManifestMediaType ?imagePushedAt
        ?imageSizeInBytes ?imageTags ?imageDigest ?repositoryName ?registryId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactMediaType =
        field_map json__ "artifactMediaType" MediaType.of_json in
      let imageManifestMediaType =
        field_map json__ "imageManifestMediaType" MediaType.of_json in
      let imagePushedAt =
        field_map json__ "imagePushedAt" PushTimestamp.of_json in
      let imageSizeInBytes =
        field_map json__ "imageSizeInBytes" ImageSizeInBytes.of_json in
      let imageTags = field_map json__ "imageTags" ImageTagList.of_json in
      let imageDigest = field_map json__ "imageDigest" ImageDigest.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?artifactMediaType ?imageManifestMediaType ?imagePushedAt
        ?imageSizeInBytes ?imageTags ?imageDigest ?repositoryName ?registryId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that describes an image that's returned by a DescribeImages operation."]
module ImageTagDetail =
  struct
    type nonrec t =
      {
      imageTag: ImageTag.t option
        [@ocaml.doc "The tag that's associated with the image."];
      createdAt: CreationTimestamp.t option
        [@ocaml.doc
          "The time stamp that indicates when the image tag was created."];
      imageDetail: ReferencedImageDetail.t option
        [@ocaml.doc "An object that describes the details of an image."]}
    let make ?imageTag =
      fun ?createdAt ->
        fun ?imageDetail -> fun () -> { imageTag; createdAt; imageDetail }
    let to_value x =
      structure_to_value
        [("imageTag", (Option.map x.imageTag ~f:ImageTag.to_value));
        ("createdAt", (Option.map x.createdAt ~f:CreationTimestamp.to_value));
        ("imageDetail",
          (Option.map x.imageDetail ~f:ReferencedImageDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageDetail =
        (Option.map ~f:ReferencedImageDetail.of_xml)
          (Xml.child xml_arg0 "imageDetail") in
      let createdAt =
        (Option.map ~f:CreationTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let imageTag =
        (Option.map ~f:ImageTag.of_xml) (Xml.child xml_arg0 "imageTag") in
      make ?imageDetail ?createdAt ?imageTag ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageDetail =
        field_map json__ "imageDetail" ReferencedImageDetail.of_json in
      let createdAt = field_map json__ "createdAt" CreationTimestamp.of_json in
      let imageTag = field_map json__ "imageTag" ImageTag.of_json in
      make ?imageDetail ?createdAt ?imageTag ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents the image tag details for an image."]
module ImageFailure =
  struct
    type nonrec t =
      {
      imageId: ImageIdentifier.t option
        [@ocaml.doc "The image ID that's associated with the failure."];
      failureCode: ImageFailureCode.t option
        [@ocaml.doc "The code that's associated with the failure."];
      failureReason: ImageFailureReason.t option
        [@ocaml.doc "The reason for the failure."]}
    let make ?imageId =
      fun ?failureCode ->
        fun ?failureReason ->
          fun () -> { imageId; failureCode; failureReason }
    let to_value x =
      structure_to_value
        [("imageId", (Option.map x.imageId ~f:ImageIdentifier.to_value));
        ("failureCode",
          (Option.map x.failureCode ~f:ImageFailureCode.to_value));
        ("failureReason",
          (Option.map x.failureReason ~f:ImageFailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureReason =
        (Option.map ~f:ImageFailureReason.of_xml)
          (Xml.child xml_arg0 "failureReason") in
      let failureCode =
        (Option.map ~f:ImageFailureCode.of_xml)
          (Xml.child xml_arg0 "failureCode") in
      let imageId =
        (Option.map ~f:ImageIdentifier.of_xml) (Xml.child xml_arg0 "imageId") in
      make ?failureReason ?failureCode ?imageId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureReason =
        field_map json__ "failureReason" ImageFailureReason.of_json in
      let failureCode =
        field_map json__ "failureCode" ImageFailureCode.of_json in
      let imageId = field_map json__ "imageId" ImageIdentifier.of_json in
      make ?failureReason ?failureCode ?imageId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object that represents an Amazon ECR image failure."]
module LayerFailure =
  struct
    type nonrec t =
      {
      layerDigest: BatchedOperationLayerDigest.t option
        [@ocaml.doc "The layer digest that's associated with the failure."];
      failureCode: LayerFailureCode.t option
        [@ocaml.doc "The failure code that's associated with the failure."];
      failureReason: LayerFailureReason.t option
        [@ocaml.doc "The reason for the failure."]}
    let make ?layerDigest =
      fun ?failureCode ->
        fun ?failureReason ->
          fun () -> { layerDigest; failureCode; failureReason }
    let to_value x =
      structure_to_value
        [("layerDigest",
           (Option.map x.layerDigest ~f:BatchedOperationLayerDigest.to_value));
        ("failureCode",
          (Option.map x.failureCode ~f:LayerFailureCode.to_value));
        ("failureReason",
          (Option.map x.failureReason ~f:LayerFailureReason.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureReason =
        (Option.map ~f:LayerFailureReason.of_xml)
          (Xml.child xml_arg0 "failureReason") in
      let failureCode =
        (Option.map ~f:LayerFailureCode.of_xml)
          (Xml.child xml_arg0 "failureCode") in
      let layerDigest =
        (Option.map ~f:BatchedOperationLayerDigest.of_xml)
          (Xml.child xml_arg0 "layerDigest") in
      make ?failureReason ?failureCode ?layerDigest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureReason =
        field_map json__ "failureReason" LayerFailureReason.of_json in
      let failureCode =
        field_map json__ "failureCode" LayerFailureCode.of_json in
      let layerDigest =
        field_map json__ "layerDigest" BatchedOperationLayerDigest.of_json in
      make ?failureReason ?failureCode ?layerDigest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents an Amazon ECR image layer failure."]
module Layer =
  struct
    type nonrec t =
      {
      layerDigest: LayerDigest.t option
        [@ocaml.doc "The sha256 digest of the image layer."];
      layerAvailability: LayerAvailability.t option
        [@ocaml.doc "The availability status of the image layer."];
      layerSize: LayerSizeInBytes.t option
        [@ocaml.doc "The size, in bytes, of the image layer."];
      mediaType: MediaType.t option
        [@ocaml.doc
          "The media type of the layer, such as application/vnd.docker.image.rootfs.diff.tar.gzip or application/vnd.oci.image.layer.v1.tar+gzip."]}
    let make ?layerDigest =
      fun ?layerAvailability ->
        fun ?layerSize ->
          fun ?mediaType ->
            fun () ->
              { layerDigest; layerAvailability; layerSize; mediaType }
    let to_value x =
      structure_to_value
        [("layerDigest", (Option.map x.layerDigest ~f:LayerDigest.to_value));
        ("layerAvailability",
          (Option.map x.layerAvailability ~f:LayerAvailability.to_value));
        ("layerSize", (Option.map x.layerSize ~f:LayerSizeInBytes.to_value));
        ("mediaType", (Option.map x.mediaType ~f:MediaType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mediaType =
        (Option.map ~f:MediaType.of_xml) (Xml.child xml_arg0 "mediaType") in
      let layerSize =
        (Option.map ~f:LayerSizeInBytes.of_xml)
          (Xml.child xml_arg0 "layerSize") in
      let layerAvailability =
        (Option.map ~f:LayerAvailability.of_xml)
          (Xml.child xml_arg0 "layerAvailability") in
      let layerDigest =
        (Option.map ~f:LayerDigest.of_xml) (Xml.child xml_arg0 "layerDigest") in
      make ?mediaType ?layerSize ?layerAvailability ?layerDigest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mediaType = field_map json__ "mediaType" MediaType.of_json in
      let layerSize = field_map json__ "layerSize" LayerSizeInBytes.of_json in
      let layerAvailability =
        field_map json__ "layerAvailability" LayerAvailability.of_json in
      let layerDigest = field_map json__ "layerDigest" LayerDigest.of_json in
      make ?mediaType ?layerSize ?layerAvailability ?layerDigest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object that represents an Amazon ECR image layer."]
module InvalidLayerPartException =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the layer part."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc "The name of the repository."];
      uploadId: UploadId.t option
        [@ocaml.doc "The upload ID that's associated with the layer part."];
      lastValidByteReceived: PartSize.t option
        [@ocaml.doc "The position of the last byte of the layer part."];
      message: ExceptionMessage.t option }
    let make ?registryId =
      fun ?repositoryName ->
        fun ?uploadId ->
          fun ?lastValidByteReceived ->
            fun ?message ->
              fun () ->
                {
                  registryId;
                  repositoryName;
                  uploadId;
                  lastValidByteReceived;
                  message
                }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("uploadId", (Option.map x.uploadId ~f:UploadId.to_value));
        ("lastValidByteReceived",
          (Option.map x.lastValidByteReceived ~f:PartSize.to_value));
        ("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      let lastValidByteReceived =
        (Option.map ~f:PartSize.of_xml)
          (Xml.child xml_arg0 "lastValidByteReceived") in
      let uploadId =
        (Option.map ~f:UploadId.of_xml) (Xml.child xml_arg0 "uploadId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?message ?lastValidByteReceived ?uploadId ?repositoryName
        ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      let lastValidByteReceived =
        field_map json__ "lastValidByteReceived" PartSize.of_json in
      let uploadId = field_map json__ "uploadId" UploadId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?message ?lastValidByteReceived ?uploadId ?repositoryName
        ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The layer part size isn't valid, or the first byte specified isn't consecutive to the last byte of a previous layer part upload."]
module InvalidParameterException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified parameter is invalid. Review the available parameters for the API request."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The operation didn't succeed because it would have exceeded a service limit for your account. For more information, see Amazon ECR Service Quotas in the Amazon Elastic Container Registry User Guide."]
module RegistryNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The registry doesn't exist."]
module RepositoryNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified repository can't be found. Check the spelling of the specified repository and ensure that you're performing operations on the correct registry."]
module ServerException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "These errors are usually caused by a server-side issue."]
module UnsupportedCommandException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The action isn't supported in this Region."]
module UploadNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The upload can't be found, or the specified upload ID isn't valid for this repository."]
module LayerPartBlob =
  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 InvalidTagParameterException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An invalid parameter has been specified. Tag keys can have a maximum character length of 128 characters, and tag values can have a maximum length of 256 characters."]
module TooManyTagsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of tags on the repository is over the limit. The maximum number of tags that can be applied to a repository is 50."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagList =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"TagList" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryPolicyText =
  struct
    type nonrec t = string
    let context_ = "RepositoryPolicyText"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10240) >>=
             (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:"RepositoryPolicyText" j
    let to_json = simple_to_json to_value
  end
module ForceFlag =
  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 RepositoryCatalogData =
  struct
    type nonrec t =
      {
      description: RepositoryDescription.t option
        [@ocaml.doc "The short description of the repository."];
      architectures: ArchitectureList.t option
        [@ocaml.doc
          "The architecture tags that are associated with the repository. Only supported operating system tags appear publicly in the Amazon ECR Public Gallery. For more information, see RepositoryCatalogDataInput."];
      operatingSystems: OperatingSystemList.t option
        [@ocaml.doc
          "The operating system tags that are associated with the repository. Only supported operating system tags appear publicly in the Amazon ECR Public Gallery. For more information, see RepositoryCatalogDataInput."];
      logoUrl: ResourceUrl.t option
        [@ocaml.doc
          "The URL that contains the logo that's associated with the repository."];
      aboutText: AboutText.t option
        [@ocaml.doc
          "The longform description of the contents of the repository. This text appears in the repository details on the Amazon ECR Public Gallery."];
      usageText: UsageText.t option
        [@ocaml.doc
          "The longform usage details of the contents of the repository. The usage text provides context for users of the repository."];
      marketplaceCertified: MarketplaceCertified.t option
        [@ocaml.doc
          "Indicates whether the repository is certified by Amazon Web Services Marketplace."]}
    let make ?description =
      fun ?architectures ->
        fun ?operatingSystems ->
          fun ?logoUrl ->
            fun ?aboutText ->
              fun ?usageText ->
                fun ?marketplaceCertified ->
                  fun () ->
                    {
                      description;
                      architectures;
                      operatingSystems;
                      logoUrl;
                      aboutText;
                      usageText;
                      marketplaceCertified
                    }
    let to_value x =
      structure_to_value
        [("description",
           (Option.map x.description ~f:RepositoryDescription.to_value));
        ("architectures",
          (Option.map x.architectures ~f:ArchitectureList.to_value));
        ("operatingSystems",
          (Option.map x.operatingSystems ~f:OperatingSystemList.to_value));
        ("logoUrl", (Option.map x.logoUrl ~f:ResourceUrl.to_value));
        ("aboutText", (Option.map x.aboutText ~f:AboutText.to_value));
        ("usageText", (Option.map x.usageText ~f:UsageText.to_value));
        ("marketplaceCertified",
          (Option.map x.marketplaceCertified ~f:MarketplaceCertified.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marketplaceCertified =
        (Option.map ~f:MarketplaceCertified.of_xml)
          (Xml.child xml_arg0 "marketplaceCertified") in
      let usageText =
        (Option.map ~f:UsageText.of_xml) (Xml.child xml_arg0 "usageText") in
      let aboutText =
        (Option.map ~f:AboutText.of_xml) (Xml.child xml_arg0 "aboutText") in
      let logoUrl =
        (Option.map ~f:ResourceUrl.of_xml) (Xml.child xml_arg0 "logoUrl") in
      let operatingSystems =
        (Option.map ~f:OperatingSystemList.of_xml)
          (Xml.child xml_arg0 "operatingSystems") in
      let architectures =
        (Option.map ~f:ArchitectureList.of_xml)
          (Xml.child xml_arg0 "architectures") in
      let description =
        (Option.map ~f:RepositoryDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      make ?marketplaceCertified ?usageText ?aboutText ?logoUrl
        ?operatingSystems ?architectures ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marketplaceCertified =
        field_map json__ "marketplaceCertified" MarketplaceCertified.of_json in
      let usageText = field_map json__ "usageText" UsageText.of_json in
      let aboutText = field_map json__ "aboutText" AboutText.of_json in
      let logoUrl = field_map json__ "logoUrl" ResourceUrl.of_json in
      let operatingSystems =
        field_map json__ "operatingSystems" OperatingSystemList.of_json in
      let architectures =
        field_map json__ "architectures" ArchitectureList.of_json in
      let description =
        field_map json__ "description" RepositoryDescription.of_json in
      make ?marketplaceCertified ?usageText ?aboutText ?logoUrl
        ?operatingSystems ?architectures ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The catalog data for a repository. This data is publicly visible in the Amazon ECR Public Gallery."]
module RepositoryCatalogDataInput =
  struct
    type nonrec t =
      {
      description: RepositoryDescription.t option
        [@ocaml.doc
          "A short description of the contents of the repository. This text appears in both the image details and also when searching for repositories on the Amazon ECR Public Gallery."];
      architectures: ArchitectureList.t option
        [@ocaml.doc
          "The system architecture that the images in the repository are compatible with. On the Amazon ECR Public Gallery, the following supported architectures appear as badges on the repository and are used as search filters. If an unsupported tag is added to your repository catalog data, it's associated with the repository and can be retrieved using the API but isn't discoverable in the Amazon ECR Public Gallery. ARM ARM 64 x86 x86-64"];
      operatingSystems: OperatingSystemList.t option
        [@ocaml.doc
          "The operating systems that the images in the repository are compatible with. On the Amazon ECR Public Gallery, the following supported operating systems appear as badges on the repository and are used as search filters. If an unsupported tag is added to your repository catalog data, it's associated with the repository and can be retrieved using the API but isn't discoverable in the Amazon ECR Public Gallery. Linux Windows"];
      logoImageBlob: LogoImageBlob.t option
        [@ocaml.doc
          "The base64-encoded repository logo payload. The repository logo is only publicly visible in the Amazon ECR Public Gallery for verified accounts."];
      aboutText: AboutText.t option
        [@ocaml.doc
          "A detailed description of the contents of the repository. It's publicly visible in the Amazon ECR Public Gallery. The text must be in markdown format."];
      usageText: UsageText.t option
        [@ocaml.doc
          "Detailed information about how to use the contents of the repository. It's publicly visible in the Amazon ECR Public Gallery. The usage text provides context, support information, and additional usage details for users of the repository. The text must be in markdown format."]}
    let make ?description =
      fun ?architectures ->
        fun ?operatingSystems ->
          fun ?logoImageBlob ->
            fun ?aboutText ->
              fun ?usageText ->
                fun () ->
                  {
                    description;
                    architectures;
                    operatingSystems;
                    logoImageBlob;
                    aboutText;
                    usageText
                  }
    let to_value x =
      structure_to_value
        [("description",
           (Option.map x.description ~f:RepositoryDescription.to_value));
        ("architectures",
          (Option.map x.architectures ~f:ArchitectureList.to_value));
        ("operatingSystems",
          (Option.map x.operatingSystems ~f:OperatingSystemList.to_value));
        ("logoImageBlob",
          (Option.map x.logoImageBlob ~f:LogoImageBlob.to_value));
        ("aboutText", (Option.map x.aboutText ~f:AboutText.to_value));
        ("usageText", (Option.map x.usageText ~f:UsageText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let usageText =
        (Option.map ~f:UsageText.of_xml) (Xml.child xml_arg0 "usageText") in
      let aboutText =
        (Option.map ~f:AboutText.of_xml) (Xml.child xml_arg0 "aboutText") in
      let logoImageBlob =
        (Option.map ~f:LogoImageBlob.of_xml)
          (Xml.child xml_arg0 "logoImageBlob") in
      let operatingSystems =
        (Option.map ~f:OperatingSystemList.of_xml)
          (Xml.child xml_arg0 "operatingSystems") in
      let architectures =
        (Option.map ~f:ArchitectureList.of_xml)
          (Xml.child xml_arg0 "architectures") in
      let description =
        (Option.map ~f:RepositoryDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      make ?usageText ?aboutText ?logoImageBlob ?operatingSystems
        ?architectures ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let usageText = field_map json__ "usageText" UsageText.of_json in
      let aboutText = field_map json__ "aboutText" AboutText.of_json in
      let logoImageBlob =
        field_map json__ "logoImageBlob" LogoImageBlob.of_json in
      let operatingSystems =
        field_map json__ "operatingSystems" OperatingSystemList.of_json in
      let architectures =
        field_map json__ "architectures" ArchitectureList.of_json in
      let description =
        field_map json__ "description" RepositoryDescription.of_json in
      make ?usageText ?aboutText ?logoImageBlob ?operatingSystems
        ?architectures ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains the catalog data for a repository. This data is publicly visible in the Amazon ECR Public Gallery."]
module RegistryCatalogData =
  struct
    type nonrec t =
      {
      displayName: RegistryDisplayName.t option
        [@ocaml.doc
          "The display name for a public registry. This appears on the Amazon ECR Public Gallery. Only accounts that have the verified account badge can have a registry display name."]}
    let make ?displayName = fun () -> { displayName }
    let to_value x =
      structure_to_value
        [("displayName",
           (Option.map x.displayName ~f:RegistryDisplayName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:RegistryDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      make ?displayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "displayName" RegistryDisplayName.of_json in
      make ?displayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata for a public registry."]
module Image =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the registry containing the image."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository that's associated with the image."];
      imageId: ImageIdentifier.t option
        [@ocaml.doc
          "An object that contains the image tag and image digest associated with an image."];
      imageManifest: ImageManifest.t option
        [@ocaml.doc "The image manifest that's associated with the image."];
      imageManifestMediaType: MediaType.t option
        [@ocaml.doc "The manifest media type of the image."]}
    let make ?registryId =
      fun ?repositoryName ->
        fun ?imageId ->
          fun ?imageManifest ->
            fun ?imageManifestMediaType ->
              fun () ->
                {
                  registryId;
                  repositoryName;
                  imageId;
                  imageManifest;
                  imageManifestMediaType
                }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("imageId", (Option.map x.imageId ~f:ImageIdentifier.to_value));
        ("imageManifest",
          (Option.map x.imageManifest ~f:ImageManifest.to_value));
        ("imageManifestMediaType",
          (Option.map x.imageManifestMediaType ~f:MediaType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageManifestMediaType =
        (Option.map ~f:MediaType.of_xml)
          (Xml.child xml_arg0 "imageManifestMediaType") in
      let imageManifest =
        (Option.map ~f:ImageManifest.of_xml)
          (Xml.child xml_arg0 "imageManifest") in
      let imageId =
        (Option.map ~f:ImageIdentifier.of_xml) (Xml.child xml_arg0 "imageId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ?imageManifestMediaType ?imageManifest ?imageId ?repositoryName
        ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageManifestMediaType =
        field_map json__ "imageManifestMediaType" MediaType.of_json in
      let imageManifest =
        field_map json__ "imageManifest" ImageManifest.of_json in
      let imageId = field_map json__ "imageId" ImageIdentifier.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ?imageManifestMediaType ?imageManifest ?imageId ?repositoryName
        ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An object that represents an Amazon ECR image."]
module ImageAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified image has already been pushed, and there were no changes to the manifest or image tag after the last push."]
module ImageDigestDoesNotMatchException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified image digest doesn't match the digest that Amazon ECR calculated for the image."]
module ImageTagAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified image is tagged with a tag that already exists. The repository is configured for tag immutability."]
module LayersNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified layers can't be found, or the specified layer isn't valid for this repository."]
module ReferencedImagesNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The manifest list is referencing an image that doesn't exist."]
module RepositoryPolicyNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified repository and registry combination doesn't have an associated repository policy."]
module RepositoryCatalogDataNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The repository catalog data doesn't exist."]
module AuthorizationData =
  struct
    type nonrec t =
      {
      authorizationToken: Base64.t option
        [@ocaml.doc
          "A base64-encoded string that contains authorization data for a public Amazon ECR registry. When the string is decoded, it's presented in the format user:password for public registry authentication using docker login."];
      expiresAt: ExpirationTimestamp.t option
        [@ocaml.doc
          "The Unix time in seconds and milliseconds when the authorization token expires. Authorization tokens are valid for 12 hours."]}
    let make ?authorizationToken =
      fun ?expiresAt -> fun () -> { authorizationToken; expiresAt }
    let to_value x =
      structure_to_value
        [("authorizationToken",
           (Option.map x.authorizationToken ~f:Base64.to_value));
        ("expiresAt",
          (Option.map x.expiresAt ~f:ExpirationTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiresAt =
        (Option.map ~f:ExpirationTimestamp.of_xml)
          (Xml.child xml_arg0 "expiresAt") in
      let authorizationToken =
        (Option.map ~f:Base64.of_xml)
          (Xml.child xml_arg0 "authorizationToken") in
      make ?expiresAt ?authorizationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiresAt =
        field_map json__ "expiresAt" ExpirationTimestamp.of_json in
      let authorizationToken =
        field_map json__ "authorizationToken" Base64.of_json in
      make ?expiresAt ?authorizationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An authorization token data object that corresponds to a public registry."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module RepositoryList =
  struct
    type nonrec t = Repository.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:Repository.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:Repository.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryList" ~of_json:Repository.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module RepositoryNameList =
  struct
    type nonrec t = RepositoryName.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:RepositoryName.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:RepositoryName.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryNameList" ~of_json:RepositoryName.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module RegistryList =
  struct
    type nonrec t = Registry.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:Registry.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:Registry.of_xml)
    let of_json j =
      list_of_json ~kind:"RegistryList" ~of_json:Registry.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageDetailList =
  struct
    type nonrec t = ImageDetail.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:ImageDetail.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:ImageDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageDetailList" ~of_json:ImageDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageNotFoundException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The image requested doesn't exist in the specified repository."]
module ImageIdentifierList =
  struct
    type nonrec t = ImageIdentifier.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:ImageIdentifier.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:ImageIdentifier.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageIdentifierList"
        ~of_json:ImageIdentifier.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageTagDetailList =
  struct
    type nonrec t = ImageTagDetail.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:ImageTagDetail.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:ImageTagDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageTagDetailList" ~of_json:ImageTagDetail.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module RepositoryNotEmptyException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified repository contains images. To delete a repository that contains images, you must force the deletion with the force parameter."]
module RepositoryAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified repository already exists in the specified registry."]
module EmptyUploadException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified layer upload doesn't contain any layer parts."]
module InvalidLayerException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The layer digest calculation performed by Amazon ECR when the image layer doesn't match the digest specified."]
module LayerAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The image layer already exists in the associated repository."]
module LayerPartTooSmallException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Layer parts must be at least 5 MiB in size."]
module LayerDigestList =
  struct
    type nonrec t = LayerDigest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:LayerDigest.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:LayerDigest.of_xml)
    let of_json j =
      list_of_json ~kind:"LayerDigestList" ~of_json:LayerDigest.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageFailureList =
  struct
    type nonrec t = ImageFailure.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:ImageFailure.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:ImageFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageFailureList" ~of_json:ImageFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module LayerFailureList =
  struct
    type nonrec t = LayerFailure.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:LayerFailure.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:LayerFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"LayerFailureList" ~of_json:LayerFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module LayerList =
  struct
    type nonrec t = Layer.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:Layer.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:Layer.of_xml)
    let of_json j = list_of_json ~kind:"LayerList" ~of_json:Layer.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchedOperationLayerDigestList =
  struct
    type nonrec t = BatchedOperationLayerDigest.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (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:BatchedOperationLayerDigest.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:BatchedOperationLayerDigest.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchedOperationLayerDigestList"
        ~of_json:BatchedOperationLayerDigest.of_json j
    let to_json v = composed_to_json to_value v
  end
module UploadLayerPartResponse =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc "The registry ID that's associated with the request."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The repository name that's associated with the request."];
      uploadId: UploadId.t option
        [@ocaml.doc "The upload ID that's associated with the request."];
      lastByteReceived: PartSize.t option
        [@ocaml.doc
          "The integer value of the last byte that's received in the request."]}
    type nonrec error =
      [ `InvalidLayerPartException of InvalidLayerPartException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RegistryNotFoundException of RegistryNotFoundException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `UploadNotFoundException of UploadNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryId =
      fun ?repositoryName ->
        fun ?uploadId ->
          fun ?lastByteReceived ->
            fun () ->
              { registryId; repositoryName; uploadId; lastByteReceived }
    let error_of_json name json =
      match name with
      | "InvalidLayerPartException" ->
          `InvalidLayerPartException (InvalidLayerPartException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | "UploadNotFoundException" ->
          `UploadNotFoundException (UploadNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidLayerPartException" ->
          `InvalidLayerPartException (InvalidLayerPartException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | "UploadNotFoundException" ->
          `UploadNotFoundException (UploadNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidLayerPartException e ->
          `Assoc
            [("error", (`String "InvalidLayerPartException"));
            ("details", (InvalidLayerPartException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RegistryNotFoundException e ->
          `Assoc
            [("error", (`String "RegistryNotFoundException"));
            ("details", (RegistryNotFoundException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.to_json e))]
      | `UploadNotFoundException e ->
          `Assoc
            [("error", (`String "UploadNotFoundException"));
            ("details", (UploadNotFoundException.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
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("uploadId", (Option.map x.uploadId ~f:UploadId.to_value));
        ("lastByteReceived",
          (Option.map x.lastByteReceived ~f:PartSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastByteReceived =
        (Option.map ~f:PartSize.of_xml)
          (Xml.child xml_arg0 "lastByteReceived") in
      let uploadId =
        (Option.map ~f:UploadId.of_xml) (Xml.child xml_arg0 "uploadId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?lastByteReceived ?uploadId ?repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastByteReceived =
        field_map json__ "lastByteReceived" PartSize.of_json in
      let uploadId = field_map json__ "uploadId" UploadId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?lastByteReceived ?uploadId ?repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Uploads an image layer part to Amazon ECR. When an image is pushed, each new image layer is uploaded in parts. The maximum size of each image layer part can be 20971520 bytes (about 20MB). The UploadLayerPart API is called once for each new image layer part. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module UploadLayerPartRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID, or registry alias, that's associated with the registry that you're uploading layer parts to. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that you're uploading layer parts to."];
      uploadId: UploadId.t
        [@ocaml.doc
          "The upload ID from a previous InitiateLayerUpload operation to associate with the layer part upload."];
      partFirstByte: PartSize.t
        [@ocaml.doc
          "The position of the first byte of the layer part witin the overall image layer."];
      partLastByte: PartSize.t
        [@ocaml.doc
          "The position of the last byte of the layer part within the overall image layer."];
      layerPartBlob: LayerPartBlob.t
        [@ocaml.doc "The base64-encoded layer part payload."]}
    let context_ = "UploadLayerPartRequest"
    let make ?registryId =
      fun ~repositoryName ->
        fun ~uploadId ->
          fun ~partFirstByte ->
            fun ~partLastByte ->
              fun ~layerPartBlob ->
                fun () ->
                  {
                    registryId;
                    repositoryName;
                    uploadId;
                    partFirstByte;
                    partLastByte;
                    layerPartBlob
                  }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("uploadId", (Some (UploadId.to_value x.uploadId)));
        ("partFirstByte", (Some (PartSize.to_value x.partFirstByte)));
        ("partLastByte", (Some (PartSize.to_value x.partLastByte)));
        ("layerPartBlob", (Some (LayerPartBlob.to_value x.layerPartBlob)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layerPartBlob =
        LayerPartBlob.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "layerPartBlob") in
      let partLastByte =
        PartSize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "partLastByte") in
      let partFirstByte =
        PartSize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "partFirstByte") in
      let uploadId =
        UploadId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uploadId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ~layerPartBlob ~partLastByte ~partFirstByte ~uploadId
        ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layerPartBlob =
        field_map_exn json__ "layerPartBlob" LayerPartBlob.of_json in
      let partLastByte = field_map_exn json__ "partLastByte" PartSize.of_json in
      let partFirstByte =
        field_map_exn json__ "partFirstByte" PartSize.of_json in
      let uploadId = field_map_exn json__ "uploadId" UploadId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ~layerPartBlob ~partLastByte ~partFirstByte ~uploadId
        ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Uploads an image layer part to Amazon ECR. When an image is pushed, each new image layer is uploaded in parts. The maximum size of each image layer part can be 20971520 bytes (about 20MB). The UploadLayerPart API is called once for each new image layer part. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidTagParameterException of InvalidTagParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidTagParameterException" ->
          `InvalidTagParameterException
            (InvalidTagParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidTagParameterException" ->
          `InvalidTagParameterException
            (InvalidTagParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidTagParameterException e ->
          `Assoc
            [("error", (`String "InvalidTagParameterException"));
            ("details", (InvalidTagParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes specified tags from a resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to delete tags from. Currently, the supported resource is an Amazon ECR Public repository."];
      tagKeys: TagKeyList.t
        [@ocaml.doc "The keys of the tags to be removed."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes specified tags from a resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidTagParameterException of InvalidTagParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidTagParameterException" ->
          `InvalidTagParameterException
            (InvalidTagParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidTagParameterException" ->
          `InvalidTagParameterException
            (InvalidTagParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidTagParameterException e ->
          `Assoc
            [("error", (`String "InvalidTagParameterException"));
            ("details", (InvalidTagParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified tags to a resource with the specified resourceArn. If existing tags on a resource aren't specified in the request parameters, they aren't changed. When a resource is deleted, the tags associated with that resource are also deleted."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to add tags to. Currently, the supported resource is an Amazon ECR Public repository."];
      tags: TagList.t
        [@ocaml.doc
          "The tags to add to the resource. A tag is an array of key-value pairs. Tag keys can have a maximum character length of 128 characters, and tag values can have a maximum length of 256 characters."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)));
        ("tags", (Some (TagList.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates the specified tags to a resource with the specified resourceArn. If existing tags on a resource aren't specified in the request parameters, they aren't changed. When a resource is deleted, the tags associated with that resource are also deleted."]
module SetRepositoryPolicyResponse =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc "The registry ID that's associated with the request."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The repository name that's associated with the request."];
      policyText: RepositoryPolicyText.t option
        [@ocaml.doc
          "The JSON repository policy text that's applied to the repository."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryId =
      fun ?repositoryName ->
        fun ?policyText ->
          fun () -> { registryId; repositoryName; policyText }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("policyText",
          (Option.map x.policyText ~f:RepositoryPolicyText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyText =
        (Option.map ~f:RepositoryPolicyText.of_xml)
          (Xml.child xml_arg0 "policyText") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?policyText ?repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyText =
        field_map json__ "policyText" RepositoryPolicyText.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?policyText ?repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies a repository policy to the specified public repository to control access permissions. For more information, see Amazon ECR Repository Policies in the Amazon Elastic Container Registry User Guide."]
module SetRepositoryPolicyRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the registry that contains the repository. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository to receive the policy."];
      policyText: RepositoryPolicyText.t
        [@ocaml.doc
          "The JSON repository policy text to apply to the repository. For more information, see Amazon ECR Repository Policies in the Amazon Elastic Container Registry User Guide."];
      force: ForceFlag.t option
        [@ocaml.doc
          "If the policy that you want to set on a repository policy would prevent you from setting another policy in the future, you must force the SetRepositoryPolicy operation. This prevents accidental repository lockouts."]}
    let context_ = "SetRepositoryPolicyRequest"
    let make ?registryId =
      fun ?force ->
        fun ~repositoryName ->
          fun ~policyText ->
            fun () -> { registryId; force; repositoryName; policyText }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("policyText", (Some (RepositoryPolicyText.to_value x.policyText)));
        ("force", (Option.map x.force ~f:ForceFlag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force =
        (Option.map ~f:ForceFlag.of_xml) (Xml.child xml_arg0 "force") in
      let policyText =
        RepositoryPolicyText.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "policyText") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?force ~policyText ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "force" ForceFlag.of_json in
      let policyText =
        field_map_exn json__ "policyText" RepositoryPolicyText.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?force ~policyText ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies a repository policy to the specified public repository to control access permissions. For more information, see Amazon ECR Repository Policies in the Amazon Elastic Container Registry User Guide."]
module PutRepositoryCatalogDataResponse =
  struct
    type nonrec t =
      {
      catalogData: RepositoryCatalogData.t option
        [@ocaml.doc "The catalog data for the repository."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalogData = fun () -> { catalogData }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("catalogData",
           (Option.map x.catalogData ~f:RepositoryCatalogData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let catalogData =
        (Option.map ~f:RepositoryCatalogData.of_xml)
          (Xml.child xml_arg0 "catalogData") in
      make ?catalogData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let catalogData =
        field_map json__ "catalogData" RepositoryCatalogData.of_json in
      make ?catalogData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the catalog data for a repository in a public registry."]
module PutRepositoryCatalogDataRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry the repository is in. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository to create or update the catalog data for."];
      catalogData: RepositoryCatalogDataInput.t
        [@ocaml.doc
          "An object containing the catalog data for a repository. This data is publicly visible in the Amazon ECR Public Gallery."]}
    let context_ = "PutRepositoryCatalogDataRequest"
    let make ?registryId =
      fun ~repositoryName ->
        fun ~catalogData ->
          fun () -> { registryId; repositoryName; catalogData }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("catalogData",
          (Some (RepositoryCatalogDataInput.to_value x.catalogData)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let catalogData =
        RepositoryCatalogDataInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "catalogData") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ~catalogData ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let catalogData =
        field_map_exn json__ "catalogData" RepositoryCatalogDataInput.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ~catalogData ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the catalog data for a repository in a public registry."]
module PutRegistryCatalogDataResponse =
  struct
    type nonrec t =
      {
      registryCatalogData: RegistryCatalogData.t option
        [@ocaml.doc "The catalog data for the public registry."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryCatalogData = fun () -> { registryCatalogData }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("registryCatalogData",
           (Option.map x.registryCatalogData ~f:RegistryCatalogData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryCatalogData =
        (Option.map ~f:RegistryCatalogData.of_xml)
          (Xml.child xml_arg0 "registryCatalogData") in
      make ?registryCatalogData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryCatalogData =
        field_map json__ "registryCatalogData" RegistryCatalogData.of_json in
      make ?registryCatalogData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create or update the catalog data for a public registry."]
module PutRegistryCatalogDataRequest =
  struct
    type nonrec t =
      {
      displayName: RegistryDisplayName.t option
        [@ocaml.doc
          "The display name for a public registry. The display name is shown as the repository author in the Amazon ECR Public Gallery. The registry display name is only publicly visible in the Amazon ECR Public Gallery for verified accounts."]}
    let make ?displayName = fun () -> { displayName }
    let to_value x =
      structure_to_value
        [("displayName",
           (Option.map x.displayName ~f:RegistryDisplayName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let displayName =
        (Option.map ~f:RegistryDisplayName.of_xml)
          (Xml.child xml_arg0 "displayName") in
      make ?displayName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let displayName =
        field_map json__ "displayName" RegistryDisplayName.of_json in
      make ?displayName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Create or update the catalog data for a public registry."]
module PutImageResponse =
  struct
    type nonrec t =
      {
      image: Image.t option [@ocaml.doc "Details of the image uploaded."]}
    type nonrec error =
      [ `ImageAlreadyExistsException of ImageAlreadyExistsException.t 
      | `ImageDigestDoesNotMatchException of
          ImageDigestDoesNotMatchException.t 
      | `ImageTagAlreadyExistsException of ImageTagAlreadyExistsException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LayersNotFoundException of LayersNotFoundException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ReferencedImagesNotFoundException of
          ReferencedImagesNotFoundException.t 
      | `RegistryNotFoundException of RegistryNotFoundException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?image = fun () -> { image }
    let error_of_json name json =
      match name with
      | "ImageAlreadyExistsException" ->
          `ImageAlreadyExistsException
            (ImageAlreadyExistsException.of_json json)
      | "ImageDigestDoesNotMatchException" ->
          `ImageDigestDoesNotMatchException
            (ImageDigestDoesNotMatchException.of_json json)
      | "ImageTagAlreadyExistsException" ->
          `ImageTagAlreadyExistsException
            (ImageTagAlreadyExistsException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LayersNotFoundException" ->
          `LayersNotFoundException (LayersNotFoundException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ReferencedImagesNotFoundException" ->
          `ReferencedImagesNotFoundException
            (ReferencedImagesNotFoundException.of_json json)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ImageAlreadyExistsException" ->
          `ImageAlreadyExistsException
            (ImageAlreadyExistsException.of_xml xml)
      | "ImageDigestDoesNotMatchException" ->
          `ImageDigestDoesNotMatchException
            (ImageDigestDoesNotMatchException.of_xml xml)
      | "ImageTagAlreadyExistsException" ->
          `ImageTagAlreadyExistsException
            (ImageTagAlreadyExistsException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LayersNotFoundException" ->
          `LayersNotFoundException (LayersNotFoundException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ReferencedImagesNotFoundException" ->
          `ReferencedImagesNotFoundException
            (ReferencedImagesNotFoundException.of_xml xml)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ImageAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ImageAlreadyExistsException"));
            ("details", (ImageAlreadyExistsException.to_json e))]
      | `ImageDigestDoesNotMatchException e ->
          `Assoc
            [("error", (`String "ImageDigestDoesNotMatchException"));
            ("details", (ImageDigestDoesNotMatchException.to_json e))]
      | `ImageTagAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ImageTagAlreadyExistsException"));
            ("details", (ImageTagAlreadyExistsException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LayersNotFoundException e ->
          `Assoc
            [("error", (`String "LayersNotFoundException"));
            ("details", (LayersNotFoundException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ReferencedImagesNotFoundException e ->
          `Assoc
            [("error", (`String "ReferencedImagesNotFoundException"));
            ("details", (ReferencedImagesNotFoundException.to_json e))]
      | `RegistryNotFoundException e ->
          `Assoc
            [("error", (`String "RegistryNotFoundException"));
            ("details", (RegistryNotFoundException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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 [("image", (Option.map x.image ~f:Image.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let image = (Option.map ~f:Image.of_xml) (Xml.child xml_arg0 "image") in
      make ?image ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let image = field_map json__ "image" Image.of_json in make ?image ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the image manifest and tags that are associated with an image. When an image is pushed and all new image layers have been uploaded, the PutImage API is called once to create or update the image manifest and the tags that are associated with the image. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module PutImageRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID, or registry alias, that's associated with the public registry that contains the repository where the image is put. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository where the image is put."];
      imageManifest: ImageManifest.t
        [@ocaml.doc
          "The image manifest that corresponds to the image to be uploaded."];
      imageManifestMediaType: MediaType.t option
        [@ocaml.doc
          "The media type of the image manifest. If you push an image manifest that doesn't contain the mediaType field, you must specify the imageManifestMediaType in the request."];
      imageTag: ImageTag.t option
        [@ocaml.doc
          "The tag to associate with the image. This parameter is required for images that use the Docker Image Manifest V2 Schema 2 or Open Container Initiative (OCI) formats."];
      imageDigest: ImageDigest.t option
        [@ocaml.doc
          "The image digest of the image manifest that corresponds to the image."]}
    let context_ = "PutImageRequest"
    let make ?registryId =
      fun ?imageManifestMediaType ->
        fun ?imageTag ->
          fun ?imageDigest ->
            fun ~repositoryName ->
              fun ~imageManifest ->
                fun () ->
                  {
                    registryId;
                    imageManifestMediaType;
                    imageTag;
                    imageDigest;
                    repositoryName;
                    imageManifest
                  }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("imageManifest", (Some (ImageManifest.to_value x.imageManifest)));
        ("imageManifestMediaType",
          (Option.map x.imageManifestMediaType ~f:MediaType.to_value));
        ("imageTag", (Option.map x.imageTag ~f:ImageTag.to_value));
        ("imageDigest", (Option.map x.imageDigest ~f:ImageDigest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageDigest =
        (Option.map ~f:ImageDigest.of_xml) (Xml.child xml_arg0 "imageDigest") in
      let imageTag =
        (Option.map ~f:ImageTag.of_xml) (Xml.child xml_arg0 "imageTag") in
      let imageManifestMediaType =
        (Option.map ~f:MediaType.of_xml)
          (Xml.child xml_arg0 "imageManifestMediaType") in
      let imageManifest =
        ImageManifest.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "imageManifest") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ?imageDigest ?imageTag ?imageManifestMediaType ~imageManifest
        ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageDigest = field_map json__ "imageDigest" ImageDigest.of_json in
      let imageTag = field_map json__ "imageTag" ImageTag.of_json in
      let imageManifestMediaType =
        field_map json__ "imageManifestMediaType" MediaType.of_json in
      let imageManifest =
        field_map_exn json__ "imageManifest" ImageManifest.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ?imageDigest ?imageTag ?imageManifestMediaType ~imageManifest
        ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates or updates the image manifest and tags that are associated with an image. When an image is pushed and all new image layers have been uploaded, the PutImage API is called once to create or update the image manifest and the tags that are associated with the image. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagList.t option [@ocaml.doc "The tags for the resource."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the tags for an Amazon ECR Public resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: Arn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) that identifies the resource to list the tags for. Currently, the supported resource is an Amazon ECR Public repository."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (Arn.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" Arn.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "List the tags for an Amazon ECR Public resource."]
module InitiateLayerUploadResponse =
  struct
    type nonrec t =
      {
      uploadId: UploadId.t option
        [@ocaml.doc
          "The upload ID for the layer upload. This parameter is passed to further UploadLayerPart and CompleteLayerUpload operations."];
      partSize: PartSize.t option
        [@ocaml.doc
          "The size, in bytes, that Amazon ECR expects future layer part uploads to be."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RegistryNotFoundException of RegistryNotFoundException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?uploadId = fun ?partSize -> fun () -> { uploadId; partSize }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RegistryNotFoundException e ->
          `Assoc
            [("error", (`String "RegistryNotFoundException"));
            ("details", (RegistryNotFoundException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("uploadId", (Option.map x.uploadId ~f:UploadId.to_value));
        ("partSize", (Option.map x.partSize ~f:PartSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let partSize =
        (Option.map ~f:PartSize.of_xml) (Xml.child xml_arg0 "partSize") in
      let uploadId =
        (Option.map ~f:UploadId.of_xml) (Xml.child xml_arg0 "uploadId") in
      make ?partSize ?uploadId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let partSize = field_map json__ "partSize" PartSize.of_json in
      let uploadId = field_map json__ "uploadId" UploadId.of_json in
      make ?partSize ?uploadId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Notifies Amazon ECR that you intend to upload an image layer. When an image is pushed, the InitiateLayerUpload API is called once for each image layer that hasn't already been uploaded. Whether an image layer uploads is determined by the BatchCheckLayerAvailability API action. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module InitiateLayerUploadRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID, or registry alias, that's associated with the registry to which you intend to upload layers. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that you want to upload layers to."]}
    let context_ = "InitiateLayerUploadRequest"
    let make ?registryId =
      fun ~repositoryName -> fun () -> { registryId; repositoryName }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Notifies Amazon ECR that you intend to upload an image layer. When an image is pushed, the InitiateLayerUpload API is called once for each image layer that hasn't already been uploaded. Whether an image layer uploads is determined by the BatchCheckLayerAvailability API action. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module GetRepositoryPolicyResponse =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc "The registry ID that's associated with the request."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The repository name that's associated with the request."];
      policyText: RepositoryPolicyText.t option
        [@ocaml.doc
          "The repository policy text that's associated with the repository. The policy text will be in JSON format."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `RepositoryPolicyNotFoundException of
          RepositoryPolicyNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryId =
      fun ?repositoryName ->
        fun ?policyText ->
          fun () -> { registryId; repositoryName; policyText }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "RepositoryPolicyNotFoundException" ->
          `RepositoryPolicyNotFoundException
            (RepositoryPolicyNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "RepositoryPolicyNotFoundException" ->
          `RepositoryPolicyNotFoundException
            (RepositoryPolicyNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `RepositoryPolicyNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryPolicyNotFoundException"));
            ("details", (RepositoryPolicyNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("policyText",
          (Option.map x.policyText ~f:RepositoryPolicyText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyText =
        (Option.map ~f:RepositoryPolicyText.of_xml)
          (Xml.child xml_arg0 "policyText") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?policyText ?repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyText =
        field_map json__ "policyText" RepositoryPolicyText.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?policyText ?repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the repository policy for the specified repository."]
module GetRepositoryPolicyRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry that contains the repository. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository with the policy to retrieve."]}
    let context_ = "GetRepositoryPolicyRequest"
    let make ?registryId =
      fun ~repositoryName -> fun () -> { registryId; repositoryName }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the repository policy for the specified repository."]
module GetRepositoryCatalogDataResponse =
  struct
    type nonrec t =
      {
      catalogData: RepositoryCatalogData.t option
        [@ocaml.doc "The catalog metadata for the repository."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryCatalogDataNotFoundException of
          RepositoryCatalogDataNotFoundException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?catalogData = fun () -> { catalogData }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryCatalogDataNotFoundException" ->
          `RepositoryCatalogDataNotFoundException
            (RepositoryCatalogDataNotFoundException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryCatalogDataNotFoundException" ->
          `RepositoryCatalogDataNotFoundException
            (RepositoryCatalogDataNotFoundException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryCatalogDataNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryCatalogDataNotFoundException"));
            ("details", (RepositoryCatalogDataNotFoundException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("catalogData",
           (Option.map x.catalogData ~f:RepositoryCatalogData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let catalogData =
        (Option.map ~f:RepositoryCatalogData.of_xml)
          (Xml.child xml_arg0 "catalogData") in
      make ?catalogData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let catalogData =
        field_map json__ "catalogData" RepositoryCatalogData.of_json in
      make ?catalogData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve catalog metadata for a repository in a public registry. This metadata is displayed publicly in the Amazon ECR Public Gallery."]
module GetRepositoryCatalogDataRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the registry that contains the repositories to be described. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository to retrieve the catalog metadata for."]}
    let context_ = "GetRepositoryCatalogDataRequest"
    let make ?registryId =
      fun ~repositoryName -> fun () -> { registryId; repositoryName }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieve catalog metadata for a repository in a public registry. This metadata is displayed publicly in the Amazon ECR Public Gallery."]
module GetRegistryCatalogDataResponse =
  struct
    type nonrec t =
      {
      registryCatalogData: RegistryCatalogData.t option
        [@ocaml.doc "The catalog metadata for the public registry."]}
    type nonrec error =
      [ `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryCatalogData = fun () -> { registryCatalogData }
    let error_of_json name json =
      match name with
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("registryCatalogData",
           (Option.map x.registryCatalogData ~f:RegistryCatalogData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let registryCatalogData =
        (Option.map ~f:RegistryCatalogData.of_xml)
          (Xml.child xml_arg0 "registryCatalogData") in
      make ?registryCatalogData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let registryCatalogData =
        field_map json__ "registryCatalogData" RegistryCatalogData.of_json in
      make ?registryCatalogData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves catalog metadata for a public registry."]
module GetRegistryCatalogDataRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves catalog metadata for a public registry."]
module GetAuthorizationTokenResponse =
  struct
    type nonrec t =
      {
      authorizationData: AuthorizationData.t option
        [@ocaml.doc
          "An authorization token data object that corresponds to a public registry."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?authorizationData = fun () -> { authorizationData }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("authorizationData",
           (Option.map x.authorizationData ~f:AuthorizationData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authorizationData =
        (Option.map ~f:AuthorizationData.of_xml)
          (Xml.child xml_arg0 "authorizationData") in
      make ?authorizationData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authorizationData =
        field_map json__ "authorizationData" AuthorizationData.of_json in
      make ?authorizationData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an authorization token. An authorization token represents your IAM authentication credentials. You can use it to access any Amazon ECR registry that your IAM principal has access to. The authorization token is valid for 12 hours. This API requires the ecr-public:GetAuthorizationToken and sts:GetServiceBearerToken permissions."]
module GetAuthorizationTokenRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves an authorization token. An authorization token represents your IAM authentication credentials. You can use it to access any Amazon ECR registry that your IAM principal has access to. The authorization token is valid for 12 hours. This API requires the ecr-public:GetAuthorizationToken and sts:GetServiceBearerToken permissions."]
module DescribeRepositoriesResponse =
  struct
    type nonrec t =
      {
      repositories: RepositoryList.t option
        [@ocaml.doc
          "A list of repository objects corresponding to valid repositories."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future DescribeRepositories request. When the results of a DescribeRepositories request exceed maxResults, this value can be used to retrieve the next page of results. If there are no more results to return, this value is null."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositories =
      fun ?nextToken -> fun () -> { repositories; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("repositories",
           (Option.map x.repositories ~f:RepositoryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositories =
        (Option.map ~f:RepositoryList.of_xml)
          (Xml.child xml_arg0 "repositories") in
      make ?nextToken ?repositories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositories =
        field_map json__ "repositories" RepositoryList.of_json in
      make ?nextToken ?repositories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes repositories that are in a public registry."]
module DescribeRepositoriesRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the registry that contains the repositories to be described. If you do not specify a registry, the default public registry is assumed."];
      repositoryNames: RepositoryNameList.t option
        [@ocaml.doc
          "A list of repositories to describe. If this parameter is omitted, then all repositories in a registry are described."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value that's returned from a previous paginated DescribeRepositories request where maxResults was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the nextToken value. If there are no more results to return, this value is null. If you specify repositories with repositoryNames, you can't use this option. This token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of repository results that's returned by DescribeRepositories in paginated output. When this parameter is used, DescribeRepositories only returns maxResults results in a single page along with a nextToken response element. You can see the remaining results of the initial request by sending another DescribeRepositories request with the returned nextToken value. This value can be between 1 and 1000. If this parameter isn't used, then DescribeRepositories returns up to 100 results and a nextToken value, if applicable. If you specify repositories with repositoryNames, you can't use this option."]}
    let make ?registryId =
      fun ?repositoryNames ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { registryId; repositoryNames; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryNames",
          (Option.map x.repositoryNames ~f:RepositoryNameList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositoryNames =
        (Option.map ~f:RepositoryNameList.of_xml)
          (Xml.child xml_arg0 "repositoryNames") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?maxResults ?nextToken ?repositoryNames ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositoryNames =
        field_map json__ "repositoryNames" RepositoryNameList.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?maxResults ?nextToken ?repositoryNames ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes repositories that are in a public registry."]
module DescribeRegistriesResponse =
  struct
    type nonrec t =
      {
      registries: RegistryList.t option
        [@ocaml.doc
          "An object that contains the details for a public registry."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future DescribeRepositories request. If the results of a DescribeRepositories request exceed maxResults, you can use this value to retrieve the next page of results. If there are no more results, this value is null."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registries =
      fun ?nextToken -> fun () -> { registries; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("registries", (Option.map x.registries ~f:RegistryList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let registries =
        (Option.map ~f:RegistryList.of_xml) (Xml.child xml_arg0 "registries") in
      make ?nextToken ?registries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let registries = field_map json__ "registries" RegistryList.of_json in
      make ?nextToken ?registries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details for a public registry."]
module DescribeRegistriesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value that's returned from a previous paginated DescribeRegistries request where maxResults was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the nextToken value. If there are no more results to return, this value is null. This token should be treated as an opaque identifier that is only used to retrieve the next items in a list and not for other programmatic purposes."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of repository results that's returned by DescribeRegistries in paginated output. When this parameter is used, DescribeRegistries only returns maxResults results in a single page along with a nextToken response element. The remaining results of the initial request can be seen by sending another DescribeRegistries request with the returned nextToken value. This value can be between 1 and 1000. If this parameter isn't used, then DescribeRegistries returns up to 100 results and a nextToken value, if applicable."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns details for a public registry."]
module DescribeImagesResponse =
  struct
    type nonrec t =
      {
      imageDetails: ImageDetailList.t option
        [@ocaml.doc
          "A list of ImageDetail objects that contain data about the image."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future DescribeImages request. When the results of a DescribeImages request exceed maxResults, you can use this value to retrieve the next page of results. If there are no more results to return, this value is null."]}
    type nonrec error =
      [ `ImageNotFoundException of ImageNotFoundException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageDetails =
      fun ?nextToken -> fun () -> { imageDetails; nextToken }
    let error_of_json name json =
      match name with
      | "ImageNotFoundException" ->
          `ImageNotFoundException (ImageNotFoundException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ImageNotFoundException" ->
          `ImageNotFoundException (ImageNotFoundException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ImageNotFoundException e ->
          `Assoc
            [("error", (`String "ImageNotFoundException"));
            ("details", (ImageNotFoundException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("imageDetails",
           (Option.map x.imageDetails ~f:ImageDetailList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let imageDetails =
        (Option.map ~f:ImageDetailList.of_xml)
          (Xml.child xml_arg0 "imageDetails") in
      make ?nextToken ?imageDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let imageDetails =
        field_map json__ "imageDetails" ImageDetailList.of_json in
      make ?nextToken ?imageDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns metadata that's related to the images in a repository in a public registry. Beginning with Docker version 1.9, the Docker client compresses image layers before pushing them to a V2 Docker registry. The output of the docker images command shows the uncompressed image size. Therefore, it might return a larger image size than the image sizes that are returned by DescribeImages."]
module DescribeImagesRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry that contains the repository where images are described. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc "The repository that contains the images to describe."];
      imageIds: ImageIdentifierList.t option
        [@ocaml.doc "The list of image IDs for the requested repository."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value that's returned from a previous paginated DescribeImages request where maxResults was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the nextToken value. If there are no more results to return, this value is null. If you specify images with imageIds, you can't use this option."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of repository results that's returned by DescribeImages in paginated output. When this parameter is used, DescribeImages only returns maxResults results in a single page along with a nextToken response element. You can see the remaining results of the initial request by sending another DescribeImages request with the returned nextToken value. This value can be between 1 and 1000. If this parameter isn't used, then DescribeImages returns up to 100 results and a nextToken value, if applicable. If you specify images with imageIds, you can't use this option."]}
    let context_ = "DescribeImagesRequest"
    let make ?registryId =
      fun ?imageIds ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~repositoryName ->
              fun () ->
                { registryId; imageIds; nextToken; maxResults; repositoryName
                }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("imageIds", (Option.map x.imageIds ~f:ImageIdentifierList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let imageIds =
        (Option.map ~f:ImageIdentifierList.of_xml)
          (Xml.child xml_arg0 "imageIds") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?maxResults ?nextToken ?imageIds ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let imageIds = field_map json__ "imageIds" ImageIdentifierList.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?maxResults ?nextToken ?imageIds ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns metadata that's related to the images in a repository in a public registry. Beginning with Docker version 1.9, the Docker client compresses image layers before pushing them to a V2 Docker registry. The output of the docker images command shows the uncompressed image size. Therefore, it might return a larger image size than the image sizes that are returned by DescribeImages."]
module DescribeImageTagsResponse =
  struct
    type nonrec t =
      {
      imageTagDetails: ImageTagDetailList.t option
        [@ocaml.doc
          "The image tag details for the images in the requested repository."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value to include in a future DescribeImageTags request. When the results of a DescribeImageTags request exceed maxResults, you can use this value to retrieve the next page of results. If there are no more results to return, this value is null."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageTagDetails =
      fun ?nextToken -> fun () -> { imageTagDetails; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("imageTagDetails",
           (Option.map x.imageTagDetails ~f:ImageTagDetailList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let imageTagDetails =
        (Option.map ~f:ImageTagDetailList.of_xml)
          (Xml.child xml_arg0 "imageTagDetails") in
      make ?nextToken ?imageTagDetails ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let imageTagDetails =
        field_map json__ "imageTagDetails" ImageTagDetailList.of_json in
      make ?nextToken ?imageTagDetails ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the image tag details for a repository in a public registry."]
module DescribeImageTagsRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry that contains the repository where images are described. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the image tag details to describe."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "The nextToken value that's returned from a previous paginated DescribeImageTags request where maxResults was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the nextToken value. If there are no more results to return, this value is null. If you specify images with imageIds, you can't use this option."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of repository results that's returned by DescribeImageTags in paginated output. When this parameter is used, DescribeImageTags only returns maxResults results in a single page along with a nextToken response element. You can see the remaining results of the initial request by sending another DescribeImageTags request with the returned nextToken value. This value can be between 1 and 1000. If this parameter isn't used, then DescribeImageTags returns up to 100 results and a nextToken value, if applicable. If you specify images with imageIds, you can't use this option."]}
    let context_ = "DescribeImageTagsRequest"
    let make ?registryId =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~repositoryName ->
            fun () -> { registryId; nextToken; maxResults; repositoryName }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?maxResults ?nextToken ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?maxResults ?nextToken ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the image tag details for a repository in a public registry."]
module DeleteRepositoryResponse =
  struct
    type nonrec t =
      {
      repository: Repository.t option
        [@ocaml.doc "The repository that was deleted."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotEmptyException of RepositoryNotEmptyException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repository = fun () -> { repository }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotEmptyException" ->
          `RepositoryNotEmptyException
            (RepositoryNotEmptyException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotEmptyException" ->
          `RepositoryNotEmptyException
            (RepositoryNotEmptyException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotEmptyException e ->
          `Assoc
            [("error", (`String "RepositoryNotEmptyException"));
            ("details", (RepositoryNotEmptyException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("repository", (Option.map x.repository ~f:Repository.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repository =
        (Option.map ~f:Repository.of_xml) (Xml.child xml_arg0 "repository") in
      make ?repository ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repository = field_map json__ "repository" Repository.of_json in
      make ?repository ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a repository in a public registry. If the repository contains images, you must either manually delete all images in the repository or use the force option. This option deletes all images on your behalf before deleting the repository."]
module DeleteRepositoryRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry that contains the repository to delete. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository to delete."];
      force: ForceFlag.t option
        [@ocaml.doc
          "The force option can be used to delete a repository that contains images. If the force option is not used, the repository must be empty prior to deletion."]}
    let context_ = "DeleteRepositoryRequest"
    let make ?registryId =
      fun ?force ->
        fun ~repositoryName ->
          fun () -> { registryId; force; repositoryName }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("force", (Option.map x.force ~f:ForceFlag.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let force =
        (Option.map ~f:ForceFlag.of_xml) (Xml.child xml_arg0 "force") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?force ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let force = field_map json__ "force" ForceFlag.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?force ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a repository in a public registry. If the repository contains images, you must either manually delete all images in the repository or use the force option. This option deletes all images on your behalf before deleting the repository."]
module DeleteRepositoryPolicyResponse =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc "The registry ID that's associated with the request."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The repository name that's associated with the request."];
      policyText: RepositoryPolicyText.t option
        [@ocaml.doc
          "The JSON repository policy that was deleted from the repository."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `RepositoryPolicyNotFoundException of
          RepositoryPolicyNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryId =
      fun ?repositoryName ->
        fun ?policyText ->
          fun () -> { registryId; repositoryName; policyText }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "RepositoryPolicyNotFoundException" ->
          `RepositoryPolicyNotFoundException
            (RepositoryPolicyNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "RepositoryPolicyNotFoundException" ->
          `RepositoryPolicyNotFoundException
            (RepositoryPolicyNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `RepositoryPolicyNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryPolicyNotFoundException"));
            ("details", (RepositoryPolicyNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("policyText",
          (Option.map x.policyText ~f:RepositoryPolicyText.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policyText =
        (Option.map ~f:RepositoryPolicyText.of_xml)
          (Xml.child xml_arg0 "policyText") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?policyText ?repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policyText =
        field_map json__ "policyText" RepositoryPolicyText.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?policyText ?repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the repository policy that's associated with the specified repository."]
module DeleteRepositoryPolicyRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The Amazon Web Services account ID that's associated with the public registry that contains the repository policy to delete. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that's associated with the repository policy to delete."]}
    let context_ = "DeleteRepositoryPolicyRequest"
    let make ?registryId =
      fun ~repositoryName -> fun () -> { registryId; repositoryName }
    let to_value x =
      structure_to_value
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the repository policy that's associated with the specified repository."]
module CreateRepositoryResponse =
  struct
    type nonrec t =
      {
      repository: Repository.t option
        [@ocaml.doc "The repository that was created."];
      catalogData: RepositoryCatalogData.t option }
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `InvalidTagParameterException of InvalidTagParameterException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `RepositoryAlreadyExistsException of
          RepositoryAlreadyExistsException.t 
      | `ServerException of ServerException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repository =
      fun ?catalogData -> fun () -> { repository; catalogData }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidTagParameterException" ->
          `InvalidTagParameterException
            (InvalidTagParameterException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "RepositoryAlreadyExistsException" ->
          `RepositoryAlreadyExistsException
            (RepositoryAlreadyExistsException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidTagParameterException" ->
          `InvalidTagParameterException
            (InvalidTagParameterException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "RepositoryAlreadyExistsException" ->
          `RepositoryAlreadyExistsException
            (RepositoryAlreadyExistsException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidTagParameterException e ->
          `Assoc
            [("error", (`String "InvalidTagParameterException"));
            ("details", (InvalidTagParameterException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `RepositoryAlreadyExistsException e ->
          `Assoc
            [("error", (`String "RepositoryAlreadyExistsException"));
            ("details", (RepositoryAlreadyExistsException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("repository", (Option.map x.repository ~f:Repository.to_value));
        ("catalogData",
          (Option.map x.catalogData ~f:RepositoryCatalogData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let catalogData =
        (Option.map ~f:RepositoryCatalogData.of_xml)
          (Xml.child xml_arg0 "catalogData") in
      let repository =
        (Option.map ~f:Repository.of_xml) (Xml.child xml_arg0 "repository") in
      make ?catalogData ?repository ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let catalogData =
        field_map json__ "catalogData" RepositoryCatalogData.of_json in
      let repository = field_map json__ "repository" Repository.of_json in
      make ?catalogData ?repository ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a repository in a public registry. For more information, see Amazon ECR repositories in the Amazon Elastic Container Registry User Guide."]
module CreateRepositoryRequest =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name to use for the repository. This appears publicly in the Amazon ECR Public Gallery. The repository name can be specified on its own (for example nginx-web-app) or prepended with a namespace to group the repository into a category (for example project-a/nginx-web-app)."];
      catalogData: RepositoryCatalogDataInput.t option
        [@ocaml.doc
          "The details about the repository that are publicly visible in the Amazon ECR Public Gallery."];
      tags: TagList.t option
        [@ocaml.doc
          "The metadata that you apply to each repository to help categorize and organize your repositories. Each tag consists of a key and an optional value. You define both of them. Tag keys can have a maximum character length of 128 characters, and tag values can have a maximum length of 256 characters."]}
    let context_ = "CreateRepositoryRequest"
    let make ?catalogData =
      fun ?tags ->
        fun ~repositoryName ->
          fun () -> { catalogData; tags; repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("catalogData",
          (Option.map x.catalogData ~f:RepositoryCatalogDataInput.to_value));
        ("tags", (Option.map x.tags ~f:TagList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagList.of_xml) (Xml.child xml_arg0 "tags") in
      let catalogData =
        (Option.map ~f:RepositoryCatalogDataInput.of_xml)
          (Xml.child xml_arg0 "catalogData") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?tags ?catalogData ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagList.of_json in
      let catalogData =
        field_map json__ "catalogData" RepositoryCatalogDataInput.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?tags ?catalogData ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a repository in a public registry. For more information, see Amazon ECR repositories in the Amazon Elastic Container Registry User Guide."]
module CompleteLayerUploadResponse =
  struct
    type nonrec t =
      {
      registryId: RegistryId.t option
        [@ocaml.doc
          "The public registry ID that's associated with the request."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The repository name that's associated with the request."];
      uploadId: UploadId.t option
        [@ocaml.doc "The upload ID that's associated with the layer."];
      layerDigest: LayerDigest.t option
        [@ocaml.doc "The sha256 digest of the image layer."]}
    type nonrec error =
      [ `EmptyUploadException of EmptyUploadException.t 
      | `InvalidLayerException of InvalidLayerException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LayerAlreadyExistsException of LayerAlreadyExistsException.t 
      | `LayerPartTooSmallException of LayerPartTooSmallException.t 
      | `RegistryNotFoundException of RegistryNotFoundException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `UploadNotFoundException of UploadNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?registryId =
      fun ?repositoryName ->
        fun ?uploadId ->
          fun ?layerDigest ->
            fun () -> { registryId; repositoryName; uploadId; layerDigest }
    let error_of_json name json =
      match name with
      | "EmptyUploadException" ->
          `EmptyUploadException (EmptyUploadException.of_json json)
      | "InvalidLayerException" ->
          `InvalidLayerException (InvalidLayerException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LayerAlreadyExistsException" ->
          `LayerAlreadyExistsException
            (LayerAlreadyExistsException.of_json json)
      | "LayerPartTooSmallException" ->
          `LayerPartTooSmallException
            (LayerPartTooSmallException.of_json json)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | "UploadNotFoundException" ->
          `UploadNotFoundException (UploadNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EmptyUploadException" ->
          `EmptyUploadException (EmptyUploadException.of_xml xml)
      | "InvalidLayerException" ->
          `InvalidLayerException (InvalidLayerException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LayerAlreadyExistsException" ->
          `LayerAlreadyExistsException
            (LayerAlreadyExistsException.of_xml xml)
      | "LayerPartTooSmallException" ->
          `LayerPartTooSmallException (LayerPartTooSmallException.of_xml xml)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | "UploadNotFoundException" ->
          `UploadNotFoundException (UploadNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EmptyUploadException e ->
          `Assoc
            [("error", (`String "EmptyUploadException"));
            ("details", (EmptyUploadException.to_json e))]
      | `InvalidLayerException e ->
          `Assoc
            [("error", (`String "InvalidLayerException"));
            ("details", (InvalidLayerException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LayerAlreadyExistsException e ->
          `Assoc
            [("error", (`String "LayerAlreadyExistsException"));
            ("details", (LayerAlreadyExistsException.to_json e))]
      | `LayerPartTooSmallException e ->
          `Assoc
            [("error", (`String "LayerPartTooSmallException"));
            ("details", (LayerPartTooSmallException.to_json e))]
      | `RegistryNotFoundException e ->
          `Assoc
            [("error", (`String "RegistryNotFoundException"));
            ("details", (RegistryNotFoundException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.to_json e))]
      | `UploadNotFoundException e ->
          `Assoc
            [("error", (`String "UploadNotFoundException"));
            ("details", (UploadNotFoundException.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
        [("registryId", (Option.map x.registryId ~f:RegistryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("uploadId", (Option.map x.uploadId ~f:UploadId.to_value));
        ("layerDigest", (Option.map x.layerDigest ~f:LayerDigest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layerDigest =
        (Option.map ~f:LayerDigest.of_xml) (Xml.child xml_arg0 "layerDigest") in
      let uploadId =
        (Option.map ~f:UploadId.of_xml) (Xml.child xml_arg0 "uploadId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryId.of_xml) (Xml.child xml_arg0 "registryId") in
      make ?layerDigest ?uploadId ?repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layerDigest = field_map json__ "layerDigest" LayerDigest.of_json in
      let uploadId = field_map json__ "uploadId" UploadId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let registryId = field_map json__ "registryId" RegistryId.of_json in
      make ?layerDigest ?uploadId ?repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Informs Amazon ECR that the image layer upload is complete for a specified public registry, repository name, and upload ID. You can optionally provide a sha256 digest of the image layer for data validation purposes. When an image is pushed, the CompleteLayerUpload API is called once for each new image layer to verify that the upload is complete. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module CompleteLayerUploadRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID, or registry alias, associated with the registry where layers are uploaded. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository in a public registry to associate with the image layer."];
      uploadId: UploadId.t
        [@ocaml.doc
          "The upload ID from a previous InitiateLayerUpload operation to associate with the image layer."];
      layerDigests: LayerDigestList.t
        [@ocaml.doc "The sha256 digest of the image layer."]}
    let context_ = "CompleteLayerUploadRequest"
    let make ?registryId =
      fun ~repositoryName ->
        fun ~uploadId ->
          fun ~layerDigests ->
            fun () -> { registryId; repositoryName; uploadId; layerDigests }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("uploadId", (Some (UploadId.to_value x.uploadId)));
        ("layerDigests", (Some (LayerDigestList.to_value x.layerDigests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layerDigests =
        LayerDigestList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "layerDigests") in
      let uploadId =
        UploadId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "uploadId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ~layerDigests ~uploadId ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layerDigests =
        field_map_exn json__ "layerDigests" LayerDigestList.of_json in
      let uploadId = field_map_exn json__ "uploadId" UploadId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ~layerDigests ~uploadId ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Informs Amazon ECR that the image layer upload is complete for a specified public registry, repository name, and upload ID. You can optionally provide a sha256 digest of the image layer for data validation purposes. When an image is pushed, the CompleteLayerUpload API is called once for each new image layer to verify that the upload is complete. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module BatchDeleteImageResponse =
  struct
    type nonrec t =
      {
      imageIds: ImageIdentifierList.t option
        [@ocaml.doc "The image IDs of the deleted images."];
      failures: ImageFailureList.t option
        [@ocaml.doc "Any failures associated with the call."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?imageIds = fun ?failures -> fun () -> { imageIds; failures }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("imageIds",
           (Option.map x.imageIds ~f:ImageIdentifierList.to_value));
        ("failures", (Option.map x.failures ~f:ImageFailureList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failures =
        (Option.map ~f:ImageFailureList.of_xml)
          (Xml.child xml_arg0 "failures") in
      let imageIds =
        (Option.map ~f:ImageIdentifierList.of_xml)
          (Xml.child xml_arg0 "imageIds") in
      make ?failures ?imageIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failures = field_map json__ "failures" ImageFailureList.of_json in
      let imageIds = field_map json__ "imageIds" ImageIdentifierList.of_json in
      make ?failures ?imageIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a list of specified images that are within a repository in a public registry. Images are specified with either an imageTag or imageDigest. You can remove a tag from an image by specifying the image's tag in your request. When you remove the last tag from an image, the image is deleted from your repository. You can completely delete an image (and all of its tags) by specifying the digest of the image in your request."]
module BatchDeleteImageRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID, or registry alias, that's associated with the registry that contains the image to delete. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The repository in a public registry that contains the image to delete."];
      imageIds: ImageIdentifierList.t
        [@ocaml.doc
          "A list of image ID references that correspond to images to delete. The format of the imageIds reference is imageTag=tag or imageDigest=digest."]}
    let context_ = "BatchDeleteImageRequest"
    let make ?registryId =
      fun ~repositoryName ->
        fun ~imageIds -> fun () -> { registryId; repositoryName; imageIds }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("imageIds", (Some (ImageIdentifierList.to_value x.imageIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let imageIds =
        ImageIdentifierList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "imageIds") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ~imageIds ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let imageIds =
        field_map_exn json__ "imageIds" ImageIdentifierList.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ~imageIds ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a list of specified images that are within a repository in a public registry. Images are specified with either an imageTag or imageDigest. You can remove a tag from an image by specifying the image's tag in your request. When you remove the last tag from an image, the image is deleted from your repository. You can completely delete an image (and all of its tags) by specifying the digest of the image in your request."]
module BatchCheckLayerAvailabilityResponse =
  struct
    type nonrec t =
      {
      layers: LayerList.t option
        [@ocaml.doc
          "A list of image layer objects that correspond to the image layer references in the request."];
      failures: LayerFailureList.t option
        [@ocaml.doc "Any failures associated with the call."]}
    type nonrec error =
      [ `InvalidParameterException of InvalidParameterException.t 
      | `RegistryNotFoundException of RegistryNotFoundException.t 
      | `RepositoryNotFoundException of RepositoryNotFoundException.t 
      | `ServerException of ServerException.t 
      | `UnsupportedCommandException of UnsupportedCommandException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?layers = fun ?failures -> fun () -> { layers; failures }
    let error_of_json name json =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_json json)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_json json)
      | "ServerException" -> `ServerException (ServerException.of_json json)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "RegistryNotFoundException" ->
          `RegistryNotFoundException (RegistryNotFoundException.of_xml xml)
      | "RepositoryNotFoundException" ->
          `RepositoryNotFoundException
            (RepositoryNotFoundException.of_xml xml)
      | "ServerException" -> `ServerException (ServerException.of_xml xml)
      | "UnsupportedCommandException" ->
          `UnsupportedCommandException
            (UnsupportedCommandException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `RegistryNotFoundException e ->
          `Assoc
            [("error", (`String "RegistryNotFoundException"));
            ("details", (RegistryNotFoundException.to_json e))]
      | `RepositoryNotFoundException e ->
          `Assoc
            [("error", (`String "RepositoryNotFoundException"));
            ("details", (RepositoryNotFoundException.to_json e))]
      | `ServerException e ->
          `Assoc
            [("error", (`String "ServerException"));
            ("details", (ServerException.to_json e))]
      | `UnsupportedCommandException e ->
          `Assoc
            [("error", (`String "UnsupportedCommandException"));
            ("details", (UnsupportedCommandException.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
        [("layers", (Option.map x.layers ~f:LayerList.to_value));
        ("failures", (Option.map x.failures ~f:LayerFailureList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failures =
        (Option.map ~f:LayerFailureList.of_xml)
          (Xml.child xml_arg0 "failures") in
      let layers =
        (Option.map ~f:LayerList.of_xml) (Xml.child xml_arg0 "layers") in
      make ?failures ?layers ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failures = field_map json__ "failures" LayerFailureList.of_json in
      let layers = field_map json__ "layers" LayerList.of_json in
      make ?failures ?layers ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Checks the availability of one or more image layers that are within a repository in a public registry. When an image is pushed to a repository, each image layer is checked to verify if it has been uploaded before. If it has been uploaded, then the image layer is skipped. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]
module BatchCheckLayerAvailabilityRequest =
  struct
    type nonrec t =
      {
      registryId: RegistryIdOrAlias.t option
        [@ocaml.doc
          "The Amazon Web Services account ID, or registry alias, associated with the public registry that contains the image layers to check. If you do not specify a registry, the default public registry is assumed."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that's associated with the image layers to check."];
      layerDigests: BatchedOperationLayerDigestList.t
        [@ocaml.doc "The digests of the image layers to check."]}
    let context_ = "BatchCheckLayerAvailabilityRequest"
    let make ?registryId =
      fun ~repositoryName ->
        fun ~layerDigests ->
          fun () -> { registryId; repositoryName; layerDigests }
    let to_value x =
      structure_to_value
        [("registryId",
           (Option.map x.registryId ~f:RegistryIdOrAlias.to_value));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("layerDigests",
          (Some (BatchedOperationLayerDigestList.to_value x.layerDigests)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let layerDigests =
        BatchedOperationLayerDigestList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "layerDigests") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let registryId =
        (Option.map ~f:RegistryIdOrAlias.of_xml)
          (Xml.child xml_arg0 "registryId") in
      make ~layerDigests ~repositoryName ?registryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let layerDigests =
        field_map_exn json__ "layerDigests"
          BatchedOperationLayerDigestList.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let registryId =
        field_map json__ "registryId" RegistryIdOrAlias.of_json in
      make ~layerDigests ~repositoryName ?registryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Checks the availability of one or more image layers that are within a repository in a public registry. When an image is pushed to a repository, each image layer is checked to verify if it has been uploaded before. If it has been uploaded, then the image layer is skipped. This operation is used by the Amazon ECR proxy and is not generally used by customers for pulling and pushing images. In most cases, you should use the docker CLI to pull, tag, and push images."]