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.importexport
let apiVersion = "2010-06-01"
let endpointPrefix = "importexport"
let serviceFullName = "AWS Import/Export"
let signatureVersion = "v2"
let protocol = "query"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let xmlNamespace = "http://importexport.amazonaws.com/doc/2010-06-01/"
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 Description =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The associated description for this object."]
    let context_ = "Description"
    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:"Description" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The associated description for this object."]
module URL =
  struct
    type nonrec t = string[@@ocaml.doc "The URL for a given Artifact."]
    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[@@ocaml.doc "The URL for a given Artifact."]
module CreationDate =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Timestamp of the CreateJob request in ISO8601 date format. For example \"2010-03-28T20:27:35Z\"."]
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Timestamp of the CreateJob request in ISO8601 date format. For example \"2010-03-28T20:27:35Z\"."]
module IsCanceled =
  struct
    type nonrec t = bool[@@ocaml.doc
                          "Indicates whether the job was canceled."]
    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[@@ocaml.doc "Indicates whether the job was canceled."]
module JobId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A unique identifier which refers to a particular job."]
    let context_ = "JobId"
    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:"JobId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A unique identifier which refers to a particular job."]
module JobType =
  struct
    type nonrec t =
      | Import 
      | Export 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Import -> "Import"
      | Export -> "Export"
      | Non_static_id s -> s
    let of_string =
      function
      | "Import" -> Import
      | "Export" -> Export
      | 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 JobType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobType" j)
    let to_json = simple_to_json to_value
  end
module Artifact =
  struct
    type nonrec t = {
      description: Description.t option ;
      uRL: URL.t option }
    let make ?description = fun ?uRL -> fun () -> { description; uRL }
    let to_value x =
      structure_to_value
        [("Description", (Option.map x.description ~f:Description.to_value));
        ("URL", (Option.map x.uRL ~f:URL.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uRL = (Option.map ~f:URL.of_xml) (Xml.child xml_arg0 "URL") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      make ?uRL ?description ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uRL = field_map json__ "URL" URL.of_json in
      let description = field_map json__ "Description" Description.of_json in
      make ?uRL ?description ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A discrete item that contains the description and URL of an artifact (such as a PDF)."]
module ErrorMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The human-readable description of a particular error."]
    let context_ = "ErrorMessage"
    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:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The human-readable description of a particular error."]
module Job =
  struct
    type nonrec t =
      {
      jobId: JobId.t option ;
      creationDate: CreationDate.t option ;
      isCanceled: IsCanceled.t option ;
      jobType: JobType.t option }
    let make ?jobId =
      fun ?creationDate ->
        fun ?isCanceled ->
          fun ?jobType ->
            fun () -> { jobId; creationDate; isCanceled; jobType }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("CreationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("IsCanceled", (Option.map x.isCanceled ~f:IsCanceled.to_value));
        ("JobType", (Option.map x.jobType ~f:JobType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      let isCanceled =
        (Option.map ~f:IsCanceled.of_xml) (Xml.child xml_arg0 "IsCanceled") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?jobType ?isCanceled ?creationDate ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobType = field_map json__ "JobType" JobType.of_json in
      let isCanceled = field_map json__ "IsCanceled" IsCanceled.of_json in
      let creationDate = field_map json__ "CreationDate" CreationDate.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?jobType ?isCanceled ?creationDate ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Representation of a job returned by the ListJobs operation."]
module GenericString =
  struct
    type nonrec t = string
    let context_ = "GenericString"
    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:"GenericString" j
    let to_json = simple_to_json to_value
  end
module ArtifactList =
  struct
    type nonrec t = Artifact.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:Artifact.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:Artifact.of_xml)
    let of_json j =
      list_of_json ~kind:"ArtifactList" ~of_json:Artifact.of_json j
    let to_json v = composed_to_json to_value v
  end
module BucketPermissionException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The account specified does not have the appropriate bucket permissions."]
module CanceledJobIdException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified job ID has been canceled and is no longer valid."]
module ExpiredJobIdException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Indicates that the specified job has expired out of the system."]
module InvalidAccessKeyIdException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The AWS Access Key ID specified in the request did not match the manifest's accessKeyId value. The manifest and the request authentication must use the same AWS Access Key ID."]
module InvalidAddressException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The address specified in the manifest is invalid."]
module InvalidCustomsException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more customs parameters was invalid. Please correct and resubmit."]
module InvalidFileSystemException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "File system specified in export manifest is invalid."]
module InvalidJobIdException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The JOBID was missing, not found, or not associated with the AWS account."]
module InvalidManifestFieldException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more manifest fields was invalid. Please correct and resubmit."]
module InvalidParameterException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more parameters had an invalid value."]
module InvalidVersionException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The client tool version is invalid."]
module MalformedManifestException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Your manifest is not well-formed."]
module MissingCustomsException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more required customs parameters was missing from the manifest."]
module MissingManifestFieldException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more required fields were missing from the manifest file. Please correct and resubmit."]
module MissingParameterException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "One or more required parameters was missing from the request."]
module MultipleRegionsException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your manifest file contained buckets from multiple regions. A job is restricted to buckets from one region. Please correct and resubmit."]
module NoSuchBucketException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified bucket does not exist. Create the specified bucket or change the manifest's bucket, exportBucket, or logBucket field to a bucket that the account, as specified by the manifest's Access Key ID, has write permissions to."]
module Success =
  struct
    type nonrec t = bool[@@ocaml.doc
                          "Specifies whether (true) or not (false) AWS Import/Export updated your job."]
    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[@@ocaml.doc
       "Specifies whether (true) or not (false) AWS Import/Export updated your job."]
module UnableToUpdateJobIdException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AWS Import/Export cannot update the job"]
module WarningMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "An optional message notifying you of non-fatal issues with the job, such as use of an incompatible Amazon S3 bucket name."]
    let context_ = "WarningMessage"
    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:"WarningMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "An optional message notifying you of non-fatal issues with the job, such as use of an incompatible Amazon S3 bucket name."]
module APIVersion =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the version of the client tool."]
    let context_ = "APIVersion"
    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:"APIVersion" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Specifies the version of the client tool."]
module Manifest =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The UTF-8 encoded text of the manifest file."]
    let context_ = "Manifest"
    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:"Manifest" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The UTF-8 encoded text of the manifest file."]
module ValidateOnly =
  struct
    type nonrec t = bool[@@ocaml.doc
                          "Validate the manifest and parameter values in the request but do not actually create a job."]
    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[@@ocaml.doc
       "Validate the manifest and parameter values in the request but do not actually create a job."]
module IsTruncated =
  struct
    type nonrec t = bool[@@ocaml.doc
                          "Indicates whether the list of jobs was truncated. If true, then call ListJobs again using the last JobId element as the marker."]
    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[@@ocaml.doc
       "Indicates whether the list of jobs was truncated. If true, then call ListJobs again using the last JobId element as the marker."]
module JobsList =
  struct
    type nonrec t = Job.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:Job.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:Job.of_xml)
    let of_json j = list_of_json ~kind:"JobsList" ~of_json:Job.of_json j
    let to_json v = composed_to_json to_value v
  end
module Marker =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the JOBID to start after when listing the jobs created with your account. AWS Import/Export lists your jobs in reverse chronological order. See MaxJobs."]
    let context_ = "Marker"
    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:"Marker" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the JOBID to start after when listing the jobs created with your account. AWS Import/Export lists your jobs in reverse chronological order. See MaxJobs."]
module MaxJobs =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Sets the maximum number of jobs returned in the response. If there are additional jobs that were not returned because MaxJobs was exceeded, the response contains <IsTruncated>true</IsTruncated>. To return the additional jobs, see Marker."]
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for MaxJobs" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Sets the maximum number of jobs returned in the response. If there are additional jobs that were not returned because MaxJobs was exceeded, the response contains <IsTruncated>true</IsTruncated>. To return the additional jobs, see Marker."]
module Carrier =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Name of the shipping company. This value is included when the LocationCode is \"Returned\"."]
    let context_ = "Carrier"
    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:"Carrier" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Name of the shipping company. This value is included when the LocationCode is \"Returned\"."]
module CurrentManifest =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The last manifest submitted, which will be used to process the job."]
    let context_ = "CurrentManifest"
    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:"CurrentManifest" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The last manifest submitted, which will be used to process the job."]
module ErrorCount =
  struct
    type nonrec t = int[@@ocaml.doc
                         "Number of errors. We return this value when the ProgressCode is Success or SuccessWithErrors."]
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ErrorCount" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Number of errors. We return this value when the ProgressCode is Success or SuccessWithErrors."]
module LocationCode =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A token representing the location of the storage device, such as \"AtAWS\"."]
    let context_ = "LocationCode"
    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:"LocationCode" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A token representing the location of the storage device, such as \"AtAWS\"."]
module LocationMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A more human readable form of the physical location of the storage device."]
    let context_ = "LocationMessage"
    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:"LocationMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A more human readable form of the physical location of the storage device."]
module LogBucket =
  struct
    type nonrec t = string[@@ocaml.doc "Amazon S3 bucket for user logs."]
    let context_ = "LogBucket"
    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:"LogBucket" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Amazon S3 bucket for user logs."]
module LogKey =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The key where the user logs were stored."]
    let context_ = "LogKey"
    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:"LogKey" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The key where the user logs were stored."]
module ProgressCode =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A token representing the state of the job, such as \"Started\"."]
    let context_ = "ProgressCode"
    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:"ProgressCode" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A token representing the state of the job, such as \"Started\"."]
module ProgressMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A more human readable form of the job status."]
    let context_ = "ProgressMessage"
    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:"ProgressMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "A more human readable form of the job status."]
module Signature =
  struct
    type nonrec t = string[@@ocaml.doc
                            "An encrypted code used to authenticate the request and response, for example, \"DV+TpDfx1/TdSE9ktyK9k/bDTVI=\". Only use this value is you want to create the signature file yourself. Generally you should use the SignatureFileContents value."]
    let context_ = "Signature"
    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:"Signature" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "An encrypted code used to authenticate the request and response, for example, \"DV+TpDfx1/TdSE9ktyK9k/bDTVI=\". Only use this value is you want to create the signature file yourself. Generally you should use the SignatureFileContents value."]
module TrackingNumber =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The shipping tracking number assigned by AWS Import/Export to the storage device when it's returned to you. We return this value when the LocationCode is \"Returned\"."]
    let context_ = "TrackingNumber"
    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:"TrackingNumber" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The shipping tracking number assigned by AWS Import/Export to the storage device when it's returned to you. We return this value when the LocationCode is \"Returned\"."]
module JobIdList =
  struct
    type nonrec t = GenericString.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:GenericString.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:GenericString.of_xml)
    let of_json j =
      list_of_json ~kind:"JobIdList" ~of_json:GenericString.of_json j
    let to_json v = composed_to_json to_value v
  end
module City =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the name of your city for the return address."]
    let context_ = "city"
    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:"city" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Specifies the name of your city for the return address."]
module Company =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the name of the company that will ship this package."]
    let context_ = "company"
    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:"company" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the name of the company that will ship this package."]
module Country =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the name of your country for the return address."]
    let context_ = "country"
    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:"country" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the name of your country for the return address."]
module Name =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the name of the person responsible for shipping this package."]
    let context_ = "name"
    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:"name" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the name of the person responsible for shipping this package."]
module PhoneNumber =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the phone number of the person responsible for shipping this package."]
    let context_ = "phoneNumber"
    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:"phoneNumber" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the phone number of the person responsible for shipping this package."]
module PostalCode =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the postal code for the return address."]
    let context_ = "postalCode"
    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:"postalCode" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Specifies the postal code for the return address."]
module StateOrProvince =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the name of your state or your province for the return address."]
    let context_ = "stateOrProvince"
    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:"stateOrProvince" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the name of your state or your province for the return address."]
module Street1 =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the first part of the street address for the return address, for example 1234 Main Street."]
    let context_ = "street1"
    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:"street1" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the first part of the street address for the return address, for example 1234 Main Street."]
module Street2 =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the optional second part of the street address for the return address, for example Suite 100."]
    let context_ = "street2"
    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:"street2" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the optional second part of the street address for the return address, for example Suite 100."]
module Street3 =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Specifies the optional third part of the street address for the return address, for example c/o Jane Doe."]
    let context_ = "street3"
    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:"street3" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Specifies the optional third part of the street address for the return address, for example c/o Jane Doe."]
module CreateJobQuotaExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Each account can create only a certain number of jobs per day. If you need to create more than this, please contact awsimportexport\\@amazon.com to explain your particular use case."]
module SignatureFileContents =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The actual text of the SIGNATURE file to be written to disk."]
    let context_ = "SignatureFileContents"
    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:"SignatureFileContents" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The actual text of the SIGNATURE file to be written to disk."]
module ManifestAddendum =
  struct
    type nonrec t = string[@@ocaml.doc "For internal use only."]
    let context_ = "ManifestAddendum"
    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:"ManifestAddendum" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "For internal use only."]
module UnableToCancelJobIdException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.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" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AWS Import/Export cannot cancel the job"]
module UpdateJobOutput =
  struct
    type updateJobResult =
      {
      success: Success.t option ;
      warningMessage: WarningMessage.t option ;
      artifactList: ArtifactList.t option }
    and responseMetaData = unit
    and t =
      {
      updateJobResult: updateJobResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `BucketPermissionException of BucketPermissionException.t 
      | `CanceledJobIdException of CanceledJobIdException.t 
      | `ExpiredJobIdException of ExpiredJobIdException.t 
      | `InvalidAccessKeyIdException of InvalidAccessKeyIdException.t 
      | `InvalidAddressException of InvalidAddressException.t 
      | `InvalidCustomsException of InvalidCustomsException.t 
      | `InvalidFileSystemException of InvalidFileSystemException.t 
      | `InvalidJobIdException of InvalidJobIdException.t 
      | `InvalidManifestFieldException of InvalidManifestFieldException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidVersionException of InvalidVersionException.t 
      | `MalformedManifestException of MalformedManifestException.t 
      | `MissingCustomsException of MissingCustomsException.t 
      | `MissingManifestFieldException of MissingManifestFieldException.t 
      | `MissingParameterException of MissingParameterException.t 
      | `MultipleRegionsException of MultipleRegionsException.t 
      | `NoSuchBucketException of NoSuchBucketException.t 
      | `UnableToUpdateJobIdException of UnableToUpdateJobIdException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "UpdateJobOutput"
    let make ?success =
      fun ?warningMessage ->
        fun ?artifactList ->
          fun () ->
            {
              updateJobResult = { success; warningMessage; artifactList };
              responseMetaData = ()
            }
    let error_of_json name json =
      match name with
      | "BucketPermissionException" ->
          `BucketPermissionException (BucketPermissionException.of_json json)
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_json json)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_json json)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_json json)
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_json json)
      | "InvalidCustomsException" ->
          `InvalidCustomsException (InvalidCustomsException.of_json json)
      | "InvalidFileSystemException" ->
          `InvalidFileSystemException
            (InvalidFileSystemException.of_json json)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_json json)
      | "InvalidManifestFieldException" ->
          `InvalidManifestFieldException
            (InvalidManifestFieldException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_json json)
      | "MalformedManifestException" ->
          `MalformedManifestException
            (MalformedManifestException.of_json json)
      | "MissingCustomsException" ->
          `MissingCustomsException (MissingCustomsException.of_json json)
      | "MissingManifestFieldException" ->
          `MissingManifestFieldException
            (MissingManifestFieldException.of_json json)
      | "MissingParameterException" ->
          `MissingParameterException (MissingParameterException.of_json json)
      | "MultipleRegionsException" ->
          `MultipleRegionsException (MultipleRegionsException.of_json json)
      | "NoSuchBucketException" ->
          `NoSuchBucketException (NoSuchBucketException.of_json json)
      | "UnableToUpdateJobIdException" ->
          `UnableToUpdateJobIdException
            (UnableToUpdateJobIdException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BucketPermissionException" ->
          `BucketPermissionException (BucketPermissionException.of_xml xml)
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_xml xml)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_xml xml)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_xml xml)
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_xml xml)
      | "InvalidCustomsException" ->
          `InvalidCustomsException (InvalidCustomsException.of_xml xml)
      | "InvalidFileSystemException" ->
          `InvalidFileSystemException (InvalidFileSystemException.of_xml xml)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_xml xml)
      | "InvalidManifestFieldException" ->
          `InvalidManifestFieldException
            (InvalidManifestFieldException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_xml xml)
      | "MalformedManifestException" ->
          `MalformedManifestException (MalformedManifestException.of_xml xml)
      | "MissingCustomsException" ->
          `MissingCustomsException (MissingCustomsException.of_xml xml)
      | "MissingManifestFieldException" ->
          `MissingManifestFieldException
            (MissingManifestFieldException.of_xml xml)
      | "MissingParameterException" ->
          `MissingParameterException (MissingParameterException.of_xml xml)
      | "MultipleRegionsException" ->
          `MultipleRegionsException (MultipleRegionsException.of_xml xml)
      | "NoSuchBucketException" ->
          `NoSuchBucketException (NoSuchBucketException.of_xml xml)
      | "UnableToUpdateJobIdException" ->
          `UnableToUpdateJobIdException
            (UnableToUpdateJobIdException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BucketPermissionException e ->
          `Assoc
            [("error", (`String "BucketPermissionException"));
            ("details", (BucketPermissionException.to_json e))]
      | `CanceledJobIdException e ->
          `Assoc
            [("error", (`String "CanceledJobIdException"));
            ("details", (CanceledJobIdException.to_json e))]
      | `ExpiredJobIdException e ->
          `Assoc
            [("error", (`String "ExpiredJobIdException"));
            ("details", (ExpiredJobIdException.to_json e))]
      | `InvalidAccessKeyIdException e ->
          `Assoc
            [("error", (`String "InvalidAccessKeyIdException"));
            ("details", (InvalidAccessKeyIdException.to_json e))]
      | `InvalidAddressException e ->
          `Assoc
            [("error", (`String "InvalidAddressException"));
            ("details", (InvalidAddressException.to_json e))]
      | `InvalidCustomsException e ->
          `Assoc
            [("error", (`String "InvalidCustomsException"));
            ("details", (InvalidCustomsException.to_json e))]
      | `InvalidFileSystemException e ->
          `Assoc
            [("error", (`String "InvalidFileSystemException"));
            ("details", (InvalidFileSystemException.to_json e))]
      | `InvalidJobIdException e ->
          `Assoc
            [("error", (`String "InvalidJobIdException"));
            ("details", (InvalidJobIdException.to_json e))]
      | `InvalidManifestFieldException e ->
          `Assoc
            [("error", (`String "InvalidManifestFieldException"));
            ("details", (InvalidManifestFieldException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidVersionException e ->
          `Assoc
            [("error", (`String "InvalidVersionException"));
            ("details", (InvalidVersionException.to_json e))]
      | `MalformedManifestException e ->
          `Assoc
            [("error", (`String "MalformedManifestException"));
            ("details", (MalformedManifestException.to_json e))]
      | `MissingCustomsException e ->
          `Assoc
            [("error", (`String "MissingCustomsException"));
            ("details", (MissingCustomsException.to_json e))]
      | `MissingManifestFieldException e ->
          `Assoc
            [("error", (`String "MissingManifestFieldException"));
            ("details", (MissingManifestFieldException.to_json e))]
      | `MissingParameterException e ->
          `Assoc
            [("error", (`String "MissingParameterException"));
            ("details", (MissingParameterException.to_json e))]
      | `MultipleRegionsException e ->
          `Assoc
            [("error", (`String "MultipleRegionsException"));
            ("details", (MultipleRegionsException.to_json e))]
      | `NoSuchBucketException e ->
          `Assoc
            [("error", (`String "NoSuchBucketException"));
            ("details", (NoSuchBucketException.to_json e))]
      | `UnableToUpdateJobIdException e ->
          `Assoc
            [("error", (`String "UnableToUpdateJobIdException"));
            ("details", (UnableToUpdateJobIdException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.updateJobResult in
      structure_to_wrapped_value
        [("Success", (Option.map x.success ~f:Success.to_value));
        ("WarningMessage",
          (Option.map x.warningMessage ~f:WarningMessage.to_value));
        ("ArtifactList",
          (Option.map x.artifactList ~f:ArtifactList.to_value))]
        ~wrapper:"UpdateJobResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "UpdateJobResult" in
      let artifactList =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "ArtifactList") in
      let warningMessage =
        (Option.map ~f:WarningMessage.of_xml)
          (Xml.child xml_arg0 "WarningMessage") in
      let success =
        (Option.map ~f:Success.of_xml) (Xml.child xml_arg0 "Success") in
      make ?artifactList ?warningMessage ?success ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactList = field_map json__ "ArtifactList" ArtifactList.of_json in
      let warningMessage =
        field_map json__ "WarningMessage" WarningMessage.of_json in
      let success = field_map json__ "Success" Success.of_json in
      make ?artifactList ?warningMessage ?success ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output structure for the UpateJob operation."]
module UpdateJobInput =
  struct
    type nonrec t =
      {
      jobId: JobId.t ;
      manifest: Manifest.t ;
      jobType: JobType.t ;
      validateOnly: ValidateOnly.t ;
      aPIVersion: APIVersion.t option }
    let context_ = "UpdateJobInput"
    let make ?aPIVersion =
      fun ~jobId ->
        fun ~manifest ->
          fun ~jobType ->
            fun ~validateOnly ->
              fun () ->
                { aPIVersion; jobId; manifest; jobType; validateOnly }
    let to_value x =
      structure_to_value
        [("JobId", (Some (JobId.to_value x.jobId)));
        ("Manifest", (Some (Manifest.to_value x.manifest)));
        ("JobType", (Some (JobType.to_value x.jobType)));
        ("ValidateOnly", (Some (ValidateOnly.to_value x.validateOnly)));
        ("APIVersion", (Option.map x.aPIVersion ~f:APIVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aPIVersion =
        (Option.map ~f:APIVersion.of_xml) (Xml.child xml_arg0 "APIVersion") in
      let validateOnly =
        ValidateOnly.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ValidateOnly") in
      let jobType =
        JobType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobType") in
      let manifest =
        Manifest.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Manifest") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ?aPIVersion ~validateOnly ~jobType ~manifest ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aPIVersion = field_map json__ "APIVersion" APIVersion.of_json in
      let validateOnly =
        field_map_exn json__ "ValidateOnly" ValidateOnly.of_json in
      let jobType = field_map_exn json__ "JobType" JobType.of_json in
      let manifest = field_map_exn json__ "Manifest" Manifest.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ?aPIVersion ~validateOnly ~jobType ~manifest ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input structure for the UpateJob operation."]
module ListJobsOutput =
  struct
    type listJobsResult =
      {
      jobs: JobsList.t option ;
      isTruncated: IsTruncated.t option }
    and responseMetaData = unit
    and t =
      {
      listJobsResult: listJobsResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `InvalidAccessKeyIdException of InvalidAccessKeyIdException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidVersionException of InvalidVersionException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "ListJobsOutput"
    let make ?jobs =
      fun ?isTruncated ->
        fun () ->
          { listJobsResult = { jobs; isTruncated }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAccessKeyIdException e ->
          `Assoc
            [("error", (`String "InvalidAccessKeyIdException"));
            ("details", (InvalidAccessKeyIdException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidVersionException e ->
          `Assoc
            [("error", (`String "InvalidVersionException"));
            ("details", (InvalidVersionException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.listJobsResult in
      structure_to_wrapped_value
        [("Jobs", (Option.map x.jobs ~f:JobsList.to_value));
        ("IsTruncated", (Option.map x.isTruncated ~f:IsTruncated.to_value))]
        ~wrapper:"ListJobsResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "ListJobsResult" in
      let isTruncated =
        (Option.map ~f:IsTruncated.of_xml) (Xml.child xml_arg0 "IsTruncated") in
      let jobs = (Option.map ~f:JobsList.of_xml) (Xml.child xml_arg0 "Jobs") in
      make ?isTruncated ?jobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isTruncated = field_map json__ "IsTruncated" IsTruncated.of_json in
      let jobs = field_map json__ "Jobs" JobsList.of_json in
      make ?isTruncated ?jobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output structure for the ListJobs operation."]
module ListJobsInput =
  struct
    type nonrec t =
      {
      maxJobs: MaxJobs.t option ;
      marker: Marker.t option ;
      aPIVersion: APIVersion.t option }
    let make ?maxJobs =
      fun ?marker ->
        fun ?aPIVersion -> fun () -> { maxJobs; marker; aPIVersion }
    let to_value x =
      structure_to_value
        [("MaxJobs", (Option.map x.maxJobs ~f:MaxJobs.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("APIVersion", (Option.map x.aPIVersion ~f:APIVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aPIVersion =
        (Option.map ~f:APIVersion.of_xml) (Xml.child xml_arg0 "APIVersion") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let maxJobs =
        (Option.map ~f:MaxJobs.of_xml) (Xml.child xml_arg0 "MaxJobs") in
      make ?aPIVersion ?marker ?maxJobs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aPIVersion = field_map json__ "APIVersion" APIVersion.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let maxJobs = field_map json__ "MaxJobs" MaxJobs.of_json in
      make ?aPIVersion ?marker ?maxJobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input structure for the ListJobs operation."]
module GetStatusOutput =
  struct
    type getStatusResult =
      {
      jobId: JobId.t option ;
      jobType: JobType.t option ;
      locationCode: LocationCode.t option ;
      locationMessage: LocationMessage.t option ;
      progressCode: ProgressCode.t option ;
      progressMessage: ProgressMessage.t option ;
      carrier: Carrier.t option ;
      trackingNumber: TrackingNumber.t option ;
      logBucket: LogBucket.t option ;
      logKey: LogKey.t option ;
      errorCount: ErrorCount.t option ;
      signature: Signature.t option ;
      signatureFileContents: Signature.t option ;
      currentManifest: CurrentManifest.t option ;
      creationDate: CreationDate.t option ;
      artifactList: ArtifactList.t option }
    and responseMetaData = unit
    and t =
      {
      getStatusResult: getStatusResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CanceledJobIdException of CanceledJobIdException.t 
      | `ExpiredJobIdException of ExpiredJobIdException.t 
      | `InvalidAccessKeyIdException of InvalidAccessKeyIdException.t 
      | `InvalidJobIdException of InvalidJobIdException.t 
      | `InvalidVersionException of InvalidVersionException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetStatusOutput"
    let make ?jobId =
      fun ?jobType ->
        fun ?locationCode ->
          fun ?locationMessage ->
            fun ?progressCode ->
              fun ?progressMessage ->
                fun ?carrier ->
                  fun ?trackingNumber ->
                    fun ?logBucket ->
                      fun ?logKey ->
                        fun ?errorCount ->
                          fun ?signature ->
                            fun ?signatureFileContents ->
                              fun ?currentManifest ->
                                fun ?creationDate ->
                                  fun ?artifactList ->
                                    fun () ->
                                      {
                                        getStatusResult =
                                          {
                                            jobId;
                                            jobType;
                                            locationCode;
                                            locationMessage;
                                            progressCode;
                                            progressMessage;
                                            carrier;
                                            trackingNumber;
                                            logBucket;
                                            logKey;
                                            errorCount;
                                            signature;
                                            signatureFileContents;
                                            currentManifest;
                                            creationDate;
                                            artifactList
                                          };
                                        responseMetaData = ()
                                      }
    let error_of_json name json =
      match name with
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_json json)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_json json)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_json json)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_json json)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_xml xml)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_xml xml)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_xml xml)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_xml xml)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CanceledJobIdException e ->
          `Assoc
            [("error", (`String "CanceledJobIdException"));
            ("details", (CanceledJobIdException.to_json e))]
      | `ExpiredJobIdException e ->
          `Assoc
            [("error", (`String "ExpiredJobIdException"));
            ("details", (ExpiredJobIdException.to_json e))]
      | `InvalidAccessKeyIdException e ->
          `Assoc
            [("error", (`String "InvalidAccessKeyIdException"));
            ("details", (InvalidAccessKeyIdException.to_json e))]
      | `InvalidJobIdException e ->
          `Assoc
            [("error", (`String "InvalidJobIdException"));
            ("details", (InvalidJobIdException.to_json e))]
      | `InvalidVersionException e ->
          `Assoc
            [("error", (`String "InvalidVersionException"));
            ("details", (InvalidVersionException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getStatusResult in
      structure_to_wrapped_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("JobType", (Option.map x.jobType ~f:JobType.to_value));
        ("LocationCode",
          (Option.map x.locationCode ~f:LocationCode.to_value));
        ("LocationMessage",
          (Option.map x.locationMessage ~f:LocationMessage.to_value));
        ("ProgressCode",
          (Option.map x.progressCode ~f:ProgressCode.to_value));
        ("ProgressMessage",
          (Option.map x.progressMessage ~f:ProgressMessage.to_value));
        ("Carrier", (Option.map x.carrier ~f:Carrier.to_value));
        ("TrackingNumber",
          (Option.map x.trackingNumber ~f:TrackingNumber.to_value));
        ("LogBucket", (Option.map x.logBucket ~f:LogBucket.to_value));
        ("LogKey", (Option.map x.logKey ~f:LogKey.to_value));
        ("ErrorCount", (Option.map x.errorCount ~f:ErrorCount.to_value));
        ("Signature", (Option.map x.signature ~f:Signature.to_value));
        ("SignatureFileContents",
          (Option.map x.signatureFileContents ~f:Signature.to_value));
        ("CurrentManifest",
          (Option.map x.currentManifest ~f:CurrentManifest.to_value));
        ("CreationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("ArtifactList",
          (Option.map x.artifactList ~f:ArtifactList.to_value))]
        ~wrapper:"GetStatusResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "GetStatusResult" in
      let artifactList =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "ArtifactList") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "CreationDate") in
      let currentManifest =
        (Option.map ~f:CurrentManifest.of_xml)
          (Xml.child xml_arg0 "CurrentManifest") in
      let signatureFileContents =
        (Option.map ~f:Signature.of_xml)
          (Xml.child xml_arg0 "SignatureFileContents") in
      let signature =
        (Option.map ~f:Signature.of_xml) (Xml.child xml_arg0 "Signature") in
      let errorCount =
        (Option.map ~f:ErrorCount.of_xml) (Xml.child xml_arg0 "ErrorCount") in
      let logKey =
        (Option.map ~f:LogKey.of_xml) (Xml.child xml_arg0 "LogKey") in
      let logBucket =
        (Option.map ~f:LogBucket.of_xml) (Xml.child xml_arg0 "LogBucket") in
      let trackingNumber =
        (Option.map ~f:TrackingNumber.of_xml)
          (Xml.child xml_arg0 "TrackingNumber") in
      let carrier =
        (Option.map ~f:Carrier.of_xml) (Xml.child xml_arg0 "Carrier") in
      let progressMessage =
        (Option.map ~f:ProgressMessage.of_xml)
          (Xml.child xml_arg0 "ProgressMessage") in
      let progressCode =
        (Option.map ~f:ProgressCode.of_xml)
          (Xml.child xml_arg0 "ProgressCode") in
      let locationMessage =
        (Option.map ~f:LocationMessage.of_xml)
          (Xml.child xml_arg0 "LocationMessage") in
      let locationCode =
        (Option.map ~f:LocationCode.of_xml)
          (Xml.child xml_arg0 "LocationCode") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?artifactList ?creationDate ?currentManifest
        ?signatureFileContents ?signature ?errorCount ?logKey ?logBucket
        ?trackingNumber ?carrier ?progressMessage ?progressCode
        ?locationMessage ?locationCode ?jobType ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactList = field_map json__ "ArtifactList" ArtifactList.of_json in
      let creationDate = field_map json__ "CreationDate" CreationDate.of_json in
      let currentManifest =
        field_map json__ "CurrentManifest" CurrentManifest.of_json in
      let signatureFileContents =
        field_map json__ "SignatureFileContents" Signature.of_json in
      let signature = field_map json__ "Signature" Signature.of_json in
      let errorCount = field_map json__ "ErrorCount" ErrorCount.of_json in
      let logKey = field_map json__ "LogKey" LogKey.of_json in
      let logBucket = field_map json__ "LogBucket" LogBucket.of_json in
      let trackingNumber =
        field_map json__ "TrackingNumber" TrackingNumber.of_json in
      let carrier = field_map json__ "Carrier" Carrier.of_json in
      let progressMessage =
        field_map json__ "ProgressMessage" ProgressMessage.of_json in
      let progressCode = field_map json__ "ProgressCode" ProgressCode.of_json in
      let locationMessage =
        field_map json__ "LocationMessage" LocationMessage.of_json in
      let locationCode = field_map json__ "LocationCode" LocationCode.of_json in
      let jobType = field_map json__ "JobType" JobType.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?artifactList ?creationDate ?currentManifest
        ?signatureFileContents ?signature ?errorCount ?logKey ?logBucket
        ?trackingNumber ?carrier ?progressMessage ?progressCode
        ?locationMessage ?locationCode ?jobType ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output structure for the GetStatus operation."]
module GetStatusInput =
  struct
    type nonrec t = {
      jobId: JobId.t ;
      aPIVersion: APIVersion.t option }
    let context_ = "GetStatusInput"
    let make ?aPIVersion = fun ~jobId -> fun () -> { aPIVersion; jobId }
    let to_value x =
      structure_to_value
        [("JobId", (Some (JobId.to_value x.jobId)));
        ("APIVersion", (Option.map x.aPIVersion ~f:APIVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aPIVersion =
        (Option.map ~f:APIVersion.of_xml) (Xml.child xml_arg0 "APIVersion") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ?aPIVersion ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aPIVersion = field_map json__ "APIVersion" APIVersion.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ?aPIVersion ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input structure for the GetStatus operation."]
module GetShippingLabelOutput =
  struct
    type getShippingLabelResult =
      {
      shippingLabelURL: GenericString.t option ;
      warning: GenericString.t option }
    and responseMetaData = unit
    and t =
      {
      getShippingLabelResult: getShippingLabelResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CanceledJobIdException of CanceledJobIdException.t 
      | `ExpiredJobIdException of ExpiredJobIdException.t 
      | `InvalidAccessKeyIdException of InvalidAccessKeyIdException.t 
      | `InvalidAddressException of InvalidAddressException.t 
      | `InvalidJobIdException of InvalidJobIdException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidVersionException of InvalidVersionException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "GetShippingLabelOutput"
    let make ?shippingLabelURL =
      fun ?warning ->
        fun () ->
          {
            getShippingLabelResult = { shippingLabelURL; warning };
            responseMetaData = ()
          }
    let error_of_json name json =
      match name with
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_json json)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_json json)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_json json)
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_json json)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_xml xml)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_xml xml)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_xml xml)
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_xml xml)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CanceledJobIdException e ->
          `Assoc
            [("error", (`String "CanceledJobIdException"));
            ("details", (CanceledJobIdException.to_json e))]
      | `ExpiredJobIdException e ->
          `Assoc
            [("error", (`String "ExpiredJobIdException"));
            ("details", (ExpiredJobIdException.to_json e))]
      | `InvalidAccessKeyIdException e ->
          `Assoc
            [("error", (`String "InvalidAccessKeyIdException"));
            ("details", (InvalidAccessKeyIdException.to_json e))]
      | `InvalidAddressException e ->
          `Assoc
            [("error", (`String "InvalidAddressException"));
            ("details", (InvalidAddressException.to_json e))]
      | `InvalidJobIdException e ->
          `Assoc
            [("error", (`String "InvalidJobIdException"));
            ("details", (InvalidJobIdException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidVersionException e ->
          `Assoc
            [("error", (`String "InvalidVersionException"));
            ("details", (InvalidVersionException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.getShippingLabelResult in
      structure_to_wrapped_value
        [("ShippingLabelURL",
           (Option.map x.shippingLabelURL ~f:GenericString.to_value));
        ("Warning", (Option.map x.warning ~f:GenericString.to_value))]
        ~wrapper:"GetShippingLabelResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 =
        Xml.child_exn ~context:context_ t "GetShippingLabelResult" in
      let warning =
        (Option.map ~f:GenericString.of_xml) (Xml.child xml_arg0 "Warning") in
      let shippingLabelURL =
        (Option.map ~f:GenericString.of_xml)
          (Xml.child xml_arg0 "ShippingLabelURL") in
      make ?warning ?shippingLabelURL ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let warning = field_map json__ "Warning" GenericString.of_json in
      let shippingLabelURL =
        field_map json__ "ShippingLabelURL" GenericString.of_json in
      make ?warning ?shippingLabelURL ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation generates a pre-paid UPS shipping label that you will use to ship your device to AWS for processing."]
module GetShippingLabelInput =
  struct
    type nonrec t =
      {
      jobIds: JobIdList.t ;
      name: Name.t option ;
      company: Company.t option ;
      phoneNumber: PhoneNumber.t option ;
      country: Country.t option ;
      stateOrProvince: StateOrProvince.t option ;
      city: City.t option ;
      postalCode: PostalCode.t option ;
      street1: Street1.t option ;
      street2: Street2.t option ;
      street3: Street3.t option ;
      aPIVersion: APIVersion.t option }
    let context_ = "GetShippingLabelInput"
    let make ?name =
      fun ?company ->
        fun ?phoneNumber ->
          fun ?country ->
            fun ?stateOrProvince ->
              fun ?city ->
                fun ?postalCode ->
                  fun ?street1 ->
                    fun ?street2 ->
                      fun ?street3 ->
                        fun ?aPIVersion ->
                          fun ~jobIds ->
                            fun () ->
                              {
                                name;
                                company;
                                phoneNumber;
                                country;
                                stateOrProvince;
                                city;
                                postalCode;
                                street1;
                                street2;
                                street3;
                                aPIVersion;
                                jobIds
                              }
    let to_value x =
      structure_to_value
        [("jobIds", (Some (JobIdList.to_value x.jobIds)));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("company", (Option.map x.company ~f:Company.to_value));
        ("phoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("country", (Option.map x.country ~f:Country.to_value));
        ("stateOrProvince",
          (Option.map x.stateOrProvince ~f:StateOrProvince.to_value));
        ("city", (Option.map x.city ~f:City.to_value));
        ("postalCode", (Option.map x.postalCode ~f:PostalCode.to_value));
        ("street1", (Option.map x.street1 ~f:Street1.to_value));
        ("street2", (Option.map x.street2 ~f:Street2.to_value));
        ("street3", (Option.map x.street3 ~f:Street3.to_value));
        ("APIVersion", (Option.map x.aPIVersion ~f:APIVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aPIVersion =
        (Option.map ~f:APIVersion.of_xml) (Xml.child xml_arg0 "APIVersion") in
      let street3 =
        (Option.map ~f:Street3.of_xml) (Xml.child xml_arg0 "Street3") in
      let street2 =
        (Option.map ~f:Street2.of_xml) (Xml.child xml_arg0 "Street2") in
      let street1 =
        (Option.map ~f:Street1.of_xml) (Xml.child xml_arg0 "Street1") in
      let postalCode =
        (Option.map ~f:PostalCode.of_xml) (Xml.child xml_arg0 "PostalCode") in
      let city = (Option.map ~f:City.of_xml) (Xml.child xml_arg0 "City") in
      let stateOrProvince =
        (Option.map ~f:StateOrProvince.of_xml)
          (Xml.child xml_arg0 "StateOrProvince") in
      let country =
        (Option.map ~f:Country.of_xml) (Xml.child xml_arg0 "Country") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let company =
        (Option.map ~f:Company.of_xml) (Xml.child xml_arg0 "Company") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let jobIds =
        JobIdList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobIds") in
      make ?aPIVersion ?street3 ?street2 ?street1 ?postalCode ?city
        ?stateOrProvince ?country ?phoneNumber ?company ?name ~jobIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aPIVersion = field_map json__ "APIVersion" APIVersion.of_json in
      let street3 = field_map json__ "street3" Street3.of_json in
      let street2 = field_map json__ "street2" Street2.of_json in
      let street1 = field_map json__ "street1" Street1.of_json in
      let postalCode = field_map json__ "postalCode" PostalCode.of_json in
      let city = field_map json__ "city" City.of_json in
      let stateOrProvince =
        field_map json__ "stateOrProvince" StateOrProvince.of_json in
      let country = field_map json__ "country" Country.of_json in
      let phoneNumber = field_map json__ "phoneNumber" PhoneNumber.of_json in
      let company = field_map json__ "company" Company.of_json in
      let name = field_map json__ "name" Name.of_json in
      let jobIds = field_map_exn json__ "jobIds" JobIdList.of_json in
      make ?aPIVersion ?street3 ?street2 ?street1 ?postalCode ?city
        ?stateOrProvince ?country ?phoneNumber ?company ?name ~jobIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation generates a pre-paid UPS shipping label that you will use to ship your device to AWS for processing."]
module CreateJobOutput =
  struct
    type createJobResult =
      {
      jobId: JobId.t option ;
      jobType: JobType.t option ;
      signature: Signature.t option ;
      signatureFileContents: SignatureFileContents.t option ;
      warningMessage: WarningMessage.t option ;
      artifactList: ArtifactList.t option }
    and responseMetaData = unit
    and t =
      {
      createJobResult: createJobResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `BucketPermissionException of BucketPermissionException.t 
      | `CreateJobQuotaExceededException of CreateJobQuotaExceededException.t 
      | `InvalidAccessKeyIdException of InvalidAccessKeyIdException.t 
      | `InvalidAddressException of InvalidAddressException.t 
      | `InvalidCustomsException of InvalidCustomsException.t 
      | `InvalidFileSystemException of InvalidFileSystemException.t 
      | `InvalidJobIdException of InvalidJobIdException.t 
      | `InvalidManifestFieldException of InvalidManifestFieldException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `InvalidVersionException of InvalidVersionException.t 
      | `MalformedManifestException of MalformedManifestException.t 
      | `MissingCustomsException of MissingCustomsException.t 
      | `MissingManifestFieldException of MissingManifestFieldException.t 
      | `MissingParameterException of MissingParameterException.t 
      | `MultipleRegionsException of MultipleRegionsException.t 
      | `NoSuchBucketException of NoSuchBucketException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CreateJobOutput"
    let make ?jobId =
      fun ?jobType ->
        fun ?signature ->
          fun ?signatureFileContents ->
            fun ?warningMessage ->
              fun ?artifactList ->
                fun () ->
                  {
                    createJobResult =
                      {
                        jobId;
                        jobType;
                        signature;
                        signatureFileContents;
                        warningMessage;
                        artifactList
                      };
                    responseMetaData = ()
                  }
    let error_of_json name json =
      match name with
      | "BucketPermissionException" ->
          `BucketPermissionException (BucketPermissionException.of_json json)
      | "CreateJobQuotaExceededException" ->
          `CreateJobQuotaExceededException
            (CreateJobQuotaExceededException.of_json json)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_json json)
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_json json)
      | "InvalidCustomsException" ->
          `InvalidCustomsException (InvalidCustomsException.of_json json)
      | "InvalidFileSystemException" ->
          `InvalidFileSystemException
            (InvalidFileSystemException.of_json json)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_json json)
      | "InvalidManifestFieldException" ->
          `InvalidManifestFieldException
            (InvalidManifestFieldException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_json json)
      | "MalformedManifestException" ->
          `MalformedManifestException
            (MalformedManifestException.of_json json)
      | "MissingCustomsException" ->
          `MissingCustomsException (MissingCustomsException.of_json json)
      | "MissingManifestFieldException" ->
          `MissingManifestFieldException
            (MissingManifestFieldException.of_json json)
      | "MissingParameterException" ->
          `MissingParameterException (MissingParameterException.of_json json)
      | "MultipleRegionsException" ->
          `MultipleRegionsException (MultipleRegionsException.of_json json)
      | "NoSuchBucketException" ->
          `NoSuchBucketException (NoSuchBucketException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BucketPermissionException" ->
          `BucketPermissionException (BucketPermissionException.of_xml xml)
      | "CreateJobQuotaExceededException" ->
          `CreateJobQuotaExceededException
            (CreateJobQuotaExceededException.of_xml xml)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_xml xml)
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_xml xml)
      | "InvalidCustomsException" ->
          `InvalidCustomsException (InvalidCustomsException.of_xml xml)
      | "InvalidFileSystemException" ->
          `InvalidFileSystemException (InvalidFileSystemException.of_xml xml)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_xml xml)
      | "InvalidManifestFieldException" ->
          `InvalidManifestFieldException
            (InvalidManifestFieldException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_xml xml)
      | "MalformedManifestException" ->
          `MalformedManifestException (MalformedManifestException.of_xml xml)
      | "MissingCustomsException" ->
          `MissingCustomsException (MissingCustomsException.of_xml xml)
      | "MissingManifestFieldException" ->
          `MissingManifestFieldException
            (MissingManifestFieldException.of_xml xml)
      | "MissingParameterException" ->
          `MissingParameterException (MissingParameterException.of_xml xml)
      | "MultipleRegionsException" ->
          `MultipleRegionsException (MultipleRegionsException.of_xml xml)
      | "NoSuchBucketException" ->
          `NoSuchBucketException (NoSuchBucketException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BucketPermissionException e ->
          `Assoc
            [("error", (`String "BucketPermissionException"));
            ("details", (BucketPermissionException.to_json e))]
      | `CreateJobQuotaExceededException e ->
          `Assoc
            [("error", (`String "CreateJobQuotaExceededException"));
            ("details", (CreateJobQuotaExceededException.to_json e))]
      | `InvalidAccessKeyIdException e ->
          `Assoc
            [("error", (`String "InvalidAccessKeyIdException"));
            ("details", (InvalidAccessKeyIdException.to_json e))]
      | `InvalidAddressException e ->
          `Assoc
            [("error", (`String "InvalidAddressException"));
            ("details", (InvalidAddressException.to_json e))]
      | `InvalidCustomsException e ->
          `Assoc
            [("error", (`String "InvalidCustomsException"));
            ("details", (InvalidCustomsException.to_json e))]
      | `InvalidFileSystemException e ->
          `Assoc
            [("error", (`String "InvalidFileSystemException"));
            ("details", (InvalidFileSystemException.to_json e))]
      | `InvalidJobIdException e ->
          `Assoc
            [("error", (`String "InvalidJobIdException"));
            ("details", (InvalidJobIdException.to_json e))]
      | `InvalidManifestFieldException e ->
          `Assoc
            [("error", (`String "InvalidManifestFieldException"));
            ("details", (InvalidManifestFieldException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `InvalidVersionException e ->
          `Assoc
            [("error", (`String "InvalidVersionException"));
            ("details", (InvalidVersionException.to_json e))]
      | `MalformedManifestException e ->
          `Assoc
            [("error", (`String "MalformedManifestException"));
            ("details", (MalformedManifestException.to_json e))]
      | `MissingCustomsException e ->
          `Assoc
            [("error", (`String "MissingCustomsException"));
            ("details", (MissingCustomsException.to_json e))]
      | `MissingManifestFieldException e ->
          `Assoc
            [("error", (`String "MissingManifestFieldException"));
            ("details", (MissingManifestFieldException.to_json e))]
      | `MissingParameterException e ->
          `Assoc
            [("error", (`String "MissingParameterException"));
            ("details", (MissingParameterException.to_json e))]
      | `MultipleRegionsException e ->
          `Assoc
            [("error", (`String "MultipleRegionsException"));
            ("details", (MultipleRegionsException.to_json e))]
      | `NoSuchBucketException e ->
          `Assoc
            [("error", (`String "NoSuchBucketException"));
            ("details", (NoSuchBucketException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.createJobResult in
      structure_to_wrapped_value
        [("JobId", (Option.map x.jobId ~f:JobId.to_value));
        ("JobType", (Option.map x.jobType ~f:JobType.to_value));
        ("Signature", (Option.map x.signature ~f:Signature.to_value));
        ("SignatureFileContents",
          (Option.map x.signatureFileContents
             ~f:SignatureFileContents.to_value));
        ("WarningMessage",
          (Option.map x.warningMessage ~f:WarningMessage.to_value));
        ("ArtifactList",
          (Option.map x.artifactList ~f:ArtifactList.to_value))]
        ~wrapper:"CreateJobResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "CreateJobResult" in
      let artifactList =
        (Option.map ~f:ArtifactList.of_xml)
          (Xml.child xml_arg0 "ArtifactList") in
      let warningMessage =
        (Option.map ~f:WarningMessage.of_xml)
          (Xml.child xml_arg0 "WarningMessage") in
      let signatureFileContents =
        (Option.map ~f:SignatureFileContents.of_xml)
          (Xml.child xml_arg0 "SignatureFileContents") in
      let signature =
        (Option.map ~f:Signature.of_xml) (Xml.child xml_arg0 "Signature") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?artifactList ?warningMessage ?signatureFileContents ?signature
        ?jobType ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let artifactList = field_map json__ "ArtifactList" ArtifactList.of_json in
      let warningMessage =
        field_map json__ "WarningMessage" WarningMessage.of_json in
      let signatureFileContents =
        field_map json__ "SignatureFileContents"
          SignatureFileContents.of_json in
      let signature = field_map json__ "Signature" Signature.of_json in
      let jobType = field_map json__ "JobType" JobType.of_json in
      let jobId = field_map json__ "JobId" JobId.of_json in
      make ?artifactList ?warningMessage ?signatureFileContents ?signature
        ?jobType ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output structure for the CreateJob operation."]
module CreateJobInput =
  struct
    type nonrec t =
      {
      jobType: JobType.t ;
      manifest: Manifest.t ;
      manifestAddendum: ManifestAddendum.t option ;
      validateOnly: ValidateOnly.t ;
      aPIVersion: APIVersion.t option }
    let context_ = "CreateJobInput"
    let make ?manifestAddendum =
      fun ?aPIVersion ->
        fun ~jobType ->
          fun ~manifest ->
            fun ~validateOnly ->
              fun () ->
                {
                  manifestAddendum;
                  aPIVersion;
                  jobType;
                  manifest;
                  validateOnly
                }
    let to_value x =
      structure_to_value
        [("JobType", (Some (JobType.to_value x.jobType)));
        ("Manifest", (Some (Manifest.to_value x.manifest)));
        ("ManifestAddendum",
          (Option.map x.manifestAddendum ~f:ManifestAddendum.to_value));
        ("ValidateOnly", (Some (ValidateOnly.to_value x.validateOnly)));
        ("APIVersion", (Option.map x.aPIVersion ~f:APIVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aPIVersion =
        (Option.map ~f:APIVersion.of_xml) (Xml.child xml_arg0 "APIVersion") in
      let validateOnly =
        ValidateOnly.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ValidateOnly") in
      let manifestAddendum =
        (Option.map ~f:ManifestAddendum.of_xml)
          (Xml.child xml_arg0 "ManifestAddendum") in
      let manifest =
        Manifest.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Manifest") in
      let jobType =
        JobType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobType") in
      make ?aPIVersion ~validateOnly ?manifestAddendum ~manifest ~jobType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aPIVersion = field_map json__ "APIVersion" APIVersion.of_json in
      let validateOnly =
        field_map_exn json__ "ValidateOnly" ValidateOnly.of_json in
      let manifestAddendum =
        field_map json__ "ManifestAddendum" ManifestAddendum.of_json in
      let manifest = field_map_exn json__ "Manifest" Manifest.of_json in
      let jobType = field_map_exn json__ "JobType" JobType.of_json in
      make ?aPIVersion ~validateOnly ?manifestAddendum ~manifest ~jobType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input structure for the CreateJob operation."]
module CancelJobOutput =
  struct
    type cancelJobResult = {
      success: Success.t option }
    and responseMetaData = unit
    and t =
      {
      cancelJobResult: cancelJobResult ;
      responseMetaData: responseMetaData }
    type error =
      [ `CanceledJobIdException of CanceledJobIdException.t 
      | `ExpiredJobIdException of ExpiredJobIdException.t 
      | `InvalidAccessKeyIdException of InvalidAccessKeyIdException.t 
      | `InvalidJobIdException of InvalidJobIdException.t 
      | `InvalidVersionException of InvalidVersionException.t 
      | `UnableToCancelJobIdException of UnableToCancelJobIdException.t 
      | `Unknown_operation_error of (string * string option) ]
    let context_ = "CancelJobOutput"
    let make ?success =
      fun () -> { cancelJobResult = { success }; responseMetaData = () }
    let error_of_json name json =
      match name with
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_json json)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_json json)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_json json)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_json json)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_json json)
      | "UnableToCancelJobIdException" ->
          `UnableToCancelJobIdException
            (UnableToCancelJobIdException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CanceledJobIdException" ->
          `CanceledJobIdException (CanceledJobIdException.of_xml xml)
      | "ExpiredJobIdException" ->
          `ExpiredJobIdException (ExpiredJobIdException.of_xml xml)
      | "InvalidAccessKeyIdException" ->
          `InvalidAccessKeyIdException
            (InvalidAccessKeyIdException.of_xml xml)
      | "InvalidJobIdException" ->
          `InvalidJobIdException (InvalidJobIdException.of_xml xml)
      | "InvalidVersionException" ->
          `InvalidVersionException (InvalidVersionException.of_xml xml)
      | "UnableToCancelJobIdException" ->
          `UnableToCancelJobIdException
            (UnableToCancelJobIdException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CanceledJobIdException e ->
          `Assoc
            [("error", (`String "CanceledJobIdException"));
            ("details", (CanceledJobIdException.to_json e))]
      | `ExpiredJobIdException e ->
          `Assoc
            [("error", (`String "ExpiredJobIdException"));
            ("details", (ExpiredJobIdException.to_json e))]
      | `InvalidAccessKeyIdException e ->
          `Assoc
            [("error", (`String "InvalidAccessKeyIdException"));
            ("details", (InvalidAccessKeyIdException.to_json e))]
      | `InvalidJobIdException e ->
          `Assoc
            [("error", (`String "InvalidJobIdException"));
            ("details", (InvalidJobIdException.to_json e))]
      | `InvalidVersionException e ->
          `Assoc
            [("error", (`String "InvalidVersionException"));
            ("details", (InvalidVersionException.to_json e))]
      | `UnableToCancelJobIdException e ->
          `Assoc
            [("error", (`String "UnableToCancelJobIdException"));
            ("details", (UnableToCancelJobIdException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value t =
      let x = t.cancelJobResult in
      structure_to_wrapped_value
        [("Success", (Option.map x.success ~f:Success.to_value))]
        ~wrapper:"CancelJobResult" ~response:"ResponseMetaData"
    let to_query v = to_query to_value v
    let of_xml t =
      let xml_arg0 = Xml.child_exn ~context:context_ t "CancelJobResult" in
      let success =
        (Option.map ~f:Success.of_xml) (Xml.child xml_arg0 "Success") in
      make ?success ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let success = field_map json__ "Success" Success.of_json in
      make ?success ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Output structure for the CancelJob operation."]
module CancelJobInput =
  struct
    type nonrec t = {
      jobId: JobId.t ;
      aPIVersion: APIVersion.t option }
    let context_ = "CancelJobInput"
    let make ?aPIVersion = fun ~jobId -> fun () -> { aPIVersion; jobId }
    let to_value x =
      structure_to_value
        [("JobId", (Some (JobId.to_value x.jobId)));
        ("APIVersion", (Option.map x.aPIVersion ~f:APIVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let aPIVersion =
        (Option.map ~f:APIVersion.of_xml) (Xml.child xml_arg0 "APIVersion") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ?aPIVersion ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let aPIVersion = field_map json__ "APIVersion" APIVersion.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ?aPIVersion ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Input structure for the CancelJob operation."]