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.snowball
let apiVersion = "2016-06-30"
let endpointPrefix = "snowball"
let serviceFullName = "Amazon Import/Export Snowball"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Amazon Snowball"
let targetPrefix = "AWSIESnowballJobManagementService"
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 ResourceARN =
  struct
    type nonrec t = string
    let context_ = "ResourceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_pattern i ~pattern:"arn:aws.*:*"));
        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:"ResourceARN" j
    let to_json = simple_to_json to_value
  end
module DeviceServiceName =
  struct
    type nonrec t =
      | NFS_ON_DEVICE_SERVICE 
      | S3_ON_DEVICE_SERVICE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NFS_ON_DEVICE_SERVICE -> "NFS_ON_DEVICE_SERVICE"
      | S3_ON_DEVICE_SERVICE -> "S3_ON_DEVICE_SERVICE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NFS_ON_DEVICE_SERVICE" -> NFS_ON_DEVICE_SERVICE
      | "S3_ON_DEVICE_SERVICE" -> S3_ON_DEVICE_SERVICE
      | 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 DeviceServiceName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeviceServiceName" j)
    let to_json = simple_to_json to_value
  end
module TransferOption =
  struct
    type nonrec t =
      | IMPORT 
      | EXPORT 
      | LOCAL_USE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IMPORT -> "IMPORT"
      | EXPORT -> "EXPORT"
      | LOCAL_USE -> "LOCAL_USE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IMPORT" -> IMPORT
      | "EXPORT" -> EXPORT
      | "LOCAL_USE" -> LOCAL_USE
      | 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 TransferOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TransferOption" j)
    let to_json = simple_to_json to_value
  end
module EventTriggerDefinition =
  struct
    type nonrec t =
      {
      eventResourceARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for any local Amazon S3 resource that is an Lambda function's event trigger associated with this job."]}
    let make ?eventResourceARN = fun () -> { eventResourceARN }
    let to_value x =
      structure_to_value
        [("EventResourceARN",
           (Option.map x.eventResourceARN ~f:ResourceARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventResourceARN =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "EventResourceARN") in
      make ?eventResourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventResourceARN =
        field_map json__ "EventResourceARN" ResourceARN.of_json in
      make ?eventResourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The container for the EventTriggerDefinition$EventResourceARN."]
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module TargetOnDeviceService =
  struct
    type nonrec t =
      {
      serviceName: DeviceServiceName.t option
        [@ocaml.doc
          "Specifies the name of the service on the Snow Family device that your transferred data will be exported from or imported into."];
      transferOption: TransferOption.t option
        [@ocaml.doc
          "Specifies whether the data is being imported or exported. You can import or export the data, or use it locally on the device."]}
    let make ?serviceName =
      fun ?transferOption -> fun () -> { serviceName; transferOption }
    let to_value x =
      structure_to_value
        [("ServiceName",
           (Option.map x.serviceName ~f:DeviceServiceName.to_value));
        ("TransferOption",
          (Option.map x.transferOption ~f:TransferOption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transferOption =
        (Option.map ~f:TransferOption.of_xml)
          (Xml.child xml_arg0 "TransferOption") in
      let serviceName =
        (Option.map ~f:DeviceServiceName.of_xml)
          (Xml.child xml_arg0 "ServiceName") in
      make ?transferOption ?serviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transferOption =
        field_map json__ "TransferOption" TransferOption.of_json in
      let serviceName =
        field_map json__ "ServiceName" DeviceServiceName.of_json in
      make ?transferOption ?serviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents the service or services on the Snow Family device that your transferred data will be exported from or imported into. Amazon Web Services Snow Family supports Amazon S3 and NFS (Network File System)."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module AmiId =
  struct
    type nonrec t = string
    let context_ = "AmiId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:21) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(ami-[0-9a-f]{8})|(ami-[0-9a-f]{17})")));
        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:"AmiId" j
    let to_json = simple_to_json to_value
  end
module EventTriggerDefinitionList =
  struct
    type nonrec t = EventTriggerDefinition.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:EventTriggerDefinition.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:EventTriggerDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"EventTriggerDefinitionList"
        ~of_json:EventTriggerDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module KeyRange =
  struct
    type nonrec t =
      {
      beginMarker: String_.t option
        [@ocaml.doc
          "The key that starts an optional key range for an export job. Ranges are inclusive and UTF-8 binary sorted."];
      endMarker: String_.t option
        [@ocaml.doc
          "The key that ends an optional key range for an export job. Ranges are inclusive and UTF-8 binary sorted."]}
    let make ?beginMarker =
      fun ?endMarker -> fun () -> { beginMarker; endMarker }
    let to_value x =
      structure_to_value
        [("BeginMarker", (Option.map x.beginMarker ~f:String_.to_value));
        ("EndMarker", (Option.map x.endMarker ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endMarker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "EndMarker") in
      let beginMarker =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "BeginMarker") in
      make ?endMarker ?beginMarker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endMarker = field_map json__ "EndMarker" String_.of_json in
      let beginMarker = field_map json__ "BeginMarker" String_.of_json in
      make ?endMarker ?beginMarker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a key range. For export jobs, a S3Resource object can have an optional KeyRange value. The length of the range is defined at job creation, and has either an inclusive BeginMarker, an inclusive EndMarker, or both. Ranges are UTF-8 binary sorted."]
module TargetOnDeviceServiceList =
  struct
    type nonrec t = TargetOnDeviceService.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:TargetOnDeviceService.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:TargetOnDeviceService.of_xml)
    let of_json j =
      list_of_json ~kind:"TargetOnDeviceServiceList"
        ~of_json:TargetOnDeviceService.of_json j
    let to_json v = composed_to_json to_value v
  end
module WirelessConnection =
  struct
    type nonrec t =
      {
      isWifiEnabled: Boolean.t option
        [@ocaml.doc "Enables the Wi-Fi adapter on an Snowball Edge device."]}
    let make ?isWifiEnabled = fun () -> { isWifiEnabled }
    let to_value x =
      structure_to_value
        [("IsWifiEnabled", (Option.map x.isWifiEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isWifiEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsWifiEnabled") in
      make ?isWifiEnabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isWifiEnabled = field_map json__ "IsWifiEnabled" Boolean.of_json in
      make ?isWifiEnabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures the wireless connection on an Snowball Edge device."]
module Ec2AmiResource =
  struct
    type nonrec t =
      {
      amiId: AmiId.t [@ocaml.doc "The ID of the AMI in Amazon EC2."];
      snowballAmiId: String_.t option
        [@ocaml.doc "The ID of the AMI on the Snow device."]}
    let context_ = "Ec2AmiResource"
    let make ?snowballAmiId =
      fun ~amiId -> fun () -> { snowballAmiId; amiId }
    let to_value x =
      structure_to_value
        [("AmiId", (Some (AmiId.to_value x.amiId)));
        ("SnowballAmiId", (Option.map x.snowballAmiId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snowballAmiId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnowballAmiId") in
      let amiId =
        AmiId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "AmiId") in
      make ?snowballAmiId ~amiId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snowballAmiId = field_map json__ "SnowballAmiId" String_.of_json in
      let amiId = field_map_exn json__ "AmiId" AmiId.of_json in
      make ?snowballAmiId ~amiId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON-formatted object that contains the IDs for an Amazon Machine Image (AMI), including the Amazon EC2-compatible AMI ID and the Snow device AMI ID. Each AMI has these two IDs to simplify identifying the AMI in both the Amazon Web Services Cloud and on the device."]
module LambdaResource =
  struct
    type nonrec t =
      {
      lambdaArn: ResourceARN.t option
        [@ocaml.doc
          "An Amazon Resource Name (ARN) that represents an Lambda function to be triggered by PUT object actions on the associated local Amazon S3 resource."];
      eventTriggers: EventTriggerDefinitionList.t option
        [@ocaml.doc
          "The array of ARNs for S3Resource objects to trigger the LambdaResource objects associated with this job."]}
    let make ?lambdaArn =
      fun ?eventTriggers -> fun () -> { lambdaArn; eventTriggers }
    let to_value x =
      structure_to_value
        [("LambdaArn", (Option.map x.lambdaArn ~f:ResourceARN.to_value));
        ("EventTriggers",
          (Option.map x.eventTriggers ~f:EventTriggerDefinitionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eventTriggers =
        (Option.map ~f:EventTriggerDefinitionList.of_xml)
          (Xml.child xml_arg0 "EventTriggers") in
      let lambdaArn =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "LambdaArn") in
      make ?eventTriggers ?lambdaArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eventTriggers =
        field_map json__ "EventTriggers" EventTriggerDefinitionList.of_json in
      let lambdaArn = field_map json__ "LambdaArn" ResourceARN.of_json in
      make ?eventTriggers ?lambdaArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Identifies"]
module S3Resource =
  struct
    type nonrec t =
      {
      bucketArn: ResourceARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of an Amazon S3 bucket."];
      keyRange: KeyRange.t option
        [@ocaml.doc
          "For export jobs, you can provide an optional KeyRange within a specific Amazon S3 bucket. The length of the range is defined at job creation, and has either an inclusive BeginMarker, an inclusive EndMarker, or both. Ranges are UTF-8 binary sorted."];
      targetOnDeviceServices: TargetOnDeviceServiceList.t option
        [@ocaml.doc
          "Specifies the service or services on the Snow Family device that your transferred data will be exported from or imported into. Amazon Web Services Snow Family supports Amazon S3 and NFS (Network File System)."]}
    let make ?bucketArn =
      fun ?keyRange ->
        fun ?targetOnDeviceServices ->
          fun () -> { bucketArn; keyRange; targetOnDeviceServices }
    let to_value x =
      structure_to_value
        [("BucketArn", (Option.map x.bucketArn ~f:ResourceARN.to_value));
        ("KeyRange", (Option.map x.keyRange ~f:KeyRange.to_value));
        ("TargetOnDeviceServices",
          (Option.map x.targetOnDeviceServices
             ~f:TargetOnDeviceServiceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetOnDeviceServices =
        (Option.map ~f:TargetOnDeviceServiceList.of_xml)
          (Xml.child xml_arg0 "TargetOnDeviceServices") in
      let keyRange =
        (Option.map ~f:KeyRange.of_xml) (Xml.child xml_arg0 "KeyRange") in
      let bucketArn =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "BucketArn") in
      make ?targetOnDeviceServices ?keyRange ?bucketArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetOnDeviceServices =
        field_map json__ "TargetOnDeviceServices"
          TargetOnDeviceServiceList.of_json in
      let keyRange = field_map json__ "KeyRange" KeyRange.of_json in
      let bucketArn = field_map json__ "BucketArn" ResourceARN.of_json in
      make ?targetOnDeviceServices ?keyRange ?bucketArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Each S3Resource object represents an Amazon S3 bucket that your transferred data will be exported from or imported into. For export jobs, this object can have an optional KeyRange value. The length of the range is defined at job creation, and has either an inclusive BeginMarker, an inclusive EndMarker, or both. Ranges are UTF-8 binary sorted."]
module JobState =
  struct
    type nonrec t =
      | New 
      | PreparingAppliance 
      | PreparingShipment 
      | InTransitToCustomer 
      | WithCustomer 
      | InTransitToAWS 
      | WithAWSSortingFacility 
      | WithAWS 
      | InProgress 
      | Complete 
      | Cancelled 
      | Listing 
      | Pending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | New -> "New"
      | PreparingAppliance -> "PreparingAppliance"
      | PreparingShipment -> "PreparingShipment"
      | InTransitToCustomer -> "InTransitToCustomer"
      | WithCustomer -> "WithCustomer"
      | InTransitToAWS -> "InTransitToAWS"
      | WithAWSSortingFacility -> "WithAWSSortingFacility"
      | WithAWS -> "WithAWS"
      | InProgress -> "InProgress"
      | Complete -> "Complete"
      | Cancelled -> "Cancelled"
      | Listing -> "Listing"
      | Pending -> "Pending"
      | Non_static_id s -> s
    let of_string =
      function
      | "New" -> New
      | "PreparingAppliance" -> PreparingAppliance
      | "PreparingShipment" -> PreparingShipment
      | "InTransitToCustomer" -> InTransitToCustomer
      | "WithCustomer" -> WithCustomer
      | "InTransitToAWS" -> InTransitToAWS
      | "WithAWSSortingFacility" -> WithAWSSortingFacility
      | "WithAWS" -> WithAWS
      | "InProgress" -> InProgress
      | "Complete" -> Complete
      | "Cancelled" -> Cancelled
      | "Listing" -> Listing
      | "Pending" -> Pending
      | 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 JobState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"JobState" j)
    let to_json = simple_to_json to_value
  end
module StorageLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for StorageLimit" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module StorageUnit =
  struct
    type nonrec t =
      | TB 
      | Non_static_id of string 
    let make i = i
    let to_string = function | TB -> "TB" | Non_static_id s -> s
    let of_string = function | "TB" -> TB | 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 StorageUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StorageUnit" j)
    let to_json = simple_to_json to_value
  end
module NodeFaultTolerance =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:4) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NodeFaultTolerance" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module S3StorageLimit =
  struct
    type nonrec t = float
    let make i =
      let open Result in ok_or_failwith (check_float_min i ~min:0.); i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module ServiceSize =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:16) >>= (fun () -> check_int_min i ~min:3));
        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 ServiceSize" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module GSTIN =
  struct
    type nonrec t = string
    let context_ = "GSTIN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"\\d{2}[A-Z]{5}\\d{4}[A-Z]{1}[A-Z\\d]{1}[Z]{1}[A-Z\\d]{1}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GSTIN" j
    let to_json = simple_to_json to_value
  end
module JobId =
  struct
    type nonrec t = string
    let context_ = "JobId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:39) >>=
             (fun () ->
                (check_string_max i ~max:39) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(M|J)ID[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"JobId" j
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module SnowconeDeviceConfiguration =
  struct
    type nonrec t =
      {
      wirelessConnection: WirelessConnection.t option
        [@ocaml.doc
          "Configures the wireless connection for the Snowball Edge device."]}
    let make ?wirelessConnection = fun () -> { wirelessConnection }
    let to_value x =
      structure_to_value
        [("WirelessConnection",
           (Option.map x.wirelessConnection ~f:WirelessConnection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let wirelessConnection =
        (Option.map ~f:WirelessConnection.of_xml)
          (Xml.child xml_arg0 "WirelessConnection") in
      make ?wirelessConnection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let wirelessConnection =
        field_map json__ "WirelessConnection" WirelessConnection.of_json in
      make ?wirelessConnection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the device configuration for an Snowball Edge job."]
module Ec2AmiResourceList =
  struct
    type nonrec t = Ec2AmiResource.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:Ec2AmiResource.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:Ec2AmiResource.of_xml)
    let of_json j =
      list_of_json ~kind:"Ec2AmiResourceList" ~of_json:Ec2AmiResource.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module LambdaResourceList =
  struct
    type nonrec t = LambdaResource.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:LambdaResource.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:LambdaResource.of_xml)
    let of_json j =
      list_of_json ~kind:"LambdaResourceList" ~of_json:LambdaResource.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module S3ResourceList =
  struct
    type nonrec t = S3Resource.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:S3Resource.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:S3Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"S3ResourceList" ~of_json:S3Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobStateList =
  struct
    type nonrec t = JobState.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:JobState.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:JobState.of_xml)
    let of_json j =
      list_of_json ~kind:"JobStateList" ~of_json:JobState.of_json j
    let to_json v = composed_to_json to_value v
  end
module SnsTopicARN =
  struct
    type nonrec t = string
    let context_ = "SnsTopicARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () ->
                check_pattern i ~pattern:"arn:aws.*:sns:.*:[0-9]{12}:.*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnsTopicARN" j
    let to_json = simple_to_json to_value
  end
module EKSOnDeviceServiceConfiguration =
  struct
    type nonrec t =
      {
      kubernetesVersion: String_.t option
        [@ocaml.doc
          "The Kubernetes version for EKS Anywhere on the Snow Family device."];
      eKSAnywhereVersion: String_.t option
        [@ocaml.doc
          "The optional version of EKS Anywhere on the Snow Family device."]}
    let make ?kubernetesVersion =
      fun ?eKSAnywhereVersion ->
        fun () -> { kubernetesVersion; eKSAnywhereVersion }
    let to_value x =
      structure_to_value
        [("KubernetesVersion",
           (Option.map x.kubernetesVersion ~f:String_.to_value));
        ("EKSAnywhereVersion",
          (Option.map x.eKSAnywhereVersion ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let eKSAnywhereVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "EKSAnywhereVersion") in
      let kubernetesVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "KubernetesVersion") in
      make ?eKSAnywhereVersion ?kubernetesVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let eKSAnywhereVersion =
        field_map json__ "EKSAnywhereVersion" String_.of_json in
      let kubernetesVersion =
        field_map json__ "KubernetesVersion" String_.of_json in
      make ?eKSAnywhereVersion ?kubernetesVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object representing the metadata and configuration settings of EKS Anywhere on the Snow Family device."]
module NFSOnDeviceServiceConfiguration =
  struct
    type nonrec t =
      {
      storageLimit: StorageLimit.t option
        [@ocaml.doc "The maximum NFS storage for one Snow Family device."];
      storageUnit: StorageUnit.t option
        [@ocaml.doc
          "The scale unit of the NFS storage on the device. Valid values: TB."]}
    let make ?storageLimit =
      fun ?storageUnit -> fun () -> { storageLimit; storageUnit }
    let to_value x =
      structure_to_value
        [("StorageLimit",
           (Option.map x.storageLimit ~f:StorageLimit.to_value));
        ("StorageUnit", (Option.map x.storageUnit ~f:StorageUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageUnit =
        (Option.map ~f:StorageUnit.of_xml) (Xml.child xml_arg0 "StorageUnit") in
      let storageLimit =
        (Option.map ~f:StorageLimit.of_xml)
          (Xml.child xml_arg0 "StorageLimit") in
      make ?storageUnit ?storageLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageUnit = field_map json__ "StorageUnit" StorageUnit.of_json in
      let storageLimit = field_map json__ "StorageLimit" StorageLimit.of_json in
      make ?storageUnit ?storageLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents the metadata and configuration settings for the NFS (Network File System) service on an Amazon Web Services Snow Family device."]
module S3OnDeviceServiceConfiguration =
  struct
    type nonrec t =
      {
      storageLimit: S3StorageLimit.t option
        [@ocaml.doc
          "If the specified storage limit value matches storage limit of one of the defined configurations, that configuration will be used. If the specified storage limit value does not match any defined configuration, the request will fail. If more than one configuration has the same storage limit as specified, the other input need to be provided."];
      storageUnit: StorageUnit.t option
        [@ocaml.doc "Storage unit. Currently the only supported unit is TB."];
      serviceSize: ServiceSize.t option
        [@ocaml.doc
          "Applicable when creating a cluster. Specifies how many nodes are needed for Amazon S3 compatible storage on Snow family devices. If specified, the other input can be omitted."];
      faultTolerance: NodeFaultTolerance.t option
        [@ocaml.doc
          ">Fault tolerance level of the cluster. This indicates the number of nodes that can go down without degrading the performance of the cluster. This additional input helps when the specified StorageLimit matches more than one Amazon S3 compatible storage on Snow family devices service configuration."]}
    let make ?storageLimit =
      fun ?storageUnit ->
        fun ?serviceSize ->
          fun ?faultTolerance ->
            fun () ->
              { storageLimit; storageUnit; serviceSize; faultTolerance }
    let to_value x =
      structure_to_value
        [("StorageLimit",
           (Option.map x.storageLimit ~f:S3StorageLimit.to_value));
        ("StorageUnit", (Option.map x.storageUnit ~f:StorageUnit.to_value));
        ("ServiceSize", (Option.map x.serviceSize ~f:ServiceSize.to_value));
        ("FaultTolerance",
          (Option.map x.faultTolerance ~f:NodeFaultTolerance.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let faultTolerance =
        (Option.map ~f:NodeFaultTolerance.of_xml)
          (Xml.child xml_arg0 "FaultTolerance") in
      let serviceSize =
        (Option.map ~f:ServiceSize.of_xml) (Xml.child xml_arg0 "ServiceSize") in
      let storageUnit =
        (Option.map ~f:StorageUnit.of_xml) (Xml.child xml_arg0 "StorageUnit") in
      let storageLimit =
        (Option.map ~f:S3StorageLimit.of_xml)
          (Xml.child xml_arg0 "StorageLimit") in
      make ?faultTolerance ?serviceSize ?storageUnit ?storageLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let faultTolerance =
        field_map json__ "FaultTolerance" NodeFaultTolerance.of_json in
      let serviceSize = field_map json__ "ServiceSize" ServiceSize.of_json in
      let storageUnit = field_map json__ "StorageUnit" StorageUnit.of_json in
      let storageLimit =
        field_map json__ "StorageLimit" S3StorageLimit.of_json in
      make ?faultTolerance ?serviceSize ?storageUnit ?storageLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Amazon S3 compatible storage on Snow family devices configuration items."]
module TGWOnDeviceServiceConfiguration =
  struct
    type nonrec t =
      {
      storageLimit: StorageLimit.t option
        [@ocaml.doc
          "The maximum number of virtual tapes to store on one Snow Family device. Due to physical resource limitations, this value must be set to 80 for Snowball Edge."];
      storageUnit: StorageUnit.t option
        [@ocaml.doc "The scale unit of the virtual tapes on the device."]}
    let make ?storageLimit =
      fun ?storageUnit -> fun () -> { storageLimit; storageUnit }
    let to_value x =
      structure_to_value
        [("StorageLimit",
           (Option.map x.storageLimit ~f:StorageLimit.to_value));
        ("StorageUnit", (Option.map x.storageUnit ~f:StorageUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageUnit =
        (Option.map ~f:StorageUnit.of_xml) (Xml.child xml_arg0 "StorageUnit") in
      let storageLimit =
        (Option.map ~f:StorageLimit.of_xml)
          (Xml.child xml_arg0 "StorageLimit") in
      make ?storageUnit ?storageLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageUnit = field_map json__ "StorageUnit" StorageUnit.of_json in
      let storageLimit = field_map json__ "StorageLimit" StorageLimit.of_json in
      make ?storageUnit ?storageLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents the metadata and configuration settings for the Storage Gateway service Tape Gateway type on an Amazon Web Services Snow Family device."]
module DevicePickupId =
  struct
    type nonrec t = string
    let context_ = "DevicePickupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:40) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"DPID[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DevicePickupId" j
    let to_json = simple_to_json to_value
  end
module Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:320) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(?=.{3,100}$).+@.+[.].+$")));
        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:"Email" j
    let to_json = simple_to_json to_value
  end
module PhoneNumber =
  struct
    type nonrec t = string
    let context_ = "PhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^\\s*(?:\\+?(\\d{1,3}))?[-. (]*(\\d{3})[-. )]*(\\d{3})[-. ]*(\\d{4})(?: *x(\\d+))?\\s*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PhoneNumber" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Shipment =
  struct
    type nonrec t =
      {
      status: String_.t option
        [@ocaml.doc "Status information for a shipment."];
      trackingNumber: String_.t option
        [@ocaml.doc
          "The tracking number for this job. Using this tracking number with your region's carrier's website, you can track a Snow device as the carrier transports it. For India, the carrier is Amazon Logistics. For all other regions, UPS is the carrier."]}
    let make ?status =
      fun ?trackingNumber -> fun () -> { status; trackingNumber }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:String_.to_value));
        ("TrackingNumber", (Option.map x.trackingNumber ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let trackingNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "TrackingNumber") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Status") in
      make ?trackingNumber ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let trackingNumber = field_map json__ "TrackingNumber" String_.of_json in
      let status = field_map json__ "Status" String_.of_json in
      make ?trackingNumber ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Status and TrackingNumber information for an inbound or outbound shipment."]
module ShippingOption =
  struct
    type nonrec t =
      | SECOND_DAY 
      | NEXT_DAY 
      | EXPRESS 
      | STANDARD 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SECOND_DAY -> "SECOND_DAY"
      | NEXT_DAY -> "NEXT_DAY"
      | EXPRESS -> "EXPRESS"
      | STANDARD -> "STANDARD"
      | Non_static_id s -> s
    let of_string =
      function
      | "SECOND_DAY" -> SECOND_DAY
      | "NEXT_DAY" -> NEXT_DAY
      | "EXPRESS" -> EXPRESS
      | "STANDARD" -> STANDARD
      | 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 ShippingOption" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShippingOption" j)
    let to_json = simple_to_json to_value
  end
module INDTaxDocuments =
  struct
    type nonrec t =
      {
      gSTIN: GSTIN.t option
        [@ocaml.doc
          "The Goods and Services Tax (GST) documents required in Amazon Web Services Region in India."]}
    let make ?gSTIN = fun () -> { gSTIN }
    let to_value x =
      structure_to_value [("GSTIN", (Option.map x.gSTIN ~f:GSTIN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gSTIN = (Option.map ~f:GSTIN.of_xml) (Xml.child xml_arg0 "GSTIN") in
      make ?gSTIN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gSTIN = field_map json__ "GSTIN" GSTIN.of_json in make ?gSTIN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The tax documents required in Amazon Web Services Region in India."]
module ServiceName =
  struct
    type nonrec t =
      | KUBERNETES 
      | EKS_ANYWHERE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | KUBERNETES -> "KUBERNETES"
      | EKS_ANYWHERE -> "EKS_ANYWHERE"
      | Non_static_id s -> s
    let of_string =
      function
      | "KUBERNETES" -> KUBERNETES
      | "EKS_ANYWHERE" -> EKS_ANYWHERE
      | 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 ServiceName" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ServiceName" j)
    let to_json = simple_to_json to_value
  end
module ServiceVersion =
  struct
    type nonrec t =
      {
      version: String_.t option
        [@ocaml.doc "The version number of the requested service."]}
    let make ?version = fun () -> { version }
    let to_value x =
      structure_to_value
        [("Version", (Option.map x.version ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Version") in
      make ?version ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map json__ "Version" String_.of_json in
      make ?version ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The version of the requested service."]
module AddressId =
  struct
    type nonrec t = string
    let context_ = "AddressId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:40) >>=
             (fun () ->
                (check_string_max i ~max:40) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"ADID[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AddressId" j
    let to_json = simple_to_json to_value
  end
module AddressType =
  struct
    type nonrec t =
      | CUST_PICKUP 
      | AWS_SHIP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CUST_PICKUP -> "CUST_PICKUP"
      | AWS_SHIP -> "AWS_SHIP"
      | Non_static_id s -> s
    let of_string =
      function
      | "CUST_PICKUP" -> CUST_PICKUP
      | "AWS_SHIP" -> AWS_SHIP
      | 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 AddressType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AddressType" j)
    let to_json = simple_to_json to_value
  end
module JavaBoolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module LongTermPricingAssociatedJobIdList =
  struct
    type nonrec t = JobId.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:JobId.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:JobId.of_xml)
    let of_json j =
      list_of_json ~kind:"LongTermPricingAssociatedJobIdList"
        ~of_json:JobId.of_json j
    let to_json v = composed_to_json to_value v
  end
module LongTermPricingId =
  struct
    type nonrec t = string
    let context_ = "LongTermPricingId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:41) >>=
             (fun () ->
                (check_string_max i ~max:41) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"LTPID[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LongTermPricingId" j
    let to_json = simple_to_json to_value
  end
module LongTermPricingType =
  struct
    type nonrec t =
      | OneYear 
      | ThreeYear 
      | OneMonth 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OneYear -> "OneYear"
      | ThreeYear -> "ThreeYear"
      | OneMonth -> "OneMonth"
      | Non_static_id s -> s
    let of_string =
      function
      | "OneYear" -> OneYear
      | "ThreeYear" -> ThreeYear
      | "OneMonth" -> OneMonth
      | 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 LongTermPricingType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LongTermPricingType" j)
    let to_json = simple_to_json to_value
  end
module SnowballType =
  struct
    type nonrec t =
      | STANDARD 
      | EDGE 
      | EDGE_C 
      | EDGE_CG 
      | EDGE_S 
      | SNC1_HDD 
      | SNC1_SSD 
      | V3_5C 
      | V3_5S 
      | RACK_5U_C 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STANDARD -> "STANDARD"
      | EDGE -> "EDGE"
      | EDGE_C -> "EDGE_C"
      | EDGE_CG -> "EDGE_CG"
      | EDGE_S -> "EDGE_S"
      | SNC1_HDD -> "SNC1_HDD"
      | SNC1_SSD -> "SNC1_SSD"
      | V3_5C -> "V3_5C"
      | V3_5S -> "V3_5S"
      | RACK_5U_C -> "RACK_5U_C"
      | Non_static_id s -> s
    let of_string =
      function
      | "STANDARD" -> STANDARD
      | "EDGE" -> EDGE
      | "EDGE_C" -> EDGE_C
      | "EDGE_CG" -> EDGE_CG
      | "EDGE_S" -> EDGE_S
      | "SNC1_HDD" -> SNC1_HDD
      | "SNC1_SSD" -> SNC1_SSD
      | "V3_5C" -> V3_5C
      | "V3_5S" -> V3_5S
      | "RACK_5U_C" -> RACK_5U_C
      | 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 SnowballType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SnowballType" j)
    let to_json = simple_to_json to_value
  end
module JobType =
  struct
    type nonrec t =
      | IMPORT 
      | EXPORT 
      | LOCAL_USE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IMPORT -> "IMPORT"
      | EXPORT -> "EXPORT"
      | LOCAL_USE -> "LOCAL_USE"
      | Non_static_id s -> s
    let of_string =
      function
      | "IMPORT" -> IMPORT
      | "EXPORT" -> EXPORT
      | "LOCAL_USE" -> LOCAL_USE
      | 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 ClusterState =
  struct
    type nonrec t =
      | AwaitingQuorum 
      | Pending 
      | InUse 
      | Complete 
      | Cancelled 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AwaitingQuorum -> "AwaitingQuorum"
      | Pending -> "Pending"
      | InUse -> "InUse"
      | Complete -> "Complete"
      | Cancelled -> "Cancelled"
      | Non_static_id s -> s
    let of_string =
      function
      | "AwaitingQuorum" -> AwaitingQuorum
      | "Pending" -> Pending
      | "InUse" -> InUse
      | "Complete" -> Complete
      | "Cancelled" -> Cancelled
      | 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 ClusterState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ClusterState" j)
    let to_json = simple_to_json to_value
  end
module DataTransfer =
  struct
    type nonrec t =
      {
      bytesTransferred: Long.t option
        [@ocaml.doc
          "The number of bytes transferred between a Snow device and Amazon S3."];
      objectsTransferred: Long.t option
        [@ocaml.doc
          "The number of objects transferred between a Snow device and Amazon S3."];
      totalBytes: Long.t option
        [@ocaml.doc
          "The total bytes of data for a transfer between a Snow device and Amazon S3. This value is set to 0 (zero) until all the keys that will be transferred have been listed."];
      totalObjects: Long.t option
        [@ocaml.doc
          "The total number of objects for a transfer between a Snow device and Amazon S3. This value is set to 0 (zero) until all the keys that will be transferred have been listed."]}
    let make ?bytesTransferred =
      fun ?objectsTransferred ->
        fun ?totalBytes ->
          fun ?totalObjects ->
            fun () ->
              {
                bytesTransferred;
                objectsTransferred;
                totalBytes;
                totalObjects
              }
    let to_value x =
      structure_to_value
        [("BytesTransferred",
           (Option.map x.bytesTransferred ~f:Long.to_value));
        ("ObjectsTransferred",
          (Option.map x.objectsTransferred ~f:Long.to_value));
        ("TotalBytes", (Option.map x.totalBytes ~f:Long.to_value));
        ("TotalObjects", (Option.map x.totalObjects ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let totalObjects =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalObjects") in
      let totalBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "TotalBytes") in
      let objectsTransferred =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "ObjectsTransferred") in
      let bytesTransferred =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "BytesTransferred") in
      make ?totalObjects ?totalBytes ?objectsTransferred ?bytesTransferred ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let totalObjects = field_map json__ "TotalObjects" Long.of_json in
      let totalBytes = field_map json__ "TotalBytes" Long.of_json in
      let objectsTransferred =
        field_map json__ "ObjectsTransferred" Long.of_json in
      let bytesTransferred = field_map json__ "BytesTransferred" Long.of_json in
      make ?totalObjects ?totalBytes ?objectsTransferred ?bytesTransferred ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Defines the real-time status of a Snow device's data transfer while the device is at Amazon Web Services. This data is only available while a job has a JobState value of InProgress, for both import and export jobs."]
module DeviceConfiguration =
  struct
    type nonrec t =
      {
      snowconeDeviceConfiguration: SnowconeDeviceConfiguration.t option
        [@ocaml.doc
          "Returns information about the device configuration for an Snowball Edge job."]}
    let make ?snowconeDeviceConfiguration =
      fun () -> { snowconeDeviceConfiguration }
    let to_value x =
      structure_to_value
        [("SnowconeDeviceConfiguration",
           (Option.map x.snowconeDeviceConfiguration
              ~f:SnowconeDeviceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snowconeDeviceConfiguration =
        (Option.map ~f:SnowconeDeviceConfiguration.of_xml)
          (Xml.child xml_arg0 "SnowconeDeviceConfiguration") in
      make ?snowconeDeviceConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snowconeDeviceConfiguration =
        field_map json__ "SnowconeDeviceConfiguration"
          SnowconeDeviceConfiguration.of_json in
      make ?snowconeDeviceConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The container for SnowconeDeviceConfiguration."]
module ImpactLevel =
  struct
    type nonrec t =
      | IL2 
      | IL4 
      | IL5 
      | IL6 
      | IL99 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IL2 -> "IL2"
      | IL4 -> "IL4"
      | IL5 -> "IL5"
      | IL6 -> "IL6"
      | IL99 -> "IL99"
      | Non_static_id s -> s
    let of_string =
      function
      | "IL2" -> IL2
      | "IL4" -> IL4
      | "IL5" -> IL5
      | "IL6" -> IL6
      | "IL99" -> IL99
      | 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 ImpactLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImpactLevel" j)
    let to_json = simple_to_json to_value
  end
module JobLogs =
  struct
    type nonrec t =
      {
      jobCompletionReportURI: String_.t option
        [@ocaml.doc
          "A link to an Amazon S3 presigned URL where the job completion report is located."];
      jobSuccessLogURI: String_.t option
        [@ocaml.doc
          "A link to an Amazon S3 presigned URL where the job success log is located."];
      jobFailureLogURI: String_.t option
        [@ocaml.doc
          "A link to an Amazon S3 presigned URL where the job failure log is located."]}
    let make ?jobCompletionReportURI =
      fun ?jobSuccessLogURI ->
        fun ?jobFailureLogURI ->
          fun () ->
            { jobCompletionReportURI; jobSuccessLogURI; jobFailureLogURI }
    let to_value x =
      structure_to_value
        [("JobCompletionReportURI",
           (Option.map x.jobCompletionReportURI ~f:String_.to_value));
        ("JobSuccessLogURI",
          (Option.map x.jobSuccessLogURI ~f:String_.to_value));
        ("JobFailureLogURI",
          (Option.map x.jobFailureLogURI ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobFailureLogURI =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "JobFailureLogURI") in
      let jobSuccessLogURI =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "JobSuccessLogURI") in
      let jobCompletionReportURI =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "JobCompletionReportURI") in
      make ?jobFailureLogURI ?jobSuccessLogURI ?jobCompletionReportURI ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobFailureLogURI =
        field_map json__ "JobFailureLogURI" String_.of_json in
      let jobSuccessLogURI =
        field_map json__ "JobSuccessLogURI" String_.of_json in
      let jobCompletionReportURI =
        field_map json__ "JobCompletionReportURI" String_.of_json in
      make ?jobFailureLogURI ?jobSuccessLogURI ?jobCompletionReportURI ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains job logs. Whenever a Snow device is used to import data into or export data out of Amazon S3, you'll have the option of downloading a PDF job report. Job logs are returned as a part of the response syntax of the DescribeJob action in the JobMetadata data type. The job logs can be accessed for up to 60 minutes after this request has been made. To access any of the job logs after 60 minutes have passed, you'll have to make another call to the DescribeJob action. For import jobs, the PDF job report becomes available at the end of the import process. For export jobs, your job report typically becomes available while the Snow device for your job part is being delivered to you. The job report provides you insight into the state of your Amazon S3 data transfer. The report includes details about your job or job part for your records. For deeper visibility into the status of your transferred objects, you can look at the two associated logs: a success log and a failure log. The logs are saved in comma-separated value (CSV) format, and the name of each log includes the ID of the job or job part that the log describes."]
module JobResource =
  struct
    type nonrec t =
      {
      s3Resources: S3ResourceList.t option
        [@ocaml.doc "An array of S3Resource objects."];
      lambdaResources: LambdaResourceList.t option
        [@ocaml.doc "The Python-language Lambda functions for this job."];
      ec2AmiResources: Ec2AmiResourceList.t option
        [@ocaml.doc
          "The Amazon Machine Images (AMIs) associated with this job."]}
    let make ?s3Resources =
      fun ?lambdaResources ->
        fun ?ec2AmiResources ->
          fun () -> { s3Resources; lambdaResources; ec2AmiResources }
    let to_value x =
      structure_to_value
        [("S3Resources",
           (Option.map x.s3Resources ~f:S3ResourceList.to_value));
        ("LambdaResources",
          (Option.map x.lambdaResources ~f:LambdaResourceList.to_value));
        ("Ec2AmiResources",
          (Option.map x.ec2AmiResources ~f:Ec2AmiResourceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ec2AmiResources =
        (Option.map ~f:Ec2AmiResourceList.of_xml)
          (Xml.child xml_arg0 "Ec2AmiResources") in
      let lambdaResources =
        (Option.map ~f:LambdaResourceList.of_xml)
          (Xml.child xml_arg0 "LambdaResources") in
      let s3Resources =
        (Option.map ~f:S3ResourceList.of_xml)
          (Xml.child xml_arg0 "S3Resources") in
      make ?ec2AmiResources ?lambdaResources ?s3Resources ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ec2AmiResources =
        field_map json__ "Ec2AmiResources" Ec2AmiResourceList.of_json in
      let lambdaResources =
        field_map json__ "LambdaResources" LambdaResourceList.of_json in
      let s3Resources = field_map json__ "S3Resources" S3ResourceList.of_json in
      make ?ec2AmiResources ?lambdaResources ?s3Resources ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains an array of Amazon Web Services resource objects. Each object represents an Amazon S3 bucket, an Lambda function, or an Amazon Machine Image (AMI) based on Amazon EC2 that is associated with a particular job."]
module KmsKeyARN =
  struct
    type nonrec t = string
    let context_ = "KmsKeyARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () ->
                check_pattern i ~pattern:"arn:aws.*:kms:.*:[0-9]{12}:key/.*"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyARN" j
    let to_json = simple_to_json to_value
  end
module Notification =
  struct
    type nonrec t =
      {
      snsTopicARN: SnsTopicARN.t option
        [@ocaml.doc
          "The new SNS TopicArn that you want to associate with this job. You can create Amazon Resource Names (ARNs) for topics by using the CreateTopic Amazon SNS API action. You can subscribe email addresses to an Amazon SNS topic through the Amazon Web Services Management Console, or by using the Subscribe Amazon Simple Notification Service (Amazon SNS) API action."];
      jobStatesToNotify: JobStateList.t option
        [@ocaml.doc
          "The list of job states that will trigger a notification for this job."];
      notifyAll: Boolean.t option
        [@ocaml.doc
          "Any change in job state will trigger a notification for this job."];
      devicePickupSnsTopicARN: SnsTopicARN.t option
        [@ocaml.doc
          "Used to send SNS notifications for the person picking up the device (identified during job creation)."]}
    let make ?snsTopicARN =
      fun ?jobStatesToNotify ->
        fun ?notifyAll ->
          fun ?devicePickupSnsTopicARN ->
            fun () ->
              {
                snsTopicARN;
                jobStatesToNotify;
                notifyAll;
                devicePickupSnsTopicARN
              }
    let to_value x =
      structure_to_value
        [("SnsTopicARN", (Option.map x.snsTopicARN ~f:SnsTopicARN.to_value));
        ("JobStatesToNotify",
          (Option.map x.jobStatesToNotify ~f:JobStateList.to_value));
        ("NotifyAll", (Option.map x.notifyAll ~f:Boolean.to_value));
        ("DevicePickupSnsTopicARN",
          (Option.map x.devicePickupSnsTopicARN ~f:SnsTopicARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let devicePickupSnsTopicARN =
        (Option.map ~f:SnsTopicARN.of_xml)
          (Xml.child xml_arg0 "DevicePickupSnsTopicARN") in
      let notifyAll =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "NotifyAll") in
      let jobStatesToNotify =
        (Option.map ~f:JobStateList.of_xml)
          (Xml.child xml_arg0 "JobStatesToNotify") in
      let snsTopicARN =
        (Option.map ~f:SnsTopicARN.of_xml) (Xml.child xml_arg0 "SnsTopicARN") in
      make ?devicePickupSnsTopicARN ?notifyAll ?jobStatesToNotify
        ?snsTopicARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let devicePickupSnsTopicARN =
        field_map json__ "DevicePickupSnsTopicARN" SnsTopicARN.of_json in
      let notifyAll = field_map json__ "NotifyAll" Boolean.of_json in
      let jobStatesToNotify =
        field_map json__ "JobStatesToNotify" JobStateList.of_json in
      let snsTopicARN = field_map json__ "SnsTopicARN" SnsTopicARN.of_json in
      make ?devicePickupSnsTopicARN ?notifyAll ?jobStatesToNotify
        ?snsTopicARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Simple Notification Service (Amazon SNS) notification settings associated with a specific job. The Notification object is returned as a part of the response syntax of the DescribeJob action in the JobMetadata data type. When the notification settings are defined during job creation, you can choose to notify based on a specific set of job states using the JobStatesToNotify array of strings, or you can specify that you want to have Amazon SNS notifications sent out for all job states with NotifyAll set to true."]
module OnDeviceServiceConfiguration =
  struct
    type nonrec t =
      {
      nFSOnDeviceService: NFSOnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Represents the NFS (Network File System) service on a Snow Family device."];
      tGWOnDeviceService: TGWOnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Represents the Storage Gateway service Tape Gateway type on a Snow Family device."];
      eKSOnDeviceService: EKSOnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "The configuration of EKS Anywhere on the Snow Family device."];
      s3OnDeviceService: S3OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Configuration for Amazon S3 compatible storage on Snow family devices."]}
    let make ?nFSOnDeviceService =
      fun ?tGWOnDeviceService ->
        fun ?eKSOnDeviceService ->
          fun ?s3OnDeviceService ->
            fun () ->
              {
                nFSOnDeviceService;
                tGWOnDeviceService;
                eKSOnDeviceService;
                s3OnDeviceService
              }
    let to_value x =
      structure_to_value
        [("NFSOnDeviceService",
           (Option.map x.nFSOnDeviceService
              ~f:NFSOnDeviceServiceConfiguration.to_value));
        ("TGWOnDeviceService",
          (Option.map x.tGWOnDeviceService
             ~f:TGWOnDeviceServiceConfiguration.to_value));
        ("EKSOnDeviceService",
          (Option.map x.eKSOnDeviceService
             ~f:EKSOnDeviceServiceConfiguration.to_value));
        ("S3OnDeviceService",
          (Option.map x.s3OnDeviceService
             ~f:S3OnDeviceServiceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3OnDeviceService =
        (Option.map ~f:S3OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "S3OnDeviceService") in
      let eKSOnDeviceService =
        (Option.map ~f:EKSOnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "EKSOnDeviceService") in
      let tGWOnDeviceService =
        (Option.map ~f:TGWOnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "TGWOnDeviceService") in
      let nFSOnDeviceService =
        (Option.map ~f:NFSOnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "NFSOnDeviceService") in
      make ?s3OnDeviceService ?eKSOnDeviceService ?tGWOnDeviceService
        ?nFSOnDeviceService ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3OnDeviceService =
        field_map json__ "S3OnDeviceService"
          S3OnDeviceServiceConfiguration.of_json in
      let eKSOnDeviceService =
        field_map json__ "EKSOnDeviceService"
          EKSOnDeviceServiceConfiguration.of_json in
      let tGWOnDeviceService =
        field_map json__ "TGWOnDeviceService"
          TGWOnDeviceServiceConfiguration.of_json in
      let nFSOnDeviceService =
        field_map json__ "NFSOnDeviceService"
          NFSOnDeviceServiceConfiguration.of_json in
      make ?s3OnDeviceService ?eKSOnDeviceService ?tGWOnDeviceService
        ?nFSOnDeviceService ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that represents the metadata and configuration settings for services on an Amazon Web Services Snow Family device."]
module PickupDetails =
  struct
    type nonrec t =
      {
      name: String_.t option
        [@ocaml.doc "The name of the person picking up the device."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "The phone number of the person picking up the device."];
      email: Email.t option
        [@ocaml.doc "The email address of the person picking up the device."];
      identificationNumber: String_.t option
        [@ocaml.doc
          "The number on the credential identifying the person picking up the device."];
      identificationExpirationDate: Timestamp.t option
        [@ocaml.doc
          "Expiration date of the credential identifying the person picking up the device."];
      identificationIssuingOrg: String_.t option
        [@ocaml.doc
          "Organization that issued the credential identifying the person picking up the device."];
      devicePickupId: DevicePickupId.t option
        [@ocaml.doc "The unique ID for a device that will be picked up."]}
    let make ?name =
      fun ?phoneNumber ->
        fun ?email ->
          fun ?identificationNumber ->
            fun ?identificationExpirationDate ->
              fun ?identificationIssuingOrg ->
                fun ?devicePickupId ->
                  fun () ->
                    {
                      name;
                      phoneNumber;
                      email;
                      identificationNumber;
                      identificationExpirationDate;
                      identificationIssuingOrg;
                      devicePickupId
                    }
    let to_value x =
      structure_to_value
        [("Name", (Option.map x.name ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("Email", (Option.map x.email ~f:Email.to_value));
        ("IdentificationNumber",
          (Option.map x.identificationNumber ~f:String_.to_value));
        ("IdentificationExpirationDate",
          (Option.map x.identificationExpirationDate ~f:Timestamp.to_value));
        ("IdentificationIssuingOrg",
          (Option.map x.identificationIssuingOrg ~f:String_.to_value));
        ("DevicePickupId",
          (Option.map x.devicePickupId ~f:DevicePickupId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let devicePickupId =
        (Option.map ~f:DevicePickupId.of_xml)
          (Xml.child xml_arg0 "DevicePickupId") in
      let identificationIssuingOrg =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "IdentificationIssuingOrg") in
      let identificationExpirationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "IdentificationExpirationDate") in
      let identificationNumber =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "IdentificationNumber") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "Email") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      make ?devicePickupId ?identificationIssuingOrg
        ?identificationExpirationDate ?identificationNumber ?email
        ?phoneNumber ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let devicePickupId =
        field_map json__ "DevicePickupId" DevicePickupId.of_json in
      let identificationIssuingOrg =
        field_map json__ "IdentificationIssuingOrg" String_.of_json in
      let identificationExpirationDate =
        field_map json__ "IdentificationExpirationDate" Timestamp.of_json in
      let identificationNumber =
        field_map json__ "IdentificationNumber" String_.of_json in
      let email = field_map json__ "Email" Email.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" PhoneNumber.of_json in
      let name = field_map json__ "Name" String_.of_json in
      make ?devicePickupId ?identificationIssuingOrg
        ?identificationExpirationDate ?identificationNumber ?email
        ?phoneNumber ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information identifying the person picking up the device."]
module RemoteManagement =
  struct
    type nonrec t =
      | INSTALLED_ONLY 
      | INSTALLED_AUTOSTART 
      | NOT_INSTALLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INSTALLED_ONLY -> "INSTALLED_ONLY"
      | INSTALLED_AUTOSTART -> "INSTALLED_AUTOSTART"
      | NOT_INSTALLED -> "NOT_INSTALLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "INSTALLED_ONLY" -> INSTALLED_ONLY
      | "INSTALLED_AUTOSTART" -> INSTALLED_AUTOSTART
      | "NOT_INSTALLED" -> NOT_INSTALLED
      | 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 RemoteManagement" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RemoteManagement" j)
    let to_json = simple_to_json to_value
  end
module RoleARN =
  struct
    type nonrec t = string
    let context_ = "RoleARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () ->
                check_pattern i ~pattern:"arn:aws.*:iam::[0-9]{12}:role/.*"));
        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:"RoleARN" j
    let to_json = simple_to_json to_value
  end
module ShippingDetails =
  struct
    type nonrec t =
      {
      shippingOption: ShippingOption.t option
        [@ocaml.doc
          "The shipping speed for a particular job. This speed doesn't dictate how soon you'll get the Snow device from the job's creation date. This speed represents how quickly it moves to its destination while in transit. Regional shipping speeds are as follows: In Australia, you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In the European Union (EU), you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way. In India, Snow devices are delivered in one to seven days. In the United States of America (US), you have access to one-day shipping and two-day shipping."];
      inboundShipment: Shipment.t option
        [@ocaml.doc
          "The Status and TrackingNumber values for a Snow device being returned to Amazon Web Services for a particular job."];
      outboundShipment: Shipment.t option
        [@ocaml.doc
          "The Status and TrackingNumber values for a Snow device being delivered to the address that you specified for a particular job."]}
    let make ?shippingOption =
      fun ?inboundShipment ->
        fun ?outboundShipment ->
          fun () -> { shippingOption; inboundShipment; outboundShipment }
    let to_value x =
      structure_to_value
        [("ShippingOption",
           (Option.map x.shippingOption ~f:ShippingOption.to_value));
        ("InboundShipment",
          (Option.map x.inboundShipment ~f:Shipment.to_value));
        ("OutboundShipment",
          (Option.map x.outboundShipment ~f:Shipment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outboundShipment =
        (Option.map ~f:Shipment.of_xml)
          (Xml.child xml_arg0 "OutboundShipment") in
      let inboundShipment =
        (Option.map ~f:Shipment.of_xml)
          (Xml.child xml_arg0 "InboundShipment") in
      let shippingOption =
        (Option.map ~f:ShippingOption.of_xml)
          (Xml.child xml_arg0 "ShippingOption") in
      make ?outboundShipment ?inboundShipment ?shippingOption ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outboundShipment =
        field_map json__ "OutboundShipment" Shipment.of_json in
      let inboundShipment =
        field_map json__ "InboundShipment" Shipment.of_json in
      let shippingOption =
        field_map json__ "ShippingOption" ShippingOption.of_json in
      make ?outboundShipment ?inboundShipment ?shippingOption ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A job's shipping information, including inbound and outbound tracking numbers and shipping speed options."]
module SnowballCapacity =
  struct
    type nonrec t =
      | T50 
      | T80 
      | T100 
      | T42 
      | T98 
      | T8 
      | T14 
      | T32 
      | NoPreference 
      | T240 
      | T13 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | T50 -> "T50"
      | T80 -> "T80"
      | T100 -> "T100"
      | T42 -> "T42"
      | T98 -> "T98"
      | T8 -> "T8"
      | T14 -> "T14"
      | T32 -> "T32"
      | NoPreference -> "NoPreference"
      | T240 -> "T240"
      | T13 -> "T13"
      | Non_static_id s -> s
    let of_string =
      function
      | "T50" -> T50
      | "T80" -> T80
      | "T100" -> T100
      | "T42" -> T42
      | "T98" -> T98
      | "T8" -> T8
      | "T14" -> T14
      | "T32" -> T32
      | "NoPreference" -> NoPreference
      | "T240" -> T240
      | "T13" -> T13
      | 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 SnowballCapacity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SnowballCapacity" j)
    let to_json = simple_to_json to_value
  end
module TaxDocuments =
  struct
    type nonrec t = {
      iND: INDTaxDocuments.t option }
    let make ?iND = fun () -> { iND }
    let to_value x =
      structure_to_value
        [("IND", (Option.map x.iND ~f:INDTaxDocuments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let iND =
        (Option.map ~f:INDTaxDocuments.of_xml) (Xml.child xml_arg0 "IND") in
      make ?iND ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let iND = field_map json__ "IND" INDTaxDocuments.of_json in
      make ?iND ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The tax documents required in your Amazon Web Services Region."]
module DependentService =
  struct
    type nonrec t =
      {
      serviceName: ServiceName.t option
        [@ocaml.doc "The name of the dependent service."];
      serviceVersion: ServiceVersion.t option
        [@ocaml.doc "The version of the dependent service."]}
    let make ?serviceName =
      fun ?serviceVersion -> fun () -> { serviceName; serviceVersion }
    let to_value x =
      structure_to_value
        [("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("ServiceVersion",
          (Option.map x.serviceVersion ~f:ServiceVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceVersion =
        (Option.map ~f:ServiceVersion.of_xml)
          (Xml.child xml_arg0 "ServiceVersion") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      make ?serviceVersion ?serviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceVersion =
        field_map json__ "ServiceVersion" ServiceVersion.of_json in
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      make ?serviceVersion ?serviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The name and version of the service dependant on the requested service."]
module Address =
  struct
    type nonrec t =
      {
      addressId: AddressId.t option
        [@ocaml.doc "The unique ID for an address."];
      name: String_.t option
        [@ocaml.doc
          "The name of a person to receive a Snow device at an address."];
      company: String_.t option
        [@ocaml.doc
          "The name of the company to receive a Snow device at an address."];
      street1: String_.t option
        [@ocaml.doc
          "The first line in a street address that a Snow device is to be delivered to."];
      street2: String_.t option
        [@ocaml.doc
          "The second line in a street address that a Snow device is to be delivered to."];
      street3: String_.t option
        [@ocaml.doc
          "The third line in a street address that a Snow device is to be delivered to."];
      city: String_.t option
        [@ocaml.doc
          "The city in an address that a Snow device is to be delivered to."];
      stateOrProvince: String_.t option
        [@ocaml.doc
          "The state or province in an address that a Snow device is to be delivered to."];
      prefectureOrDistrict: String_.t option
        [@ocaml.doc "This field is no longer used and the value is ignored."];
      landmark: String_.t option
        [@ocaml.doc "This field is no longer used and the value is ignored."];
      country: String_.t option
        [@ocaml.doc
          "The country in an address that a Snow device is to be delivered to."];
      postalCode: String_.t option
        [@ocaml.doc
          "The postal code in an address that a Snow device is to be delivered to."];
      phoneNumber: String_.t option
        [@ocaml.doc
          "The phone number associated with an address that a Snow device is to be delivered to."];
      isRestricted: Boolean.t option
        [@ocaml.doc
          "If the address you are creating is a primary address, then set this option to true. This field is not supported in most regions."];
      type_: AddressType.t option
        [@ocaml.doc
          "Differentiates between delivery address and pickup address in the customer account. Provided at job creation."]}
    let make ?addressId =
      fun ?name ->
        fun ?company ->
          fun ?street1 ->
            fun ?street2 ->
              fun ?street3 ->
                fun ?city ->
                  fun ?stateOrProvince ->
                    fun ?prefectureOrDistrict ->
                      fun ?landmark ->
                        fun ?country ->
                          fun ?postalCode ->
                            fun ?phoneNumber ->
                              fun ?isRestricted ->
                                fun ?type_ ->
                                  fun () ->
                                    {
                                      addressId;
                                      name;
                                      company;
                                      street1;
                                      street2;
                                      street3;
                                      city;
                                      stateOrProvince;
                                      prefectureOrDistrict;
                                      landmark;
                                      country;
                                      postalCode;
                                      phoneNumber;
                                      isRestricted;
                                      type_
                                    }
    let to_value x =
      structure_to_value
        [("AddressId", (Option.map x.addressId ~f:AddressId.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value));
        ("Company", (Option.map x.company ~f:String_.to_value));
        ("Street1", (Option.map x.street1 ~f:String_.to_value));
        ("Street2", (Option.map x.street2 ~f:String_.to_value));
        ("Street3", (Option.map x.street3 ~f:String_.to_value));
        ("City", (Option.map x.city ~f:String_.to_value));
        ("StateOrProvince",
          (Option.map x.stateOrProvince ~f:String_.to_value));
        ("PrefectureOrDistrict",
          (Option.map x.prefectureOrDistrict ~f:String_.to_value));
        ("Landmark", (Option.map x.landmark ~f:String_.to_value));
        ("Country", (Option.map x.country ~f:String_.to_value));
        ("PostalCode", (Option.map x.postalCode ~f:String_.to_value));
        ("PhoneNumber", (Option.map x.phoneNumber ~f:String_.to_value));
        ("IsRestricted", (Option.map x.isRestricted ~f:Boolean.to_value));
        ("Type", (Option.map x.type_ ~f:AddressType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:AddressType.of_xml) (Xml.child xml_arg0 "Type") in
      let isRestricted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsRestricted") in
      let phoneNumber =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PhoneNumber") in
      let postalCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "PostalCode") in
      let country =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Country") in
      let landmark =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Landmark") in
      let prefectureOrDistrict =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "PrefectureOrDistrict") in
      let stateOrProvince =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "StateOrProvince") in
      let city = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "City") in
      let street3 =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Street3") in
      let street2 =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Street2") in
      let street1 =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Street1") in
      let company =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Company") in
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let addressId =
        (Option.map ~f:AddressId.of_xml) (Xml.child xml_arg0 "AddressId") in
      make ?type_ ?isRestricted ?phoneNumber ?postalCode ?country ?landmark
        ?prefectureOrDistrict ?stateOrProvince ?city ?street3 ?street2
        ?street1 ?company ?name ?addressId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" AddressType.of_json in
      let isRestricted = field_map json__ "IsRestricted" Boolean.of_json in
      let phoneNumber = field_map json__ "PhoneNumber" String_.of_json in
      let postalCode = field_map json__ "PostalCode" String_.of_json in
      let country = field_map json__ "Country" String_.of_json in
      let landmark = field_map json__ "Landmark" String_.of_json in
      let prefectureOrDistrict =
        field_map json__ "PrefectureOrDistrict" String_.of_json in
      let stateOrProvince =
        field_map json__ "StateOrProvince" String_.of_json in
      let city = field_map json__ "City" String_.of_json in
      let street3 = field_map json__ "Street3" String_.of_json in
      let street2 = field_map json__ "Street2" String_.of_json in
      let street1 = field_map json__ "Street1" String_.of_json in
      let company = field_map json__ "Company" String_.of_json in
      let name = field_map json__ "Name" String_.of_json in
      let addressId = field_map json__ "AddressId" AddressId.of_json in
      make ?type_ ?isRestricted ?phoneNumber ?postalCode ?country ?landmark
        ?prefectureOrDistrict ?stateOrProvince ?city ?street3 ?street2
        ?street1 ?company ?name ?addressId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The address that you want the Snow device(s) associated with a specific job to be shipped to. Addresses are validated at the time of creation. The address you provide must be located within the serviceable area of your region. Although no individual elements of the Address are required, if the address is invalid or unsupported, then an exception is thrown."]
module LongTermPricingListEntry =
  struct
    type nonrec t =
      {
      longTermPricingId: LongTermPricingId.t option
        [@ocaml.doc "The ID of the long-term pricing type for the device."];
      longTermPricingEndDate: Timestamp.t option
        [@ocaml.doc "The end date the long-term pricing contract."];
      longTermPricingStartDate: Timestamp.t option
        [@ocaml.doc "The start date of the long-term pricing contract."];
      longTermPricingType: LongTermPricingType.t option
        [@ocaml.doc
          "The type of long-term pricing that was selected for the device."];
      currentActiveJob: JobId.t option
        [@ocaml.doc
          "The current active jobs on the device the long-term pricing type."];
      replacementJob: JobId.t option
        [@ocaml.doc
          "A new device that replaces a device that is ordered with long-term pricing."];
      isLongTermPricingAutoRenew: JavaBoolean.t option
        [@ocaml.doc
          "If set to true, specifies that the current long-term pricing type for the device should be automatically renewed before the long-term pricing contract expires."];
      longTermPricingStatus: String_.t option
        [@ocaml.doc "The status of the long-term pricing type."];
      snowballType: SnowballType.t option
        [@ocaml.doc
          "The type of Snow Family devices associated with this long-term pricing job."];
      jobIds: LongTermPricingAssociatedJobIdList.t option
        [@ocaml.doc
          "The IDs of the jobs that are associated with a long-term pricing type."]}
    let make ?longTermPricingId =
      fun ?longTermPricingEndDate ->
        fun ?longTermPricingStartDate ->
          fun ?longTermPricingType ->
            fun ?currentActiveJob ->
              fun ?replacementJob ->
                fun ?isLongTermPricingAutoRenew ->
                  fun ?longTermPricingStatus ->
                    fun ?snowballType ->
                      fun ?jobIds ->
                        fun () ->
                          {
                            longTermPricingId;
                            longTermPricingEndDate;
                            longTermPricingStartDate;
                            longTermPricingType;
                            currentActiveJob;
                            replacementJob;
                            isLongTermPricingAutoRenew;
                            longTermPricingStatus;
                            snowballType;
                            jobIds
                          }
    let to_value x =
      structure_to_value
        [("LongTermPricingId",
           (Option.map x.longTermPricingId ~f:LongTermPricingId.to_value));
        ("LongTermPricingEndDate",
          (Option.map x.longTermPricingEndDate ~f:Timestamp.to_value));
        ("LongTermPricingStartDate",
          (Option.map x.longTermPricingStartDate ~f:Timestamp.to_value));
        ("LongTermPricingType",
          (Option.map x.longTermPricingType ~f:LongTermPricingType.to_value));
        ("CurrentActiveJob",
          (Option.map x.currentActiveJob ~f:JobId.to_value));
        ("ReplacementJob", (Option.map x.replacementJob ~f:JobId.to_value));
        ("IsLongTermPricingAutoRenew",
          (Option.map x.isLongTermPricingAutoRenew ~f:JavaBoolean.to_value));
        ("LongTermPricingStatus",
          (Option.map x.longTermPricingStatus ~f:String_.to_value));
        ("SnowballType",
          (Option.map x.snowballType ~f:SnowballType.to_value));
        ("JobIds",
          (Option.map x.jobIds ~f:LongTermPricingAssociatedJobIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobIds =
        (Option.map ~f:LongTermPricingAssociatedJobIdList.of_xml)
          (Xml.child xml_arg0 "JobIds") in
      let snowballType =
        (Option.map ~f:SnowballType.of_xml)
          (Xml.child xml_arg0 "SnowballType") in
      let longTermPricingStatus =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "LongTermPricingStatus") in
      let isLongTermPricingAutoRenew =
        (Option.map ~f:JavaBoolean.of_xml)
          (Xml.child xml_arg0 "IsLongTermPricingAutoRenew") in
      let replacementJob =
        (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "ReplacementJob") in
      let currentActiveJob =
        (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "CurrentActiveJob") in
      let longTermPricingType =
        (Option.map ~f:LongTermPricingType.of_xml)
          (Xml.child xml_arg0 "LongTermPricingType") in
      let longTermPricingStartDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LongTermPricingStartDate") in
      let longTermPricingEndDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LongTermPricingEndDate") in
      let longTermPricingId =
        (Option.map ~f:LongTermPricingId.of_xml)
          (Xml.child xml_arg0 "LongTermPricingId") in
      make ?jobIds ?snowballType ?longTermPricingStatus
        ?isLongTermPricingAutoRenew ?replacementJob ?currentActiveJob
        ?longTermPricingType ?longTermPricingStartDate
        ?longTermPricingEndDate ?longTermPricingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobIds =
        field_map json__ "JobIds" LongTermPricingAssociatedJobIdList.of_json in
      let snowballType = field_map json__ "SnowballType" SnowballType.of_json in
      let longTermPricingStatus =
        field_map json__ "LongTermPricingStatus" String_.of_json in
      let isLongTermPricingAutoRenew =
        field_map json__ "IsLongTermPricingAutoRenew" JavaBoolean.of_json in
      let replacementJob = field_map json__ "ReplacementJob" JobId.of_json in
      let currentActiveJob =
        field_map json__ "CurrentActiveJob" JobId.of_json in
      let longTermPricingType =
        field_map json__ "LongTermPricingType" LongTermPricingType.of_json in
      let longTermPricingStartDate =
        field_map json__ "LongTermPricingStartDate" Timestamp.of_json in
      let longTermPricingEndDate =
        field_map json__ "LongTermPricingEndDate" Timestamp.of_json in
      let longTermPricingId =
        field_map json__ "LongTermPricingId" LongTermPricingId.of_json in
      make ?jobIds ?snowballType ?longTermPricingStatus
        ?isLongTermPricingAutoRenew ?replacementJob ?currentActiveJob
        ?longTermPricingType ?longTermPricingStartDate
        ?longTermPricingEndDate ?longTermPricingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Each LongTermPricingListEntry object contains information about a long-term pricing type."]
module JobListEntry =
  struct
    type nonrec t =
      {
      jobId: String_.t option
        [@ocaml.doc
          "The automatically generated ID for a job, for example JID123e4567-e89b-12d3-a456-426655440000."];
      jobState: JobState.t option
        [@ocaml.doc "The current state of this job."];
      isMaster: Boolean.t option
        [@ocaml.doc
          "A value that indicates that this job is a main job. A main job represents a successful request to create an export job. Main jobs aren't associated with any Snowballs. Instead, each main job will have at least one job part, and each job part is associated with a Snowball. It might take some time before the job parts associated with a particular main job are listed, because they are created after the main job is created."];
      jobType: JobType.t option [@ocaml.doc "The type of job."];
      snowballType: SnowballType.t option
        [@ocaml.doc "The type of device used with this job."];
      creationDate: Timestamp.t option
        [@ocaml.doc "The creation date for this job."];
      description: String_.t option
        [@ocaml.doc
          "The optional description of this specific job, for example Important Photos 2016-08-11."]}
    let make ?jobId =
      fun ?jobState ->
        fun ?isMaster ->
          fun ?jobType ->
            fun ?snowballType ->
              fun ?creationDate ->
                fun ?description ->
                  fun () ->
                    {
                      jobId;
                      jobState;
                      isMaster;
                      jobType;
                      snowballType;
                      creationDate;
                      description
                    }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:String_.to_value));
        ("JobState", (Option.map x.jobState ~f:JobState.to_value));
        ("IsMaster", (Option.map x.isMaster ~f:Boolean.to_value));
        ("JobType", (Option.map x.jobType ~f:JobType.to_value));
        ("SnowballType",
          (Option.map x.snowballType ~f:SnowballType.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:Timestamp.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let creationDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let snowballType =
        (Option.map ~f:SnowballType.of_xml)
          (Xml.child xml_arg0 "SnowballType") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      let isMaster =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "IsMaster") in
      let jobState =
        (Option.map ~f:JobState.of_xml) (Xml.child xml_arg0 "JobState") in
      let jobId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?description ?creationDate ?snowballType ?jobType ?isMaster
        ?jobState ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" String_.of_json in
      let creationDate = field_map json__ "CreationDate" Timestamp.of_json in
      let snowballType = field_map json__ "SnowballType" SnowballType.of_json in
      let jobType = field_map json__ "JobType" JobType.of_json in
      let isMaster = field_map json__ "IsMaster" Boolean.of_json in
      let jobState = field_map json__ "JobState" JobState.of_json in
      let jobId = field_map json__ "JobId" String_.of_json in
      make ?description ?creationDate ?snowballType ?jobType ?isMaster
        ?jobState ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Each JobListEntry object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of an export job."]
module CompatibleImage =
  struct
    type nonrec t =
      {
      amiId: String_.t option
        [@ocaml.doc
          "The unique identifier for an individual Snow device AMI."];
      name: String_.t option
        [@ocaml.doc "The optional name of a compatible image."]}
    let make ?amiId = fun ?name -> fun () -> { amiId; name }
    let to_value x =
      structure_to_value
        [("AmiId", (Option.map x.amiId ~f:String_.to_value));
        ("Name", (Option.map x.name ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Name") in
      let amiId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AmiId") in
      make ?name ?amiId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" String_.of_json in
      let amiId = field_map json__ "AmiId" String_.of_json in
      make ?name ?amiId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON-formatted object that describes a compatible Amazon Machine Image (AMI), including the ID and name for a Snow device AMI. This AMI is compatible with the device's physical hardware requirements, and it should be able to be run in an SBE1 instance on the device."]
module ClusterListEntry =
  struct
    type nonrec t =
      {
      clusterId: String_.t option
        [@ocaml.doc
          "The 39-character ID for the cluster that you want to list, for example CID123e4567-e89b-12d3-a456-426655440000."];
      clusterState: ClusterState.t option
        [@ocaml.doc
          "The current state of this cluster. For information about the state of a specific node, see JobListEntry$JobState."];
      creationDate: Timestamp.t option
        [@ocaml.doc "The creation date for this cluster."];
      description: String_.t option
        [@ocaml.doc
          "Defines an optional description of the cluster, for example Environmental Data Cluster-01."]}
    let make ?clusterId =
      fun ?clusterState ->
        fun ?creationDate ->
          fun ?description ->
            fun () -> { clusterId; clusterState; creationDate; description }
    let to_value x =
      structure_to_value
        [("ClusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("ClusterState",
          (Option.map x.clusterState ~f:ClusterState.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:Timestamp.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let creationDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let clusterState =
        (Option.map ~f:ClusterState.of_xml)
          (Xml.child xml_arg0 "ClusterState") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ClusterId") in
      make ?description ?creationDate ?clusterState ?clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description = field_map json__ "Description" String_.of_json in
      let creationDate = field_map json__ "CreationDate" Timestamp.of_json in
      let clusterState = field_map json__ "ClusterState" ClusterState.of_json in
      let clusterId = field_map json__ "ClusterId" String_.of_json in
      make ?description ?creationDate ?clusterState ?clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains a cluster's state, a cluster's ID, and other important information."]
module JobMetadata =
  struct
    type nonrec t =
      {
      jobId: String_.t option
        [@ocaml.doc
          "The automatically generated ID for a job, for example JID123e4567-e89b-12d3-a456-426655440000."];
      jobState: JobState.t option
        [@ocaml.doc "The current status of the jobs."];
      jobType: JobType.t option [@ocaml.doc "The type of job."];
      snowballType: SnowballType.t option
        [@ocaml.doc "The type of device used with this job."];
      creationDate: Timestamp.t option
        [@ocaml.doc "The creation date for this job."];
      resources: JobResource.t option
        [@ocaml.doc
          "An array of S3Resource objects. Each S3Resource object represents an Amazon S3 bucket that your transferred data will be exported from or imported into."];
      description: String_.t option
        [@ocaml.doc "The description of the job, provided at job creation."];
      kmsKeyARN: KmsKeyARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the Key Management Service (KMS) key associated with this job. This ARN was created using the CreateKey API action in KMS."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The role ARN associated with this job. This ARN was created using the CreateRole API action in Identity and Access Management."];
      addressId: AddressId.t option
        [@ocaml.doc
          "The ID for the address that you want the Snow device shipped to."];
      shippingDetails: ShippingDetails.t option
        [@ocaml.doc
          "A job's shipping information, including inbound and outbound tracking numbers and shipping speed options."];
      snowballCapacityPreference: SnowballCapacity.t option
        [@ocaml.doc
          "The Snow device capacity preference for this job, specified at job creation. In US regions, you can choose between 50 TB and 80 TB Snowballs. All other regions use 80 TB capacity Snowballs. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      notification: Notification.t option
        [@ocaml.doc
          "The Amazon Simple Notification Service (Amazon SNS) notification settings associated with a specific job. The Notification object is returned as a part of the response syntax of the DescribeJob action in the JobMetadata data type."];
      dataTransferProgress: DataTransfer.t option
        [@ocaml.doc
          "A value that defines the real-time status of a Snow device's data transfer while the device is at Amazon Web Services. This data is only available while a job has a JobState value of InProgress, for both import and export jobs."];
      jobLogInfo: JobLogs.t option
        [@ocaml.doc
          "Links to Amazon S3 presigned URLs for the job report and logs. For import jobs, the PDF job report becomes available at the end of the import process. For export jobs, your job report typically becomes available while the Snow device for your job part is being delivered to you."];
      clusterId: String_.t option
        [@ocaml.doc
          "The 39-character ID for the cluster, for example CID123e4567-e89b-12d3-a456-426655440000."];
      forwardingAddressId: AddressId.t option
        [@ocaml.doc
          "The ID of the address that you want a job shipped to, after it will be shipped to its primary address. This field is not supported in most regions."];
      taxDocuments: TaxDocuments.t option
        [@ocaml.doc
          "The metadata associated with the tax documents required in your Amazon Web Services Region."];
      deviceConfiguration: DeviceConfiguration.t option ;
      remoteManagement: RemoteManagement.t option
        [@ocaml.doc
          "Allows you to securely operate and manage Snowcone devices remotely from outside of your internal network. When set to INSTALLED_AUTOSTART, remote management will automatically be available when the device arrives at your location. Otherwise, you need to use the Snowball Client to manage the device."];
      longTermPricingId: LongTermPricingId.t option
        [@ocaml.doc "The ID of the long-term pricing type for the device."];
      onDeviceServiceConfiguration: OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Represents metadata and configuration settings for services on an Amazon Web Services Snow Family device."];
      impactLevel: ImpactLevel.t option
        [@ocaml.doc
          "The highest impact level of data that will be stored or processed on the device, provided at job creation."];
      pickupDetails: PickupDetails.t option
        [@ocaml.doc
          "Information identifying the person picking up the device."];
      snowballId: String_.t option
        [@ocaml.doc "Unique ID associated with a device."]}
    let make ?jobId =
      fun ?jobState ->
        fun ?jobType ->
          fun ?snowballType ->
            fun ?creationDate ->
              fun ?resources ->
                fun ?description ->
                  fun ?kmsKeyARN ->
                    fun ?roleARN ->
                      fun ?addressId ->
                        fun ?shippingDetails ->
                          fun ?snowballCapacityPreference ->
                            fun ?notification ->
                              fun ?dataTransferProgress ->
                                fun ?jobLogInfo ->
                                  fun ?clusterId ->
                                    fun ?forwardingAddressId ->
                                      fun ?taxDocuments ->
                                        fun ?deviceConfiguration ->
                                          fun ?remoteManagement ->
                                            fun ?longTermPricingId ->
                                              fun
                                                ?onDeviceServiceConfiguration
                                                ->
                                                fun ?impactLevel ->
                                                  fun ?pickupDetails ->
                                                    fun ?snowballId ->
                                                      fun () ->
                                                        {
                                                          jobId;
                                                          jobState;
                                                          jobType;
                                                          snowballType;
                                                          creationDate;
                                                          resources;
                                                          description;
                                                          kmsKeyARN;
                                                          roleARN;
                                                          addressId;
                                                          shippingDetails;
                                                          snowballCapacityPreference;
                                                          notification;
                                                          dataTransferProgress;
                                                          jobLogInfo;
                                                          clusterId;
                                                          forwardingAddressId;
                                                          taxDocuments;
                                                          deviceConfiguration;
                                                          remoteManagement;
                                                          longTermPricingId;
                                                          onDeviceServiceConfiguration;
                                                          impactLevel;
                                                          pickupDetails;
                                                          snowballId
                                                        }
    let to_value x =
      structure_to_value
        [("JobId", (Option.map x.jobId ~f:String_.to_value));
        ("JobState", (Option.map x.jobState ~f:JobState.to_value));
        ("JobType", (Option.map x.jobType ~f:JobType.to_value));
        ("SnowballType",
          (Option.map x.snowballType ~f:SnowballType.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:Timestamp.to_value));
        ("Resources", (Option.map x.resources ~f:JobResource.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("KmsKeyARN", (Option.map x.kmsKeyARN ~f:KmsKeyARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("AddressId", (Option.map x.addressId ~f:AddressId.to_value));
        ("ShippingDetails",
          (Option.map x.shippingDetails ~f:ShippingDetails.to_value));
        ("SnowballCapacityPreference",
          (Option.map x.snowballCapacityPreference
             ~f:SnowballCapacity.to_value));
        ("Notification",
          (Option.map x.notification ~f:Notification.to_value));
        ("DataTransferProgress",
          (Option.map x.dataTransferProgress ~f:DataTransfer.to_value));
        ("JobLogInfo", (Option.map x.jobLogInfo ~f:JobLogs.to_value));
        ("ClusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("ForwardingAddressId",
          (Option.map x.forwardingAddressId ~f:AddressId.to_value));
        ("TaxDocuments",
          (Option.map x.taxDocuments ~f:TaxDocuments.to_value));
        ("DeviceConfiguration",
          (Option.map x.deviceConfiguration ~f:DeviceConfiguration.to_value));
        ("RemoteManagement",
          (Option.map x.remoteManagement ~f:RemoteManagement.to_value));
        ("LongTermPricingId",
          (Option.map x.longTermPricingId ~f:LongTermPricingId.to_value));
        ("OnDeviceServiceConfiguration",
          (Option.map x.onDeviceServiceConfiguration
             ~f:OnDeviceServiceConfiguration.to_value));
        ("ImpactLevel", (Option.map x.impactLevel ~f:ImpactLevel.to_value));
        ("PickupDetails",
          (Option.map x.pickupDetails ~f:PickupDetails.to_value));
        ("SnowballId", (Option.map x.snowballId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snowballId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "SnowballId") in
      let pickupDetails =
        (Option.map ~f:PickupDetails.of_xml)
          (Xml.child xml_arg0 "PickupDetails") in
      let impactLevel =
        (Option.map ~f:ImpactLevel.of_xml) (Xml.child xml_arg0 "ImpactLevel") in
      let onDeviceServiceConfiguration =
        (Option.map ~f:OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "OnDeviceServiceConfiguration") in
      let longTermPricingId =
        (Option.map ~f:LongTermPricingId.of_xml)
          (Xml.child xml_arg0 "LongTermPricingId") in
      let remoteManagement =
        (Option.map ~f:RemoteManagement.of_xml)
          (Xml.child xml_arg0 "RemoteManagement") in
      let deviceConfiguration =
        (Option.map ~f:DeviceConfiguration.of_xml)
          (Xml.child xml_arg0 "DeviceConfiguration") in
      let taxDocuments =
        (Option.map ~f:TaxDocuments.of_xml)
          (Xml.child xml_arg0 "TaxDocuments") in
      let forwardingAddressId =
        (Option.map ~f:AddressId.of_xml)
          (Xml.child xml_arg0 "ForwardingAddressId") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ClusterId") in
      let jobLogInfo =
        (Option.map ~f:JobLogs.of_xml) (Xml.child xml_arg0 "JobLogInfo") in
      let dataTransferProgress =
        (Option.map ~f:DataTransfer.of_xml)
          (Xml.child xml_arg0 "DataTransferProgress") in
      let notification =
        (Option.map ~f:Notification.of_xml)
          (Xml.child xml_arg0 "Notification") in
      let snowballCapacityPreference =
        (Option.map ~f:SnowballCapacity.of_xml)
          (Xml.child xml_arg0 "SnowballCapacityPreference") in
      let shippingDetails =
        (Option.map ~f:ShippingDetails.of_xml)
          (Xml.child xml_arg0 "ShippingDetails") in
      let addressId =
        (Option.map ~f:AddressId.of_xml) (Xml.child xml_arg0 "AddressId") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let kmsKeyARN =
        (Option.map ~f:KmsKeyARN.of_xml) (Xml.child xml_arg0 "KmsKeyARN") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let resources =
        (Option.map ~f:JobResource.of_xml) (Xml.child xml_arg0 "Resources") in
      let creationDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let snowballType =
        (Option.map ~f:SnowballType.of_xml)
          (Xml.child xml_arg0 "SnowballType") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      let jobState =
        (Option.map ~f:JobState.of_xml) (Xml.child xml_arg0 "JobState") in
      let jobId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?snowballId ?pickupDetails ?impactLevel
        ?onDeviceServiceConfiguration ?longTermPricingId ?remoteManagement
        ?deviceConfiguration ?taxDocuments ?forwardingAddressId ?clusterId
        ?jobLogInfo ?dataTransferProgress ?notification
        ?snowballCapacityPreference ?shippingDetails ?addressId ?roleARN
        ?kmsKeyARN ?description ?resources ?creationDate ?snowballType
        ?jobType ?jobState ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snowballId = field_map json__ "SnowballId" String_.of_json in
      let pickupDetails =
        field_map json__ "PickupDetails" PickupDetails.of_json in
      let impactLevel = field_map json__ "ImpactLevel" ImpactLevel.of_json in
      let onDeviceServiceConfiguration =
        field_map json__ "OnDeviceServiceConfiguration"
          OnDeviceServiceConfiguration.of_json in
      let longTermPricingId =
        field_map json__ "LongTermPricingId" LongTermPricingId.of_json in
      let remoteManagement =
        field_map json__ "RemoteManagement" RemoteManagement.of_json in
      let deviceConfiguration =
        field_map json__ "DeviceConfiguration" DeviceConfiguration.of_json in
      let taxDocuments = field_map json__ "TaxDocuments" TaxDocuments.of_json in
      let forwardingAddressId =
        field_map json__ "ForwardingAddressId" AddressId.of_json in
      let clusterId = field_map json__ "ClusterId" String_.of_json in
      let jobLogInfo = field_map json__ "JobLogInfo" JobLogs.of_json in
      let dataTransferProgress =
        field_map json__ "DataTransferProgress" DataTransfer.of_json in
      let notification = field_map json__ "Notification" Notification.of_json in
      let snowballCapacityPreference =
        field_map json__ "SnowballCapacityPreference"
          SnowballCapacity.of_json in
      let shippingDetails =
        field_map json__ "ShippingDetails" ShippingDetails.of_json in
      let addressId = field_map json__ "AddressId" AddressId.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let kmsKeyARN = field_map json__ "KmsKeyARN" KmsKeyARN.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let resources = field_map json__ "Resources" JobResource.of_json in
      let creationDate = field_map json__ "CreationDate" Timestamp.of_json in
      let snowballType = field_map json__ "SnowballType" SnowballType.of_json in
      let jobType = field_map json__ "JobType" JobType.of_json in
      let jobState = field_map json__ "JobState" JobState.of_json in
      let jobId = field_map json__ "JobId" String_.of_json in
      make ?snowballId ?pickupDetails ?impactLevel
        ?onDeviceServiceConfiguration ?longTermPricingId ?remoteManagement
        ?deviceConfiguration ?taxDocuments ?forwardingAddressId ?clusterId
        ?jobLogInfo ?dataTransferProgress ?notification
        ?snowballCapacityPreference ?shippingDetails ?addressId ?roleARN
        ?kmsKeyARN ?description ?resources ?creationDate ?snowballType
        ?jobType ?jobState ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about a specific job including shipping information, job status, and other important metadata. This information is returned as a part of the response syntax of the DescribeJob action."]
module InvalidResourceException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceType: String_.t option
        [@ocaml.doc "The provided resource value is invalid."]}
    let make ?message =
      fun ?resourceType -> fun () -> { message; resourceType }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value));
        ("ResourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ResourceType") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?resourceType ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "ResourceType" String_.of_json in
      let message = field_map json__ "Message" String_.of_json in
      make ?resourceType ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified resource can't be found. Check the information you provided in your last request, and try again."]
module InvalidJobStateException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The action can't be performed because the job's current state doesn't allow that action to be performed."]
module ShipmentState =
  struct
    type nonrec t =
      | RECEIVED 
      | RETURNED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RECEIVED -> "RECEIVED"
      | RETURNED -> "RETURNED"
      | Non_static_id s -> s
    let of_string =
      function
      | "RECEIVED" -> RECEIVED
      | "RETURNED" -> RETURNED
      | 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 ShipmentState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShipmentState" j)
    let to_json = simple_to_json to_value
  end
module ClusterLimitExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Job creation failed. Currently, clusters support five nodes. If you have fewer than five nodes for your cluster and you have more nodes to create for this cluster, try again and create jobs until your cluster has exactly five nodes."]
module Ec2RequestFailedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your user lacks the necessary Amazon EC2 permissions to perform the attempted action."]
module InvalidInputCombinationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Job or cluster creation failed. One or more inputs were invalid. Confirm that the CreateClusterRequest$SnowballType value supports your CreateJobRequest$JobType, and try again."]
module KMSRequestFailedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The provided Key Management Service key lacks the permissions to perform the specified CreateJob or UpdateJob action."]
module ClusterId =
  struct
    type nonrec t = string
    let context_ = "ClusterId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:39) >>=
             (fun () ->
                (check_string_max i ~max:39) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"CID[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClusterId" j
    let to_json = simple_to_json to_value
  end
module DependentServiceList =
  struct
    type nonrec t = DependentService.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:DependentService.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:DependentService.of_xml)
    let of_json j =
      list_of_json ~kind:"DependentServiceList"
        ~of_json:DependentService.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidNextTokenException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The NextToken string was altered unexpectedly, and the operation has stopped. Run the operation without changing the NextToken string, and try again."]
module ServiceVersionList =
  struct
    type nonrec t = ServiceVersion.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:ServiceVersion.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:ServiceVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceVersionList" ~of_json:ServiceVersion.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ListLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for ListLimit" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AddressList =
  struct
    type nonrec t = Address.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:Address.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:Address.of_xml)
    let of_json j =
      list_of_json ~kind:"AddressList" ~of_json:Address.of_json j
    let to_json v = composed_to_json to_value v
  end
module LongTermPricingEntryList =
  struct
    type nonrec t = LongTermPricingListEntry.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:LongTermPricingListEntry.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:LongTermPricingListEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"LongTermPricingEntryList"
        ~of_json:LongTermPricingListEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module JobListEntryList =
  struct
    type nonrec t = JobListEntry.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:JobListEntry.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:JobListEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"JobListEntryList" ~of_json:JobListEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module CompatibleImageList =
  struct
    type nonrec t = CompatibleImage.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:CompatibleImage.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:CompatibleImage.of_xml)
    let of_json j =
      list_of_json ~kind:"CompatibleImageList"
        ~of_json:CompatibleImage.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClusterListEntryList =
  struct
    type nonrec t = ClusterListEntry.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:ClusterListEntry.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:ClusterListEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"ClusterListEntryList"
        ~of_json:ClusterListEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      conflictResource: String_.t option
        [@ocaml.doc
          "You get this resource when you call CreateReturnShippingLabel more than once when other requests are not completed. ."];
      message: String_.t option }
    let make ?conflictResource =
      fun ?message -> fun () -> { conflictResource; message }
    let to_value x =
      structure_to_value
        [("ConflictResource",
           (Option.map x.conflictResource ~f:String_.to_value));
        ("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      let conflictResource =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ConflictResource") in
      make ?message ?conflictResource ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      let conflictResource =
        field_map json__ "ConflictResource" String_.of_json in
      make ?message ?conflictResource ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You get this exception when you call CreateReturnShippingLabel more than once when other requests are not completed."]
module ShippingLabelStatus =
  struct
    type nonrec t =
      | InProgress 
      | TimedOut 
      | Succeeded 
      | Failed 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | TimedOut -> "TimedOut"
      | Succeeded -> "Succeeded"
      | Failed -> "Failed"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "TimedOut" -> TimedOut
      | "Succeeded" -> Succeeded
      | "Failed" -> Failed
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration ShippingLabelStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShippingLabelStatus" j)
    let to_json = simple_to_json to_value
  end
module JobMetadataList =
  struct
    type nonrec t = JobMetadata.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:JobMetadata.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:JobMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"JobMetadataList" ~of_json:JobMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClusterMetadata =
  struct
    type nonrec t =
      {
      clusterId: String_.t option
        [@ocaml.doc "The automatically generated ID for a cluster."];
      description: String_.t option
        [@ocaml.doc "The optional description of the cluster."];
      kmsKeyARN: KmsKeyARN.t option
        [@ocaml.doc
          "The KmsKeyARN Amazon Resource Name (ARN) associated with this cluster. This ARN was created using the CreateKey API action in Key Management Service (KMS."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The role ARN associated with this cluster. This ARN was created using the CreateRole API action in Identity and Access Management (IAM)."];
      clusterState: ClusterState.t option
        [@ocaml.doc "The current status of the cluster."];
      jobType: JobType.t option
        [@ocaml.doc
          "The type of job for this cluster. Currently, the only job type supported for clusters is LOCAL_USE."];
      snowballType: SnowballType.t option
        [@ocaml.doc
          "The type of Snowball Edge device to use for this cluster. For cluster jobs, Amazon Web Services Snow Family currently supports only the EDGE device type."];
      creationDate: Timestamp.t option
        [@ocaml.doc "The creation date for this cluster."];
      resources: JobResource.t option
        [@ocaml.doc
          "The arrays of JobResource objects that can include updated S3Resource objects or LambdaResource objects."];
      addressId: AddressId.t option
        [@ocaml.doc "The automatically generated ID for a specific address."];
      shippingOption: ShippingOption.t option
        [@ocaml.doc
          "The shipping speed for each node in this cluster. This speed doesn't dictate how soon you'll get each device, rather it represents how quickly each device moves to its destination while in transit. Regional shipping speeds are as follows: In Australia, you have access to express shipping. Typically, devices shipped express are delivered in about a day. In the European Union (EU), you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way. In India, Snow devices are delivered in one to seven days. In the US, you have access to one-day shipping and two-day shipping."];
      notification: Notification.t option
        [@ocaml.doc
          "The Amazon Simple Notification Service (Amazon SNS) notification settings for this cluster."];
      forwardingAddressId: AddressId.t option
        [@ocaml.doc
          "The ID of the address that you want a cluster shipped to, after it will be shipped to its primary address. This field is not supported in most regions."];
      taxDocuments: TaxDocuments.t option
        [@ocaml.doc
          "The tax documents required in your Amazon Web Services Region."];
      onDeviceServiceConfiguration: OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Represents metadata and configuration settings for services on an Amazon Web Services Snow Family device."]}
    let make ?clusterId =
      fun ?description ->
        fun ?kmsKeyARN ->
          fun ?roleARN ->
            fun ?clusterState ->
              fun ?jobType ->
                fun ?snowballType ->
                  fun ?creationDate ->
                    fun ?resources ->
                      fun ?addressId ->
                        fun ?shippingOption ->
                          fun ?notification ->
                            fun ?forwardingAddressId ->
                              fun ?taxDocuments ->
                                fun ?onDeviceServiceConfiguration ->
                                  fun () ->
                                    {
                                      clusterId;
                                      description;
                                      kmsKeyARN;
                                      roleARN;
                                      clusterState;
                                      jobType;
                                      snowballType;
                                      creationDate;
                                      resources;
                                      addressId;
                                      shippingOption;
                                      notification;
                                      forwardingAddressId;
                                      taxDocuments;
                                      onDeviceServiceConfiguration
                                    }
    let to_value x =
      structure_to_value
        [("ClusterId", (Option.map x.clusterId ~f:String_.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("KmsKeyARN", (Option.map x.kmsKeyARN ~f:KmsKeyARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("ClusterState",
          (Option.map x.clusterState ~f:ClusterState.to_value));
        ("JobType", (Option.map x.jobType ~f:JobType.to_value));
        ("SnowballType",
          (Option.map x.snowballType ~f:SnowballType.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:Timestamp.to_value));
        ("Resources", (Option.map x.resources ~f:JobResource.to_value));
        ("AddressId", (Option.map x.addressId ~f:AddressId.to_value));
        ("ShippingOption",
          (Option.map x.shippingOption ~f:ShippingOption.to_value));
        ("Notification",
          (Option.map x.notification ~f:Notification.to_value));
        ("ForwardingAddressId",
          (Option.map x.forwardingAddressId ~f:AddressId.to_value));
        ("TaxDocuments",
          (Option.map x.taxDocuments ~f:TaxDocuments.to_value));
        ("OnDeviceServiceConfiguration",
          (Option.map x.onDeviceServiceConfiguration
             ~f:OnDeviceServiceConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let onDeviceServiceConfiguration =
        (Option.map ~f:OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "OnDeviceServiceConfiguration") in
      let taxDocuments =
        (Option.map ~f:TaxDocuments.of_xml)
          (Xml.child xml_arg0 "TaxDocuments") in
      let forwardingAddressId =
        (Option.map ~f:AddressId.of_xml)
          (Xml.child xml_arg0 "ForwardingAddressId") in
      let notification =
        (Option.map ~f:Notification.of_xml)
          (Xml.child xml_arg0 "Notification") in
      let shippingOption =
        (Option.map ~f:ShippingOption.of_xml)
          (Xml.child xml_arg0 "ShippingOption") in
      let addressId =
        (Option.map ~f:AddressId.of_xml) (Xml.child xml_arg0 "AddressId") in
      let resources =
        (Option.map ~f:JobResource.of_xml) (Xml.child xml_arg0 "Resources") in
      let creationDate =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let snowballType =
        (Option.map ~f:SnowballType.of_xml)
          (Xml.child xml_arg0 "SnowballType") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      let clusterState =
        (Option.map ~f:ClusterState.of_xml)
          (Xml.child xml_arg0 "ClusterState") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let kmsKeyARN =
        (Option.map ~f:KmsKeyARN.of_xml) (Xml.child xml_arg0 "KmsKeyARN") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let clusterId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ClusterId") in
      make ?onDeviceServiceConfiguration ?taxDocuments ?forwardingAddressId
        ?notification ?shippingOption ?addressId ?resources ?creationDate
        ?snowballType ?jobType ?clusterState ?roleARN ?kmsKeyARN ?description
        ?clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let onDeviceServiceConfiguration =
        field_map json__ "OnDeviceServiceConfiguration"
          OnDeviceServiceConfiguration.of_json in
      let taxDocuments = field_map json__ "TaxDocuments" TaxDocuments.of_json in
      let forwardingAddressId =
        field_map json__ "ForwardingAddressId" AddressId.of_json in
      let notification = field_map json__ "Notification" Notification.of_json in
      let shippingOption =
        field_map json__ "ShippingOption" ShippingOption.of_json in
      let addressId = field_map json__ "AddressId" AddressId.of_json in
      let resources = field_map json__ "Resources" JobResource.of_json in
      let creationDate = field_map json__ "CreationDate" Timestamp.of_json in
      let snowballType = field_map json__ "SnowballType" SnowballType.of_json in
      let jobType = field_map json__ "JobType" JobType.of_json in
      let clusterState = field_map json__ "ClusterState" ClusterState.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let kmsKeyARN = field_map json__ "KmsKeyARN" KmsKeyARN.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let clusterId = field_map json__ "ClusterId" String_.of_json in
      make ?onDeviceServiceConfiguration ?taxDocuments ?forwardingAddressId
        ?notification ?shippingOption ?addressId ?resources ?creationDate
        ?snowballType ?jobType ?clusterState ?roleARN ?kmsKeyARN ?description
        ?clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains metadata about a specific cluster."]
module ReturnShippingLabelAlreadyExistsException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You get this exception if you call CreateReturnShippingLabel and a valid return shipping label already exists. In this case, use DescribeReturnShippingLabel to get the URL."]
module InitialClusterSize =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:16) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for InitialClusterSize" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module LongTermPricingIdList =
  struct
    type nonrec t = LongTermPricingId.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:LongTermPricingId.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:LongTermPricingId.of_xml)
    let of_json j =
      list_of_json ~kind:"LongTermPricingIdList"
        ~of_json:LongTermPricingId.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidAddressException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The address provided was invalid. Check the address with your region's carrier, and try again."]
module UnsupportedAddressException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The address is either outside the serviceable area for your region, or an error occurred. Check the address with your region's carrier and try again. If the issue persists, contact Amazon Web Services Support."]
module UpdateLongTermPricingResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the long-term pricing type."]
module UpdateLongTermPricingRequest =
  struct
    type nonrec t =
      {
      longTermPricingId: LongTermPricingId.t
        [@ocaml.doc "The ID of the long-term pricing type for the device."];
      replacementJob: JobId.t option
        [@ocaml.doc
          "Specifies that a device that is ordered with long-term pricing should be replaced with a new device."];
      isLongTermPricingAutoRenew: JavaBoolean.t option
        [@ocaml.doc
          "If set to true, specifies that the current long-term pricing type for the device should be automatically renewed before the long-term pricing contract expires."]}
    let context_ = "UpdateLongTermPricingRequest"
    let make ?replacementJob =
      fun ?isLongTermPricingAutoRenew ->
        fun ~longTermPricingId ->
          fun () ->
            { replacementJob; isLongTermPricingAutoRenew; longTermPricingId }
    let to_value x =
      structure_to_value
        [("LongTermPricingId",
           (Some (LongTermPricingId.to_value x.longTermPricingId)));
        ("ReplacementJob", (Option.map x.replacementJob ~f:JobId.to_value));
        ("IsLongTermPricingAutoRenew",
          (Option.map x.isLongTermPricingAutoRenew ~f:JavaBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isLongTermPricingAutoRenew =
        (Option.map ~f:JavaBoolean.of_xml)
          (Xml.child xml_arg0 "IsLongTermPricingAutoRenew") in
      let replacementJob =
        (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "ReplacementJob") in
      let longTermPricingId =
        LongTermPricingId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LongTermPricingId") in
      make ?isLongTermPricingAutoRenew ?replacementJob ~longTermPricingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isLongTermPricingAutoRenew =
        field_map json__ "IsLongTermPricingAutoRenew" JavaBoolean.of_json in
      let replacementJob = field_map json__ "ReplacementJob" JobId.of_json in
      let longTermPricingId =
        field_map_exn json__ "LongTermPricingId" LongTermPricingId.of_json in
      make ?isLongTermPricingAutoRenew ?replacementJob ~longTermPricingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the long-term pricing type."]
module UpdateJobShipmentStateResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the state when a shipment state changes to a different state."]
module UpdateJobShipmentStateRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The job ID of the job whose shipment date you want to update, for example JID123e4567-e89b-12d3-a456-426655440000."];
      shipmentState: ShipmentState.t
        [@ocaml.doc
          "The state of a device when it is being shipped. Set to RECEIVED when the device arrives at your location. Set to RETURNED when you have returned the device to Amazon Web Services."]}
    let context_ = "UpdateJobShipmentStateRequest"
    let make ~jobId =
      fun ~shipmentState -> fun () -> { jobId; shipmentState }
    let to_value x =
      structure_to_value
        [("JobId", (Some (JobId.to_value x.jobId)));
        ("ShipmentState", (Some (ShipmentState.to_value x.shipmentState)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shipmentState =
        ShipmentState.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ShipmentState") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~shipmentState ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shipmentState =
        field_map_exn json__ "ShipmentState" ShipmentState.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~shipmentState ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the state when a shipment state changes to a different state."]
module UpdateJobResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ClusterLimitExceededException of ClusterLimitExceededException.t 
      | `Ec2RequestFailedException of Ec2RequestFailedException.t 
      | `InvalidInputCombinationException of
          InvalidInputCombinationException.t 
      | `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `KMSRequestFailedException of KMSRequestFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ClusterLimitExceededException" ->
          `ClusterLimitExceededException
            (ClusterLimitExceededException.of_json json)
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_json json)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_json json)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClusterLimitExceededException" ->
          `ClusterLimitExceededException
            (ClusterLimitExceededException.of_xml xml)
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_xml xml)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_xml xml)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClusterLimitExceededException e ->
          `Assoc
            [("error", (`String "ClusterLimitExceededException"));
            ("details", (ClusterLimitExceededException.to_json e))]
      | `Ec2RequestFailedException e ->
          `Assoc
            [("error", (`String "Ec2RequestFailedException"));
            ("details", (Ec2RequestFailedException.to_json e))]
      | `InvalidInputCombinationException e ->
          `Assoc
            [("error", (`String "InvalidInputCombinationException"));
            ("details", (InvalidInputCombinationException.to_json e))]
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `KMSRequestFailedException e ->
          `Assoc
            [("error", (`String "KMSRequestFailedException"));
            ("details", (KMSRequestFailedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "While a job's JobState value is New, you can update some of the information associated with a job. Once the job changes to a different job state, usually within 60 minutes of the job being created, this action is no longer available."]
module UpdateJobRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The job ID of the job that you want to update, for example JID123e4567-e89b-12d3-a456-426655440000."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The new role Amazon Resource Name (ARN) that you want to associate with this job. To create a role ARN, use the CreateRoleIdentity and Access Management (IAM) API action."];
      notification: Notification.t option
        [@ocaml.doc "The new or updated Notification object."];
      resources: JobResource.t option
        [@ocaml.doc
          "The updated JobResource object, or the updated JobResource object."];
      onDeviceServiceConfiguration: OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Specifies the service or services on the Snow Family device that your transferred data will be exported from or imported into. Amazon Web Services Snow Family supports Amazon S3 and NFS (Network File System) and the Amazon Web Services Storage Gateway service Tape Gateway type."];
      addressId: AddressId.t option
        [@ocaml.doc "The ID of the updated Address object."];
      shippingOption: ShippingOption.t option
        [@ocaml.doc
          "The updated shipping option value of this job's ShippingDetails object."];
      description: String_.t option
        [@ocaml.doc
          "The updated description of this job's JobMetadata object."];
      snowballCapacityPreference: SnowballCapacity.t option
        [@ocaml.doc
          "The updated SnowballCapacityPreference of this job's JobMetadata object. The 50 TB Snowballs are only available in the US regions. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      forwardingAddressId: AddressId.t option
        [@ocaml.doc
          "The updated ID for the forwarding address for a job. This field is not supported in most regions."];
      pickupDetails: PickupDetails.t option }
    let context_ = "UpdateJobRequest"
    let make ?roleARN =
      fun ?notification ->
        fun ?resources ->
          fun ?onDeviceServiceConfiguration ->
            fun ?addressId ->
              fun ?shippingOption ->
                fun ?description ->
                  fun ?snowballCapacityPreference ->
                    fun ?forwardingAddressId ->
                      fun ?pickupDetails ->
                        fun ~jobId ->
                          fun () ->
                            {
                              roleARN;
                              notification;
                              resources;
                              onDeviceServiceConfiguration;
                              addressId;
                              shippingOption;
                              description;
                              snowballCapacityPreference;
                              forwardingAddressId;
                              pickupDetails;
                              jobId
                            }
    let to_value x =
      structure_to_value
        [("JobId", (Some (JobId.to_value x.jobId)));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("Notification",
          (Option.map x.notification ~f:Notification.to_value));
        ("Resources", (Option.map x.resources ~f:JobResource.to_value));
        ("OnDeviceServiceConfiguration",
          (Option.map x.onDeviceServiceConfiguration
             ~f:OnDeviceServiceConfiguration.to_value));
        ("AddressId", (Option.map x.addressId ~f:AddressId.to_value));
        ("ShippingOption",
          (Option.map x.shippingOption ~f:ShippingOption.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("SnowballCapacityPreference",
          (Option.map x.snowballCapacityPreference
             ~f:SnowballCapacity.to_value));
        ("ForwardingAddressId",
          (Option.map x.forwardingAddressId ~f:AddressId.to_value));
        ("PickupDetails",
          (Option.map x.pickupDetails ~f:PickupDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pickupDetails =
        (Option.map ~f:PickupDetails.of_xml)
          (Xml.child xml_arg0 "PickupDetails") in
      let forwardingAddressId =
        (Option.map ~f:AddressId.of_xml)
          (Xml.child xml_arg0 "ForwardingAddressId") in
      let snowballCapacityPreference =
        (Option.map ~f:SnowballCapacity.of_xml)
          (Xml.child xml_arg0 "SnowballCapacityPreference") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let shippingOption =
        (Option.map ~f:ShippingOption.of_xml)
          (Xml.child xml_arg0 "ShippingOption") in
      let addressId =
        (Option.map ~f:AddressId.of_xml) (Xml.child xml_arg0 "AddressId") in
      let onDeviceServiceConfiguration =
        (Option.map ~f:OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "OnDeviceServiceConfiguration") in
      let resources =
        (Option.map ~f:JobResource.of_xml) (Xml.child xml_arg0 "Resources") in
      let notification =
        (Option.map ~f:Notification.of_xml)
          (Xml.child xml_arg0 "Notification") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ?pickupDetails ?forwardingAddressId ?snowballCapacityPreference
        ?description ?shippingOption ?addressId ?onDeviceServiceConfiguration
        ?resources ?notification ?roleARN ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pickupDetails =
        field_map json__ "PickupDetails" PickupDetails.of_json in
      let forwardingAddressId =
        field_map json__ "ForwardingAddressId" AddressId.of_json in
      let snowballCapacityPreference =
        field_map json__ "SnowballCapacityPreference"
          SnowballCapacity.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let shippingOption =
        field_map json__ "ShippingOption" ShippingOption.of_json in
      let addressId = field_map json__ "AddressId" AddressId.of_json in
      let onDeviceServiceConfiguration =
        field_map json__ "OnDeviceServiceConfiguration"
          OnDeviceServiceConfiguration.of_json in
      let resources = field_map json__ "Resources" JobResource.of_json in
      let notification = field_map json__ "Notification" Notification.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ?pickupDetails ?forwardingAddressId ?snowballCapacityPreference
        ?description ?shippingOption ?addressId ?onDeviceServiceConfiguration
        ?resources ?notification ?roleARN ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "While a job's JobState value is New, you can update some of the information associated with a job. Once the job changes to a different job state, usually within 60 minutes of the job being created, this action is no longer available."]
module UpdateClusterResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `Ec2RequestFailedException of Ec2RequestFailedException.t 
      | `InvalidInputCombinationException of
          InvalidInputCombinationException.t 
      | `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `KMSRequestFailedException of KMSRequestFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_json json)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_json json)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_xml xml)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_xml xml)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Ec2RequestFailedException e ->
          `Assoc
            [("error", (`String "Ec2RequestFailedException"));
            ("details", (Ec2RequestFailedException.to_json e))]
      | `InvalidInputCombinationException e ->
          `Assoc
            [("error", (`String "InvalidInputCombinationException"));
            ("details", (InvalidInputCombinationException.to_json e))]
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `KMSRequestFailedException e ->
          `Assoc
            [("error", (`String "KMSRequestFailedException"));
            ("details", (KMSRequestFailedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "While a cluster's ClusterState value is in the AwaitingQuorum state, you can update some of the information associated with a cluster. Once the cluster changes to a different job state, usually 60 minutes after the cluster being created, this action is no longer available."]
module UpdateClusterRequest =
  struct
    type nonrec t =
      {
      clusterId: ClusterId.t
        [@ocaml.doc
          "The cluster ID of the cluster that you want to update, for example CID123e4567-e89b-12d3-a456-426655440000."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The new role Amazon Resource Name (ARN) that you want to associate with this cluster. To create a role ARN, use the CreateRole API action in Identity and Access Management (IAM)."];
      description: String_.t option
        [@ocaml.doc "The updated description of this cluster."];
      resources: JobResource.t option
        [@ocaml.doc
          "The updated arrays of JobResource objects that can include updated S3Resource objects or LambdaResource objects."];
      onDeviceServiceConfiguration: OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Specifies the service or services on the Snow Family device that your transferred data will be exported from or imported into. Amazon Web Services Snow Family device clusters support Amazon S3 and NFS (Network File System)."];
      addressId: AddressId.t option
        [@ocaml.doc "The ID of the updated Address object."];
      shippingOption: ShippingOption.t option
        [@ocaml.doc
          "The updated shipping option value of this cluster's ShippingDetails object."];
      notification: Notification.t option
        [@ocaml.doc "The new or updated Notification object."];
      forwardingAddressId: AddressId.t option
        [@ocaml.doc
          "The updated ID for the forwarding address for a cluster. This field is not supported in most regions."]}
    let context_ = "UpdateClusterRequest"
    let make ?roleARN =
      fun ?description ->
        fun ?resources ->
          fun ?onDeviceServiceConfiguration ->
            fun ?addressId ->
              fun ?shippingOption ->
                fun ?notification ->
                  fun ?forwardingAddressId ->
                    fun ~clusterId ->
                      fun () ->
                        {
                          roleARN;
                          description;
                          resources;
                          onDeviceServiceConfiguration;
                          addressId;
                          shippingOption;
                          notification;
                          forwardingAddressId;
                          clusterId
                        }
    let to_value x =
      structure_to_value
        [("ClusterId", (Some (ClusterId.to_value x.clusterId)));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("Resources", (Option.map x.resources ~f:JobResource.to_value));
        ("OnDeviceServiceConfiguration",
          (Option.map x.onDeviceServiceConfiguration
             ~f:OnDeviceServiceConfiguration.to_value));
        ("AddressId", (Option.map x.addressId ~f:AddressId.to_value));
        ("ShippingOption",
          (Option.map x.shippingOption ~f:ShippingOption.to_value));
        ("Notification",
          (Option.map x.notification ~f:Notification.to_value));
        ("ForwardingAddressId",
          (Option.map x.forwardingAddressId ~f:AddressId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forwardingAddressId =
        (Option.map ~f:AddressId.of_xml)
          (Xml.child xml_arg0 "ForwardingAddressId") in
      let notification =
        (Option.map ~f:Notification.of_xml)
          (Xml.child xml_arg0 "Notification") in
      let shippingOption =
        (Option.map ~f:ShippingOption.of_xml)
          (Xml.child xml_arg0 "ShippingOption") in
      let addressId =
        (Option.map ~f:AddressId.of_xml) (Xml.child xml_arg0 "AddressId") in
      let onDeviceServiceConfiguration =
        (Option.map ~f:OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "OnDeviceServiceConfiguration") in
      let resources =
        (Option.map ~f:JobResource.of_xml) (Xml.child xml_arg0 "Resources") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let clusterId =
        ClusterId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterId") in
      make ?forwardingAddressId ?notification ?shippingOption ?addressId
        ?onDeviceServiceConfiguration ?resources ?description ?roleARN
        ~clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forwardingAddressId =
        field_map json__ "ForwardingAddressId" AddressId.of_json in
      let notification = field_map json__ "Notification" Notification.of_json in
      let shippingOption =
        field_map json__ "ShippingOption" ShippingOption.of_json in
      let addressId = field_map json__ "AddressId" AddressId.of_json in
      let onDeviceServiceConfiguration =
        field_map json__ "OnDeviceServiceConfiguration"
          OnDeviceServiceConfiguration.of_json in
      let resources = field_map json__ "Resources" JobResource.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let clusterId = field_map_exn json__ "ClusterId" ClusterId.of_json in
      make ?forwardingAddressId ?notification ?shippingOption ?addressId
        ?onDeviceServiceConfiguration ?resources ?description ?roleARN
        ~clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "While a cluster's ClusterState value is in the AwaitingQuorum state, you can update some of the information associated with a cluster. Once the cluster changes to a different job state, usually 60 minutes after the cluster being created, this action is no longer available."]
module ListServiceVersionsResult =
  struct
    type nonrec t =
      {
      serviceVersions: ServiceVersionList.t option
        [@ocaml.doc "A list of supported versions."];
      serviceName: ServiceName.t option
        [@ocaml.doc
          "The name of the service for which the system provided supported versions."];
      dependentServices: DependentServiceList.t option
        [@ocaml.doc
          "A list of names and versions of dependant services of the service for which the system provided supported versions."];
      nextToken: String_.t option
        [@ocaml.doc
          "Because HTTP requests are stateless, this is the starting point of the next list of returned ListServiceVersionsResult results."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceVersions =
      fun ?serviceName ->
        fun ?dependentServices ->
          fun ?nextToken ->
            fun () ->
              { serviceVersions; serviceName; dependentServices; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ServiceVersions",
           (Option.map x.serviceVersions ~f:ServiceVersionList.to_value));
        ("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("DependentServices",
          (Option.map x.dependentServices ~f:DependentServiceList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let dependentServices =
        (Option.map ~f:DependentServiceList.of_xml)
          (Xml.child xml_arg0 "DependentServices") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      let serviceVersions =
        (Option.map ~f:ServiceVersionList.of_xml)
          (Xml.child xml_arg0 "ServiceVersions") in
      make ?nextToken ?dependentServices ?serviceName ?serviceVersions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let dependentServices =
        field_map json__ "DependentServices" DependentServiceList.of_json in
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      let serviceVersions =
        field_map json__ "ServiceVersions" ServiceVersionList.of_json in
      make ?nextToken ?dependentServices ?serviceName ?serviceVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all supported versions for Snow on-device services. Returns an array of ServiceVersion object containing the supported versions for a particular service."]
module ListServiceVersionsRequest =
  struct
    type nonrec t =
      {
      serviceName: ServiceName.t
        [@ocaml.doc
          "The name of the service for which you're requesting supported versions."];
      dependentServices: DependentServiceList.t option
        [@ocaml.doc
          "A list of names and versions of dependant services of the requested service."];
      maxResults: ListLimit.t option
        [@ocaml.doc
          "The maximum number of ListServiceVersions objects to return."];
      nextToken: String_.t option
        [@ocaml.doc
          "Because HTTP requests are stateless, this is the starting point for the next list of returned ListServiceVersionsRequest versions."]}
    let context_ = "ListServiceVersionsRequest"
    let make ?dependentServices =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~serviceName ->
            fun () ->
              { dependentServices; maxResults; nextToken; serviceName }
    let to_value x =
      structure_to_value
        [("ServiceName", (Some (ServiceName.to_value x.serviceName)));
        ("DependentServices",
          (Option.map x.dependentServices ~f:DependentServiceList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let dependentServices =
        (Option.map ~f:DependentServiceList.of_xml)
          (Xml.child xml_arg0 "DependentServices") in
      let serviceName =
        ServiceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceName") in
      make ?nextToken ?maxResults ?dependentServices ~serviceName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      let dependentServices =
        field_map json__ "DependentServices" DependentServiceList.of_json in
      let serviceName =
        field_map_exn json__ "ServiceName" ServiceName.of_json in
      make ?nextToken ?maxResults ?dependentServices ~serviceName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all supported versions for Snow on-device services. Returns an array of ServiceVersion object containing the supported versions for a particular service."]
module ListPickupLocationsResult =
  struct
    type nonrec t =
      {
      addresses: AddressList.t option
        [@ocaml.doc "Information about the address of pickup locations."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of ListPickupLocationsResult objects, you have the option of specifying NextToken as the starting point for your returned list."]}
    type nonrec error =
      [ `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addresses =
      fun ?nextToken -> fun () -> { addresses; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Addresses", (Option.map x.addresses ~f:AddressList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let addresses =
        (Option.map ~f:AddressList.of_xml) (Xml.child xml_arg0 "Addresses") in
      make ?nextToken ?addresses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let addresses = field_map json__ "Addresses" AddressList.of_json in
      make ?nextToken ?addresses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of locations from which the customer can choose to pickup a device."]
module ListPickupLocationsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListLimit.t option
        [@ocaml.doc "The maximum number of locations to list per page."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of ListPickupLocationsRequest objects, you have the option of specifying NextToken as the starting point for your returned list."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of locations from which the customer can choose to pickup a device."]
module ListLongTermPricingResult =
  struct
    type nonrec t =
      {
      longTermPricingEntries: LongTermPricingEntryList.t option
        [@ocaml.doc
          "Each LongTermPricingEntry object contains a status, ID, and other information about the LongTermPricing type."];
      nextToken: String_.t option
        [@ocaml.doc
          "Because HTTP requests are stateless, this is the starting point for your next list of returned ListLongTermPricing list."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?longTermPricingEntries =
      fun ?nextToken -> fun () -> { longTermPricingEntries; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("LongTermPricingEntries",
           (Option.map x.longTermPricingEntries
              ~f:LongTermPricingEntryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let longTermPricingEntries =
        (Option.map ~f:LongTermPricingEntryList.of_xml)
          (Xml.child xml_arg0 "LongTermPricingEntries") in
      make ?nextToken ?longTermPricingEntries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let longTermPricingEntries =
        field_map json__ "LongTermPricingEntries"
          LongTermPricingEntryList.of_json in
      make ?nextToken ?longTermPricingEntries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all long-term pricing types."]
module ListLongTermPricingRequest =
  struct
    type nonrec t =
      {
      maxResults: ListLimit.t option
        [@ocaml.doc
          "The maximum number of ListLongTermPricing objects to return."];
      nextToken: String_.t option
        [@ocaml.doc
          "Because HTTP requests are stateless, this is the starting point for your next list of ListLongTermPricing to return."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all long-term pricing types."]
module ListJobsResult =
  struct
    type nonrec t =
      {
      jobListEntries: JobListEntryList.t option
        [@ocaml.doc
          "Each JobListEntry object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of export jobs."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. If you use this automatically generated NextToken value in your next ListJobs call, your returned JobListEntry objects will start from this point in the array."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobListEntries =
      fun ?nextToken -> fun () -> { jobListEntries; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("JobListEntries",
           (Option.map x.jobListEntries ~f:JobListEntryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let jobListEntries =
        (Option.map ~f:JobListEntryList.of_xml)
          (Xml.child xml_arg0 "JobListEntries") in
      make ?nextToken ?jobListEntries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let jobListEntries =
        field_map json__ "JobListEntries" JobListEntryList.of_json in
      make ?nextToken ?jobListEntries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of JobListEntry objects of the specified length. Each JobListEntry object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of export jobs. Calling this API action in one of the US regions will return jobs from the list of all jobs associated with this account in all US regions."]
module ListJobsRequest =
  struct
    type nonrec t =
      {
      maxResults: ListLimit.t option
        [@ocaml.doc "The number of JobListEntry objects to return."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of JobListEntry objects, you have the option of specifying NextToken as the starting point for your returned list."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of JobListEntry objects of the specified length. Each JobListEntry object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of export jobs. Calling this API action in one of the US regions will return jobs from the list of all jobs associated with this account in all US regions."]
module ListCompatibleImagesResult =
  struct
    type nonrec t =
      {
      compatibleImages: CompatibleImageList.t option
        [@ocaml.doc
          "A JSON-formatted object that describes a compatible AMI, including the ID and name for a Snow device AMI."];
      nextToken: String_.t option
        [@ocaml.doc
          "Because HTTP requests are stateless, this is the starting point for your next list of returned images."]}
    type nonrec error =
      [ `Ec2RequestFailedException of Ec2RequestFailedException.t 
      | `InvalidNextTokenException of InvalidNextTokenException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?compatibleImages =
      fun ?nextToken -> fun () -> { compatibleImages; nextToken }
    let error_of_json name json =
      match name with
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_json json)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_xml xml)
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Ec2RequestFailedException e ->
          `Assoc
            [("error", (`String "Ec2RequestFailedException"));
            ("details", (Ec2RequestFailedException.to_json e))]
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("CompatibleImages",
           (Option.map x.compatibleImages ~f:CompatibleImageList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let compatibleImages =
        (Option.map ~f:CompatibleImageList.of_xml)
          (Xml.child xml_arg0 "CompatibleImages") in
      make ?nextToken ?compatibleImages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let compatibleImages =
        field_map json__ "CompatibleImages" CompatibleImageList.of_json in
      make ?nextToken ?compatibleImages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action returns a list of the different Amazon EC2-compatible Amazon Machine Images (AMIs) that are owned by your Amazon Web Services accountthat would be supported for use on a Snow device. Currently, supported AMIs are based on the Amazon Linux-2, Ubuntu 20.04 LTS - Focal, or Ubuntu 22.04 LTS - Jammy images, available on the Amazon Web Services Marketplace. Ubuntu 16.04 LTS - Xenial (HVM) images are no longer supported in the Market, but still supported for use on devices through Amazon EC2 VM Import/Export and running locally in AMIs."]
module ListCompatibleImagesRequest =
  struct
    type nonrec t =
      {
      maxResults: ListLimit.t option
        [@ocaml.doc
          "The maximum number of results for the list of compatible images. Currently, a Snowball Edge device can store 10 AMIs."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of compatible images, you can specify a value for NextToken as the starting point for your list of returned images."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This action returns a list of the different Amazon EC2-compatible Amazon Machine Images (AMIs) that are owned by your Amazon Web Services accountthat would be supported for use on a Snow device. Currently, supported AMIs are based on the Amazon Linux-2, Ubuntu 20.04 LTS - Focal, or Ubuntu 22.04 LTS - Jammy images, available on the Amazon Web Services Marketplace. Ubuntu 16.04 LTS - Xenial (HVM) images are no longer supported in the Market, but still supported for use on devices through Amazon EC2 VM Import/Export and running locally in AMIs."]
module ListClustersResult =
  struct
    type nonrec t =
      {
      clusterListEntries: ClusterListEntryList.t option
        [@ocaml.doc
          "Each ClusterListEntry object contains a cluster's state, a cluster's ID, and other important status information."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. If you use the automatically generated NextToken value in your next ClusterListEntry call, your list of returned clusters will start from this point in the array."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clusterListEntries =
      fun ?nextToken -> fun () -> { clusterListEntries; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ClusterListEntries",
           (Option.map x.clusterListEntries ~f:ClusterListEntryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let clusterListEntries =
        (Option.map ~f:ClusterListEntryList.of_xml)
          (Xml.child xml_arg0 "ClusterListEntries") in
      make ?nextToken ?clusterListEntries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let clusterListEntries =
        field_map json__ "ClusterListEntries" ClusterListEntryList.of_json in
      make ?nextToken ?clusterListEntries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of ClusterListEntry objects of the specified length. Each ClusterListEntry object contains a cluster's state, a cluster's ID, and other important status information."]
module ListClustersRequest =
  struct
    type nonrec t =
      {
      maxResults: ListLimit.t option
        [@ocaml.doc "The number of ClusterListEntry objects to return."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of ClusterListEntry objects, you have the option of specifying NextToken as the starting point for your returned list."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of ClusterListEntry objects of the specified length. Each ClusterListEntry object contains a cluster's state, a cluster's ID, and other important status information."]
module ListClusterJobsResult =
  struct
    type nonrec t =
      {
      jobListEntries: JobListEntryList.t option
        [@ocaml.doc
          "Each JobListEntry object contains a job's state, a job's ID, and a value that indicates whether the job is a job part, in the case of export jobs."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. If you use the automatically generated NextToken value in your next ListClusterJobsResult call, your list of returned jobs will start from this point in the array."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobListEntries =
      fun ?nextToken -> fun () -> { jobListEntries; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("JobListEntries",
           (Option.map x.jobListEntries ~f:JobListEntryList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let jobListEntries =
        (Option.map ~f:JobListEntryList.of_xml)
          (Xml.child xml_arg0 "JobListEntries") in
      make ?nextToken ?jobListEntries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let jobListEntries =
        field_map json__ "JobListEntries" JobListEntryList.of_json in
      make ?nextToken ?jobListEntries ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of JobListEntry objects of the specified length. Each JobListEntry object is for a job in the specified cluster and contains a job's state, a job's ID, and other information."]
module ListClusterJobsRequest =
  struct
    type nonrec t =
      {
      clusterId: ClusterId.t
        [@ocaml.doc
          "The 39-character ID for the cluster that you want to list, for example CID123e4567-e89b-12d3-a456-426655440000."];
      maxResults: ListLimit.t option
        [@ocaml.doc "The number of JobListEntry objects to return."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of JobListEntry objects, you have the option of specifying NextToken as the starting point for your returned list."]}
    let context_ = "ListClusterJobsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~clusterId -> fun () -> { maxResults; nextToken; clusterId }
    let to_value x =
      structure_to_value
        [("ClusterId", (Some (ClusterId.to_value x.clusterId)));
        ("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let clusterId =
        ClusterId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterId") in
      make ?nextToken ?maxResults ~clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      let clusterId = field_map_exn json__ "ClusterId" ClusterId.of_json in
      make ?nextToken ?maxResults ~clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an array of JobListEntry objects of the specified length. Each JobListEntry object is for a job in the specified cluster and contains a job's state, a job's ID, and other information."]
module GetSoftwareUpdatesResult =
  struct
    type nonrec t =
      {
      updatesURI: String_.t option
        [@ocaml.doc
          "The Amazon S3 presigned URL for the update file associated with the specified JobId value. The software update will be available for 2 days after this request is made. To access an update after the 2 days have passed, you'll have to make another call to GetSoftwareUpdates."]}
    type nonrec error =
      [ `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?updatesURI = fun () -> { updatesURI }
    let error_of_json name json =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("UpdatesURI", (Option.map x.updatesURI ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatesURI =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UpdatesURI") in
      make ?updatesURI ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatesURI = field_map json__ "UpdatesURI" String_.of_json in
      make ?updatesURI ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an Amazon S3 presigned URL for an update file associated with a specified JobId."]
module GetSoftwareUpdatesRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The ID for a job that you want to get the software update file for, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "GetSoftwareUpdatesRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns an Amazon S3 presigned URL for an update file associated with a specified JobId."]
module GetSnowballUsageResult =
  struct
    type nonrec t =
      {
      snowballLimit: Integer.t option
        [@ocaml.doc
          "The service limit for number of Snow devices this account can have at once. The default service limit is 1 (one)."];
      snowballsInUse: Integer.t option
        [@ocaml.doc
          "The number of Snow devices that this account is currently using."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?snowballLimit =
      fun ?snowballsInUse -> fun () -> { snowballLimit; snowballsInUse }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("SnowballLimit", (Option.map x.snowballLimit ~f:Integer.to_value));
        ("SnowballsInUse", (Option.map x.snowballsInUse ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snowballsInUse =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "SnowballsInUse") in
      let snowballLimit =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "SnowballLimit") in
      make ?snowballsInUse ?snowballLimit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snowballsInUse = field_map json__ "SnowballsInUse" Integer.of_json in
      let snowballLimit = field_map json__ "SnowballLimit" Integer.of_json in
      make ?snowballsInUse ?snowballLimit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the Snow Family service limit for your account, and also the number of Snow devices your account has in use. The default service limit for the number of Snow devices that you can have at one time is 1. If you want to increase your service limit, contact Amazon Web Services Support."]
module GetSnowballUsageRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the Snow Family service limit for your account, and also the number of Snow devices your account has in use. The default service limit for the number of Snow devices that you can have at one time is 1. If you want to increase your service limit, contact Amazon Web Services Support."]
module GetJobUnlockCodeResult =
  struct
    type nonrec t =
      {
      unlockCode: String_.t option
        [@ocaml.doc
          "The UnlockCode value for the specified job. The UnlockCode value can be accessed for up to 360 days after the job has been created."]}
    type nonrec error =
      [ `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?unlockCode = fun () -> { unlockCode }
    let error_of_json name json =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("UnlockCode", (Option.map x.unlockCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unlockCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "UnlockCode") in
      make ?unlockCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unlockCode = field_map json__ "UnlockCode" String_.of_json in
      make ?unlockCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the UnlockCode code value for the specified job. A particular UnlockCode value can be accessed for up to 360 days after the associated job has been created. The UnlockCode value is a 29-character code with 25 alphanumeric characters and 4 hyphens. This code is used to decrypt the manifest file when it is passed along with the manifest to the Snow device through the Snowball client when the client is started for the first time. The only valid status for calling this API is WithCustomer as the manifest and Unlock code values are used for securing your device and should only be used when you have the device. As a best practice, we recommend that you don't save a copy of the UnlockCode in the same location as the manifest file for that job. Saving these separately helps prevent unauthorized parties from gaining access to the Snow device associated with that job."]
module GetJobUnlockCodeRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The ID for the job that you want to get the UnlockCode value for, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "GetJobUnlockCodeRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the UnlockCode code value for the specified job. A particular UnlockCode value can be accessed for up to 360 days after the associated job has been created. The UnlockCode value is a 29-character code with 25 alphanumeric characters and 4 hyphens. This code is used to decrypt the manifest file when it is passed along with the manifest to the Snow device through the Snowball client when the client is started for the first time. The only valid status for calling this API is WithCustomer as the manifest and Unlock code values are used for securing your device and should only be used when you have the device. As a best practice, we recommend that you don't save a copy of the UnlockCode in the same location as the manifest file for that job. Saving these separately helps prevent unauthorized parties from gaining access to the Snow device associated with that job."]
module GetJobManifestResult =
  struct
    type nonrec t =
      {
      manifestURI: String_.t option
        [@ocaml.doc
          "The Amazon S3 presigned URL for the manifest file associated with the specified JobId value."]}
    type nonrec error =
      [ `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?manifestURI = fun () -> { manifestURI }
    let error_of_json name json =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ManifestURI", (Option.map x.manifestURI ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let manifestURI =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "ManifestURI") in
      make ?manifestURI ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let manifestURI = field_map json__ "ManifestURI" String_.of_json in
      make ?manifestURI ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a link to an Amazon S3 presigned URL for the manifest file associated with the specified JobId value. You can access the manifest file for up to 60 minutes after this request has been made. To access the manifest file after 60 minutes have passed, you'll have to make another call to the GetJobManifest action. The manifest is an encrypted file that you can download after your job enters the WithCustomer status. This is the only valid status for calling this API as the manifest and UnlockCode code value are used for securing your device and should only be used when you have the device. The manifest is decrypted by using the UnlockCode code value, when you pass both values to the Snow device through the Snowball client when the client is started for the first time. As a best practice, we recommend that you don't save a copy of an UnlockCode value in the same location as the manifest file for that job. Saving these separately helps prevent unauthorized parties from gaining access to the Snow device associated with that job. The credentials of a given job, including its manifest file and unlock code, expire 360 days after the job is created."]
module GetJobManifestRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The ID for a job that you want to get the manifest file for, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "GetJobManifestRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a link to an Amazon S3 presigned URL for the manifest file associated with the specified JobId value. You can access the manifest file for up to 60 minutes after this request has been made. To access the manifest file after 60 minutes have passed, you'll have to make another call to the GetJobManifest action. The manifest is an encrypted file that you can download after your job enters the WithCustomer status. This is the only valid status for calling this API as the manifest and UnlockCode code value are used for securing your device and should only be used when you have the device. The manifest is decrypted by using the UnlockCode code value, when you pass both values to the Snow device through the Snowball client when the client is started for the first time. As a best practice, we recommend that you don't save a copy of an UnlockCode value in the same location as the manifest file for that job. Saving these separately helps prevent unauthorized parties from gaining access to the Snow device associated with that job. The credentials of a given job, including its manifest file and unlock code, expire 360 days after the job is created."]
module DescribeReturnShippingLabelResult =
  struct
    type nonrec t =
      {
      status: ShippingLabelStatus.t option
        [@ocaml.doc
          "The status information of the task on a Snow device that is being returned to Amazon Web Services."];
      expirationDate: Timestamp.t option
        [@ocaml.doc
          "The expiration date of the current return shipping label."];
      returnShippingLabelURI: String_.t option
        [@ocaml.doc
          "The pre-signed Amazon S3 URI used to download the return shipping label."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status =
      fun ?expirationDate ->
        fun ?returnShippingLabelURI ->
          fun () -> { status; expirationDate; returnShippingLabelURI }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:ShippingLabelStatus.to_value));
        ("ExpirationDate",
          (Option.map x.expirationDate ~f:Timestamp.to_value));
        ("ReturnShippingLabelURI",
          (Option.map x.returnShippingLabelURI ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let returnShippingLabelURI =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "ReturnShippingLabelURI") in
      let expirationDate =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "ExpirationDate") in
      let status =
        (Option.map ~f:ShippingLabelStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?returnShippingLabelURI ?expirationDate ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let returnShippingLabelURI =
        field_map json__ "ReturnShippingLabelURI" String_.of_json in
      let expirationDate =
        field_map json__ "ExpirationDate" Timestamp.of_json in
      let status = field_map json__ "Status" ShippingLabelStatus.of_json in
      make ?returnShippingLabelURI ?expirationDate ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information on the shipping label of a Snow device that is being returned to Amazon Web Services."]
module DescribeReturnShippingLabelRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The automatically generated ID for a job, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "DescribeReturnShippingLabelRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information on the shipping label of a Snow device that is being returned to Amazon Web Services."]
module DescribeJobResult =
  struct
    type nonrec t =
      {
      jobMetadata: JobMetadata.t option
        [@ocaml.doc
          "Information about a specific job, including shipping information, job status, and other important metadata."];
      subJobMetadata: JobMetadataList.t option
        [@ocaml.doc
          "Information about a specific job part (in the case of an export job), including shipping information, job status, and other important metadata."]}
    type nonrec error =
      [ `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobMetadata =
      fun ?subJobMetadata -> fun () -> { jobMetadata; subJobMetadata }
    let error_of_json name json =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("JobMetadata", (Option.map x.jobMetadata ~f:JobMetadata.to_value));
        ("SubJobMetadata",
          (Option.map x.subJobMetadata ~f:JobMetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subJobMetadata =
        (Option.map ~f:JobMetadataList.of_xml)
          (Xml.child xml_arg0 "SubJobMetadata") in
      let jobMetadata =
        (Option.map ~f:JobMetadata.of_xml) (Xml.child xml_arg0 "JobMetadata") in
      make ?subJobMetadata ?jobMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subJobMetadata =
        field_map json__ "SubJobMetadata" JobMetadataList.of_json in
      let jobMetadata = field_map json__ "JobMetadata" JobMetadata.of_json in
      make ?subJobMetadata ?jobMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific job including shipping information, job status, and other important metadata."]
module DescribeJobRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The automatically generated ID for a job, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "DescribeJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific job including shipping information, job status, and other important metadata."]
module DescribeClusterResult =
  struct
    type nonrec t =
      {
      clusterMetadata: ClusterMetadata.t option
        [@ocaml.doc
          "Information about a specific cluster, including shipping information, cluster status, and other important metadata."]}
    type nonrec error =
      [ `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clusterMetadata = fun () -> { clusterMetadata }
    let error_of_json name json =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ClusterMetadata",
           (Option.map x.clusterMetadata ~f:ClusterMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clusterMetadata =
        (Option.map ~f:ClusterMetadata.of_xml)
          (Xml.child xml_arg0 "ClusterMetadata") in
      make ?clusterMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clusterMetadata =
        field_map json__ "ClusterMetadata" ClusterMetadata.of_json in
      make ?clusterMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific cluster including shipping information, cluster status, and other important metadata."]
module DescribeClusterRequest =
  struct
    type nonrec t =
      {
      clusterId: ClusterId.t
        [@ocaml.doc "The automatically generated ID for a cluster."]}
    let context_ = "DescribeClusterRequest"
    let make ~clusterId = fun () -> { clusterId }
    let to_value x =
      structure_to_value
        [("ClusterId", (Some (ClusterId.to_value x.clusterId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clusterId =
        ClusterId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterId") in
      make ~clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clusterId = field_map_exn json__ "ClusterId" ClusterId.of_json in
      make ~clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific cluster including shipping information, cluster status, and other important metadata."]
module DescribeAddressesResult =
  struct
    type nonrec t =
      {
      addresses: AddressList.t option
        [@ocaml.doc
          "The Snow device shipping addresses that were created for this account."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. If you use the automatically generated NextToken value in your next DescribeAddresses call, your list of returned addresses will start from this point in the array."]}
    type nonrec error =
      [ `InvalidNextTokenException of InvalidNextTokenException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addresses =
      fun ?nextToken -> fun () -> { addresses; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidNextTokenException" ->
          `InvalidNextTokenException (InvalidNextTokenException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidNextTokenException e ->
          `Assoc
            [("error", (`String "InvalidNextTokenException"));
            ("details", (InvalidNextTokenException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Addresses", (Option.map x.addresses ~f:AddressList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let addresses =
        (Option.map ~f:AddressList.of_xml) (Xml.child xml_arg0 "Addresses") in
      make ?nextToken ?addresses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let addresses = field_map json__ "Addresses" AddressList.of_json in
      make ?nextToken ?addresses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a specified number of ADDRESS objects. Calling this API in one of the US regions will return addresses from the list of all addresses associated with this account in all US regions."]
module DescribeAddressesRequest =
  struct
    type nonrec t =
      {
      maxResults: ListLimit.t option
        [@ocaml.doc "The number of ADDRESS objects to return."];
      nextToken: String_.t option
        [@ocaml.doc
          "HTTP requests are stateless. To identify what object comes \"next\" in the list of ADDRESS objects, you have the option of specifying a value for NextToken as the starting point for your list of returned addresses."]}
    let make ?maxResults =
      fun ?nextToken -> fun () -> { maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:ListLimit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:ListLimit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let maxResults = field_map json__ "MaxResults" ListLimit.of_json in
      make ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a specified number of ADDRESS objects. Calling this API in one of the US regions will return addresses from the list of all addresses associated with this account in all US regions."]
module DescribeAddressResult =
  struct
    type nonrec t =
      {
      address: Address.t option
        [@ocaml.doc
          "The address that you want the Snow device(s) associated with a specific job to be shipped to."]}
    type nonrec error =
      [ `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?address = fun () -> { address }
    let error_of_json name json =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Address", (Option.map x.address ~f:Address.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let address =
        (Option.map ~f:Address.of_xml) (Xml.child xml_arg0 "Address") in
      make ?address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let address = field_map json__ "Address" Address.of_json in
      make ?address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Takes an AddressId and returns specific details about that address in the form of an Address object."]
module DescribeAddressRequest =
  struct
    type nonrec t =
      {
      addressId: AddressId.t
        [@ocaml.doc "The automatically generated ID for a specific address."]}
    let context_ = "DescribeAddressRequest"
    let make ~addressId = fun () -> { addressId }
    let to_value x =
      structure_to_value
        [("AddressId", (Some (AddressId.to_value x.addressId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let addressId =
        AddressId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AddressId") in
      make ~addressId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let addressId = field_map_exn json__ "AddressId" AddressId.of_json in
      make ~addressId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Takes an AddressId and returns specific details about that address in the form of an Address object."]
module CreateReturnShippingLabelResult =
  struct
    type nonrec t =
      {
      status: ShippingLabelStatus.t option
        [@ocaml.doc
          "The status information of the task on a Snow device that is being returned to Amazon Web Services."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InvalidInputCombinationException of
          InvalidInputCombinationException.t 
      | `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `ReturnShippingLabelAlreadyExistsException of
          ReturnShippingLabelAlreadyExistsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?status = fun () -> { status }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_json json)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "ReturnShippingLabelAlreadyExistsException" ->
          `ReturnShippingLabelAlreadyExistsException
            (ReturnShippingLabelAlreadyExistsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_xml xml)
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "ReturnShippingLabelAlreadyExistsException" ->
          `ReturnShippingLabelAlreadyExistsException
            (ReturnShippingLabelAlreadyExistsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InvalidInputCombinationException e ->
          `Assoc
            [("error", (`String "InvalidInputCombinationException"));
            ("details", (InvalidInputCombinationException.to_json e))]
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `ReturnShippingLabelAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ReturnShippingLabelAlreadyExistsException"));
            ("details",
              (ReturnShippingLabelAlreadyExistsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:ShippingLabelStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:ShippingLabelStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "Status" ShippingLabelStatus.of_json in
      make ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a shipping label that will be used to return the Snow device to Amazon Web Services."]
module CreateReturnShippingLabelRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The ID for a job that you want to create the return shipping label for; for example, JID123e4567-e89b-12d3-a456-426655440000."];
      shippingOption: ShippingOption.t option
        [@ocaml.doc
          "The shipping speed for a particular job. This speed doesn't dictate how soon the device is returned to Amazon Web Services. This speed represents how quickly it moves to its destination while in transit. Regional shipping speeds are as follows:"]}
    let context_ = "CreateReturnShippingLabelRequest"
    let make ?shippingOption =
      fun ~jobId -> fun () -> { shippingOption; jobId }
    let to_value x =
      structure_to_value
        [("JobId", (Some (JobId.to_value x.jobId)));
        ("ShippingOption",
          (Option.map x.shippingOption ~f:ShippingOption.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shippingOption =
        (Option.map ~f:ShippingOption.of_xml)
          (Xml.child xml_arg0 "ShippingOption") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ?shippingOption ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shippingOption =
        field_map json__ "ShippingOption" ShippingOption.of_json in
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ?shippingOption ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a shipping label that will be used to return the Snow device to Amazon Web Services."]
module CreateLongTermPricingResult =
  struct
    type nonrec t =
      {
      longTermPricingId: LongTermPricingId.t option
        [@ocaml.doc "The ID of the long-term pricing type for the device."]}
    type nonrec error =
      [ `InvalidResourceException of InvalidResourceException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?longTermPricingId = fun () -> { longTermPricingId }
    let error_of_json name json =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("LongTermPricingId",
           (Option.map x.longTermPricingId ~f:LongTermPricingId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let longTermPricingId =
        (Option.map ~f:LongTermPricingId.of_xml)
          (Xml.child xml_arg0 "LongTermPricingId") in
      make ?longTermPricingId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let longTermPricingId =
        field_map json__ "LongTermPricingId" LongTermPricingId.of_json in
      make ?longTermPricingId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a job with the long-term usage option for a device. The long-term usage is a 1-year or 3-year long-term pricing type for the device. You are billed upfront, and Amazon Web Services provides discounts for long-term pricing."]
module CreateLongTermPricingRequest =
  struct
    type nonrec t =
      {
      longTermPricingType: LongTermPricingType.t
        [@ocaml.doc
          "The type of long-term pricing option you want for the device, either 1-year or 3-year long-term pricing."];
      isLongTermPricingAutoRenew: JavaBoolean.t option
        [@ocaml.doc
          "Specifies whether the current long-term pricing type for the device should be renewed."];
      snowballType: SnowballType.t
        [@ocaml.doc
          "The type of Snow Family devices to use for the long-term pricing job."]}
    let context_ = "CreateLongTermPricingRequest"
    let make ?isLongTermPricingAutoRenew =
      fun ~longTermPricingType ->
        fun ~snowballType ->
          fun () ->
            { isLongTermPricingAutoRenew; longTermPricingType; snowballType }
    let to_value x =
      structure_to_value
        [("LongTermPricingType",
           (Some (LongTermPricingType.to_value x.longTermPricingType)));
        ("IsLongTermPricingAutoRenew",
          (Option.map x.isLongTermPricingAutoRenew ~f:JavaBoolean.to_value));
        ("SnowballType", (Some (SnowballType.to_value x.snowballType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snowballType =
        SnowballType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnowballType") in
      let isLongTermPricingAutoRenew =
        (Option.map ~f:JavaBoolean.of_xml)
          (Xml.child xml_arg0 "IsLongTermPricingAutoRenew") in
      let longTermPricingType =
        LongTermPricingType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LongTermPricingType") in
      make ~snowballType ?isLongTermPricingAutoRenew ~longTermPricingType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snowballType =
        field_map_exn json__ "SnowballType" SnowballType.of_json in
      let isLongTermPricingAutoRenew =
        field_map json__ "IsLongTermPricingAutoRenew" JavaBoolean.of_json in
      let longTermPricingType =
        field_map_exn json__ "LongTermPricingType"
          LongTermPricingType.of_json in
      make ~snowballType ?isLongTermPricingAutoRenew ~longTermPricingType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a job with the long-term usage option for a device. The long-term usage is a 1-year or 3-year long-term pricing type for the device. You are billed upfront, and Amazon Web Services provides discounts for long-term pricing."]
module CreateJobResult =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc
          "The automatically generated ID for a job, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    type nonrec error =
      [ `ClusterLimitExceededException of ClusterLimitExceededException.t 
      | `Ec2RequestFailedException of Ec2RequestFailedException.t 
      | `InvalidInputCombinationException of
          InvalidInputCombinationException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `KMSRequestFailedException of KMSRequestFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun () -> { jobId }
    let error_of_json name json =
      match name with
      | "ClusterLimitExceededException" ->
          `ClusterLimitExceededException
            (ClusterLimitExceededException.of_json json)
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_json json)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClusterLimitExceededException" ->
          `ClusterLimitExceededException
            (ClusterLimitExceededException.of_xml xml)
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_xml xml)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClusterLimitExceededException e ->
          `Assoc
            [("error", (`String "ClusterLimitExceededException"));
            ("details", (ClusterLimitExceededException.to_json e))]
      | `Ec2RequestFailedException e ->
          `Assoc
            [("error", (`String "Ec2RequestFailedException"));
            ("details", (Ec2RequestFailedException.to_json e))]
      | `InvalidInputCombinationException e ->
          `Assoc
            [("error", (`String "InvalidInputCombinationException"));
            ("details", (InvalidInputCombinationException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `KMSRequestFailedException e ->
          `Assoc
            [("error", (`String "KMSRequestFailedException"));
            ("details", (KMSRequestFailedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("JobId", (Option.map x.jobId ~f:JobId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "JobId") in
      make ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map json__ "JobId" JobId.of_json in make ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a job to import or export data between Amazon S3 and your on-premises data center. Your Amazon Web Services account must have the right trust policies and permissions in place to create a job for a Snow device. If you're creating a job for a node in a cluster, you only need to provide the clusterId value; the other job attributes are inherited from the cluster. Only the Snowball; Edge device type is supported when ordering clustered jobs. The device capacity is optional. Availability of device types differ by Amazon Web Services Region. For more information about Region availability, see Amazon Web Services Regional Services. Snow Family devices and their capacities. Device type: SNC1_SSD Capacity: T14 Description: Snowcone Device type: SNC1_HDD Capacity: T8 Description: Snowcone Device type: EDGE_S Capacity: T98 Description: Snowball Edge Storage Optimized for data transfer only Device type: EDGE_CG Capacity: T42 Description: Snowball Edge Compute Optimized with GPU Device type: EDGE_C Capacity: T42 Description: Snowball Edge Compute Optimized without GPU Device type: EDGE Capacity: T100 Description: Snowball Edge Storage Optimized with EC2 Compute This device is replaced with T98. Device type: STANDARD Capacity: T50 Description: Original Snowball device This device is only available in the Ningxia, Beijing, and Singapore Amazon Web Services Region Device type: STANDARD Capacity: T80 Description: Original Snowball device This device is only available in the Ningxia, Beijing, and Singapore Amazon Web Services Region. Snow Family device type: RACK_5U_C Capacity: T13 Description: Snowblade. Device type: V3_5S Capacity: T240 Description: Snowball Edge Storage Optimized 210TB"]
module CreateJobRequest =
  struct
    type nonrec t =
      {
      jobType: JobType.t option
        [@ocaml.doc "Defines the type of job that you're creating."];
      resources: JobResource.t option
        [@ocaml.doc
          "Defines the Amazon S3 buckets associated with this job. With IMPORT jobs, you specify the bucket or buckets that your transferred data will be imported into. With EXPORT jobs, you specify the bucket or buckets that your transferred data will be exported from. Optionally, you can also specify a KeyRange value. If you choose to export a range, you define the length of the range by providing either an inclusive BeginMarker value, an inclusive EndMarker value, or both. Ranges are UTF-8 binary sorted."];
      onDeviceServiceConfiguration: OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Specifies the service or services on the Snow Family device that your transferred data will be exported from or imported into. Amazon Web Services Snow Family supports Amazon S3 and NFS (Network File System) and the Amazon Web Services Storage Gateway service Tape Gateway type."];
      description: String_.t option
        [@ocaml.doc
          "Defines an optional description of this specific job, for example Important Photos 2016-08-11."];
      addressId: AddressId.t option
        [@ocaml.doc
          "The ID for the address that you want the Snow device shipped to."];
      kmsKeyARN: KmsKeyARN.t option
        [@ocaml.doc
          "The KmsKeyARN that you want to associate with this job. KmsKeyARNs are created using the CreateKey Key Management Service (KMS) API action."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The RoleARN that you want to associate with this job. RoleArns are created using the CreateRole Identity and Access Management (IAM) API action."];
      snowballCapacityPreference: SnowballCapacity.t option
        [@ocaml.doc
          "If your job is being created in one of the US regions, you have the option of specifying what size Snow device you'd like for this job. In all other regions, Snowballs come with 80 TB in storage capacity. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      shippingOption: ShippingOption.t option
        [@ocaml.doc
          "The shipping speed for this job. This speed doesn't dictate how soon you'll get the Snow device, rather it represents how quickly the Snow device moves to its destination while in transit. Regional shipping speeds are as follows: In Australia, you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In the European Union (EU), you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way. In India, Snow devices are delivered in one to seven days. In the US, you have access to one-day shipping and two-day shipping."];
      notification: Notification.t option
        [@ocaml.doc
          "Defines the Amazon Simple Notification Service (Amazon SNS) notification settings for this job."];
      clusterId: ClusterId.t option
        [@ocaml.doc
          "The ID of a cluster. If you're creating a job for a node in a cluster, you need to provide only this clusterId value. The other job attributes are inherited from the cluster."];
      snowballType: SnowballType.t option
        [@ocaml.doc
          "The type of Snow Family devices to use for this job. For cluster jobs, Amazon Web Services Snow Family currently supports only the EDGE device type. The type of Amazon Web Services Snow device to use for this job. Currently, the only supported device type for cluster jobs is EDGE. For more information, see Snowball Edge Device Options in the Snowball Edge Developer Guide. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      forwardingAddressId: AddressId.t option
        [@ocaml.doc
          "The forwarding address ID for a job. This field is not supported in most Regions."];
      taxDocuments: TaxDocuments.t option
        [@ocaml.doc
          "The tax documents required in your Amazon Web Services Region."];
      deviceConfiguration: DeviceConfiguration.t option
        [@ocaml.doc
          "Defines the device configuration for an Snowball Edge job. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      remoteManagement: RemoteManagement.t option
        [@ocaml.doc
          "Allows you to securely operate and manage Snowcone devices remotely from outside of your internal network. When set to INSTALLED_AUTOSTART, remote management will automatically be available when the device arrives at your location. Otherwise, you need to use the Snowball Edge client to manage the device. When set to NOT_INSTALLED, remote management will not be available on the device."];
      longTermPricingId: LongTermPricingId.t option
        [@ocaml.doc "The ID of the long-term pricing type for the device."];
      impactLevel: ImpactLevel.t option
        [@ocaml.doc
          "The highest impact level of data that will be stored or processed on the device, provided at job creation."];
      pickupDetails: PickupDetails.t option
        [@ocaml.doc
          "Information identifying the person picking up the device."]}
    let make ?jobType =
      fun ?resources ->
        fun ?onDeviceServiceConfiguration ->
          fun ?description ->
            fun ?addressId ->
              fun ?kmsKeyARN ->
                fun ?roleARN ->
                  fun ?snowballCapacityPreference ->
                    fun ?shippingOption ->
                      fun ?notification ->
                        fun ?clusterId ->
                          fun ?snowballType ->
                            fun ?forwardingAddressId ->
                              fun ?taxDocuments ->
                                fun ?deviceConfiguration ->
                                  fun ?remoteManagement ->
                                    fun ?longTermPricingId ->
                                      fun ?impactLevel ->
                                        fun ?pickupDetails ->
                                          fun () ->
                                            {
                                              jobType;
                                              resources;
                                              onDeviceServiceConfiguration;
                                              description;
                                              addressId;
                                              kmsKeyARN;
                                              roleARN;
                                              snowballCapacityPreference;
                                              shippingOption;
                                              notification;
                                              clusterId;
                                              snowballType;
                                              forwardingAddressId;
                                              taxDocuments;
                                              deviceConfiguration;
                                              remoteManagement;
                                              longTermPricingId;
                                              impactLevel;
                                              pickupDetails
                                            }
    let to_value x =
      structure_to_value
        [("JobType", (Option.map x.jobType ~f:JobType.to_value));
        ("Resources", (Option.map x.resources ~f:JobResource.to_value));
        ("OnDeviceServiceConfiguration",
          (Option.map x.onDeviceServiceConfiguration
             ~f:OnDeviceServiceConfiguration.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("AddressId", (Option.map x.addressId ~f:AddressId.to_value));
        ("KmsKeyARN", (Option.map x.kmsKeyARN ~f:KmsKeyARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("SnowballCapacityPreference",
          (Option.map x.snowballCapacityPreference
             ~f:SnowballCapacity.to_value));
        ("ShippingOption",
          (Option.map x.shippingOption ~f:ShippingOption.to_value));
        ("Notification",
          (Option.map x.notification ~f:Notification.to_value));
        ("ClusterId", (Option.map x.clusterId ~f:ClusterId.to_value));
        ("SnowballType",
          (Option.map x.snowballType ~f:SnowballType.to_value));
        ("ForwardingAddressId",
          (Option.map x.forwardingAddressId ~f:AddressId.to_value));
        ("TaxDocuments",
          (Option.map x.taxDocuments ~f:TaxDocuments.to_value));
        ("DeviceConfiguration",
          (Option.map x.deviceConfiguration ~f:DeviceConfiguration.to_value));
        ("RemoteManagement",
          (Option.map x.remoteManagement ~f:RemoteManagement.to_value));
        ("LongTermPricingId",
          (Option.map x.longTermPricingId ~f:LongTermPricingId.to_value));
        ("ImpactLevel", (Option.map x.impactLevel ~f:ImpactLevel.to_value));
        ("PickupDetails",
          (Option.map x.pickupDetails ~f:PickupDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pickupDetails =
        (Option.map ~f:PickupDetails.of_xml)
          (Xml.child xml_arg0 "PickupDetails") in
      let impactLevel =
        (Option.map ~f:ImpactLevel.of_xml) (Xml.child xml_arg0 "ImpactLevel") in
      let longTermPricingId =
        (Option.map ~f:LongTermPricingId.of_xml)
          (Xml.child xml_arg0 "LongTermPricingId") in
      let remoteManagement =
        (Option.map ~f:RemoteManagement.of_xml)
          (Xml.child xml_arg0 "RemoteManagement") in
      let deviceConfiguration =
        (Option.map ~f:DeviceConfiguration.of_xml)
          (Xml.child xml_arg0 "DeviceConfiguration") in
      let taxDocuments =
        (Option.map ~f:TaxDocuments.of_xml)
          (Xml.child xml_arg0 "TaxDocuments") in
      let forwardingAddressId =
        (Option.map ~f:AddressId.of_xml)
          (Xml.child xml_arg0 "ForwardingAddressId") in
      let snowballType =
        (Option.map ~f:SnowballType.of_xml)
          (Xml.child xml_arg0 "SnowballType") in
      let clusterId =
        (Option.map ~f:ClusterId.of_xml) (Xml.child xml_arg0 "ClusterId") in
      let notification =
        (Option.map ~f:Notification.of_xml)
          (Xml.child xml_arg0 "Notification") in
      let shippingOption =
        (Option.map ~f:ShippingOption.of_xml)
          (Xml.child xml_arg0 "ShippingOption") in
      let snowballCapacityPreference =
        (Option.map ~f:SnowballCapacity.of_xml)
          (Xml.child xml_arg0 "SnowballCapacityPreference") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let kmsKeyARN =
        (Option.map ~f:KmsKeyARN.of_xml) (Xml.child xml_arg0 "KmsKeyARN") in
      let addressId =
        (Option.map ~f:AddressId.of_xml) (Xml.child xml_arg0 "AddressId") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let onDeviceServiceConfiguration =
        (Option.map ~f:OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "OnDeviceServiceConfiguration") in
      let resources =
        (Option.map ~f:JobResource.of_xml) (Xml.child xml_arg0 "Resources") in
      let jobType =
        (Option.map ~f:JobType.of_xml) (Xml.child xml_arg0 "JobType") in
      make ?pickupDetails ?impactLevel ?longTermPricingId ?remoteManagement
        ?deviceConfiguration ?taxDocuments ?forwardingAddressId ?snowballType
        ?clusterId ?notification ?shippingOption ?snowballCapacityPreference
        ?roleARN ?kmsKeyARN ?addressId ?description
        ?onDeviceServiceConfiguration ?resources ?jobType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pickupDetails =
        field_map json__ "PickupDetails" PickupDetails.of_json in
      let impactLevel = field_map json__ "ImpactLevel" ImpactLevel.of_json in
      let longTermPricingId =
        field_map json__ "LongTermPricingId" LongTermPricingId.of_json in
      let remoteManagement =
        field_map json__ "RemoteManagement" RemoteManagement.of_json in
      let deviceConfiguration =
        field_map json__ "DeviceConfiguration" DeviceConfiguration.of_json in
      let taxDocuments = field_map json__ "TaxDocuments" TaxDocuments.of_json in
      let forwardingAddressId =
        field_map json__ "ForwardingAddressId" AddressId.of_json in
      let snowballType = field_map json__ "SnowballType" SnowballType.of_json in
      let clusterId = field_map json__ "ClusterId" ClusterId.of_json in
      let notification = field_map json__ "Notification" Notification.of_json in
      let shippingOption =
        field_map json__ "ShippingOption" ShippingOption.of_json in
      let snowballCapacityPreference =
        field_map json__ "SnowballCapacityPreference"
          SnowballCapacity.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let kmsKeyARN = field_map json__ "KmsKeyARN" KmsKeyARN.of_json in
      let addressId = field_map json__ "AddressId" AddressId.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let onDeviceServiceConfiguration =
        field_map json__ "OnDeviceServiceConfiguration"
          OnDeviceServiceConfiguration.of_json in
      let resources = field_map json__ "Resources" JobResource.of_json in
      let jobType = field_map json__ "JobType" JobType.of_json in
      make ?pickupDetails ?impactLevel ?longTermPricingId ?remoteManagement
        ?deviceConfiguration ?taxDocuments ?forwardingAddressId ?snowballType
        ?clusterId ?notification ?shippingOption ?snowballCapacityPreference
        ?roleARN ?kmsKeyARN ?addressId ?description
        ?onDeviceServiceConfiguration ?resources ?jobType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a job to import or export data between Amazon S3 and your on-premises data center. Your Amazon Web Services account must have the right trust policies and permissions in place to create a job for a Snow device. If you're creating a job for a node in a cluster, you only need to provide the clusterId value; the other job attributes are inherited from the cluster. Only the Snowball; Edge device type is supported when ordering clustered jobs. The device capacity is optional. Availability of device types differ by Amazon Web Services Region. For more information about Region availability, see Amazon Web Services Regional Services. Snow Family devices and their capacities. Device type: SNC1_SSD Capacity: T14 Description: Snowcone Device type: SNC1_HDD Capacity: T8 Description: Snowcone Device type: EDGE_S Capacity: T98 Description: Snowball Edge Storage Optimized for data transfer only Device type: EDGE_CG Capacity: T42 Description: Snowball Edge Compute Optimized with GPU Device type: EDGE_C Capacity: T42 Description: Snowball Edge Compute Optimized without GPU Device type: EDGE Capacity: T100 Description: Snowball Edge Storage Optimized with EC2 Compute This device is replaced with T98. Device type: STANDARD Capacity: T50 Description: Original Snowball device This device is only available in the Ningxia, Beijing, and Singapore Amazon Web Services Region Device type: STANDARD Capacity: T80 Description: Original Snowball device This device is only available in the Ningxia, Beijing, and Singapore Amazon Web Services Region. Snow Family device type: RACK_5U_C Capacity: T13 Description: Snowblade. Device type: V3_5S Capacity: T240 Description: Snowball Edge Storage Optimized 210TB"]
module CreateClusterResult =
  struct
    type nonrec t =
      {
      clusterId: ClusterId.t option
        [@ocaml.doc "The automatically generated ID for a cluster."];
      jobListEntries: JobListEntryList.t option
        [@ocaml.doc
          "List of jobs created for this cluster. For syntax, see ListJobsResult$JobListEntries in this guide."]}
    type nonrec error =
      [ `Ec2RequestFailedException of Ec2RequestFailedException.t 
      | `InvalidInputCombinationException of
          InvalidInputCombinationException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `KMSRequestFailedException of KMSRequestFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clusterId =
      fun ?jobListEntries -> fun () -> { clusterId; jobListEntries }
    let error_of_json name json =
      match name with
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_json json)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "Ec2RequestFailedException" ->
          `Ec2RequestFailedException (Ec2RequestFailedException.of_xml xml)
      | "InvalidInputCombinationException" ->
          `InvalidInputCombinationException
            (InvalidInputCombinationException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `Ec2RequestFailedException e ->
          `Assoc
            [("error", (`String "Ec2RequestFailedException"));
            ("details", (Ec2RequestFailedException.to_json e))]
      | `InvalidInputCombinationException e ->
          `Assoc
            [("error", (`String "InvalidInputCombinationException"));
            ("details", (InvalidInputCombinationException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `KMSRequestFailedException e ->
          `Assoc
            [("error", (`String "KMSRequestFailedException"));
            ("details", (KMSRequestFailedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("ClusterId", (Option.map x.clusterId ~f:ClusterId.to_value));
        ("JobListEntries",
          (Option.map x.jobListEntries ~f:JobListEntryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobListEntries =
        (Option.map ~f:JobListEntryList.of_xml)
          (Xml.child xml_arg0 "JobListEntries") in
      let clusterId =
        (Option.map ~f:ClusterId.of_xml) (Xml.child xml_arg0 "ClusterId") in
      make ?jobListEntries ?clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobListEntries =
        field_map json__ "JobListEntries" JobListEntryList.of_json in
      let clusterId = field_map json__ "ClusterId" ClusterId.of_json in
      make ?jobListEntries ?clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty cluster. Each cluster supports five nodes. You use the CreateJob action separately to create the jobs for each of these nodes. The cluster does not ship until these five node jobs have been created."]
module CreateClusterRequest =
  struct
    type nonrec t =
      {
      jobType: JobType.t
        [@ocaml.doc
          "The type of job for this cluster. Currently, the only job type supported for clusters is LOCAL_USE. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      resources: JobResource.t option
        [@ocaml.doc
          "The resources associated with the cluster job. These resources include Amazon S3 buckets and optional Lambda functions written in the Python language."];
      onDeviceServiceConfiguration: OnDeviceServiceConfiguration.t option
        [@ocaml.doc
          "Specifies the service or services on the Snow Family device that your transferred data will be exported from or imported into. Amazon Web Services Snow Family device clusters support Amazon S3 and NFS (Network File System)."];
      description: String_.t option
        [@ocaml.doc
          "An optional description of this specific cluster, for example Environmental Data Cluster-01."];
      addressId: AddressId.t
        [@ocaml.doc
          "The ID for the address that you want the cluster shipped to."];
      kmsKeyARN: KmsKeyARN.t option
        [@ocaml.doc
          "The KmsKeyARN value that you want to associate with this cluster. KmsKeyARN values are created by using the CreateKey API action in Key Management Service (KMS)."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The RoleARN that you want to associate with this cluster. RoleArn values are created by using the CreateRole API action in Identity and Access Management (IAM)."];
      snowballType: SnowballType.t
        [@ocaml.doc
          "The type of Snow Family devices to use for this cluster. For cluster jobs, Amazon Web Services Snow Family currently supports only the EDGE device type. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."];
      shippingOption: ShippingOption.t
        [@ocaml.doc
          "The shipping speed for each node in this cluster. This speed doesn't dictate how soon you'll get each Snowball Edge device, rather it represents how quickly each device moves to its destination while in transit. Regional shipping speeds are as follows: In Australia, you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In the European Union (EU), you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way. In India, Snow devices are delivered in one to seven days. In the United States of America (US), you have access to one-day shipping and two-day shipping. In Australia, you have access to express shipping. Typically, devices shipped express are delivered in about a day. In the European Union (EU), you have access to express shipping. Typically, Snow devices shipped express are delivered in about a day. In addition, most countries in the EU have access to standard shipping, which typically takes less than a week, one way. In India, Snow devices are delivered in one to seven days. In the US, you have access to one-day shipping and two-day shipping."];
      notification: Notification.t option
        [@ocaml.doc
          "The Amazon Simple Notification Service (Amazon SNS) notification settings for this cluster."];
      forwardingAddressId: AddressId.t option
        [@ocaml.doc
          "The forwarding address ID for a cluster. This field is not supported in most regions."];
      taxDocuments: TaxDocuments.t option
        [@ocaml.doc
          "The tax documents required in your Amazon Web Services Region."];
      remoteManagement: RemoteManagement.t option
        [@ocaml.doc
          "Allows you to securely operate and manage Snow devices in a cluster remotely from outside of your internal network. When set to INSTALLED_AUTOSTART, remote management will automatically be available when the device arrives at your location. Otherwise, you need to use the Snowball Client to manage the device."];
      initialClusterSize: InitialClusterSize.t option
        [@ocaml.doc
          "If provided, each job will be automatically created and associated with the new cluster. If not provided, will be treated as 0."];
      forceCreateJobs: Boolean.t option
        [@ocaml.doc
          "Force to create cluster when user attempts to overprovision or underprovision a cluster. A cluster is overprovisioned or underprovisioned if the initial size of the cluster is more (overprovisioned) or less (underprovisioned) than what needed to meet capacity requirement specified with OnDeviceServiceConfiguration."];
      longTermPricingIds: LongTermPricingIdList.t option
        [@ocaml.doc
          "Lists long-term pricing id that will be used to associate with jobs automatically created for the new cluster."];
      snowballCapacityPreference: SnowballCapacity.t option
        [@ocaml.doc
          "If your job is being created in one of the US regions, you have the option of specifying what size Snow device you'd like for this job. In all other regions, Snowballs come with 80 TB in storage capacity. For more information, see \"https://docs.aws.amazon.com/snowball/latest/snowcone-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide or \"https://docs.aws.amazon.com/snowball/latest/developer-guide/snow-device-types.html\" (Snow Family Devices and Capacity) in the Snowcone User Guide."]}
    let context_ = "CreateClusterRequest"
    let make ?resources =
      fun ?onDeviceServiceConfiguration ->
        fun ?description ->
          fun ?kmsKeyARN ->
            fun ?roleARN ->
              fun ?notification ->
                fun ?forwardingAddressId ->
                  fun ?taxDocuments ->
                    fun ?remoteManagement ->
                      fun ?initialClusterSize ->
                        fun ?forceCreateJobs ->
                          fun ?longTermPricingIds ->
                            fun ?snowballCapacityPreference ->
                              fun ~jobType ->
                                fun ~addressId ->
                                  fun ~snowballType ->
                                    fun ~shippingOption ->
                                      fun () ->
                                        {
                                          resources;
                                          onDeviceServiceConfiguration;
                                          description;
                                          kmsKeyARN;
                                          roleARN;
                                          notification;
                                          forwardingAddressId;
                                          taxDocuments;
                                          remoteManagement;
                                          initialClusterSize;
                                          forceCreateJobs;
                                          longTermPricingIds;
                                          snowballCapacityPreference;
                                          jobType;
                                          addressId;
                                          snowballType;
                                          shippingOption
                                        }
    let to_value x =
      structure_to_value
        [("JobType", (Some (JobType.to_value x.jobType)));
        ("Resources", (Option.map x.resources ~f:JobResource.to_value));
        ("OnDeviceServiceConfiguration",
          (Option.map x.onDeviceServiceConfiguration
             ~f:OnDeviceServiceConfiguration.to_value));
        ("Description", (Option.map x.description ~f:String_.to_value));
        ("AddressId", (Some (AddressId.to_value x.addressId)));
        ("KmsKeyARN", (Option.map x.kmsKeyARN ~f:KmsKeyARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("SnowballType", (Some (SnowballType.to_value x.snowballType)));
        ("ShippingOption", (Some (ShippingOption.to_value x.shippingOption)));
        ("Notification",
          (Option.map x.notification ~f:Notification.to_value));
        ("ForwardingAddressId",
          (Option.map x.forwardingAddressId ~f:AddressId.to_value));
        ("TaxDocuments",
          (Option.map x.taxDocuments ~f:TaxDocuments.to_value));
        ("RemoteManagement",
          (Option.map x.remoteManagement ~f:RemoteManagement.to_value));
        ("InitialClusterSize",
          (Option.map x.initialClusterSize ~f:InitialClusterSize.to_value));
        ("ForceCreateJobs",
          (Option.map x.forceCreateJobs ~f:Boolean.to_value));
        ("LongTermPricingIds",
          (Option.map x.longTermPricingIds ~f:LongTermPricingIdList.to_value));
        ("SnowballCapacityPreference",
          (Option.map x.snowballCapacityPreference
             ~f:SnowballCapacity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snowballCapacityPreference =
        (Option.map ~f:SnowballCapacity.of_xml)
          (Xml.child xml_arg0 "SnowballCapacityPreference") in
      let longTermPricingIds =
        (Option.map ~f:LongTermPricingIdList.of_xml)
          (Xml.child xml_arg0 "LongTermPricingIds") in
      let forceCreateJobs =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ForceCreateJobs") in
      let initialClusterSize =
        (Option.map ~f:InitialClusterSize.of_xml)
          (Xml.child xml_arg0 "InitialClusterSize") in
      let remoteManagement =
        (Option.map ~f:RemoteManagement.of_xml)
          (Xml.child xml_arg0 "RemoteManagement") in
      let taxDocuments =
        (Option.map ~f:TaxDocuments.of_xml)
          (Xml.child xml_arg0 "TaxDocuments") in
      let forwardingAddressId =
        (Option.map ~f:AddressId.of_xml)
          (Xml.child xml_arg0 "ForwardingAddressId") in
      let notification =
        (Option.map ~f:Notification.of_xml)
          (Xml.child xml_arg0 "Notification") in
      let shippingOption =
        ShippingOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ShippingOption") in
      let snowballType =
        SnowballType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnowballType") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let kmsKeyARN =
        (Option.map ~f:KmsKeyARN.of_xml) (Xml.child xml_arg0 "KmsKeyARN") in
      let addressId =
        AddressId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AddressId") in
      let description =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Description") in
      let onDeviceServiceConfiguration =
        (Option.map ~f:OnDeviceServiceConfiguration.of_xml)
          (Xml.child xml_arg0 "OnDeviceServiceConfiguration") in
      let resources =
        (Option.map ~f:JobResource.of_xml) (Xml.child xml_arg0 "Resources") in
      let jobType =
        JobType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobType") in
      make ?snowballCapacityPreference ?longTermPricingIds ?forceCreateJobs
        ?initialClusterSize ?remoteManagement ?taxDocuments
        ?forwardingAddressId ?notification ~shippingOption ~snowballType
        ?roleARN ?kmsKeyARN ~addressId ?description
        ?onDeviceServiceConfiguration ?resources ~jobType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snowballCapacityPreference =
        field_map json__ "SnowballCapacityPreference"
          SnowballCapacity.of_json in
      let longTermPricingIds =
        field_map json__ "LongTermPricingIds" LongTermPricingIdList.of_json in
      let forceCreateJobs =
        field_map json__ "ForceCreateJobs" Boolean.of_json in
      let initialClusterSize =
        field_map json__ "InitialClusterSize" InitialClusterSize.of_json in
      let remoteManagement =
        field_map json__ "RemoteManagement" RemoteManagement.of_json in
      let taxDocuments = field_map json__ "TaxDocuments" TaxDocuments.of_json in
      let forwardingAddressId =
        field_map json__ "ForwardingAddressId" AddressId.of_json in
      let notification = field_map json__ "Notification" Notification.of_json in
      let shippingOption =
        field_map_exn json__ "ShippingOption" ShippingOption.of_json in
      let snowballType =
        field_map_exn json__ "SnowballType" SnowballType.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let kmsKeyARN = field_map json__ "KmsKeyARN" KmsKeyARN.of_json in
      let addressId = field_map_exn json__ "AddressId" AddressId.of_json in
      let description = field_map json__ "Description" String_.of_json in
      let onDeviceServiceConfiguration =
        field_map json__ "OnDeviceServiceConfiguration"
          OnDeviceServiceConfiguration.of_json in
      let resources = field_map json__ "Resources" JobResource.of_json in
      let jobType = field_map_exn json__ "JobType" JobType.of_json in
      make ?snowballCapacityPreference ?longTermPricingIds ?forceCreateJobs
        ?initialClusterSize ?remoteManagement ?taxDocuments
        ?forwardingAddressId ?notification ~shippingOption ~snowballType
        ?roleARN ?kmsKeyARN ~addressId ?description
        ?onDeviceServiceConfiguration ?resources ~jobType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an empty cluster. Each cluster supports five nodes. You use the CreateJob action separately to create the jobs for each of these nodes. The cluster does not ship until these five node jobs have been created."]
module CreateAddressResult =
  struct
    type nonrec t =
      {
      addressId: String_.t option
        [@ocaml.doc
          "The automatically generated ID for a specific address. You'll use this ID when you create a job to specify which address you want the Snow device for that job shipped to."]}
    type nonrec error =
      [ `InvalidAddressException of InvalidAddressException.t 
      | `UnsupportedAddressException of UnsupportedAddressException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?addressId = fun () -> { addressId }
    let error_of_json name json =
      match name with
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_json json)
      | "UnsupportedAddressException" ->
          `UnsupportedAddressException
            (UnsupportedAddressException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidAddressException" ->
          `InvalidAddressException (InvalidAddressException.of_xml xml)
      | "UnsupportedAddressException" ->
          `UnsupportedAddressException
            (UnsupportedAddressException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidAddressException e ->
          `Assoc
            [("error", (`String "InvalidAddressException"));
            ("details", (InvalidAddressException.to_json e))]
      | `UnsupportedAddressException e ->
          `Assoc
            [("error", (`String "UnsupportedAddressException"));
            ("details", (UnsupportedAddressException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("AddressId", (Option.map x.addressId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let addressId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "AddressId") in
      make ?addressId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let addressId = field_map json__ "AddressId" String_.of_json in
      make ?addressId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an address for a Snow device to be shipped to. In most regions, addresses are validated at the time of creation. The address you provide must be located within the serviceable area of your region. If the address is invalid or unsupported, then an exception is thrown. If providing an address as a JSON file through the cli-input-json option, include the full file path. For example, --cli-input-json file://create-address.json."]
module CreateAddressRequest =
  struct
    type nonrec t =
      {
      address: Address.t
        [@ocaml.doc "The address that you want the Snow device shipped to."]}
    let context_ = "CreateAddressRequest"
    let make ~address = fun () -> { address }
    let to_value x =
      structure_to_value [("Address", (Some (Address.to_value x.address)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let address =
        Address.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Address") in
      make ~address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let address = field_map_exn json__ "Address" Address.of_json in
      make ~address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an address for a Snow device to be shipped to. In most regions, addresses are validated at the time of creation. The address you provide must be located within the serviceable area of your region. If the address is invalid or unsupported, then an exception is thrown. If providing an address as a JSON file through the cli-input-json option, include the full file path. For example, --cli-input-json file://create-address.json."]
module CancelJobResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `KMSRequestFailedException of KMSRequestFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `KMSRequestFailedException e ->
          `Assoc
            [("error", (`String "KMSRequestFailedException"));
            ("details", (KMSRequestFailedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels the specified job. You can only cancel a job before its JobState value changes to PreparingAppliance. Requesting the ListJobs or DescribeJob action returns a job's JobState as part of the response element data returned."]
module CancelJobRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t
        [@ocaml.doc
          "The 39-character job ID for the job that you want to cancel, for example JID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "CancelJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("JobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "JobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "JobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels the specified job. You can only cancel a job before its JobState value changes to PreparingAppliance. Requesting the ListJobs or DescribeJob action returns a job's JobState as part of the response element data returned."]
module CancelClusterResult =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InvalidJobStateException of InvalidJobStateException.t 
      | `InvalidResourceException of InvalidResourceException.t 
      | `KMSRequestFailedException of KMSRequestFailedException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_json json)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_json json)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidJobStateException" ->
          `InvalidJobStateException (InvalidJobStateException.of_xml xml)
      | "InvalidResourceException" ->
          `InvalidResourceException (InvalidResourceException.of_xml xml)
      | "KMSRequestFailedException" ->
          `KMSRequestFailedException (KMSRequestFailedException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidJobStateException e ->
          `Assoc
            [("error", (`String "InvalidJobStateException"));
            ("details", (InvalidJobStateException.to_json e))]
      | `InvalidResourceException e ->
          `Assoc
            [("error", (`String "InvalidResourceException"));
            ("details", (InvalidResourceException.to_json e))]
      | `KMSRequestFailedException e ->
          `Assoc
            [("error", (`String "KMSRequestFailedException"));
            ("details", (KMSRequestFailedException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a cluster job. You can only cancel a cluster job while it's in the AwaitingQuorum status. You'll have at least an hour after creating a cluster job to cancel it."]
module CancelClusterRequest =
  struct
    type nonrec t =
      {
      clusterId: ClusterId.t
        [@ocaml.doc
          "The 39-character ID for the cluster that you want to cancel, for example CID123e4567-e89b-12d3-a456-426655440000."]}
    let context_ = "CancelClusterRequest"
    let make ~clusterId = fun () -> { clusterId }
    let to_value x =
      structure_to_value
        [("ClusterId", (Some (ClusterId.to_value x.clusterId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clusterId =
        ClusterId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClusterId") in
      make ~clusterId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clusterId = field_map_exn json__ "ClusterId" ClusterId.of_json in
      make ~clusterId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels a cluster job. You can only cancel a cluster job while it's in the AwaitingQuorum status. You'll have at least an hour after creating a cluster job to cancel it."]