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.storagegateway
let apiVersion = "2013-06-30"
let endpointPrefix = "storagegateway"
let serviceFullName = "AWS Storage Gateway"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "StorageGateway_20130630"
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 CacheReportFilterValue =
  struct
    type nonrec t = string
    let context_ = "CacheReportFilterValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CacheReportFilterValue" j
    let to_json = simple_to_json to_value
  end
module CacheReportFilterName =
  struct
    type nonrec t =
      | UploadState 
      | UploadFailureReason 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UploadState -> "UploadState"
      | UploadFailureReason -> "UploadFailureReason"
      | Non_static_id s -> s
    let of_string =
      function
      | "UploadState" -> UploadState
      | "UploadFailureReason" -> UploadFailureReason
      | 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 CacheReportFilterName" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CacheReportFilterName" j)
    let to_json = simple_to_json to_value
  end
module CacheReportFilterValues =
  struct
    type nonrec t = CacheReportFilterValue.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:CacheReportFilterValue.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:CacheReportFilterValue.of_xml)
    let of_json j =
      list_of_json ~kind:"CacheReportFilterValues"
        ~of_json:CacheReportFilterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Boolean__lc1 =
  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 MinimumNumTapes =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 MinimumNumTapes" 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 PoolId =
  struct
    type nonrec t = string
    let context_ = "PoolId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PoolId" j
    let to_json = simple_to_json to_value
  end
module TapeBarcodePrefix =
  struct
    type nonrec t = string
    let context_ = "TapeBarcodePrefix"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:4) >>=
                  (fun () -> check_pattern i ~pattern:"^[A-Z]*$")));
        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:"TapeBarcodePrefix" j
    let to_json = simple_to_json to_value
  end
module TapeSize =
  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 IPV4Address =
  struct
    type nonrec t = string
    let context_ = "IPV4Address"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:15) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^((25[0-5]|(2[0-4]|1[0-9]|[1-9]|)[0-9])(\\.(?!$)|$)){4}")));
        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:"IPV4Address" j
    let to_json = simple_to_json to_value
  end
module FileSystemAssociationSyncErrorCode =
  struct
    type nonrec t = string
    let context_ = "FileSystemAssociationSyncErrorCode"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"FileSystemAssociationSyncErrorCode" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "string"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"string" j
    let to_json = simple_to_json to_value
  end
module DayOfWeek =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:6) >>= (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 DayOfWeek" 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 DiskAttribute =
  struct
    type nonrec t = string
    let context_ = "DiskAttribute"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DiskAttribute" j
    let to_json = simple_to_json to_value
  end
module CacheReportFilter =
  struct
    type nonrec t =
      {
      name: CacheReportFilterName.t
        [@ocaml.doc
          "The parameter name for a filter that determines which files are included or excluded from a cache report. Valid Names: UploadFailureReason | UploadState"];
      values: CacheReportFilterValues.t
        [@ocaml.doc
          "The parameter value for a filter that determines which files are included or excluded from a cache report. Valid UploadFailureReason Values: InaccessibleStorageClass | InvalidObjectState | ObjectMissing | S3AccessDenied Valid UploadState Values: FailingUpload"]}
    let context_ = "CacheReportFilter"
    let make ~name = fun ~values -> fun () -> { name; values }
    let to_value x =
      structure_to_value
        [("Name", (Some (CacheReportFilterName.to_value x.name)));
        ("Values", (Some (CacheReportFilterValues.to_value x.values)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        CacheReportFilterValues.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Values") in
      let name =
        CacheReportFilterName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~values ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values =
        field_map_exn json__ "Values" CacheReportFilterValues.of_json in
      let name = field_map_exn json__ "Name" CacheReportFilterName.of_json in
      make ~values ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of filter parameters and associated values that determine which files are included or excluded from a cache report created by a StartCacheReport request. Multiple instances of the same filter parameter are combined with an OR operation, while different parameters are combined with an AND operation."]
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "Tag key. The key can't start with aws:."];
      value: TagValue.t [@ocaml.doc "Value of the tag key."]}
    let context_ = "Tag"
    let make ~key = fun ~value -> fun () -> { key; value }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Some (TagValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        TagValue.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ~value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ~value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair that helps you manage, filter, and search for your resource. Allowed characters: letters, white space, and numbers, representable in UTF-8, and the following characters: + - = . _ : /."]
module AutomaticTapeCreationRule =
  struct
    type nonrec t =
      {
      tapeBarcodePrefix: TapeBarcodePrefix.t
        [@ocaml.doc
          "A prefix that you append to the barcode of the virtual tape that you are creating. This prefix makes the barcode unique. The prefix must be 1-4 characters in length and must be one of the uppercase letters from A to Z."];
      poolId: PoolId.t
        [@ocaml.doc
          "The ID of the pool that you want to add your tape to for archiving. The tape in this pool is archived in the Amazon S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      tapeSizeInBytes: TapeSize.t
        [@ocaml.doc "The size, in bytes, of the virtual tape capacity."];
      minimumNumTapes: MinimumNumTapes.t
        [@ocaml.doc
          "The minimum number of available virtual tapes that the gateway maintains at all times. If the number of tapes on the gateway goes below this value, the gateway creates as many new tapes as are needed to have MinimumNumTapes on the gateway. For more information about automatic tape creation, see Creating Tapes Automatically."];
      worm: Boolean__lc1.t option
        [@ocaml.doc
          "Set to true to indicate that tapes are to be archived as write-once-read-many (WORM). Set to false when WORM is not enabled for tapes."]}
    let context_ = "AutomaticTapeCreationRule"
    let make ?worm =
      fun ~tapeBarcodePrefix ->
        fun ~poolId ->
          fun ~tapeSizeInBytes ->
            fun ~minimumNumTapes ->
              fun () ->
                {
                  worm;
                  tapeBarcodePrefix;
                  poolId;
                  tapeSizeInBytes;
                  minimumNumTapes
                }
    let to_value x =
      structure_to_value
        [("TapeBarcodePrefix",
           (Some (TapeBarcodePrefix.to_value x.tapeBarcodePrefix)));
        ("PoolId", (Some (PoolId.to_value x.poolId)));
        ("TapeSizeInBytes", (Some (TapeSize.to_value x.tapeSizeInBytes)));
        ("MinimumNumTapes",
          (Some (MinimumNumTapes.to_value x.minimumNumTapes)));
        ("Worm", (Option.map x.worm ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let worm =
        (Option.map ~f:Boolean__lc1.of_xml) (Xml.child xml_arg0 "Worm") in
      let minimumNumTapes =
        MinimumNumTapes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MinimumNumTapes") in
      let tapeSizeInBytes =
        TapeSize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TapeSizeInBytes") in
      let poolId =
        PoolId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      let tapeBarcodePrefix =
        TapeBarcodePrefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TapeBarcodePrefix") in
      make ?worm ~minimumNumTapes ~tapeSizeInBytes ~poolId ~tapeBarcodePrefix
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let worm = field_map json__ "Worm" Boolean__lc1.of_json in
      let minimumNumTapes =
        field_map_exn json__ "MinimumNumTapes" MinimumNumTapes.of_json in
      let tapeSizeInBytes =
        field_map_exn json__ "TapeSizeInBytes" TapeSize.of_json in
      let poolId = field_map_exn json__ "PoolId" PoolId.of_json in
      let tapeBarcodePrefix =
        field_map_exn json__ "TapeBarcodePrefix" TapeBarcodePrefix.of_json in
      make ?worm ~minimumNumTapes ~tapeSizeInBytes ~poolId ~tapeBarcodePrefix
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An automatic tape creation policy consists of automatic tape creation rules where each rule defines when and how to create new tapes. For more information about automatic tape creation, see Creating Tapes Automatically."]
module NetworkInterfaceId =
  struct
    type nonrec t = string
    let context_ = "NetworkInterfaceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NetworkInterfaceId" j
    let to_json = simple_to_json to_value
  end
module TargetARN =
  struct
    type nonrec t = string
    let context_ = "TargetARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:800) >>=
             (fun () -> check_string_min i ~min:50));
        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:"TargetARN" j
    let to_json = simple_to_json to_value
  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 PositiveIntObject =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for PositiveIntObject" 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 CacheStaleTimeoutInSeconds =
  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 CacheStaleTimeoutInSeconds"
           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 UserListUser =
  struct
    type nonrec t = string
    let context_ = "UserListUser"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UserListUser" j
    let to_json = simple_to_json to_value
  end
module Ipv4OrIpv6AddressCIDR =
  struct
    type nonrec t = string
    let context_ = "Ipv4OrIpv6AddressCIDR"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"^(?:(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])\\.){3}(?:[0-9]|[1-9][0-9]|1[0-9]{2}|2[0-4][0-9]|25[0-5])(?:\\/(?:[0-9]|[1-2][0-9]|3[0-2]))?$|^(?:(?:(?:[A-Fa-f0-9]{1,4}:){6}|(?=(?:[A-Fa-f0-9]{0,4}:){0,6}(?:[0-9]{1,3}\\.){3}[0-9]{1,3}(?![:.\\w]))(?:(?:[0-9A-Fa-f]{1,4}:){0,5}|:)(?:(?::[0-9A-Fa-f]{1,4}){1,5}:|:)|::(?:[A-Fa-f0-9]{1,4}:){5})(?:(?:25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9]?[0-9])\\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)|(?:[A-Fa-f0-9]{1,4}:){7}[A-Fa-f0-9]{1,4}|(?=(?:[A-Fa-f0-9]{0,4}:){0,7}[A-Fa-f0-9]{0,4}(?![:.\\w]))(?:(?:[0-9A-Fa-f]{1,4}:){1,7}|:)(?:(:[0-9A-Fa-f]{1,4}){1,7}|:)|(?:[A-Fa-f0-9]{1,4}:){7}:|:(:[A-Fa-f0-9]{1,4}){7})(?:\\/(?:12[0-8]|1[01][0-9]|[1-9]?[0-9]))?$");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ipv4OrIpv6AddressCIDR" j
    let to_json = simple_to_json to_value
  end
module PermissionId =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:4294967294L) >>=
             (fun () -> check_int64_min i ~min:0L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module PermissionMode =
  struct
    type nonrec t = string
    let context_ = "PermissionMode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:4) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-7]{4}$")));
        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:"PermissionMode" j
    let to_json = simple_to_json to_value
  end
module IpAddressList =
  struct
    type nonrec t = IPV4Address.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:IPV4Address.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:IPV4Address.of_xml)
    let of_json j =
      list_of_json ~kind:"IpAddressList" ~of_json:IPV4Address.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileSystemAssociationStatusDetail =
  struct
    type nonrec t =
      {
      errorCode: FileSystemAssociationSyncErrorCode.t option
        [@ocaml.doc
          "The error code for a given file system association status."]}
    let make ?errorCode = fun () -> { errorCode }
    let to_value x =
      structure_to_value
        [("ErrorCode",
           (Option.map x.errorCode
              ~f:FileSystemAssociationSyncErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCode =
        (Option.map ~f:FileSystemAssociationSyncErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      make ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCode =
        field_map json__ "ErrorCode"
          FileSystemAssociationSyncErrorCode.of_json in
      make ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Detailed information on file system association status."]
module ErrorCode =
  struct
    type nonrec t =
      | ActivationKeyExpired 
      | ActivationKeyInvalid 
      | ActivationKeyNotFound 
      | GatewayInternalError 
      | GatewayNotConnected 
      | GatewayNotFound 
      | GatewayProxyNetworkConnectionBusy 
      | AuthenticationFailure 
      | BandwidthThrottleScheduleNotFound 
      | Blocked 
      | CannotExportSnapshot 
      | ChapCredentialNotFound 
      | DiskAlreadyAllocated 
      | DiskDoesNotExist 
      | DiskSizeGreaterThanVolumeMaxSize 
      | DiskSizeLessThanVolumeSize 
      | DiskSizeNotGigAligned 
      | DuplicateCertificateInfo 
      | DuplicateSchedule 
      | EndpointNotFound 
      | IAMNotSupported 
      | InitiatorInvalid 
      | InitiatorNotFound 
      | InternalError 
      | InvalidGateway 
      | InvalidEndpoint 
      | InvalidParameters 
      | InvalidSchedule 
      | LocalStorageLimitExceeded 
      | LunAlreadyAllocated_ 
      | LunInvalid 
      | JoinDomainInProgress 
      | MaximumContentLengthExceeded 
      | MaximumTapeCartridgeCountExceeded 
      | MaximumVolumeCountExceeded 
      | NetworkConfigurationChanged 
      | NoDisksAvailable 
      | NotImplemented 
      | NotSupported 
      | OperationAborted 
      | OutdatedGateway 
      | ParametersNotImplemented 
      | RegionInvalid 
      | RequestTimeout 
      | ServiceUnavailable 
      | SnapshotDeleted 
      | SnapshotIdInvalid 
      | SnapshotInProgress 
      | SnapshotNotFound 
      | SnapshotScheduleNotFound 
      | StagingAreaFull 
      | StorageFailure 
      | TapeCartridgeNotFound 
      | TargetAlreadyExists 
      | TargetInvalid 
      | TargetNotFound 
      | UnauthorizedOperation 
      | VolumeAlreadyExists 
      | VolumeIdInvalid 
      | VolumeInUse 
      | VolumeNotFound 
      | VolumeNotReady 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ActivationKeyExpired -> "ActivationKeyExpired"
      | ActivationKeyInvalid -> "ActivationKeyInvalid"
      | ActivationKeyNotFound -> "ActivationKeyNotFound"
      | GatewayInternalError -> "GatewayInternalError"
      | GatewayNotConnected -> "GatewayNotConnected"
      | GatewayNotFound -> "GatewayNotFound"
      | GatewayProxyNetworkConnectionBusy ->
          "GatewayProxyNetworkConnectionBusy"
      | AuthenticationFailure -> "AuthenticationFailure"
      | BandwidthThrottleScheduleNotFound ->
          "BandwidthThrottleScheduleNotFound"
      | Blocked -> "Blocked"
      | CannotExportSnapshot -> "CannotExportSnapshot"
      | ChapCredentialNotFound -> "ChapCredentialNotFound"
      | DiskAlreadyAllocated -> "DiskAlreadyAllocated"
      | DiskDoesNotExist -> "DiskDoesNotExist"
      | DiskSizeGreaterThanVolumeMaxSize ->
          "DiskSizeGreaterThanVolumeMaxSize"
      | DiskSizeLessThanVolumeSize -> "DiskSizeLessThanVolumeSize"
      | DiskSizeNotGigAligned -> "DiskSizeNotGigAligned"
      | DuplicateCertificateInfo -> "DuplicateCertificateInfo"
      | DuplicateSchedule -> "DuplicateSchedule"
      | EndpointNotFound -> "EndpointNotFound"
      | IAMNotSupported -> "IAMNotSupported"
      | InitiatorInvalid -> "InitiatorInvalid"
      | InitiatorNotFound -> "InitiatorNotFound"
      | InternalError -> "InternalError"
      | InvalidGateway -> "InvalidGateway"
      | InvalidEndpoint -> "InvalidEndpoint"
      | InvalidParameters -> "InvalidParameters"
      | InvalidSchedule -> "InvalidSchedule"
      | LocalStorageLimitExceeded -> "LocalStorageLimitExceeded"
      | LunAlreadyAllocated_ -> "LunAlreadyAllocated "
      | LunInvalid -> "LunInvalid"
      | JoinDomainInProgress -> "JoinDomainInProgress"
      | MaximumContentLengthExceeded -> "MaximumContentLengthExceeded"
      | MaximumTapeCartridgeCountExceeded ->
          "MaximumTapeCartridgeCountExceeded"
      | MaximumVolumeCountExceeded -> "MaximumVolumeCountExceeded"
      | NetworkConfigurationChanged -> "NetworkConfigurationChanged"
      | NoDisksAvailable -> "NoDisksAvailable"
      | NotImplemented -> "NotImplemented"
      | NotSupported -> "NotSupported"
      | OperationAborted -> "OperationAborted"
      | OutdatedGateway -> "OutdatedGateway"
      | ParametersNotImplemented -> "ParametersNotImplemented"
      | RegionInvalid -> "RegionInvalid"
      | RequestTimeout -> "RequestTimeout"
      | ServiceUnavailable -> "ServiceUnavailable"
      | SnapshotDeleted -> "SnapshotDeleted"
      | SnapshotIdInvalid -> "SnapshotIdInvalid"
      | SnapshotInProgress -> "SnapshotInProgress"
      | SnapshotNotFound -> "SnapshotNotFound"
      | SnapshotScheduleNotFound -> "SnapshotScheduleNotFound"
      | StagingAreaFull -> "StagingAreaFull"
      | StorageFailure -> "StorageFailure"
      | TapeCartridgeNotFound -> "TapeCartridgeNotFound"
      | TargetAlreadyExists -> "TargetAlreadyExists"
      | TargetInvalid -> "TargetInvalid"
      | TargetNotFound -> "TargetNotFound"
      | UnauthorizedOperation -> "UnauthorizedOperation"
      | VolumeAlreadyExists -> "VolumeAlreadyExists"
      | VolumeIdInvalid -> "VolumeIdInvalid"
      | VolumeInUse -> "VolumeInUse"
      | VolumeNotFound -> "VolumeNotFound"
      | VolumeNotReady -> "VolumeNotReady"
      | Non_static_id s -> s
    let of_string =
      function
      | "ActivationKeyExpired" -> ActivationKeyExpired
      | "ActivationKeyInvalid" -> ActivationKeyInvalid
      | "ActivationKeyNotFound" -> ActivationKeyNotFound
      | "GatewayInternalError" -> GatewayInternalError
      | "GatewayNotConnected" -> GatewayNotConnected
      | "GatewayNotFound" -> GatewayNotFound
      | "GatewayProxyNetworkConnectionBusy" ->
          GatewayProxyNetworkConnectionBusy
      | "AuthenticationFailure" -> AuthenticationFailure
      | "BandwidthThrottleScheduleNotFound" ->
          BandwidthThrottleScheduleNotFound
      | "Blocked" -> Blocked
      | "CannotExportSnapshot" -> CannotExportSnapshot
      | "ChapCredentialNotFound" -> ChapCredentialNotFound
      | "DiskAlreadyAllocated" -> DiskAlreadyAllocated
      | "DiskDoesNotExist" -> DiskDoesNotExist
      | "DiskSizeGreaterThanVolumeMaxSize" ->
          DiskSizeGreaterThanVolumeMaxSize
      | "DiskSizeLessThanVolumeSize" -> DiskSizeLessThanVolumeSize
      | "DiskSizeNotGigAligned" -> DiskSizeNotGigAligned
      | "DuplicateCertificateInfo" -> DuplicateCertificateInfo
      | "DuplicateSchedule" -> DuplicateSchedule
      | "EndpointNotFound" -> EndpointNotFound
      | "IAMNotSupported" -> IAMNotSupported
      | "InitiatorInvalid" -> InitiatorInvalid
      | "InitiatorNotFound" -> InitiatorNotFound
      | "InternalError" -> InternalError
      | "InvalidGateway" -> InvalidGateway
      | "InvalidEndpoint" -> InvalidEndpoint
      | "InvalidParameters" -> InvalidParameters
      | "InvalidSchedule" -> InvalidSchedule
      | "LocalStorageLimitExceeded" -> LocalStorageLimitExceeded
      | "LunAlreadyAllocated " -> LunAlreadyAllocated_
      | "LunInvalid" -> LunInvalid
      | "JoinDomainInProgress" -> JoinDomainInProgress
      | "MaximumContentLengthExceeded" -> MaximumContentLengthExceeded
      | "MaximumTapeCartridgeCountExceeded" ->
          MaximumTapeCartridgeCountExceeded
      | "MaximumVolumeCountExceeded" -> MaximumVolumeCountExceeded
      | "NetworkConfigurationChanged" -> NetworkConfigurationChanged
      | "NoDisksAvailable" -> NoDisksAvailable
      | "NotImplemented" -> NotImplemented
      | "NotSupported" -> NotSupported
      | "OperationAborted" -> OperationAborted
      | "OutdatedGateway" -> OutdatedGateway
      | "ParametersNotImplemented" -> ParametersNotImplemented
      | "RegionInvalid" -> RegionInvalid
      | "RequestTimeout" -> RequestTimeout
      | "ServiceUnavailable" -> ServiceUnavailable
      | "SnapshotDeleted" -> SnapshotDeleted
      | "SnapshotIdInvalid" -> SnapshotIdInvalid
      | "SnapshotInProgress" -> SnapshotInProgress
      | "SnapshotNotFound" -> SnapshotNotFound
      | "SnapshotScheduleNotFound" -> SnapshotScheduleNotFound
      | "StagingAreaFull" -> StagingAreaFull
      | "StorageFailure" -> StorageFailure
      | "TapeCartridgeNotFound" -> TapeCartridgeNotFound
      | "TargetAlreadyExists" -> TargetAlreadyExists
      | "TargetInvalid" -> TargetInvalid
      | "TargetNotFound" -> TargetNotFound
      | "UnauthorizedOperation" -> UnauthorizedOperation
      | "VolumeAlreadyExists" -> VolumeAlreadyExists
      | "VolumeIdInvalid" -> VolumeIdInvalid
      | "VolumeInUse" -> VolumeInUse
      | "VolumeNotFound" -> VolumeNotFound
      | "VolumeNotReady" -> VolumeNotReady
      | 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 ErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCode" j)
    let to_json = simple_to_json to_value
  end
module ErrorDetails =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module BandwidthDownloadRateLimit =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:102400L); 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 BandwidthUploadRateLimit =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:51200L); 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 DaysOfWeek =
  struct
    type nonrec t = DayOfWeek.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:7) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DayOfWeek.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:DayOfWeek.of_xml)
    let of_json j =
      list_of_json ~kind:"DaysOfWeek" ~of_json:DayOfWeek.of_json j
    let to_json v = composed_to_json to_value v
  end
module HourOfDay =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:23) >>= (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 HourOfDay" 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 MinuteOfHour =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:59) >>= (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 MinuteOfHour" 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 GatewayARN =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The Amazon Resource Name (ARN) of the gateway. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."]
    let context_ = "GatewayARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:50));
        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:"GatewayARN" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) of the gateway. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."]
module GatewayId =
  struct
    type nonrec t = string
    let context_ = "GatewayId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min: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:"GatewayId" j
    let to_json = simple_to_json to_value
  end
module VolumeARN =
  struct
    type nonrec t = string
    let context_ = "VolumeARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:50) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws(|-cn|-us-gov|-iso[A-Za-z0-9_-]*|-eusc)):storagegateway:[a-z\\-0-9]+:[0-9]+:gateway\\/(.+)\\/volume\\/vol-(\\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:"VolumeARN" j
    let to_json = simple_to_json to_value
  end
module VolumeAttachmentStatus =
  struct
    type nonrec t = string
    let context_ = "VolumeAttachmentStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:3));
        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:"VolumeAttachmentStatus" j
    let to_json = simple_to_json to_value
  end
module VolumeId =
  struct
    type nonrec t = string
    let context_ = "VolumeId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min: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:"VolumeId" j
    let to_json = simple_to_json to_value
  end
module VolumeType =
  struct
    type nonrec t = string
    let context_ = "VolumeType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:3));
        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:"VolumeType" 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 TapeARN =
  struct
    type nonrec t = string
    let context_ = "TapeARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:50) >>=
             (fun () ->
                (check_string_max i ~max:500) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:(aws(|-cn|-us-gov|-iso[A-Za-z0-9_-]*|-eusc)):storagegateway:[a-z\\-0-9]+:[0-9]+:tape\\/[0-9A-Z]{5,16}$")));
        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:"TapeARN" j
    let to_json = simple_to_json to_value
  end
module TapeBarcode =
  struct
    type nonrec t = string
    let context_ = "TapeBarcode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:5) >>=
             (fun () ->
                (check_string_max i ~max:16) >>=
                  (fun () -> check_pattern i ~pattern:"^[A-Z0-9]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TapeBarcode" j
    let to_json = simple_to_json to_value
  end
module TapeStatus =
  struct
    type nonrec t = string
    let context_ = "TapeStatus"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TapeStatus" j
    let to_json = simple_to_json to_value
  end
module Time =
  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 PoolARN =
  struct
    type nonrec t = string
    let context_ = "PoolARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:50));
        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:"PoolARN" j
    let to_json = simple_to_json to_value
  end
module PoolName =
  struct
    type nonrec t = string
    let context_ = "PoolName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[ -\\.0-\\[\\]-~]*[!-\\.0-\\[\\]-~][ -\\.0-\\[\\]-~]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PoolName" j
    let to_json = simple_to_json to_value
  end
module PoolStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "DELETED" -> DELETED
      | 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 PoolStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PoolStatus" j)
    let to_json = simple_to_json to_value
  end
module RetentionLockTimeInDays =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:36500) >>=
             (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 RetentionLockTimeInDays"
           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 RetentionLockType =
  struct
    type nonrec t =
      | COMPLIANCE 
      | GOVERNANCE 
      | NONE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLIANCE -> "COMPLIANCE"
      | GOVERNANCE -> "GOVERNANCE"
      | NONE -> "NONE"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLIANCE" -> COMPLIANCE
      | "GOVERNANCE" -> GOVERNANCE
      | "NONE" -> NONE
      | 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 RetentionLockType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RetentionLockType" j)
    let to_json = simple_to_json to_value
  end
module TapeStorageClass =
  struct
    type nonrec t =
      | DEEP_ARCHIVE 
      | GLACIER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEEP_ARCHIVE -> "DEEP_ARCHIVE"
      | GLACIER -> "GLACIER"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEEP_ARCHIVE" -> DEEP_ARCHIVE
      | "GLACIER" -> GLACIER
      | 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 TapeStorageClass" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TapeStorageClass" j)
    let to_json = simple_to_json to_value
  end
module DiskAllocationType =
  struct
    type nonrec t = string[@@ocaml.doc
                            "One of the DiskAllocationType enumeration values that identifies how a local disk is used. Valid Values: UPLOAD_BUFFER | CACHE_STORAGE"]
    let context_ = "DiskAllocationType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:3));
        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:"DiskAllocationType" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "One of the DiskAllocationType enumeration values that identifies how a local disk is used. Valid Values: UPLOAD_BUFFER | CACHE_STORAGE"]
module DiskAttributeList =
  struct
    type nonrec t = DiskAttribute.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:DiskAttribute.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:DiskAttribute.of_xml)
    let of_json j =
      list_of_json ~kind:"DiskAttributeList" ~of_json:DiskAttribute.of_json j
    let to_json v = composed_to_json to_value v
  end
module DiskId =
  struct
    type nonrec t = string
    let context_ = "DiskId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DiskId" j
    let to_json = simple_to_json to_value
  end
module DeprecationDate =
  struct
    type nonrec t = string
    let context_ = "DeprecationDate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeprecationDate" j
    let to_json = simple_to_json to_value
  end
module Ec2InstanceId =
  struct
    type nonrec t = string
    let context_ = "Ec2InstanceId"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ec2InstanceId" j
    let to_json = simple_to_json to_value
  end
module Ec2InstanceRegion =
  struct
    type nonrec t = string
    let context_ = "Ec2InstanceRegion"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Ec2InstanceRegion" j
    let to_json = simple_to_json to_value
  end
module GatewayOperationalState =
  struct
    type nonrec t = string
    let context_ = "GatewayOperationalState"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GatewayOperationalState" j
    let to_json = simple_to_json to_value
  end
module GatewayType =
  struct
    type nonrec t = string
    let context_ = "GatewayType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:20) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GatewayType" j
    let to_json = simple_to_json to_value
  end
module HostEnvironment =
  struct
    type nonrec t =
      | VMWARE 
      | HYPER_V 
      | EC2 
      | KVM 
      | OTHER 
      | SNOWBALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VMWARE -> "VMWARE"
      | HYPER_V -> "HYPER-V"
      | EC2 -> "EC2"
      | KVM -> "KVM"
      | OTHER -> "OTHER"
      | SNOWBALL -> "SNOWBALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "VMWARE" -> VMWARE
      | "HYPER-V" -> HYPER_V
      | "EC2" -> EC2
      | "KVM" -> KVM
      | "OTHER" -> OTHER
      | "SNOWBALL" -> SNOWBALL
      | 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 HostEnvironment" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HostEnvironment" j)
    let to_json = simple_to_json to_value
  end
module HostEnvironmentId =
  struct
    type nonrec t = string
    let context_ = "HostEnvironmentId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HostEnvironmentId" j
    let to_json = simple_to_json to_value
  end
module SoftwareVersion =
  struct
    type nonrec t = string
    let context_ = "SoftwareVersion"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SoftwareVersion" j
    let to_json = simple_to_json to_value
  end
module FileSystemAssociationARN =
  struct
    type nonrec t = string
    let context_ = "FileSystemAssociationARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:50));
        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:"FileSystemAssociationARN" j
    let to_json = simple_to_json to_value
  end
module FileSystemAssociationId =
  struct
    type nonrec t = string
    let context_ = "FileSystemAssociationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min:10));
        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:"FileSystemAssociationId" j
    let to_json = simple_to_json to_value
  end
module FileSystemAssociationStatus =
  struct
    type nonrec t = string
    let context_ = "FileSystemAssociationStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:3));
        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:"FileSystemAssociationStatus" j
    let to_json = simple_to_json to_value
  end
module FileShareARN =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The Amazon Resource Name (ARN) of the file share."]
    let context_ = "FileShareARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:50));
        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:"FileShareARN" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The Amazon Resource Name (ARN) of the file share."]
module FileShareId =
  struct
    type nonrec t = string[@@ocaml.doc "The ID of the file share."]
    let context_ = "FileShareId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:30) >>=
             (fun () -> check_string_min i ~min: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:"FileShareId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The ID of the file share."]
module FileShareStatus =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The status of the file share. Valid Values: CREATING | UPDATING | AVAILABLE | DELETING"]
    let context_ = "FileShareStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:3));
        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:"FileShareStatus" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The status of the file share. Valid Values: CREATING | UPDATING | AVAILABLE | DELETING"]
module FileShareType =
  struct
    type nonrec t =
      | NFS 
      | SMB 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | NFS -> "NFS" | SMB -> "SMB" | Non_static_id s -> s
    let of_string =
      function | "NFS" -> NFS | "SMB" -> SMB | 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 FileShareType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FileShareType" j)
    let to_json = simple_to_json to_value
  end
module CacheReportARN =
  struct
    type nonrec t = string
    let context_ = "CacheReportARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:50));
        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:"CacheReportARN" j
    let to_json = simple_to_json to_value
  end
module CacheReportFilterList =
  struct
    type nonrec t = CacheReportFilter.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:CacheReportFilter.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:CacheReportFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"CacheReportFilterList"
        ~of_json:CacheReportFilter.of_json j
    let to_json v = composed_to_json to_value v
  end
module CacheReportName =
  struct
    type nonrec t = string
    let context_ = "CacheReportName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CacheReportName" j
    let to_json = simple_to_json to_value
  end
module CacheReportStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | COMPLETED 
      | CANCELED 
      | FAILED 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | CANCELED -> "CANCELED"
      | FAILED -> "FAILED"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | "CANCELED" -> CANCELED
      | "FAILED" -> FAILED
      | "ERROR" -> ERROR
      | 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 CacheReportStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CacheReportStatus" j)
    let to_json = simple_to_json to_value
  end
module LocationARN =
  struct
    type nonrec t = string[@@ocaml.doc
                            "A custom ARN for the backend storage used for storing data for file shares. It includes a resource ARN with an optional prefix concatenation. The prefix must end with a forward slash (/). You can specify LocationARN as a bucket ARN, access point ARN or access point alias, as shown in the following examples. Bucket ARN: arn:aws:s3:::amzn-s3-demo-bucket/prefix/ Access point ARN: arn:aws:s3:region:account-id:accesspoint/access-point-name/prefix/ If you specify an access point, the bucket policy must be configured to delegate access control to the access point. For information, see Delegating access control to access points in the Amazon S3 User Guide. Access point alias: test-ap-ab123cdef4gehijklmn5opqrstuvuse1a-s3alias"]
    let context_ = "LocationARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1400) >>=
             (fun () -> check_string_min i ~min:16));
        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:"LocationARN" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "A custom ARN for the backend storage used for storing data for file shares. It includes a resource ARN with an optional prefix concatenation. The prefix must end with a forward slash (/). You can specify LocationARN as a bucket ARN, access point ARN or access point alias, as shown in the following examples. Bucket ARN: arn:aws:s3:::amzn-s3-demo-bucket/prefix/ Access point ARN: arn:aws:s3:region:account-id:accesspoint/access-point-name/prefix/ If you specify an access point, the bucket policy must be configured to delegate access control to the access point. For information, see Delegating access control to access points in the Amazon S3 User Guide. Access point alias: test-ap-ab123cdef4gehijklmn5opqrstuvuse1a-s3alias"]
module ReportCompletionPercent =
  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 ReportCompletionPercent"
           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 Role =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The ARN of the IAM role that an S3 File Gateway assumes when it accesses the underlying storage."]
    let context_ = "Role"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^arn:(aws(|-cn|-us-gov|-iso[A-Za-z0-9_-]*|-eusc)):iam::([0-9]+):role/(\\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:"Role" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The ARN of the IAM role that an S3 File Gateway assumes when it accesses the underlying storage."]
module Tags =
  struct
    type nonrec t = Tag.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:Tag.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutomaticTapeCreationRules =
  struct
    type nonrec t = AutomaticTapeCreationRule.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:AutomaticTapeCreationRule.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:AutomaticTapeCreationRule.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomaticTapeCreationRules"
        ~of_json:AutomaticTapeCreationRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeviceiSCSIAttributes =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t option
        [@ocaml.doc
          "Specifies the unique Amazon Resource Name (ARN) that encodes the iSCSI qualified name(iqn) of a tape drive or media changer target."];
      networkInterfaceId: NetworkInterfaceId.t option
        [@ocaml.doc "The network interface identifier of the VTL device."];
      networkInterfacePort: Integer.t option
        [@ocaml.doc
          "The port used to communicate with iSCSI VTL device targets."];
      chapEnabled: Boolean__lc1.t option
        [@ocaml.doc
          "Indicates whether mutual CHAP is enabled for the iSCSI target."]}
    let make ?targetARN =
      fun ?networkInterfaceId ->
        fun ?networkInterfacePort ->
          fun ?chapEnabled ->
            fun () ->
              {
                targetARN;
                networkInterfaceId;
                networkInterfacePort;
                chapEnabled
              }
    let to_value x =
      structure_to_value
        [("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value));
        ("NetworkInterfaceId",
          (Option.map x.networkInterfaceId ~f:NetworkInterfaceId.to_value));
        ("NetworkInterfacePort",
          (Option.map x.networkInterfacePort ~f:Integer.to_value));
        ("ChapEnabled", (Option.map x.chapEnabled ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chapEnabled =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "ChapEnabled") in
      let networkInterfacePort =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NetworkInterfacePort") in
      let networkInterfaceId =
        (Option.map ~f:NetworkInterfaceId.of_xml)
          (Xml.child xml_arg0 "NetworkInterfaceId") in
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      make ?chapEnabled ?networkInterfacePort ?networkInterfaceId ?targetARN
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chapEnabled = field_map json__ "ChapEnabled" Boolean__lc1.of_json in
      let networkInterfacePort =
        field_map json__ "NetworkInterfacePort" Integer.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      make ?chapEnabled ?networkInterfacePort ?networkInterfaceId ?targetARN
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists iSCSI information about a VTL device."]
module VTLDeviceARN =
  struct
    type nonrec t = string
    let context_ = "VTLDeviceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:50));
        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:"VTLDeviceARN" j
    let to_json = simple_to_json to_value
  end
module VTLDeviceProductIdentifier =
  struct
    type nonrec t = string
    let context_ = "VTLDeviceProductIdentifier"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VTLDeviceProductIdentifier" j
    let to_json = simple_to_json to_value
  end
module VTLDeviceType =
  struct
    type nonrec t = string
    let context_ = "VTLDeviceType"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VTLDeviceType" j
    let to_json = simple_to_json to_value
  end
module VTLDeviceVendor =
  struct
    type nonrec t = string
    let context_ = "VTLDeviceVendor"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"VTLDeviceVendor" j
    let to_json = simple_to_json to_value
  end
module DoubleObject =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module KMSKey =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Optional. The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value must be set if KMSEncrypted is true, or if EncryptionType is SseKms or DsseKms."]
    let context_ = "KMSKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:7) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(^arn:(aws(|-cn|-us-gov|-iso[A-Za-z0-9_-]*|-eusc)):kms:([a-zA-Z0-9-]+):([0-9]+):(key|alias)/(\\S+)$)|(^alias/(\\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:"KMSKey" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "Optional. The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value must be set if KMSEncrypted is true, or if EncryptionType is SseKms or DsseKms."]
module TapeUsage =
  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 TapeRecoveryPointStatus =
  struct
    type nonrec t = string
    let context_ = "TapeRecoveryPointStatus"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TapeRecoveryPointStatus" j
    let to_json = simple_to_json to_value
  end
module TapeArchiveStatus =
  struct
    type nonrec t = string
    let context_ = "TapeArchiveStatus"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TapeArchiveStatus" j
    let to_json = simple_to_json to_value
  end
module CreatedDate =
  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 SnapshotId =
  struct
    type nonrec t = string
    let context_ = "SnapshotId"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"\\Asnap-([0-9A-Fa-f]{8}|[0-9A-Fa-f]{17})\\z");
        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:"SnapshotId" j
    let to_json = simple_to_json to_value
  end
module TargetName =
  struct
    type nonrec t = string
    let context_ = "TargetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () -> check_pattern i ~pattern:"^[-\\.;a-z0-9]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TargetName" j
    let to_json = simple_to_json to_value
  end
module VolumeStatus =
  struct
    type nonrec t = string
    let context_ = "VolumeStatus"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:3));
        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:"VolumeStatus" j
    let to_json = simple_to_json to_value
  end
module VolumeUsedInBytes =
  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 VolumeiSCSIAttributes =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the volume target."];
      networkInterfaceId: NetworkInterfaceId.t option
        [@ocaml.doc "The network interface identifier."];
      networkInterfacePort: Integer.t option
        [@ocaml.doc "The port used to communicate with iSCSI targets."];
      lunNumber: PositiveIntObject.t option
        [@ocaml.doc "The logical disk number."];
      chapEnabled: Boolean__lc1.t option
        [@ocaml.doc
          "Indicates whether mutual CHAP is enabled for the iSCSI target."]}
    let make ?targetARN =
      fun ?networkInterfaceId ->
        fun ?networkInterfacePort ->
          fun ?lunNumber ->
            fun ?chapEnabled ->
              fun () ->
                {
                  targetARN;
                  networkInterfaceId;
                  networkInterfacePort;
                  lunNumber;
                  chapEnabled
                }
    let to_value x =
      structure_to_value
        [("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value));
        ("NetworkInterfaceId",
          (Option.map x.networkInterfaceId ~f:NetworkInterfaceId.to_value));
        ("NetworkInterfacePort",
          (Option.map x.networkInterfacePort ~f:Integer.to_value));
        ("LunNumber", (Option.map x.lunNumber ~f:PositiveIntObject.to_value));
        ("ChapEnabled", (Option.map x.chapEnabled ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chapEnabled =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "ChapEnabled") in
      let lunNumber =
        (Option.map ~f:PositiveIntObject.of_xml)
          (Xml.child xml_arg0 "LunNumber") in
      let networkInterfacePort =
        (Option.map ~f:Integer.of_xml)
          (Xml.child xml_arg0 "NetworkInterfacePort") in
      let networkInterfaceId =
        (Option.map ~f:NetworkInterfaceId.of_xml)
          (Xml.child xml_arg0 "NetworkInterfaceId") in
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      make ?chapEnabled ?lunNumber ?networkInterfacePort ?networkInterfaceId
        ?targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chapEnabled = field_map json__ "ChapEnabled" Boolean__lc1.of_json in
      let lunNumber = field_map json__ "LunNumber" PositiveIntObject.of_json in
      let networkInterfacePort =
        field_map json__ "NetworkInterfacePort" Integer.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      make ?chapEnabled ?lunNumber ?networkInterfacePort ?networkInterfaceId
        ?targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists iSCSI information about a volume."]
module AuditDestinationARN =
  struct
    type nonrec t = string
    let context_ = "AuditDestinationARN"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1024); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AuditDestinationARN" j
    let to_json = simple_to_json to_value
  end
module Authentication =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The authentication method of the file share. The default is ActiveDirectory. Valid Values: ActiveDirectory | GuestAccess"]
    let context_ = "Authentication"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:15) >>=
             (fun () -> check_string_min i ~min:5));
        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:"Authentication" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The authentication method of the file share. The default is ActiveDirectory. Valid Values: ActiveDirectory | GuestAccess"]
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 CacheAttributes =
  struct
    type nonrec t =
      {
      cacheStaleTimeoutInSeconds: CacheStaleTimeoutInSeconds.t option
        [@ocaml.doc
          "Refreshes a file share's cache by using Time To Live (TTL). TTL is the length of time since the last refresh after which access to the directory would cause the file gateway to first refresh that directory's contents from the Amazon S3 bucket or Amazon FSx file system. The TTL duration is in seconds. Valid Values:0, 300 to 2,592,000 seconds (5 minutes to 30 days)"]}
    let make ?cacheStaleTimeoutInSeconds =
      fun () -> { cacheStaleTimeoutInSeconds }
    let to_value x =
      structure_to_value
        [("CacheStaleTimeoutInSeconds",
           (Option.map x.cacheStaleTimeoutInSeconds
              ~f:CacheStaleTimeoutInSeconds.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheStaleTimeoutInSeconds =
        (Option.map ~f:CacheStaleTimeoutInSeconds.of_xml)
          (Xml.child xml_arg0 "CacheStaleTimeoutInSeconds") in
      make ?cacheStaleTimeoutInSeconds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheStaleTimeoutInSeconds =
        field_map json__ "CacheStaleTimeoutInSeconds"
          CacheStaleTimeoutInSeconds.of_json in
      make ?cacheStaleTimeoutInSeconds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The refresh cache information for the file share or FSx file systems."]
module CaseSensitivity =
  struct
    type nonrec t =
      | ClientSpecified 
      | CaseSensitive 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ClientSpecified -> "ClientSpecified"
      | CaseSensitive -> "CaseSensitive"
      | Non_static_id s -> s
    let of_string =
      function
      | "ClientSpecified" -> ClientSpecified
      | "CaseSensitive" -> CaseSensitive
      | 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 CaseSensitivity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CaseSensitivity" j)
    let to_json = simple_to_json to_value
  end
module DNSHostName =
  struct
    type nonrec t = string
    let context_ = "DNSHostName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(([a-zA-Z0-9\\-]*[a-zA-Z0-9])\\.)*([A-Za-z0-9\\-]*[A-Za-z0-9])$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DNSHostName" j
    let to_json = simple_to_json to_value
  end
module EncryptionType =
  struct
    type nonrec t =
      | SseS3 
      | SseKms 
      | DsseKms 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SseS3 -> "SseS3"
      | SseKms -> "SseKms"
      | DsseKms -> "DsseKms"
      | Non_static_id s -> s
    let of_string =
      function
      | "SseS3" -> SseS3
      | "SseKms" -> SseKms
      | "DsseKms" -> DsseKms
      | 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 EncryptionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionType" j)
    let to_json = simple_to_json to_value
  end
module FileShareName =
  struct
    type nonrec t = string
    let context_ = "FileShareName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FileShareName" j
    let to_json = simple_to_json to_value
  end
module NotificationPolicy =
  struct
    type nonrec t = string
    let context_ = "NotificationPolicy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^\\{[\\w\\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:"NotificationPolicy" j
    let to_json = simple_to_json to_value
  end
module ObjectACL =
  struct
    type nonrec t =
      | Private 
      | Public_read 
      | Public_read_write 
      | Authenticated_read 
      | Bucket_owner_read 
      | Bucket_owner_full_control 
      | Aws_exec_read 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Private -> "private"
      | Public_read -> "public-read"
      | Public_read_write -> "public-read-write"
      | Authenticated_read -> "authenticated-read"
      | Bucket_owner_read -> "bucket-owner-read"
      | Bucket_owner_full_control -> "bucket-owner-full-control"
      | Aws_exec_read -> "aws-exec-read"
      | Non_static_id s -> s
    let of_string =
      function
      | "private" -> Private
      | "public-read" -> Public_read
      | "public-read-write" -> Public_read_write
      | "authenticated-read" -> Authenticated_read
      | "bucket-owner-read" -> Bucket_owner_read
      | "bucket-owner-full-control" -> Bucket_owner_full_control
      | "aws-exec-read" -> Aws_exec_read
      | 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 ObjectACL" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ObjectACL" j)
    let to_json = simple_to_json to_value
  end
module Path =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The file share path used by the NFS client to identify the mount point."]
    let context_ = "Path"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Path" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The file share path used by the NFS client to identify the mount point."]
module RegionId =
  struct
    type nonrec t = string
    let context_ = "RegionId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RegionId" j
    let to_json = simple_to_json to_value
  end
module StorageClass =
  struct
    type nonrec t = string
    let context_ = "StorageClass"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:5));
        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:"StorageClass" j
    let to_json = simple_to_json to_value
  end
module UserList =
  struct
    type nonrec t = UserListUser.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UserListUser.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:UserListUser.of_xml)
    let of_json j =
      list_of_json ~kind:"UserList" ~of_json:UserListUser.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileShareClientList =
  struct
    type nonrec t = Ipv4OrIpv6AddressCIDR.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Ipv4OrIpv6AddressCIDR.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:Ipv4OrIpv6AddressCIDR.of_xml)
    let of_json j =
      list_of_json ~kind:"FileShareClientList"
        ~of_json:Ipv4OrIpv6AddressCIDR.of_json j
    let to_json v = composed_to_json to_value v
  end
module NFSFileShareDefaults =
  struct
    type nonrec t =
      {
      fileMode: PermissionMode.t option
        [@ocaml.doc
          "The Unix file mode in the form \"nnnn\". For example, 0666 represents the default file mode inside the file share. The default value is 0666."];
      directoryMode: PermissionMode.t option
        [@ocaml.doc
          "The Unix directory mode in the form \"nnnn\". For example, 0666 represents the default access mode for all directories inside the file share. The default value is 0777."];
      groupId: PermissionId.t option
        [@ocaml.doc
          "The default group ID for the file share (unless the files have another group ID specified). The default value is nfsnobody."];
      ownerId: PermissionId.t option
        [@ocaml.doc
          "The default owner ID for files in the file share (unless the files have another owner ID specified). The default value is nfsnobody."]}
    let make ?fileMode =
      fun ?directoryMode ->
        fun ?groupId ->
          fun ?ownerId ->
            fun () -> { fileMode; directoryMode; groupId; ownerId }
    let to_value x =
      structure_to_value
        [("FileMode", (Option.map x.fileMode ~f:PermissionMode.to_value));
        ("DirectoryMode",
          (Option.map x.directoryMode ~f:PermissionMode.to_value));
        ("GroupId", (Option.map x.groupId ~f:PermissionId.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:PermissionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ownerId =
        (Option.map ~f:PermissionId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let groupId =
        (Option.map ~f:PermissionId.of_xml) (Xml.child xml_arg0 "GroupId") in
      let directoryMode =
        (Option.map ~f:PermissionMode.of_xml)
          (Xml.child xml_arg0 "DirectoryMode") in
      let fileMode =
        (Option.map ~f:PermissionMode.of_xml) (Xml.child xml_arg0 "FileMode") in
      make ?ownerId ?groupId ?directoryMode ?fileMode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ownerId = field_map json__ "OwnerId" PermissionId.of_json in
      let groupId = field_map json__ "GroupId" PermissionId.of_json in
      let directoryMode =
        field_map json__ "DirectoryMode" PermissionMode.of_json in
      let fileMode = field_map json__ "FileMode" PermissionMode.of_json in
      make ?ownerId ?groupId ?directoryMode ?fileMode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes Network File System (NFS) file share default values. Files and folders stored as Amazon S3 objects in S3 buckets don't, by default, have Unix file permissions assigned to them. Upon discovery in an S3 bucket by Storage Gateway, the S3 objects that represent files and folders are assigned these default Unix permissions. This operation is only supported for S3 File Gateways."]
module Squash =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The user mapped to anonymous user. Valid options are the following: RootSquash: Only root is mapped to anonymous user. NoSquash: No one is mapped to anonymous user. AllSquash: Everyone is mapped to anonymous user."]
    let context_ = "Squash"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:15) >>=
             (fun () -> check_string_min i ~min:5));
        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:"Squash" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The user mapped to anonymous user. Valid options are the following: RootSquash: Only root is mapped to anonymous user. NoSquash: No one is mapped to anonymous user. AllSquash: Everyone is mapped to anonymous user."]
module EndpointNetworkConfiguration =
  struct
    type nonrec t =
      {
      ipAddresses: IpAddressList.t option
        [@ocaml.doc
          "A list of gateway IP addresses on which the associated Amazon FSx file system is available. If multiple file systems are associated with this gateway, this field is required."]}
    let make ?ipAddresses = fun () -> { ipAddresses }
    let to_value x =
      structure_to_value
        [("IpAddresses",
           (Option.map x.ipAddresses ~f:IpAddressList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipAddresses =
        (Option.map ~f:IpAddressList.of_xml)
          (Xml.child xml_arg0 "IpAddresses") in
      make ?ipAddresses ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipAddresses = field_map json__ "IpAddresses" IpAddressList.of_json in
      make ?ipAddresses ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies network configuration information for the gateway associated with the Amazon FSx file system."]
module FileSystemAssociationStatusDetails =
  struct
    type nonrec t = FileSystemAssociationStatusDetail.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:FileSystemAssociationStatusDetail.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:FileSystemAssociationStatusDetail.of_xml)
    let of_json j =
      list_of_json ~kind:"FileSystemAssociationStatusDetails"
        ~of_json:FileSystemAssociationStatusDetail.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileSystemLocationARN =
  struct
    type nonrec t = string
    let context_ = "FileSystemLocationARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_string_min i ~min:8));
        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:"FileSystemLocationARN" j
    let to_json = simple_to_json to_value
  end
module ChapSecret =
  struct
    type nonrec t = string
    let context_ = "ChapSecret"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ChapSecret" j
    let to_json = simple_to_json to_value
  end
module IqnName =
  struct
    type nonrec t = string
    let context_ = "IqnName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[0-9a-z:.-]+")));
        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:"IqnName" j
    let to_json = simple_to_json to_value
  end
module StorageGatewayError =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option
        [@ocaml.doc "Additional information about the error."];
      errorDetails: ErrorDetails.t option
        [@ocaml.doc
          "Human-readable text that provides detail about the error that occurred."]}
    let make ?errorCode =
      fun ?errorDetails -> fun () -> { errorCode; errorDetails }
    let to_value x =
      structure_to_value
        [("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorDetails",
          (Option.map x.errorDetails ~f:ErrorDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorDetails =
        (Option.map ~f:ErrorDetails.of_xml)
          (Xml.child xml_arg0 "errorDetails") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      make ?errorDetails ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorDetails = field_map json__ "errorDetails" ErrorDetails.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      make ?errorDetails ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides additional information about an error that was returned by the service. See the errorCode and errorDetails members for more information about the error."]
module AutomaticUpdatePolicy =
  struct
    type nonrec t =
      | ALL_VERSIONS 
      | EMERGENCY_VERSIONS_ONLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL_VERSIONS -> "ALL_VERSIONS"
      | EMERGENCY_VERSIONS_ONLY -> "EMERGENCY_VERSIONS_ONLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL_VERSIONS" -> ALL_VERSIONS
      | "EMERGENCY_VERSIONS_ONLY" -> EMERGENCY_VERSIONS_ONLY
      | 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 AutomaticUpdatePolicy" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AutomaticUpdatePolicy" j)
    let to_json = simple_to_json to_value
  end
module BandwidthRateLimitInterval =
  struct
    type nonrec t =
      {
      startHourOfDay: HourOfDay.t
        [@ocaml.doc
          "The hour of the day to start the bandwidth rate limit interval."];
      startMinuteOfHour: MinuteOfHour.t
        [@ocaml.doc
          "The minute of the hour to start the bandwidth rate limit interval. The interval begins at the start of that minute. To begin an interval exactly at the start of the hour, use the value 0."];
      endHourOfDay: HourOfDay.t
        [@ocaml.doc
          "The hour of the day to end the bandwidth rate limit interval."];
      endMinuteOfHour: MinuteOfHour.t
        [@ocaml.doc
          "The minute of the hour to end the bandwidth rate limit interval. The bandwidth rate limit interval ends at the end of the minute. To end an interval at the end of an hour, use the value 59."];
      daysOfWeek: DaysOfWeek.t
        [@ocaml.doc
          "The days of the week component of the bandwidth rate limit interval, represented as ordinal numbers from 0 to 6, where 0 represents Sunday and 6 represents Saturday."];
      averageUploadRateLimitInBitsPerSec: BandwidthUploadRateLimit.t option
        [@ocaml.doc
          "The average upload rate limit component of the bandwidth rate limit interval, in bits per second. This field does not appear in the response if the upload rate limit is not set. For Tape Gateway and Volume Gateway, the minimum value is 51200. This field is required for S3 File Gateway, and the minimum value is 104857600."];
      averageDownloadRateLimitInBitsPerSec:
        BandwidthDownloadRateLimit.t option
        [@ocaml.doc
          "The average download rate limit component of the bandwidth rate limit interval, in bits per second. This field does not appear in the response if the download rate limit is not set. S3 File Gateway does not support this feature."]}
    let context_ = "BandwidthRateLimitInterval"
    let make ?averageUploadRateLimitInBitsPerSec =
      fun ?averageDownloadRateLimitInBitsPerSec ->
        fun ~startHourOfDay ->
          fun ~startMinuteOfHour ->
            fun ~endHourOfDay ->
              fun ~endMinuteOfHour ->
                fun ~daysOfWeek ->
                  fun () ->
                    {
                      averageUploadRateLimitInBitsPerSec;
                      averageDownloadRateLimitInBitsPerSec;
                      startHourOfDay;
                      startMinuteOfHour;
                      endHourOfDay;
                      endMinuteOfHour;
                      daysOfWeek
                    }
    let to_value x =
      structure_to_value
        [("StartHourOfDay", (Some (HourOfDay.to_value x.startHourOfDay)));
        ("StartMinuteOfHour",
          (Some (MinuteOfHour.to_value x.startMinuteOfHour)));
        ("EndHourOfDay", (Some (HourOfDay.to_value x.endHourOfDay)));
        ("EndMinuteOfHour", (Some (MinuteOfHour.to_value x.endMinuteOfHour)));
        ("DaysOfWeek", (Some (DaysOfWeek.to_value x.daysOfWeek)));
        ("AverageUploadRateLimitInBitsPerSec",
          (Option.map x.averageUploadRateLimitInBitsPerSec
             ~f:BandwidthUploadRateLimit.to_value));
        ("AverageDownloadRateLimitInBitsPerSec",
          (Option.map x.averageDownloadRateLimitInBitsPerSec
             ~f:BandwidthDownloadRateLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let averageDownloadRateLimitInBitsPerSec =
        (Option.map ~f:BandwidthDownloadRateLimit.of_xml)
          (Xml.child xml_arg0 "AverageDownloadRateLimitInBitsPerSec") in
      let averageUploadRateLimitInBitsPerSec =
        (Option.map ~f:BandwidthUploadRateLimit.of_xml)
          (Xml.child xml_arg0 "AverageUploadRateLimitInBitsPerSec") in
      let daysOfWeek =
        DaysOfWeek.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DaysOfWeek") in
      let endMinuteOfHour =
        MinuteOfHour.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndMinuteOfHour") in
      let endHourOfDay =
        HourOfDay.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "EndHourOfDay") in
      let startMinuteOfHour =
        MinuteOfHour.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartMinuteOfHour") in
      let startHourOfDay =
        HourOfDay.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StartHourOfDay") in
      make ?averageDownloadRateLimitInBitsPerSec
        ?averageUploadRateLimitInBitsPerSec ~daysOfWeek ~endMinuteOfHour
        ~endHourOfDay ~startMinuteOfHour ~startHourOfDay ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let averageDownloadRateLimitInBitsPerSec =
        field_map json__ "AverageDownloadRateLimitInBitsPerSec"
          BandwidthDownloadRateLimit.of_json in
      let averageUploadRateLimitInBitsPerSec =
        field_map json__ "AverageUploadRateLimitInBitsPerSec"
          BandwidthUploadRateLimit.of_json in
      let daysOfWeek = field_map_exn json__ "DaysOfWeek" DaysOfWeek.of_json in
      let endMinuteOfHour =
        field_map_exn json__ "EndMinuteOfHour" MinuteOfHour.of_json in
      let endHourOfDay =
        field_map_exn json__ "EndHourOfDay" HourOfDay.of_json in
      let startMinuteOfHour =
        field_map_exn json__ "StartMinuteOfHour" MinuteOfHour.of_json in
      let startHourOfDay =
        field_map_exn json__ "StartHourOfDay" HourOfDay.of_json in
      make ?averageDownloadRateLimitInBitsPerSec
        ?averageUploadRateLimitInBitsPerSec ~daysOfWeek ~endMinuteOfHour
        ~endHourOfDay ~startMinuteOfHour ~startHourOfDay ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a bandwidth rate limit interval for a gateway. A bandwidth rate limit schedule consists of one or more bandwidth rate limit intervals. A bandwidth rate limit interval defines a period of time on one or more days of the week, during which bandwidth rate limits are specified for uploading, downloading, or both. FSx File Gateway does not support this feature."]
module Folder =
  struct
    type nonrec t = string
    let context_ = "Folder"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Folder" j
    let to_json = simple_to_json to_value
  end
module VolumeInfo =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the storage volume. For example, the following is a valid ARN: arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/volume/vol-1122AABB Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-)."];
      volumeId: VolumeId.t option
        [@ocaml.doc
          "The unique identifier assigned to the volume. This ID becomes part of the volume Amazon Resource Name (ARN), which you use as input for other operations. Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-)."];
      gatewayARN: GatewayARN.t option ;
      gatewayId: GatewayId.t option
        [@ocaml.doc
          "The unique identifier assigned to your gateway during activation. This ID becomes part of the gateway Amazon Resource Name (ARN), which you use as input for other operations. Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-)."];
      volumeType: VolumeType.t option
        [@ocaml.doc
          "One of the VolumeType enumeration values describing the type of the volume."];
      volumeSizeInBytes: Long.t option
        [@ocaml.doc
          "The size of the volume in bytes. Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-)."];
      volumeAttachmentStatus: VolumeAttachmentStatus.t option
        [@ocaml.doc
          "One of the VolumeStatus values that indicates the state of the storage volume."]}
    let make ?volumeARN =
      fun ?volumeId ->
        fun ?gatewayARN ->
          fun ?gatewayId ->
            fun ?volumeType ->
              fun ?volumeSizeInBytes ->
                fun ?volumeAttachmentStatus ->
                  fun () ->
                    {
                      volumeARN;
                      volumeId;
                      gatewayARN;
                      gatewayId;
                      volumeType;
                      volumeSizeInBytes;
                      volumeAttachmentStatus
                    }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("VolumeId", (Option.map x.volumeId ~f:VolumeId.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("GatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:VolumeType.to_value));
        ("VolumeSizeInBytes",
          (Option.map x.volumeSizeInBytes ~f:Long.to_value));
        ("VolumeAttachmentStatus",
          (Option.map x.volumeAttachmentStatus
             ~f:VolumeAttachmentStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeAttachmentStatus =
        (Option.map ~f:VolumeAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "VolumeAttachmentStatus") in
      let volumeSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "VolumeSizeInBytes") in
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "VolumeType") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "GatewayId") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let volumeId =
        (Option.map ~f:VolumeId.of_xml) (Xml.child xml_arg0 "VolumeId") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?volumeAttachmentStatus ?volumeSizeInBytes ?volumeType ?gatewayId
        ?gatewayARN ?volumeId ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeAttachmentStatus =
        field_map json__ "VolumeAttachmentStatus"
          VolumeAttachmentStatus.of_json in
      let volumeSizeInBytes =
        field_map json__ "VolumeSizeInBytes" Long.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let gatewayId = field_map json__ "GatewayId" GatewayId.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let volumeId = field_map json__ "VolumeId" VolumeId.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?volumeAttachmentStatus ?volumeSizeInBytes ?volumeType ?gatewayId
        ?gatewayARN ?volumeId ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a storage volume object."]
module VolumeRecoveryPointInfo =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the volume target."];
      volumeSizeInBytes: Long.t option
        [@ocaml.doc "The size of the volume in bytes."];
      volumeUsageInBytes: Long.t option
        [@ocaml.doc
          "The size of the data stored on the volume in bytes. This value is not available for volumes created prior to May 13, 2015, until you store data on the volume."];
      volumeRecoveryPointTime: String_.t option
        [@ocaml.doc "The time the recovery point was taken."]}
    let make ?volumeARN =
      fun ?volumeSizeInBytes ->
        fun ?volumeUsageInBytes ->
          fun ?volumeRecoveryPointTime ->
            fun () ->
              {
                volumeARN;
                volumeSizeInBytes;
                volumeUsageInBytes;
                volumeRecoveryPointTime
              }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("VolumeSizeInBytes",
          (Option.map x.volumeSizeInBytes ~f:Long.to_value));
        ("VolumeUsageInBytes",
          (Option.map x.volumeUsageInBytes ~f:Long.to_value));
        ("VolumeRecoveryPointTime",
          (Option.map x.volumeRecoveryPointTime ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeRecoveryPointTime =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VolumeRecoveryPointTime") in
      let volumeUsageInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "VolumeUsageInBytes") in
      let volumeSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "VolumeSizeInBytes") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?volumeRecoveryPointTime ?volumeUsageInBytes ?volumeSizeInBytes
        ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeRecoveryPointTime =
        field_map json__ "VolumeRecoveryPointTime" String_.of_json in
      let volumeUsageInBytes =
        field_map json__ "VolumeUsageInBytes" Long.of_json in
      let volumeSizeInBytes =
        field_map json__ "VolumeSizeInBytes" Long.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?volumeRecoveryPointTime ?volumeUsageInBytes ?volumeSizeInBytes
        ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a storage volume recovery point object."]
module Initiator =
  struct
    type nonrec t = string
    let context_ = "Initiator"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Initiator" j
    let to_json = simple_to_json to_value
  end
module TapeInfo =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of a virtual tape."];
      tapeBarcode: TapeBarcode.t option
        [@ocaml.doc "The barcode that identifies a specific virtual tape."];
      tapeSizeInBytes: TapeSize.t option
        [@ocaml.doc "The size, in bytes, of a virtual tape."];
      tapeStatus: TapeStatus.t option [@ocaml.doc "The status of the tape."];
      gatewayARN: GatewayARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the gateway. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."];
      poolId: PoolId.t option
        [@ocaml.doc
          "The ID of the pool that you want to add your tape to for archiving. The tape in this pool is archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      retentionStartDate: Time.t option
        [@ocaml.doc
          "The date that the tape became subject to tape retention lock."];
      poolEntryDate: Time.t option
        [@ocaml.doc
          "The date that the tape entered the custom tape pool with tape retention lock enabled."]}
    let make ?tapeARN =
      fun ?tapeBarcode ->
        fun ?tapeSizeInBytes ->
          fun ?tapeStatus ->
            fun ?gatewayARN ->
              fun ?poolId ->
                fun ?retentionStartDate ->
                  fun ?poolEntryDate ->
                    fun () ->
                      {
                        tapeARN;
                        tapeBarcode;
                        tapeSizeInBytes;
                        tapeStatus;
                        gatewayARN;
                        poolId;
                        retentionStartDate;
                        poolEntryDate
                      }
    let to_value x =
      structure_to_value
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value));
        ("TapeBarcode", (Option.map x.tapeBarcode ~f:TapeBarcode.to_value));
        ("TapeSizeInBytes",
          (Option.map x.tapeSizeInBytes ~f:TapeSize.to_value));
        ("TapeStatus", (Option.map x.tapeStatus ~f:TapeStatus.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolId.to_value));
        ("RetentionStartDate",
          (Option.map x.retentionStartDate ~f:Time.to_value));
        ("PoolEntryDate", (Option.map x.poolEntryDate ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolEntryDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "PoolEntryDate") in
      let retentionStartDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "RetentionStartDate") in
      let poolId =
        (Option.map ~f:PoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let tapeStatus =
        (Option.map ~f:TapeStatus.of_xml) (Xml.child xml_arg0 "TapeStatus") in
      let tapeSizeInBytes =
        (Option.map ~f:TapeSize.of_xml)
          (Xml.child xml_arg0 "TapeSizeInBytes") in
      let tapeBarcode =
        (Option.map ~f:TapeBarcode.of_xml) (Xml.child xml_arg0 "TapeBarcode") in
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?poolEntryDate ?retentionStartDate ?poolId ?gatewayARN ?tapeStatus
        ?tapeSizeInBytes ?tapeBarcode ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolEntryDate = field_map json__ "PoolEntryDate" Time.of_json in
      let retentionStartDate =
        field_map json__ "RetentionStartDate" Time.of_json in
      let poolId = field_map json__ "PoolId" PoolId.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let tapeStatus = field_map json__ "TapeStatus" TapeStatus.of_json in
      let tapeSizeInBytes =
        field_map json__ "TapeSizeInBytes" TapeSize.of_json in
      let tapeBarcode = field_map json__ "TapeBarcode" TapeBarcode.of_json in
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?poolEntryDate ?retentionStartDate ?poolId ?gatewayARN ?tapeStatus
        ?tapeSizeInBytes ?tapeBarcode ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a virtual tape."]
module PoolInfo =
  struct
    type nonrec t =
      {
      poolARN: PoolARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the custom tape pool. Use the ListTapePools operation to return a list of custom tape pools for your account and Amazon Web Services Region."];
      poolName: PoolName.t option
        [@ocaml.doc
          "The name of the custom tape pool. PoolName can use all ASCII characters, except '/' and '\\'."];
      storageClass: TapeStorageClass.t option
        [@ocaml.doc
          "The storage class that is associated with the custom pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      retentionLockType: RetentionLockType.t option
        [@ocaml.doc
          "Tape retention lock type, which can be configured in two modes. When configured in governance mode, Amazon Web Services accounts with specific IAM permissions are authorized to remove the tape retention lock from archived virtual tapes. When configured in compliance mode, the tape retention lock cannot be removed by any user, including the root Amazon Web Services account."];
      retentionLockTimeInDays: RetentionLockTimeInDays.t option
        [@ocaml.doc
          "Tape retention lock time is set in days. Tape retention lock can be enabled for up to 100 years (36,500 days)."];
      poolStatus: PoolStatus.t option
        [@ocaml.doc
          "Status of the custom tape pool. Pool can be ACTIVE or DELETED."]}
    let make ?poolARN =
      fun ?poolName ->
        fun ?storageClass ->
          fun ?retentionLockType ->
            fun ?retentionLockTimeInDays ->
              fun ?poolStatus ->
                fun () ->
                  {
                    poolARN;
                    poolName;
                    storageClass;
                    retentionLockType;
                    retentionLockTimeInDays;
                    poolStatus
                  }
    let to_value x =
      structure_to_value
        [("PoolARN", (Option.map x.poolARN ~f:PoolARN.to_value));
        ("PoolName", (Option.map x.poolName ~f:PoolName.to_value));
        ("StorageClass",
          (Option.map x.storageClass ~f:TapeStorageClass.to_value));
        ("RetentionLockType",
          (Option.map x.retentionLockType ~f:RetentionLockType.to_value));
        ("RetentionLockTimeInDays",
          (Option.map x.retentionLockTimeInDays
             ~f:RetentionLockTimeInDays.to_value));
        ("PoolStatus", (Option.map x.poolStatus ~f:PoolStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolStatus =
        (Option.map ~f:PoolStatus.of_xml) (Xml.child xml_arg0 "PoolStatus") in
      let retentionLockTimeInDays =
        (Option.map ~f:RetentionLockTimeInDays.of_xml)
          (Xml.child xml_arg0 "RetentionLockTimeInDays") in
      let retentionLockType =
        (Option.map ~f:RetentionLockType.of_xml)
          (Xml.child xml_arg0 "RetentionLockType") in
      let storageClass =
        (Option.map ~f:TapeStorageClass.of_xml)
          (Xml.child xml_arg0 "StorageClass") in
      let poolName =
        (Option.map ~f:PoolName.of_xml) (Xml.child xml_arg0 "PoolName") in
      let poolARN =
        (Option.map ~f:PoolARN.of_xml) (Xml.child xml_arg0 "PoolARN") in
      make ?poolStatus ?retentionLockTimeInDays ?retentionLockType
        ?storageClass ?poolName ?poolARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolStatus = field_map json__ "PoolStatus" PoolStatus.of_json in
      let retentionLockTimeInDays =
        field_map json__ "RetentionLockTimeInDays"
          RetentionLockTimeInDays.of_json in
      let retentionLockType =
        field_map json__ "RetentionLockType" RetentionLockType.of_json in
      let storageClass =
        field_map json__ "StorageClass" TapeStorageClass.of_json in
      let poolName = field_map json__ "PoolName" PoolName.of_json in
      let poolARN = field_map json__ "PoolARN" PoolARN.of_json in
      make ?poolStatus ?retentionLockTimeInDays ?retentionLockType
        ?storageClass ?poolName ?poolARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a custom tape pool."]
module Disk =
  struct
    type nonrec t =
      {
      diskId: DiskId.t option
        [@ocaml.doc
          "The unique device ID or other distinguishing data that identifies a local disk."];
      diskPath: String_.t option
        [@ocaml.doc
          "The path of a local disk in the gateway virtual machine (VM)."];
      diskNode: String_.t option
        [@ocaml.doc
          "The device node of a local disk as assigned by the virtualization environment."];
      diskStatus: String_.t option
        [@ocaml.doc "A value that represents the status of a local disk."];
      diskSizeInBytes: Long.t option
        [@ocaml.doc "The local disk size in bytes."];
      diskAllocationType: DiskAllocationType.t option ;
      diskAllocationResource: String_.t option
        [@ocaml.doc
          "The iSCSI qualified name (IQN) that is defined for a disk. This field is not included in the response if the local disk is not defined as an iSCSI target. The format of this field is targetIqn::LUNNumber::region-volumeId."];
      diskAttributeList: DiskAttributeList.t option }
    let make ?diskId =
      fun ?diskPath ->
        fun ?diskNode ->
          fun ?diskStatus ->
            fun ?diskSizeInBytes ->
              fun ?diskAllocationType ->
                fun ?diskAllocationResource ->
                  fun ?diskAttributeList ->
                    fun () ->
                      {
                        diskId;
                        diskPath;
                        diskNode;
                        diskStatus;
                        diskSizeInBytes;
                        diskAllocationType;
                        diskAllocationResource;
                        diskAttributeList
                      }
    let to_value x =
      structure_to_value
        [("DiskId", (Option.map x.diskId ~f:DiskId.to_value));
        ("DiskPath", (Option.map x.diskPath ~f:String_.to_value));
        ("DiskNode", (Option.map x.diskNode ~f:String_.to_value));
        ("DiskStatus", (Option.map x.diskStatus ~f:String_.to_value));
        ("DiskSizeInBytes", (Option.map x.diskSizeInBytes ~f:Long.to_value));
        ("DiskAllocationType",
          (Option.map x.diskAllocationType ~f:DiskAllocationType.to_value));
        ("DiskAllocationResource",
          (Option.map x.diskAllocationResource ~f:String_.to_value));
        ("DiskAttributeList",
          (Option.map x.diskAttributeList ~f:DiskAttributeList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diskAttributeList =
        (Option.map ~f:DiskAttributeList.of_xml)
          (Xml.child xml_arg0 "DiskAttributeList") in
      let diskAllocationResource =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "DiskAllocationResource") in
      let diskAllocationType =
        (Option.map ~f:DiskAllocationType.of_xml)
          (Xml.child xml_arg0 "DiskAllocationType") in
      let diskSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "DiskSizeInBytes") in
      let diskStatus =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DiskStatus") in
      let diskNode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DiskNode") in
      let diskPath =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "DiskPath") in
      let diskId =
        (Option.map ~f:DiskId.of_xml) (Xml.child xml_arg0 "DiskId") in
      make ?diskAttributeList ?diskAllocationResource ?diskAllocationType
        ?diskSizeInBytes ?diskStatus ?diskNode ?diskPath ?diskId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diskAttributeList =
        field_map json__ "DiskAttributeList" DiskAttributeList.of_json in
      let diskAllocationResource =
        field_map json__ "DiskAllocationResource" String_.of_json in
      let diskAllocationType =
        field_map json__ "DiskAllocationType" DiskAllocationType.of_json in
      let diskSizeInBytes = field_map json__ "DiskSizeInBytes" Long.of_json in
      let diskStatus = field_map json__ "DiskStatus" String_.of_json in
      let diskNode = field_map json__ "DiskNode" String_.of_json in
      let diskPath = field_map json__ "DiskPath" String_.of_json in
      let diskId = field_map json__ "DiskId" DiskId.of_json in
      make ?diskAttributeList ?diskAllocationResource ?diskAllocationType
        ?diskSizeInBytes ?diskStatus ?diskNode ?diskPath ?diskId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a gateway's local disk."]
module GatewayInfo =
  struct
    type nonrec t =
      {
      gatewayId: GatewayId.t option
        [@ocaml.doc
          "The unique identifier assigned to your gateway during activation. This ID becomes part of the gateway Amazon Resource Name (ARN), which you use as input for other operations."];
      gatewayARN: GatewayARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the gateway. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."];
      gatewayType: GatewayType.t option
        [@ocaml.doc
          "The type of the gateway. Amazon FSx File Gateway is no longer available to new customers. Existing customers of FSx File Gateway can continue to use the service normally. For capabilities similar to FSx File Gateway, visit this blog post."];
      gatewayOperationalState: GatewayOperationalState.t option
        [@ocaml.doc
          "The state of the gateway. Valid Values: DISABLED | ACTIVE"];
      gatewayName: String_.t option [@ocaml.doc "The name of the gateway."];
      ec2InstanceId: Ec2InstanceId.t option
        [@ocaml.doc
          "The ID of the Amazon EC2 instance that was used to launch the gateway."];
      ec2InstanceRegion: Ec2InstanceRegion.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the Amazon EC2 instance is located."];
      hostEnvironment: HostEnvironment.t option
        [@ocaml.doc
          "The type of hardware or software platform on which the gateway is running. Tape Gateway is no longer available on Snow Family devices."];
      hostEnvironmentId: HostEnvironmentId.t option
        [@ocaml.doc
          "A unique identifier for the specific instance of the host platform running the gateway. This value is only available for certain host environments, and its format depends on the host environment type."];
      deprecationDate: DeprecationDate.t option
        [@ocaml.doc
          "Date after which this gateway will not receive software updates for new features and bug fixes."];
      softwareVersion: SoftwareVersion.t option
        [@ocaml.doc
          "The version number of the software running on the gateway appliance."]}
    let make ?gatewayId =
      fun ?gatewayARN ->
        fun ?gatewayType ->
          fun ?gatewayOperationalState ->
            fun ?gatewayName ->
              fun ?ec2InstanceId ->
                fun ?ec2InstanceRegion ->
                  fun ?hostEnvironment ->
                    fun ?hostEnvironmentId ->
                      fun ?deprecationDate ->
                        fun ?softwareVersion ->
                          fun () ->
                            {
                              gatewayId;
                              gatewayARN;
                              gatewayType;
                              gatewayOperationalState;
                              gatewayName;
                              ec2InstanceId;
                              ec2InstanceRegion;
                              hostEnvironment;
                              hostEnvironmentId;
                              deprecationDate;
                              softwareVersion
                            }
    let to_value x =
      structure_to_value
        [("GatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("GatewayType", (Option.map x.gatewayType ~f:GatewayType.to_value));
        ("GatewayOperationalState",
          (Option.map x.gatewayOperationalState
             ~f:GatewayOperationalState.to_value));
        ("GatewayName", (Option.map x.gatewayName ~f:String_.to_value));
        ("Ec2InstanceId",
          (Option.map x.ec2InstanceId ~f:Ec2InstanceId.to_value));
        ("Ec2InstanceRegion",
          (Option.map x.ec2InstanceRegion ~f:Ec2InstanceRegion.to_value));
        ("HostEnvironment",
          (Option.map x.hostEnvironment ~f:HostEnvironment.to_value));
        ("HostEnvironmentId",
          (Option.map x.hostEnvironmentId ~f:HostEnvironmentId.to_value));
        ("DeprecationDate",
          (Option.map x.deprecationDate ~f:DeprecationDate.to_value));
        ("SoftwareVersion",
          (Option.map x.softwareVersion ~f:SoftwareVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let softwareVersion =
        (Option.map ~f:SoftwareVersion.of_xml)
          (Xml.child xml_arg0 "SoftwareVersion") in
      let deprecationDate =
        (Option.map ~f:DeprecationDate.of_xml)
          (Xml.child xml_arg0 "DeprecationDate") in
      let hostEnvironmentId =
        (Option.map ~f:HostEnvironmentId.of_xml)
          (Xml.child xml_arg0 "HostEnvironmentId") in
      let hostEnvironment =
        (Option.map ~f:HostEnvironment.of_xml)
          (Xml.child xml_arg0 "HostEnvironment") in
      let ec2InstanceRegion =
        (Option.map ~f:Ec2InstanceRegion.of_xml)
          (Xml.child xml_arg0 "Ec2InstanceRegion") in
      let ec2InstanceId =
        (Option.map ~f:Ec2InstanceId.of_xml)
          (Xml.child xml_arg0 "Ec2InstanceId") in
      let gatewayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "GatewayName") in
      let gatewayOperationalState =
        (Option.map ~f:GatewayOperationalState.of_xml)
          (Xml.child xml_arg0 "GatewayOperationalState") in
      let gatewayType =
        (Option.map ~f:GatewayType.of_xml) (Xml.child xml_arg0 "GatewayType") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "GatewayId") in
      make ?softwareVersion ?deprecationDate ?hostEnvironmentId
        ?hostEnvironment ?ec2InstanceRegion ?ec2InstanceId ?gatewayName
        ?gatewayOperationalState ?gatewayType ?gatewayARN ?gatewayId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let softwareVersion =
        field_map json__ "SoftwareVersion" SoftwareVersion.of_json in
      let deprecationDate =
        field_map json__ "DeprecationDate" DeprecationDate.of_json in
      let hostEnvironmentId =
        field_map json__ "HostEnvironmentId" HostEnvironmentId.of_json in
      let hostEnvironment =
        field_map json__ "HostEnvironment" HostEnvironment.of_json in
      let ec2InstanceRegion =
        field_map json__ "Ec2InstanceRegion" Ec2InstanceRegion.of_json in
      let ec2InstanceId =
        field_map json__ "Ec2InstanceId" Ec2InstanceId.of_json in
      let gatewayName = field_map json__ "GatewayName" String_.of_json in
      let gatewayOperationalState =
        field_map json__ "GatewayOperationalState"
          GatewayOperationalState.of_json in
      let gatewayType = field_map json__ "GatewayType" GatewayType.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let gatewayId = field_map json__ "GatewayId" GatewayId.of_json in
      make ?softwareVersion ?deprecationDate ?hostEnvironmentId
        ?hostEnvironment ?ec2InstanceRegion ?ec2InstanceId ?gatewayName
        ?gatewayOperationalState ?gatewayType ?gatewayARN ?gatewayId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a gateway object."]
module FileSystemAssociationSummary =
  struct
    type nonrec t =
      {
      fileSystemAssociationId: FileSystemAssociationId.t option
        [@ocaml.doc "The ID of the file system association."];
      fileSystemAssociationARN: FileSystemAssociationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file system association."];
      fileSystemAssociationStatus: FileSystemAssociationStatus.t option
        [@ocaml.doc
          "The status of the file share. Valid Values: AVAILABLE | CREATING | DELETING | FORCE_DELETING | UPDATING | ERROR"];
      gatewayARN: GatewayARN.t option }
    let make ?fileSystemAssociationId =
      fun ?fileSystemAssociationARN ->
        fun ?fileSystemAssociationStatus ->
          fun ?gatewayARN ->
            fun () ->
              {
                fileSystemAssociationId;
                fileSystemAssociationARN;
                fileSystemAssociationStatus;
                gatewayARN
              }
    let to_value x =
      structure_to_value
        [("FileSystemAssociationId",
           (Option.map x.fileSystemAssociationId
              ~f:FileSystemAssociationId.to_value));
        ("FileSystemAssociationARN",
          (Option.map x.fileSystemAssociationARN
             ~f:FileSystemAssociationARN.to_value));
        ("FileSystemAssociationStatus",
          (Option.map x.fileSystemAssociationStatus
             ~f:FileSystemAssociationStatus.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let fileSystemAssociationStatus =
        (Option.map ~f:FileSystemAssociationStatus.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationStatus") in
      let fileSystemAssociationARN =
        (Option.map ~f:FileSystemAssociationARN.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationARN") in
      let fileSystemAssociationId =
        (Option.map ~f:FileSystemAssociationId.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationId") in
      make ?gatewayARN ?fileSystemAssociationStatus ?fileSystemAssociationARN
        ?fileSystemAssociationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let fileSystemAssociationStatus =
        field_map json__ "FileSystemAssociationStatus"
          FileSystemAssociationStatus.of_json in
      let fileSystemAssociationARN =
        field_map json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      let fileSystemAssociationId =
        field_map json__ "FileSystemAssociationId"
          FileSystemAssociationId.of_json in
      make ?gatewayARN ?fileSystemAssociationStatus ?fileSystemAssociationARN
        ?fileSystemAssociationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the summary returned by ListFileSystemAssociation, which is a summary of a created file system association."]
module FileShareInfo =
  struct
    type nonrec t =
      {
      fileShareType: FileShareType.t option ;
      fileShareARN: FileShareARN.t option ;
      fileShareId: FileShareId.t option ;
      fileShareStatus: FileShareStatus.t option ;
      gatewayARN: GatewayARN.t option }
    let make ?fileShareType =
      fun ?fileShareARN ->
        fun ?fileShareId ->
          fun ?fileShareStatus ->
            fun ?gatewayARN ->
              fun () ->
                {
                  fileShareType;
                  fileShareARN;
                  fileShareId;
                  fileShareStatus;
                  gatewayARN
                }
    let to_value x =
      structure_to_value
        [("FileShareType",
           (Option.map x.fileShareType ~f:FileShareType.to_value));
        ("FileShareARN",
          (Option.map x.fileShareARN ~f:FileShareARN.to_value));
        ("FileShareId", (Option.map x.fileShareId ~f:FileShareId.to_value));
        ("FileShareStatus",
          (Option.map x.fileShareStatus ~f:FileShareStatus.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let fileShareStatus =
        (Option.map ~f:FileShareStatus.of_xml)
          (Xml.child xml_arg0 "FileShareStatus") in
      let fileShareId =
        (Option.map ~f:FileShareId.of_xml) (Xml.child xml_arg0 "FileShareId") in
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      let fileShareType =
        (Option.map ~f:FileShareType.of_xml)
          (Xml.child xml_arg0 "FileShareType") in
      make ?gatewayARN ?fileShareStatus ?fileShareId ?fileShareARN
        ?fileShareType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let fileShareStatus =
        field_map json__ "FileShareStatus" FileShareStatus.of_json in
      let fileShareId = field_map json__ "FileShareId" FileShareId.of_json in
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      let fileShareType =
        field_map json__ "FileShareType" FileShareType.of_json in
      make ?gatewayARN ?fileShareStatus ?fileShareId ?fileShareARN
        ?fileShareType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a file share. Only supported S3 File Gateway."]
module CacheReportInfo =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report you want to describe."];
      cacheReportStatus: CacheReportStatus.t option
        [@ocaml.doc "The status of the specified cache report."];
      reportCompletionPercent: ReportCompletionPercent.t option
        [@ocaml.doc
          "The percentage of the report generation process that has been completed at time of inquiry."];
      endTime: Time.t option
        [@ocaml.doc
          "The time at which the gateway stopped generating the cache report."];
      role: Role.t option ;
      fileShareARN: FileShareARN.t option ;
      locationARN: LocationARN.t option
        [@ocaml.doc
          "The ARN of the Amazon S3 bucket location where the cache report is saved."];
      startTime: Time.t option
        [@ocaml.doc
          "The time at which the gateway started generating the cache report."];
      inclusionFilters: CacheReportFilterList.t option
        [@ocaml.doc
          "The list of filters and parameters that determine which files are included in the report."];
      exclusionFilters: CacheReportFilterList.t option
        [@ocaml.doc
          "The list of filters and parameters that determine which files are excluded from the report."];
      reportName: CacheReportName.t option
        [@ocaml.doc
          "The file name of the completed cache report object stored in Amazon S3."];
      tags: Tags.t option
        [@ocaml.doc "The list of key/value tags associated with the report."]}
    let make ?cacheReportARN =
      fun ?cacheReportStatus ->
        fun ?reportCompletionPercent ->
          fun ?endTime ->
            fun ?role ->
              fun ?fileShareARN ->
                fun ?locationARN ->
                  fun ?startTime ->
                    fun ?inclusionFilters ->
                      fun ?exclusionFilters ->
                        fun ?reportName ->
                          fun ?tags ->
                            fun () ->
                              {
                                cacheReportARN;
                                cacheReportStatus;
                                reportCompletionPercent;
                                endTime;
                                role;
                                fileShareARN;
                                locationARN;
                                startTime;
                                inclusionFilters;
                                exclusionFilters;
                                reportName;
                                tags
                              }
    let to_value x =
      structure_to_value
        [("CacheReportARN",
           (Option.map x.cacheReportARN ~f:CacheReportARN.to_value));
        ("CacheReportStatus",
          (Option.map x.cacheReportStatus ~f:CacheReportStatus.to_value));
        ("ReportCompletionPercent",
          (Option.map x.reportCompletionPercent
             ~f:ReportCompletionPercent.to_value));
        ("EndTime", (Option.map x.endTime ~f:Time.to_value));
        ("Role", (Option.map x.role ~f:Role.to_value));
        ("FileShareARN",
          (Option.map x.fileShareARN ~f:FileShareARN.to_value));
        ("LocationARN", (Option.map x.locationARN ~f:LocationARN.to_value));
        ("StartTime", (Option.map x.startTime ~f:Time.to_value));
        ("InclusionFilters",
          (Option.map x.inclusionFilters ~f:CacheReportFilterList.to_value));
        ("ExclusionFilters",
          (Option.map x.exclusionFilters ~f:CacheReportFilterList.to_value));
        ("ReportName", (Option.map x.reportName ~f:CacheReportName.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let reportName =
        (Option.map ~f:CacheReportName.of_xml)
          (Xml.child xml_arg0 "ReportName") in
      let exclusionFilters =
        (Option.map ~f:CacheReportFilterList.of_xml)
          (Xml.child xml_arg0 "ExclusionFilters") in
      let inclusionFilters =
        (Option.map ~f:CacheReportFilterList.of_xml)
          (Xml.child xml_arg0 "InclusionFilters") in
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "StartTime") in
      let locationARN =
        (Option.map ~f:LocationARN.of_xml) (Xml.child xml_arg0 "LocationARN") in
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      let role = (Option.map ~f:Role.of_xml) (Xml.child xml_arg0 "Role") in
      let endTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "EndTime") in
      let reportCompletionPercent =
        (Option.map ~f:ReportCompletionPercent.of_xml)
          (Xml.child xml_arg0 "ReportCompletionPercent") in
      let cacheReportStatus =
        (Option.map ~f:CacheReportStatus.of_xml)
          (Xml.child xml_arg0 "CacheReportStatus") in
      let cacheReportARN =
        (Option.map ~f:CacheReportARN.of_xml)
          (Xml.child xml_arg0 "CacheReportARN") in
      make ?tags ?reportName ?exclusionFilters ?inclusionFilters ?startTime
        ?locationARN ?fileShareARN ?role ?endTime ?reportCompletionPercent
        ?cacheReportStatus ?cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let reportName = field_map json__ "ReportName" CacheReportName.of_json in
      let exclusionFilters =
        field_map json__ "ExclusionFilters" CacheReportFilterList.of_json in
      let inclusionFilters =
        field_map json__ "InclusionFilters" CacheReportFilterList.of_json in
      let startTime = field_map json__ "StartTime" Time.of_json in
      let locationARN = field_map json__ "LocationARN" LocationARN.of_json in
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      let role = field_map json__ "Role" Role.of_json in
      let endTime = field_map json__ "EndTime" Time.of_json in
      let reportCompletionPercent =
        field_map json__ "ReportCompletionPercent"
          ReportCompletionPercent.of_json in
      let cacheReportStatus =
        field_map json__ "CacheReportStatus" CacheReportStatus.of_json in
      let cacheReportARN =
        field_map json__ "CacheReportARN" CacheReportARN.of_json in
      make ?tags ?reportName ?exclusionFilters ?inclusionFilters ?startTime
        ?locationARN ?fileShareARN ?role ?endTime ?reportCompletionPercent
        ?cacheReportStatus ?cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains all informational fields associated with a cache report. Includes name, ARN, tags, status, progress, filters, start time, and end time."]
module AutomaticTapeCreationPolicyInfo =
  struct
    type nonrec t =
      {
      automaticTapeCreationRules: AutomaticTapeCreationRules.t option
        [@ocaml.doc
          "An automatic tape creation policy consists of a list of automatic tape creation rules. This returns the rules that determine when and how to automatically create new tapes."];
      gatewayARN: GatewayARN.t option }
    let make ?automaticTapeCreationRules =
      fun ?gatewayARN -> fun () -> { automaticTapeCreationRules; gatewayARN }
    let to_value x =
      structure_to_value
        [("AutomaticTapeCreationRules",
           (Option.map x.automaticTapeCreationRules
              ~f:AutomaticTapeCreationRules.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let automaticTapeCreationRules =
        (Option.map ~f:AutomaticTapeCreationRules.of_xml)
          (Xml.child xml_arg0 "AutomaticTapeCreationRules") in
      make ?gatewayARN ?automaticTapeCreationRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let automaticTapeCreationRules =
        field_map json__ "AutomaticTapeCreationRules"
          AutomaticTapeCreationRules.of_json in
      make ?gatewayARN ?automaticTapeCreationRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the gateway's automatic tape creation policies, including the automatic tape creation rules and the gateway that is using the policies."]
module Host =
  struct
    type nonrec t = string
    let context_ = "Host"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^(([a-zA-Z0-9\\-]*[a-zA-Z0-9])\\.)*([A-Za-z0-9\\-]*[A-Za-z0-9])(:(\\d+))?$|^(?:\\[(?:(?:(?:[A-Fa-f0-9]{1,4}:){6}|(?=(?:[A-Fa-f0-9]{0,4}:){0,6}(?:[0-9]{1,3}\\.){3}[0-9]{1,3}(?![:.\\w]))(?:(?:[0-9A-Fa-f]{1,4}:){0,5}|:)(?:(?::[0-9A-Fa-f]{1,4}){1,5}:|:)|::(?:[A-Fa-f0-9]{1,4}:){5})(?:(?:25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9]?[0-9])\\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)|(?:[A-Fa-f0-9]{1,4}:){7}[A-Fa-f0-9]{1,4}|(?=(?:[A-Fa-f0-9]{0,4}:){0,7}[A-Fa-f0-9]{0,4}(?![:.\\w]))(?:(?:[0-9A-Fa-f]{1,4}:){1,7}|:)(?:(:[0-9A-Fa-f]{1,4}){1,7}|:)|(?:[A-Fa-f0-9]{1,4}:){7}:|:(:[A-Fa-f0-9]{1,4}){7})\\]:\\d+$|^(?:(?:(?:[A-Fa-f0-9]{1,4}:){6}|(?=(?:[A-Fa-f0-9]{0,4}:){0,6}(?:[0-9]{1,3}\\.){3}[0-9]{1,3}(?![:.\\w]))(?:(?:[0-9A-Fa-f]{1,4}:){0,5}|:)(?:(?::[0-9A-Fa-f]{1,4}){1,5}:|:)|::(?:[A-Fa-f0-9]{1,4}:){5})(?:(?:25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9]?[0-9])\\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)|(?:[A-Fa-f0-9]{1,4}:){7}[A-Fa-f0-9]{1,4}|(?=(?:[A-Fa-f0-9]{0,4}:){0,7}[A-Fa-f0-9]{0,4}(?![:.\\w]))(?:(?:[0-9A-Fa-f]{1,4}:){1,7}|:)(?:(:[0-9A-Fa-f]{1,4}){1,7}|:)|(?:[A-Fa-f0-9]{1,4}:){7}:|:(:[A-Fa-f0-9]{1,4}){7})$)")));
        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:"Host" j
    let to_json = simple_to_json to_value
  end
module VTLDevice =
  struct
    type nonrec t =
      {
      vTLDeviceARN: VTLDeviceARN.t option
        [@ocaml.doc
          "Specifies the unique Amazon Resource Name (ARN) of the device (tape drive or media changer)."];
      vTLDeviceType: VTLDeviceType.t option
        [@ocaml.doc
          "Specifies the type of device that the VTL device emulates."];
      vTLDeviceVendor: VTLDeviceVendor.t option
        [@ocaml.doc
          "Specifies the vendor of the device that the VTL device object emulates."];
      vTLDeviceProductIdentifier: VTLDeviceProductIdentifier.t option
        [@ocaml.doc
          "Specifies the model number of device that the VTL device emulates."];
      deviceiSCSIAttributes: DeviceiSCSIAttributes.t option
        [@ocaml.doc "A list of iSCSI information about a VTL device."]}
    let make ?vTLDeviceARN =
      fun ?vTLDeviceType ->
        fun ?vTLDeviceVendor ->
          fun ?vTLDeviceProductIdentifier ->
            fun ?deviceiSCSIAttributes ->
              fun () ->
                {
                  vTLDeviceARN;
                  vTLDeviceType;
                  vTLDeviceVendor;
                  vTLDeviceProductIdentifier;
                  deviceiSCSIAttributes
                }
    let to_value x =
      structure_to_value
        [("VTLDeviceARN",
           (Option.map x.vTLDeviceARN ~f:VTLDeviceARN.to_value));
        ("VTLDeviceType",
          (Option.map x.vTLDeviceType ~f:VTLDeviceType.to_value));
        ("VTLDeviceVendor",
          (Option.map x.vTLDeviceVendor ~f:VTLDeviceVendor.to_value));
        ("VTLDeviceProductIdentifier",
          (Option.map x.vTLDeviceProductIdentifier
             ~f:VTLDeviceProductIdentifier.to_value));
        ("DeviceiSCSIAttributes",
          (Option.map x.deviceiSCSIAttributes
             ~f:DeviceiSCSIAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceiSCSIAttributes =
        (Option.map ~f:DeviceiSCSIAttributes.of_xml)
          (Xml.child xml_arg0 "DeviceiSCSIAttributes") in
      let vTLDeviceProductIdentifier =
        (Option.map ~f:VTLDeviceProductIdentifier.of_xml)
          (Xml.child xml_arg0 "VTLDeviceProductIdentifier") in
      let vTLDeviceVendor =
        (Option.map ~f:VTLDeviceVendor.of_xml)
          (Xml.child xml_arg0 "VTLDeviceVendor") in
      let vTLDeviceType =
        (Option.map ~f:VTLDeviceType.of_xml)
          (Xml.child xml_arg0 "VTLDeviceType") in
      let vTLDeviceARN =
        (Option.map ~f:VTLDeviceARN.of_xml)
          (Xml.child xml_arg0 "VTLDeviceARN") in
      make ?deviceiSCSIAttributes ?vTLDeviceProductIdentifier
        ?vTLDeviceVendor ?vTLDeviceType ?vTLDeviceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceiSCSIAttributes =
        field_map json__ "DeviceiSCSIAttributes"
          DeviceiSCSIAttributes.of_json in
      let vTLDeviceProductIdentifier =
        field_map json__ "VTLDeviceProductIdentifier"
          VTLDeviceProductIdentifier.of_json in
      let vTLDeviceVendor =
        field_map json__ "VTLDeviceVendor" VTLDeviceVendor.of_json in
      let vTLDeviceType =
        field_map json__ "VTLDeviceType" VTLDeviceType.of_json in
      let vTLDeviceARN = field_map json__ "VTLDeviceARN" VTLDeviceARN.of_json in
      make ?deviceiSCSIAttributes ?vTLDeviceProductIdentifier
        ?vTLDeviceVendor ?vTLDeviceType ?vTLDeviceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a device object associated with a tape gateway."]
module Tape =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the virtual tape."];
      tapeBarcode: TapeBarcode.t option
        [@ocaml.doc "The barcode that identifies a specific virtual tape."];
      tapeCreatedDate: Time.t option
        [@ocaml.doc "The date the virtual tape was created."];
      tapeSizeInBytes: TapeSize.t option
        [@ocaml.doc "The size, in bytes, of the virtual tape capacity."];
      tapeStatus: TapeStatus.t option
        [@ocaml.doc "The current state of the virtual tape."];
      vTLDevice: VTLDeviceARN.t option
        [@ocaml.doc
          "The virtual tape library (VTL) device that the virtual tape is associated with."];
      progress: DoubleObject.t option
        [@ocaml.doc
          "For archiving virtual tapes, indicates how much data remains to be uploaded before archiving is complete. Range: 0 (not started) to 100 (complete)."];
      tapeUsedInBytes: TapeUsage.t option
        [@ocaml.doc
          "The size, in bytes, of data stored on the virtual tape. This value is not available for tapes created prior to May 13, 2015."];
      kMSKey: KMSKey.t option ;
      poolId: PoolId.t option
        [@ocaml.doc
          "The ID of the pool that contains tapes that will be archived. The tapes in this pool are archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      worm: Boolean__lc1.t option
        [@ocaml.doc
          "If the tape is archived as write-once-read-many (WORM), this value is true."];
      retentionStartDate: Time.t option
        [@ocaml.doc
          "The date that the tape is first archived with tape retention lock enabled."];
      poolEntryDate: Time.t option
        [@ocaml.doc "The date that the tape enters a custom tape pool."]}
    let make ?tapeARN =
      fun ?tapeBarcode ->
        fun ?tapeCreatedDate ->
          fun ?tapeSizeInBytes ->
            fun ?tapeStatus ->
              fun ?vTLDevice ->
                fun ?progress ->
                  fun ?tapeUsedInBytes ->
                    fun ?kMSKey ->
                      fun ?poolId ->
                        fun ?worm ->
                          fun ?retentionStartDate ->
                            fun ?poolEntryDate ->
                              fun () ->
                                {
                                  tapeARN;
                                  tapeBarcode;
                                  tapeCreatedDate;
                                  tapeSizeInBytes;
                                  tapeStatus;
                                  vTLDevice;
                                  progress;
                                  tapeUsedInBytes;
                                  kMSKey;
                                  poolId;
                                  worm;
                                  retentionStartDate;
                                  poolEntryDate
                                }
    let to_value x =
      structure_to_value
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value));
        ("TapeBarcode", (Option.map x.tapeBarcode ~f:TapeBarcode.to_value));
        ("TapeCreatedDate", (Option.map x.tapeCreatedDate ~f:Time.to_value));
        ("TapeSizeInBytes",
          (Option.map x.tapeSizeInBytes ~f:TapeSize.to_value));
        ("TapeStatus", (Option.map x.tapeStatus ~f:TapeStatus.to_value));
        ("VTLDevice", (Option.map x.vTLDevice ~f:VTLDeviceARN.to_value));
        ("Progress", (Option.map x.progress ~f:DoubleObject.to_value));
        ("TapeUsedInBytes",
          (Option.map x.tapeUsedInBytes ~f:TapeUsage.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolId.to_value));
        ("Worm", (Option.map x.worm ~f:Boolean__lc1.to_value));
        ("RetentionStartDate",
          (Option.map x.retentionStartDate ~f:Time.to_value));
        ("PoolEntryDate", (Option.map x.poolEntryDate ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolEntryDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "PoolEntryDate") in
      let retentionStartDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "RetentionStartDate") in
      let worm =
        (Option.map ~f:Boolean__lc1.of_xml) (Xml.child xml_arg0 "Worm") in
      let poolId =
        (Option.map ~f:PoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let tapeUsedInBytes =
        (Option.map ~f:TapeUsage.of_xml)
          (Xml.child xml_arg0 "TapeUsedInBytes") in
      let progress =
        (Option.map ~f:DoubleObject.of_xml) (Xml.child xml_arg0 "Progress") in
      let vTLDevice =
        (Option.map ~f:VTLDeviceARN.of_xml) (Xml.child xml_arg0 "VTLDevice") in
      let tapeStatus =
        (Option.map ~f:TapeStatus.of_xml) (Xml.child xml_arg0 "TapeStatus") in
      let tapeSizeInBytes =
        (Option.map ~f:TapeSize.of_xml)
          (Xml.child xml_arg0 "TapeSizeInBytes") in
      let tapeCreatedDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "TapeCreatedDate") in
      let tapeBarcode =
        (Option.map ~f:TapeBarcode.of_xml) (Xml.child xml_arg0 "TapeBarcode") in
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?poolEntryDate ?retentionStartDate ?worm ?poolId ?kMSKey
        ?tapeUsedInBytes ?progress ?vTLDevice ?tapeStatus ?tapeSizeInBytes
        ?tapeCreatedDate ?tapeBarcode ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolEntryDate = field_map json__ "PoolEntryDate" Time.of_json in
      let retentionStartDate =
        field_map json__ "RetentionStartDate" Time.of_json in
      let worm = field_map json__ "Worm" Boolean__lc1.of_json in
      let poolId = field_map json__ "PoolId" PoolId.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let tapeUsedInBytes =
        field_map json__ "TapeUsedInBytes" TapeUsage.of_json in
      let progress = field_map json__ "Progress" DoubleObject.of_json in
      let vTLDevice = field_map json__ "VTLDevice" VTLDeviceARN.of_json in
      let tapeStatus = field_map json__ "TapeStatus" TapeStatus.of_json in
      let tapeSizeInBytes =
        field_map json__ "TapeSizeInBytes" TapeSize.of_json in
      let tapeCreatedDate = field_map json__ "TapeCreatedDate" Time.of_json in
      let tapeBarcode = field_map json__ "TapeBarcode" TapeBarcode.of_json in
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?poolEntryDate ?retentionStartDate ?worm ?poolId ?kMSKey
        ?tapeUsedInBytes ?progress ?vTLDevice ?tapeStatus ?tapeSizeInBytes
        ?tapeCreatedDate ?tapeBarcode ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a virtual tape object."]
module TapeRecoveryPointInfo =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the virtual tape."];
      tapeRecoveryPointTime: Time.t option
        [@ocaml.doc
          "The time when the point-in-time view of the virtual tape was replicated for later recovery. The default timestamp format of the tape recovery point time is in the ISO8601 extended YYYY-MM-DD'T'HH:MM:SS'Z' format."];
      tapeSizeInBytes: TapeSize.t option
        [@ocaml.doc "The size, in bytes, of the virtual tapes to recover."];
      tapeStatus: TapeRecoveryPointStatus.t option
        [@ocaml.doc "The status of the virtual tapes."]}
    let make ?tapeARN =
      fun ?tapeRecoveryPointTime ->
        fun ?tapeSizeInBytes ->
          fun ?tapeStatus ->
            fun () ->
              { tapeARN; tapeRecoveryPointTime; tapeSizeInBytes; tapeStatus }
    let to_value x =
      structure_to_value
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value));
        ("TapeRecoveryPointTime",
          (Option.map x.tapeRecoveryPointTime ~f:Time.to_value));
        ("TapeSizeInBytes",
          (Option.map x.tapeSizeInBytes ~f:TapeSize.to_value));
        ("TapeStatus",
          (Option.map x.tapeStatus ~f:TapeRecoveryPointStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeStatus =
        (Option.map ~f:TapeRecoveryPointStatus.of_xml)
          (Xml.child xml_arg0 "TapeStatus") in
      let tapeSizeInBytes =
        (Option.map ~f:TapeSize.of_xml)
          (Xml.child xml_arg0 "TapeSizeInBytes") in
      let tapeRecoveryPointTime =
        (Option.map ~f:Time.of_xml)
          (Xml.child xml_arg0 "TapeRecoveryPointTime") in
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeStatus ?tapeSizeInBytes ?tapeRecoveryPointTime ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeStatus =
        field_map json__ "TapeStatus" TapeRecoveryPointStatus.of_json in
      let tapeSizeInBytes =
        field_map json__ "TapeSizeInBytes" TapeSize.of_json in
      let tapeRecoveryPointTime =
        field_map json__ "TapeRecoveryPointTime" Time.of_json in
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeStatus ?tapeSizeInBytes ?tapeRecoveryPointTime ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a recovery point."]
module TapeArchive =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of an archived virtual tape."];
      tapeBarcode: TapeBarcode.t option
        [@ocaml.doc "The barcode that identifies the archived virtual tape."];
      tapeCreatedDate: Time.t option
        [@ocaml.doc "The date the virtual tape was created."];
      tapeSizeInBytes: TapeSize.t option
        [@ocaml.doc "The size, in bytes, of the archived virtual tape."];
      completionTime: Time.t option
        [@ocaml.doc
          "The time that the archiving of the virtual tape was completed. The default timestamp format is in the ISO8601 extended YYYY-MM-DD'T'HH:MM:SS'Z' format."];
      retrievedTo: GatewayARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the tape gateway that the virtual tape is being retrieved to. The virtual tape is retrieved from the virtual tape shelf (VTS)."];
      tapeStatus: TapeArchiveStatus.t option
        [@ocaml.doc "The current state of the archived virtual tape."];
      tapeUsedInBytes: TapeUsage.t option
        [@ocaml.doc
          "The size, in bytes, of data stored on the virtual tape. This value is not available for tapes created prior to May 13, 2015."];
      kMSKey: KMSKey.t option ;
      poolId: PoolId.t option
        [@ocaml.doc
          "The ID of the pool that was used to archive the tape. The tapes in this pool are archived in the S3 storage class that is associated with the pool."];
      worm: Boolean__lc1.t option
        [@ocaml.doc
          "Set to true if the archived tape is stored as write-once-read-many (WORM)."];
      retentionStartDate: Time.t option
        [@ocaml.doc
          "If the archived tape is subject to tape retention lock, the date that the archived tape started being retained."];
      poolEntryDate: Time.t option
        [@ocaml.doc
          "The time that the tape entered the custom tape pool. The default timestamp format is in the ISO8601 extended YYYY-MM-DD'T'HH:MM:SS'Z' format."]}
    let make ?tapeARN =
      fun ?tapeBarcode ->
        fun ?tapeCreatedDate ->
          fun ?tapeSizeInBytes ->
            fun ?completionTime ->
              fun ?retrievedTo ->
                fun ?tapeStatus ->
                  fun ?tapeUsedInBytes ->
                    fun ?kMSKey ->
                      fun ?poolId ->
                        fun ?worm ->
                          fun ?retentionStartDate ->
                            fun ?poolEntryDate ->
                              fun () ->
                                {
                                  tapeARN;
                                  tapeBarcode;
                                  tapeCreatedDate;
                                  tapeSizeInBytes;
                                  completionTime;
                                  retrievedTo;
                                  tapeStatus;
                                  tapeUsedInBytes;
                                  kMSKey;
                                  poolId;
                                  worm;
                                  retentionStartDate;
                                  poolEntryDate
                                }
    let to_value x =
      structure_to_value
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value));
        ("TapeBarcode", (Option.map x.tapeBarcode ~f:TapeBarcode.to_value));
        ("TapeCreatedDate", (Option.map x.tapeCreatedDate ~f:Time.to_value));
        ("TapeSizeInBytes",
          (Option.map x.tapeSizeInBytes ~f:TapeSize.to_value));
        ("CompletionTime", (Option.map x.completionTime ~f:Time.to_value));
        ("RetrievedTo", (Option.map x.retrievedTo ~f:GatewayARN.to_value));
        ("TapeStatus",
          (Option.map x.tapeStatus ~f:TapeArchiveStatus.to_value));
        ("TapeUsedInBytes",
          (Option.map x.tapeUsedInBytes ~f:TapeUsage.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolId.to_value));
        ("Worm", (Option.map x.worm ~f:Boolean__lc1.to_value));
        ("RetentionStartDate",
          (Option.map x.retentionStartDate ~f:Time.to_value));
        ("PoolEntryDate", (Option.map x.poolEntryDate ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolEntryDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "PoolEntryDate") in
      let retentionStartDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "RetentionStartDate") in
      let worm =
        (Option.map ~f:Boolean__lc1.of_xml) (Xml.child xml_arg0 "Worm") in
      let poolId =
        (Option.map ~f:PoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let tapeUsedInBytes =
        (Option.map ~f:TapeUsage.of_xml)
          (Xml.child xml_arg0 "TapeUsedInBytes") in
      let tapeStatus =
        (Option.map ~f:TapeArchiveStatus.of_xml)
          (Xml.child xml_arg0 "TapeStatus") in
      let retrievedTo =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "RetrievedTo") in
      let completionTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "CompletionTime") in
      let tapeSizeInBytes =
        (Option.map ~f:TapeSize.of_xml)
          (Xml.child xml_arg0 "TapeSizeInBytes") in
      let tapeCreatedDate =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "TapeCreatedDate") in
      let tapeBarcode =
        (Option.map ~f:TapeBarcode.of_xml) (Xml.child xml_arg0 "TapeBarcode") in
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?poolEntryDate ?retentionStartDate ?worm ?poolId ?kMSKey
        ?tapeUsedInBytes ?tapeStatus ?retrievedTo ?completionTime
        ?tapeSizeInBytes ?tapeCreatedDate ?tapeBarcode ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolEntryDate = field_map json__ "PoolEntryDate" Time.of_json in
      let retentionStartDate =
        field_map json__ "RetentionStartDate" Time.of_json in
      let worm = field_map json__ "Worm" Boolean__lc1.of_json in
      let poolId = field_map json__ "PoolId" PoolId.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let tapeUsedInBytes =
        field_map json__ "TapeUsedInBytes" TapeUsage.of_json in
      let tapeStatus =
        field_map json__ "TapeStatus" TapeArchiveStatus.of_json in
      let retrievedTo = field_map json__ "RetrievedTo" GatewayARN.of_json in
      let completionTime = field_map json__ "CompletionTime" Time.of_json in
      let tapeSizeInBytes =
        field_map json__ "TapeSizeInBytes" TapeSize.of_json in
      let tapeCreatedDate = field_map json__ "TapeCreatedDate" Time.of_json in
      let tapeBarcode = field_map json__ "TapeBarcode" TapeBarcode.of_json in
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?poolEntryDate ?retentionStartDate ?worm ?poolId ?kMSKey
        ?tapeUsedInBytes ?tapeStatus ?retrievedTo ?completionTime
        ?tapeSizeInBytes ?tapeCreatedDate ?tapeBarcode ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a virtual tape that is archived in the virtual tape shelf (VTS)."]
module StorediSCSIVolume =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the storage volume."];
      volumeId: VolumeId.t option
        [@ocaml.doc
          "The unique identifier of the volume, e.g., vol-AE4B946D."];
      volumeType: VolumeType.t option
        [@ocaml.doc
          "One of the VolumeType enumeration values describing the type of the volume."];
      volumeStatus: VolumeStatus.t option
        [@ocaml.doc
          "One of the VolumeStatus values that indicates the state of the storage volume."];
      volumeAttachmentStatus: VolumeAttachmentStatus.t option
        [@ocaml.doc
          "A value that indicates whether a storage volume is attached to, detached from, or is in the process of detaching from a gateway. For more information, see Moving your volumes to a different gateway."];
      volumeSizeInBytes: Long.t option
        [@ocaml.doc "The size of the volume in bytes."];
      volumeProgress: DoubleObject.t option
        [@ocaml.doc
          "Represents the percentage complete if the volume is restoring or bootstrapping that represents the percent of data transferred. This field does not appear in the response if the stored volume is not restoring or bootstrapping."];
      volumeDiskId: DiskId.t option
        [@ocaml.doc
          "The ID of the local disk that was specified in the CreateStorediSCSIVolume operation."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "If the stored volume was created from a snapshot, this field contains the snapshot ID used, e.g. snap-78e22663. Otherwise, this field is not included."];
      preservedExistingData: Boolean__lc1.t option
        [@ocaml.doc
          "Indicates if when the stored volume was created, existing data on the underlying local disk was preserved. Valid Values: true | false"];
      volumeiSCSIAttributes: VolumeiSCSIAttributes.t option
        [@ocaml.doc
          "An VolumeiSCSIAttributes object that represents a collection of iSCSI attributes for one stored volume."];
      createdDate: CreatedDate.t option
        [@ocaml.doc
          "The date the volume was created. Volumes created prior to March 28, 2017 don\226\128\153t have this timestamp."];
      volumeUsedInBytes: VolumeUsedInBytes.t option
        [@ocaml.doc
          "The size of the data stored on the volume in bytes. This value is calculated based on the number of blocks that are touched, instead of the actual amount of data written. This value can be useful for sequential write patterns but less accurate for random write patterns. VolumeUsedInBytes is different from the compressed size of the volume, which is the value that is used to calculate your bill. This value is not available for volumes created prior to May 13, 2015, until you store data on the volume."];
      kMSKey: KMSKey.t option ;
      targetName: TargetName.t option
        [@ocaml.doc
          "The name of the iSCSI target used by an initiator to connect to a volume and used as a suffix for the target ARN. For example, specifying TargetName as myvolume results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes on a gateway. If you don't specify a value, Storage Gateway uses the value that was previously used for this volume as the new target name."]}
    let make ?volumeARN =
      fun ?volumeId ->
        fun ?volumeType ->
          fun ?volumeStatus ->
            fun ?volumeAttachmentStatus ->
              fun ?volumeSizeInBytes ->
                fun ?volumeProgress ->
                  fun ?volumeDiskId ->
                    fun ?sourceSnapshotId ->
                      fun ?preservedExistingData ->
                        fun ?volumeiSCSIAttributes ->
                          fun ?createdDate ->
                            fun ?volumeUsedInBytes ->
                              fun ?kMSKey ->
                                fun ?targetName ->
                                  fun () ->
                                    {
                                      volumeARN;
                                      volumeId;
                                      volumeType;
                                      volumeStatus;
                                      volumeAttachmentStatus;
                                      volumeSizeInBytes;
                                      volumeProgress;
                                      volumeDiskId;
                                      sourceSnapshotId;
                                      preservedExistingData;
                                      volumeiSCSIAttributes;
                                      createdDate;
                                      volumeUsedInBytes;
                                      kMSKey;
                                      targetName
                                    }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("VolumeId", (Option.map x.volumeId ~f:VolumeId.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:VolumeType.to_value));
        ("VolumeStatus",
          (Option.map x.volumeStatus ~f:VolumeStatus.to_value));
        ("VolumeAttachmentStatus",
          (Option.map x.volumeAttachmentStatus
             ~f:VolumeAttachmentStatus.to_value));
        ("VolumeSizeInBytes",
          (Option.map x.volumeSizeInBytes ~f:Long.to_value));
        ("VolumeProgress",
          (Option.map x.volumeProgress ~f:DoubleObject.to_value));
        ("VolumeDiskId", (Option.map x.volumeDiskId ~f:DiskId.to_value));
        ("SourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("PreservedExistingData",
          (Option.map x.preservedExistingData ~f:Boolean__lc1.to_value));
        ("VolumeiSCSIAttributes",
          (Option.map x.volumeiSCSIAttributes
             ~f:VolumeiSCSIAttributes.to_value));
        ("CreatedDate", (Option.map x.createdDate ~f:CreatedDate.to_value));
        ("VolumeUsedInBytes",
          (Option.map x.volumeUsedInBytes ~f:VolumeUsedInBytes.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("TargetName", (Option.map x.targetName ~f:TargetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetName =
        (Option.map ~f:TargetName.of_xml) (Xml.child xml_arg0 "TargetName") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let volumeUsedInBytes =
        (Option.map ~f:VolumeUsedInBytes.of_xml)
          (Xml.child xml_arg0 "VolumeUsedInBytes") in
      let createdDate =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "CreatedDate") in
      let volumeiSCSIAttributes =
        (Option.map ~f:VolumeiSCSIAttributes.of_xml)
          (Xml.child xml_arg0 "VolumeiSCSIAttributes") in
      let preservedExistingData =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "PreservedExistingData") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "SourceSnapshotId") in
      let volumeDiskId =
        (Option.map ~f:DiskId.of_xml) (Xml.child xml_arg0 "VolumeDiskId") in
      let volumeProgress =
        (Option.map ~f:DoubleObject.of_xml)
          (Xml.child xml_arg0 "VolumeProgress") in
      let volumeSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "VolumeSizeInBytes") in
      let volumeAttachmentStatus =
        (Option.map ~f:VolumeAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "VolumeAttachmentStatus") in
      let volumeStatus =
        (Option.map ~f:VolumeStatus.of_xml)
          (Xml.child xml_arg0 "VolumeStatus") in
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "VolumeType") in
      let volumeId =
        (Option.map ~f:VolumeId.of_xml) (Xml.child xml_arg0 "VolumeId") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?targetName ?kMSKey ?volumeUsedInBytes ?createdDate
        ?volumeiSCSIAttributes ?preservedExistingData ?sourceSnapshotId
        ?volumeDiskId ?volumeProgress ?volumeSizeInBytes
        ?volumeAttachmentStatus ?volumeStatus ?volumeType ?volumeId
        ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetName = field_map json__ "TargetName" TargetName.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let volumeUsedInBytes =
        field_map json__ "VolumeUsedInBytes" VolumeUsedInBytes.of_json in
      let createdDate = field_map json__ "CreatedDate" CreatedDate.of_json in
      let volumeiSCSIAttributes =
        field_map json__ "VolumeiSCSIAttributes"
          VolumeiSCSIAttributes.of_json in
      let preservedExistingData =
        field_map json__ "PreservedExistingData" Boolean__lc1.of_json in
      let sourceSnapshotId =
        field_map json__ "SourceSnapshotId" SnapshotId.of_json in
      let volumeDiskId = field_map json__ "VolumeDiskId" DiskId.of_json in
      let volumeProgress =
        field_map json__ "VolumeProgress" DoubleObject.of_json in
      let volumeSizeInBytes =
        field_map json__ "VolumeSizeInBytes" Long.of_json in
      let volumeAttachmentStatus =
        field_map json__ "VolumeAttachmentStatus"
          VolumeAttachmentStatus.of_json in
      let volumeStatus = field_map json__ "VolumeStatus" VolumeStatus.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let volumeId = field_map json__ "VolumeId" VolumeId.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?targetName ?kMSKey ?volumeUsedInBytes ?createdDate
        ?volumeiSCSIAttributes ?preservedExistingData ?sourceSnapshotId
        ?volumeDiskId ?volumeProgress ?volumeSizeInBytes
        ?volumeAttachmentStatus ?volumeStatus ?volumeType ?volumeId
        ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an iSCSI stored volume."]
module SMBFileShareInfo =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option ;
      fileShareId: FileShareId.t option ;
      fileShareStatus: FileShareStatus.t option ;
      gatewayARN: GatewayARN.t option ;
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "A value that specifies the type of server-side encryption that the file share will use for the data that it stores in Amazon S3. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true."];
      kMSEncrypted: Boolean__lc1.t option
        [@ocaml.doc
          "Optional. Set to true to use Amazon S3 server-side encryption with your own KMS key (SSE-KMS), or false to use a key managed by Amazon S3 (SSE-S3). To use dual-layer encryption (DSSE-KMS), set the EncryptionType parameter instead. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true. Valid Values: true | false"];
      kMSKey: KMSKey.t option ;
      path: Path.t option
        [@ocaml.doc
          "The file share path used by the SMB client to identify the mount point."];
      role: Role.t option ;
      locationARN: LocationARN.t option ;
      defaultStorageClass: StorageClass.t option
        [@ocaml.doc
          "The default storage class for objects put into an Amazon S3 bucket by the S3 File Gateway. The default value is S3_STANDARD. Optional. Valid Values: S3_STANDARD | S3_INTELLIGENT_TIERING | S3_STANDARD_IA | S3_ONEZONE_IA"];
      objectACL: ObjectACL.t option ;
      readOnly: Boolean.t option
        [@ocaml.doc
          "A value that sets the write status of a file share. Set this value to true to set the write status to read-only, otherwise set to false. Valid Values: true | false"];
      guessMIMETypeEnabled: Boolean.t option
        [@ocaml.doc
          "A value that enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, otherwise set to false. The default value is true. Valid Values: true | false"];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "A value that sets who pays the cost of the request and the cost associated with data download from the S3 bucket. If this value is set to true, the requester pays the costs; otherwise, the S3 bucket owner pays. However, the S3 bucket owner always pays the cost of storing data. RequesterPays is a configuration for the S3 bucket that backs the file share, so make sure that the configuration on the file share is the same as the S3 bucket configuration. Valid Values: true | false"];
      sMBACLEnabled: Boolean.t option
        [@ocaml.doc
          "If this value is set to true, it indicates that access control list (ACL) is enabled on the SMB file share. If it is set to false, it indicates that file and directory permissions are mapped to the POSIX permission. For more information, see Using Windows ACLs to limit SMB file share access in the Amazon S3 File Gateway User Guide."];
      accessBasedEnumeration: Boolean.t option
        [@ocaml.doc "Indicates whether AccessBasedEnumeration is enabled."];
      adminUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that have administrator rights to the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      validUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that are allowed to access the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      invalidUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that are not allowed to access the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for audit logs."];
      authentication: Authentication.t option ;
      caseSensitivity: CaseSensitivity.t option
        [@ocaml.doc
          "The case of an object name in an Amazon S3 bucket. For ClientSpecified, the client determines the case sensitivity. For CaseSensitive, the gateway determines the case sensitivity. The default value is ClientSpecified."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags assigned to the SMB file share, sorted alphabetically by key name. Each tag is a key-value pair. For a gateway with more than 10 tags assigned, you can view all tags using the ListTagsForResource API operation."];
      fileShareName: FileShareName.t option
        [@ocaml.doc
          "The name of the file share. Optional. FileShareName must be set if an S3 prefix name is set in LocationARN, or if an access point or access point alias is used."];
      cacheAttributes: CacheAttributes.t option
        [@ocaml.doc "Refresh cache information for the file share."];
      notificationPolicy: NotificationPolicy.t option
        [@ocaml.doc
          "The notification policy of the file share. SettlingTimeInSeconds controls the number of seconds to wait after the last point in time a client wrote to a file before generating an ObjectUploaded notification. Because clients can make many small writes to files, it's best to set this parameter for as long as possible to avoid generating multiple notifications for the same file in a small time period. SettlingTimeInSeconds has no effect on the timing of the object uploading to Amazon S3, only the timing of the notification. This setting is not meant to specify an exact time at which the notification will be sent. In some cases, the gateway might require more than the specified delay time to generate and send notifications. The following example sets NotificationPolicy on with SettlingTimeInSeconds set to 60. \\{\\\"Upload\\\": \\{\\\"SettlingTimeInSeconds\\\": 60\\}\\} The following example sets NotificationPolicy off. \\{\\}"];
      vPCEndpointDNSName: DNSHostName.t option
        [@ocaml.doc
          "Specifies the DNS name for the VPC endpoint that the SMB file share uses to connect to Amazon S3. This parameter is required for SMB file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      bucketRegion: RegionId.t option
        [@ocaml.doc
          "Specifies the Region of the S3 bucket where the SMB file share stores files. This parameter is required for SMB file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      oplocksEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether opportunistic locking is enabled for the SMB file share. Enabling opportunistic locking on case-sensitive shares is not recommended for workloads that involve access to files with the same name in different case. Valid Values: true | false"]}
    let make ?fileShareARN =
      fun ?fileShareId ->
        fun ?fileShareStatus ->
          fun ?gatewayARN ->
            fun ?encryptionType ->
              fun ?kMSEncrypted ->
                fun ?kMSKey ->
                  fun ?path ->
                    fun ?role ->
                      fun ?locationARN ->
                        fun ?defaultStorageClass ->
                          fun ?objectACL ->
                            fun ?readOnly ->
                              fun ?guessMIMETypeEnabled ->
                                fun ?requesterPays ->
                                  fun ?sMBACLEnabled ->
                                    fun ?accessBasedEnumeration ->
                                      fun ?adminUserList ->
                                        fun ?validUserList ->
                                          fun ?invalidUserList ->
                                            fun ?auditDestinationARN ->
                                              fun ?authentication ->
                                                fun ?caseSensitivity ->
                                                  fun ?tags ->
                                                    fun ?fileShareName ->
                                                      fun ?cacheAttributes ->
                                                        fun
                                                          ?notificationPolicy
                                                          ->
                                                          fun
                                                            ?vPCEndpointDNSName
                                                            ->
                                                            fun ?bucketRegion
                                                              ->
                                                              fun
                                                                ?oplocksEnabled
                                                                ->
                                                                fun () ->
                                                                  {
                                                                    fileShareARN;
                                                                    fileShareId;
                                                                    fileShareStatus;
                                                                    gatewayARN;
                                                                    encryptionType;
                                                                    kMSEncrypted;
                                                                    kMSKey;
                                                                    path;
                                                                    role;
                                                                    locationARN;
                                                                    defaultStorageClass;
                                                                    objectACL;
                                                                    readOnly;
                                                                    guessMIMETypeEnabled;
                                                                    requesterPays;
                                                                    sMBACLEnabled;
                                                                    accessBasedEnumeration;
                                                                    adminUserList;
                                                                    validUserList;
                                                                    invalidUserList;
                                                                    auditDestinationARN;
                                                                    authentication;
                                                                    caseSensitivity;
                                                                    tags;
                                                                    fileShareName;
                                                                    cacheAttributes;
                                                                    notificationPolicy;
                                                                    vPCEndpointDNSName;
                                                                    bucketRegion;
                                                                    oplocksEnabled
                                                                  }
    let to_value x =
      structure_to_value
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value));
        ("FileShareId", (Option.map x.fileShareId ~f:FileShareId.to_value));
        ("FileShareStatus",
          (Option.map x.fileShareStatus ~f:FileShareStatus.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("EncryptionType",
          (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSEncrypted",
          (Option.map x.kMSEncrypted ~f:Boolean__lc1.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("Path", (Option.map x.path ~f:Path.to_value));
        ("Role", (Option.map x.role ~f:Role.to_value));
        ("LocationARN", (Option.map x.locationARN ~f:LocationARN.to_value));
        ("DefaultStorageClass",
          (Option.map x.defaultStorageClass ~f:StorageClass.to_value));
        ("ObjectACL", (Option.map x.objectACL ~f:ObjectACL.to_value));
        ("ReadOnly", (Option.map x.readOnly ~f:Boolean.to_value));
        ("GuessMIMETypeEnabled",
          (Option.map x.guessMIMETypeEnabled ~f:Boolean.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("SMBACLEnabled", (Option.map x.sMBACLEnabled ~f:Boolean.to_value));
        ("AccessBasedEnumeration",
          (Option.map x.accessBasedEnumeration ~f:Boolean.to_value));
        ("AdminUserList", (Option.map x.adminUserList ~f:UserList.to_value));
        ("ValidUserList", (Option.map x.validUserList ~f:UserList.to_value));
        ("InvalidUserList",
          (Option.map x.invalidUserList ~f:UserList.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value));
        ("Authentication",
          (Option.map x.authentication ~f:Authentication.to_value));
        ("CaseSensitivity",
          (Option.map x.caseSensitivity ~f:CaseSensitivity.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("FileShareName",
          (Option.map x.fileShareName ~f:FileShareName.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("NotificationPolicy",
          (Option.map x.notificationPolicy ~f:NotificationPolicy.to_value));
        ("VPCEndpointDNSName",
          (Option.map x.vPCEndpointDNSName ~f:DNSHostName.to_value));
        ("BucketRegion", (Option.map x.bucketRegion ~f:RegionId.to_value));
        ("OplocksEnabled", (Option.map x.oplocksEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oplocksEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "OplocksEnabled") in
      let bucketRegion =
        (Option.map ~f:RegionId.of_xml) (Xml.child xml_arg0 "BucketRegion") in
      let vPCEndpointDNSName =
        (Option.map ~f:DNSHostName.of_xml)
          (Xml.child xml_arg0 "VPCEndpointDNSName") in
      let notificationPolicy =
        (Option.map ~f:NotificationPolicy.of_xml)
          (Xml.child xml_arg0 "NotificationPolicy") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let fileShareName =
        (Option.map ~f:FileShareName.of_xml)
          (Xml.child xml_arg0 "FileShareName") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let caseSensitivity =
        (Option.map ~f:CaseSensitivity.of_xml)
          (Xml.child xml_arg0 "CaseSensitivity") in
      let authentication =
        (Option.map ~f:Authentication.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let invalidUserList =
        (Option.map ~f:UserList.of_xml)
          (Xml.child xml_arg0 "InvalidUserList") in
      let validUserList =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "ValidUserList") in
      let adminUserList =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "AdminUserList") in
      let accessBasedEnumeration =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AccessBasedEnumeration") in
      let sMBACLEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SMBACLEnabled") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let guessMIMETypeEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "GuessMIMETypeEnabled") in
      let readOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReadOnly") in
      let objectACL =
        (Option.map ~f:ObjectACL.of_xml) (Xml.child xml_arg0 "ObjectACL") in
      let defaultStorageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "DefaultStorageClass") in
      let locationARN =
        (Option.map ~f:LocationARN.of_xml) (Xml.child xml_arg0 "LocationARN") in
      let role = (Option.map ~f:Role.of_xml) (Xml.child xml_arg0 "Role") in
      let path = (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "Path") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "KMSEncrypted") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let fileShareStatus =
        (Option.map ~f:FileShareStatus.of_xml)
          (Xml.child xml_arg0 "FileShareStatus") in
      let fileShareId =
        (Option.map ~f:FileShareId.of_xml) (Xml.child xml_arg0 "FileShareId") in
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?oplocksEnabled ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?caseSensitivity ?authentication ?auditDestinationARN
        ?invalidUserList ?validUserList ?adminUserList
        ?accessBasedEnumeration ?sMBACLEnabled ?requesterPays
        ?guessMIMETypeEnabled ?readOnly ?objectACL ?defaultStorageClass
        ?locationARN ?role ?path ?kMSKey ?kMSEncrypted ?encryptionType
        ?gatewayARN ?fileShareStatus ?fileShareId ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oplocksEnabled = field_map json__ "OplocksEnabled" Boolean.of_json in
      let bucketRegion = field_map json__ "BucketRegion" RegionId.of_json in
      let vPCEndpointDNSName =
        field_map json__ "VPCEndpointDNSName" DNSHostName.of_json in
      let notificationPolicy =
        field_map json__ "NotificationPolicy" NotificationPolicy.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let fileShareName =
        field_map json__ "FileShareName" FileShareName.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let caseSensitivity =
        field_map json__ "CaseSensitivity" CaseSensitivity.of_json in
      let authentication =
        field_map json__ "Authentication" Authentication.of_json in
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let invalidUserList =
        field_map json__ "InvalidUserList" UserList.of_json in
      let validUserList = field_map json__ "ValidUserList" UserList.of_json in
      let adminUserList = field_map json__ "AdminUserList" UserList.of_json in
      let accessBasedEnumeration =
        field_map json__ "AccessBasedEnumeration" Boolean.of_json in
      let sMBACLEnabled = field_map json__ "SMBACLEnabled" Boolean.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let guessMIMETypeEnabled =
        field_map json__ "GuessMIMETypeEnabled" Boolean.of_json in
      let readOnly = field_map json__ "ReadOnly" Boolean.of_json in
      let objectACL = field_map json__ "ObjectACL" ObjectACL.of_json in
      let defaultStorageClass =
        field_map json__ "DefaultStorageClass" StorageClass.of_json in
      let locationARN = field_map json__ "LocationARN" LocationARN.of_json in
      let role = field_map json__ "Role" Role.of_json in
      let path = field_map json__ "Path" Path.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean__lc1.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let fileShareStatus =
        field_map json__ "FileShareStatus" FileShareStatus.of_json in
      let fileShareId = field_map json__ "FileShareId" FileShareId.of_json in
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?oplocksEnabled ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?caseSensitivity ?authentication ?auditDestinationARN
        ?invalidUserList ?validUserList ?adminUserList
        ?accessBasedEnumeration ?sMBACLEnabled ?requesterPays
        ?guessMIMETypeEnabled ?readOnly ?objectACL ?defaultStorageClass
        ?locationARN ?role ?path ?kMSKey ?kMSEncrypted ?encryptionType
        ?gatewayARN ?fileShareStatus ?fileShareId ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Windows file permissions and ownership information assigned, by default, to native S3 objects when S3 File Gateway discovers them in S3 buckets. This operation is only supported for S3 File Gateways."]
module NFSFileShareInfo =
  struct
    type nonrec t =
      {
      nFSFileShareDefaults: NFSFileShareDefaults.t option ;
      fileShareARN: FileShareARN.t option ;
      fileShareId: FileShareId.t option ;
      fileShareStatus: FileShareStatus.t option ;
      gatewayARN: GatewayARN.t option ;
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "A value that specifies the type of server-side encryption that the file share will use for the data that it stores in Amazon S3. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true."];
      kMSEncrypted: Boolean__lc1.t option
        [@ocaml.doc
          "Optional. Set to true to use Amazon S3 server-side encryption with your own KMS key (SSE-KMS), or false to use a key managed by Amazon S3 (SSE-S3). To use dual-layer encryption (DSSE-KMS), set the EncryptionType parameter instead. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true. Valid Values: true | false"];
      kMSKey: KMSKey.t option ;
      path: Path.t option ;
      role: Role.t option ;
      locationARN: LocationARN.t option ;
      defaultStorageClass: StorageClass.t option
        [@ocaml.doc
          "The default storage class for objects put into an Amazon S3 bucket by the S3 File Gateway. The default value is S3_STANDARD. Optional. Valid Values: S3_STANDARD | S3_INTELLIGENT_TIERING | S3_STANDARD_IA | S3_ONEZONE_IA"];
      objectACL: ObjectACL.t option ;
      clientList: FileShareClientList.t option ;
      squash: Squash.t option ;
      readOnly: Boolean.t option
        [@ocaml.doc
          "A value that sets the write status of a file share. Set this value to true to set the write status to read-only, otherwise set to false. Valid Values: true | false"];
      guessMIMETypeEnabled: Boolean.t option
        [@ocaml.doc
          "A value that enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, otherwise set to false. The default value is true. Valid Values: true | false"];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "A value that sets who pays the cost of the request and the cost associated with data download from the S3 bucket. If this value is set to true, the requester pays the costs; otherwise, the S3 bucket owner pays. However, the S3 bucket owner always pays the cost of storing data. RequesterPays is a configuration for the S3 bucket that backs the file share, so make sure that the configuration on the file share is the same as the S3 bucket configuration. Valid Values: true | false"];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags assigned to the NFS file share, sorted alphabetically by key name. Each tag is a key-value pair. For a gateway with more than 10 tags assigned, you can view all tags using the ListTagsForResource API operation."];
      fileShareName: FileShareName.t option
        [@ocaml.doc
          "The name of the file share. Optional. FileShareName must be set if an S3 prefix name is set in LocationARN, or if an access point or access point alias is used."];
      cacheAttributes: CacheAttributes.t option
        [@ocaml.doc "Refresh cache information for the file share."];
      notificationPolicy: NotificationPolicy.t option
        [@ocaml.doc
          "The notification policy of the file share. SettlingTimeInSeconds controls the number of seconds to wait after the last point in time a client wrote to a file before generating an ObjectUploaded notification. Because clients can make many small writes to files, it's best to set this parameter for as long as possible to avoid generating multiple notifications for the same file in a small time period. SettlingTimeInSeconds has no effect on the timing of the object uploading to Amazon S3, only the timing of the notification. This setting is not meant to specify an exact time at which the notification will be sent. In some cases, the gateway might require more than the specified delay time to generate and send notifications. The following example sets NotificationPolicy on with SettlingTimeInSeconds set to 60. \\{\\\"Upload\\\": \\{\\\"SettlingTimeInSeconds\\\": 60\\}\\} The following example sets NotificationPolicy off. \\{\\}"];
      vPCEndpointDNSName: DNSHostName.t option
        [@ocaml.doc
          "Specifies the DNS name for the VPC endpoint that the NFS file share uses to connect to Amazon S3. This parameter is required for NFS file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      bucketRegion: RegionId.t option
        [@ocaml.doc
          "Specifies the Region of the S3 bucket where the NFS file share stores files. This parameter is required for NFS file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for audit logs."]}
    let make ?nFSFileShareDefaults =
      fun ?fileShareARN ->
        fun ?fileShareId ->
          fun ?fileShareStatus ->
            fun ?gatewayARN ->
              fun ?encryptionType ->
                fun ?kMSEncrypted ->
                  fun ?kMSKey ->
                    fun ?path ->
                      fun ?role ->
                        fun ?locationARN ->
                          fun ?defaultStorageClass ->
                            fun ?objectACL ->
                              fun ?clientList ->
                                fun ?squash ->
                                  fun ?readOnly ->
                                    fun ?guessMIMETypeEnabled ->
                                      fun ?requesterPays ->
                                        fun ?tags ->
                                          fun ?fileShareName ->
                                            fun ?cacheAttributes ->
                                              fun ?notificationPolicy ->
                                                fun ?vPCEndpointDNSName ->
                                                  fun ?bucketRegion ->
                                                    fun ?auditDestinationARN
                                                      ->
                                                      fun () ->
                                                        {
                                                          nFSFileShareDefaults;
                                                          fileShareARN;
                                                          fileShareId;
                                                          fileShareStatus;
                                                          gatewayARN;
                                                          encryptionType;
                                                          kMSEncrypted;
                                                          kMSKey;
                                                          path;
                                                          role;
                                                          locationARN;
                                                          defaultStorageClass;
                                                          objectACL;
                                                          clientList;
                                                          squash;
                                                          readOnly;
                                                          guessMIMETypeEnabled;
                                                          requesterPays;
                                                          tags;
                                                          fileShareName;
                                                          cacheAttributes;
                                                          notificationPolicy;
                                                          vPCEndpointDNSName;
                                                          bucketRegion;
                                                          auditDestinationARN
                                                        }
    let to_value x =
      structure_to_value
        [("NFSFileShareDefaults",
           (Option.map x.nFSFileShareDefaults
              ~f:NFSFileShareDefaults.to_value));
        ("FileShareARN",
          (Option.map x.fileShareARN ~f:FileShareARN.to_value));
        ("FileShareId", (Option.map x.fileShareId ~f:FileShareId.to_value));
        ("FileShareStatus",
          (Option.map x.fileShareStatus ~f:FileShareStatus.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("EncryptionType",
          (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSEncrypted",
          (Option.map x.kMSEncrypted ~f:Boolean__lc1.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("Path", (Option.map x.path ~f:Path.to_value));
        ("Role", (Option.map x.role ~f:Role.to_value));
        ("LocationARN", (Option.map x.locationARN ~f:LocationARN.to_value));
        ("DefaultStorageClass",
          (Option.map x.defaultStorageClass ~f:StorageClass.to_value));
        ("ObjectACL", (Option.map x.objectACL ~f:ObjectACL.to_value));
        ("ClientList",
          (Option.map x.clientList ~f:FileShareClientList.to_value));
        ("Squash", (Option.map x.squash ~f:Squash.to_value));
        ("ReadOnly", (Option.map x.readOnly ~f:Boolean.to_value));
        ("GuessMIMETypeEnabled",
          (Option.map x.guessMIMETypeEnabled ~f:Boolean.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("FileShareName",
          (Option.map x.fileShareName ~f:FileShareName.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("NotificationPolicy",
          (Option.map x.notificationPolicy ~f:NotificationPolicy.to_value));
        ("VPCEndpointDNSName",
          (Option.map x.vPCEndpointDNSName ~f:DNSHostName.to_value));
        ("BucketRegion", (Option.map x.bucketRegion ~f:RegionId.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let bucketRegion =
        (Option.map ~f:RegionId.of_xml) (Xml.child xml_arg0 "BucketRegion") in
      let vPCEndpointDNSName =
        (Option.map ~f:DNSHostName.of_xml)
          (Xml.child xml_arg0 "VPCEndpointDNSName") in
      let notificationPolicy =
        (Option.map ~f:NotificationPolicy.of_xml)
          (Xml.child xml_arg0 "NotificationPolicy") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let fileShareName =
        (Option.map ~f:FileShareName.of_xml)
          (Xml.child xml_arg0 "FileShareName") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let guessMIMETypeEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "GuessMIMETypeEnabled") in
      let readOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReadOnly") in
      let squash =
        (Option.map ~f:Squash.of_xml) (Xml.child xml_arg0 "Squash") in
      let clientList =
        (Option.map ~f:FileShareClientList.of_xml)
          (Xml.child xml_arg0 "ClientList") in
      let objectACL =
        (Option.map ~f:ObjectACL.of_xml) (Xml.child xml_arg0 "ObjectACL") in
      let defaultStorageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "DefaultStorageClass") in
      let locationARN =
        (Option.map ~f:LocationARN.of_xml) (Xml.child xml_arg0 "LocationARN") in
      let role = (Option.map ~f:Role.of_xml) (Xml.child xml_arg0 "Role") in
      let path = (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "Path") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "KMSEncrypted") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let fileShareStatus =
        (Option.map ~f:FileShareStatus.of_xml)
          (Xml.child xml_arg0 "FileShareStatus") in
      let fileShareId =
        (Option.map ~f:FileShareId.of_xml) (Xml.child xml_arg0 "FileShareId") in
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      let nFSFileShareDefaults =
        (Option.map ~f:NFSFileShareDefaults.of_xml)
          (Xml.child xml_arg0 "NFSFileShareDefaults") in
      make ?auditDestinationARN ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?requesterPays ?guessMIMETypeEnabled ?readOnly ?squash ?clientList
        ?objectACL ?defaultStorageClass ?locationARN ?role ?path ?kMSKey
        ?kMSEncrypted ?encryptionType ?gatewayARN ?fileShareStatus
        ?fileShareId ?fileShareARN ?nFSFileShareDefaults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let bucketRegion = field_map json__ "BucketRegion" RegionId.of_json in
      let vPCEndpointDNSName =
        field_map json__ "VPCEndpointDNSName" DNSHostName.of_json in
      let notificationPolicy =
        field_map json__ "NotificationPolicy" NotificationPolicy.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let fileShareName =
        field_map json__ "FileShareName" FileShareName.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let guessMIMETypeEnabled =
        field_map json__ "GuessMIMETypeEnabled" Boolean.of_json in
      let readOnly = field_map json__ "ReadOnly" Boolean.of_json in
      let squash = field_map json__ "Squash" Squash.of_json in
      let clientList =
        field_map json__ "ClientList" FileShareClientList.of_json in
      let objectACL = field_map json__ "ObjectACL" ObjectACL.of_json in
      let defaultStorageClass =
        field_map json__ "DefaultStorageClass" StorageClass.of_json in
      let locationARN = field_map json__ "LocationARN" LocationARN.of_json in
      let role = field_map json__ "Role" Role.of_json in
      let path = field_map json__ "Path" Path.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean__lc1.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let fileShareStatus =
        field_map json__ "FileShareStatus" FileShareStatus.of_json in
      let fileShareId = field_map json__ "FileShareId" FileShareId.of_json in
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      let nFSFileShareDefaults =
        field_map json__ "NFSFileShareDefaults" NFSFileShareDefaults.of_json in
      make ?auditDestinationARN ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?requesterPays ?guessMIMETypeEnabled ?readOnly ?squash ?clientList
        ?objectACL ?defaultStorageClass ?locationARN ?role ?path ?kMSKey
        ?kMSEncrypted ?encryptionType ?gatewayARN ?fileShareStatus
        ?fileShareId ?fileShareARN ?nFSFileShareDefaults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Unix file permissions and ownership information assigned, by default, to native S3 objects when an S3 File Gateway discovers them in S3 buckets. This operation is only supported in S3 File Gateways."]
module NetworkInterface =
  struct
    type nonrec t =
      {
      ipv4Address: String_.t option
        [@ocaml.doc
          "The Internet Protocol version 4 (IPv4) address of the interface."];
      macAddress: String_.t option
        [@ocaml.doc
          "The Media Access Control (MAC) address of the interface. This is currently unsupported and will not be returned in output."];
      ipv6Address: String_.t option
        [@ocaml.doc
          "The Internet Protocol version 6 (IPv6) address of the interface. This element returns IPv6 addresses for all gateway types except FSx File Gateway."]}
    let make ?ipv4Address =
      fun ?macAddress ->
        fun ?ipv6Address ->
          fun () -> { ipv4Address; macAddress; ipv6Address }
    let to_value x =
      structure_to_value
        [("Ipv4Address", (Option.map x.ipv4Address ~f:String_.to_value));
        ("MacAddress", (Option.map x.macAddress ~f:String_.to_value));
        ("Ipv6Address", (Option.map x.ipv6Address ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let ipv6Address =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      let macAddress =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "MacAddress") in
      let ipv4Address =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Ipv4Address") in
      make ?ipv6Address ?macAddress ?ipv4Address ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let ipv6Address = field_map json__ "Ipv6Address" String_.of_json in
      let macAddress = field_map json__ "MacAddress" String_.of_json in
      let ipv4Address = field_map json__ "Ipv4Address" String_.of_json in
      make ?ipv6Address ?macAddress ?ipv4Address ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a gateway's network interface."]
module GatewayCapacity =
  struct
    type nonrec t =
      | Small 
      | Medium 
      | Large 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Small -> "Small"
      | Medium -> "Medium"
      | Large -> "Large"
      | Non_static_id s -> s
    let of_string =
      function
      | "Small" -> Small
      | "Medium" -> Medium
      | "Large" -> Large
      | 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 GatewayCapacity" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"GatewayCapacity" j)
    let to_json = simple_to_json to_value
  end
module FileSystemAssociationInfo =
  struct
    type nonrec t =
      {
      fileSystemAssociationARN: FileSystemAssociationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file system association."];
      locationARN: FileSystemLocationARN.t option
        [@ocaml.doc
          "The ARN of the backend Amazon FSx file system used for storing file data. For information, see FileSystem in the Amazon FSx API Reference."];
      fileSystemAssociationStatus: FileSystemAssociationStatus.t option
        [@ocaml.doc
          "The status of the file system association. Valid Values: AVAILABLE | CREATING | DELETING | FORCE_DELETING | UPDATING | ERROR"];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for the audit logs."];
      gatewayARN: GatewayARN.t option ;
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags assigned to the SMB file share, sorted alphabetically by key name. Each tag is a key-value pair."];
      cacheAttributes: CacheAttributes.t option ;
      endpointNetworkConfiguration: EndpointNetworkConfiguration.t option
        [@ocaml.doc
          "Specifies network configuration information for the gateway associated with the Amazon FSx file system. If multiple file systems are associated with this gateway, this parameter's IpAddresses field is required."];
      fileSystemAssociationStatusDetails:
        FileSystemAssociationStatusDetails.t option
        [@ocaml.doc
          "An array containing the FileSystemAssociationStatusDetail data type, which provides detailed information on file system association status."]}
    let make ?fileSystemAssociationARN =
      fun ?locationARN ->
        fun ?fileSystemAssociationStatus ->
          fun ?auditDestinationARN ->
            fun ?gatewayARN ->
              fun ?tags ->
                fun ?cacheAttributes ->
                  fun ?endpointNetworkConfiguration ->
                    fun ?fileSystemAssociationStatusDetails ->
                      fun () ->
                        {
                          fileSystemAssociationARN;
                          locationARN;
                          fileSystemAssociationStatus;
                          auditDestinationARN;
                          gatewayARN;
                          tags;
                          cacheAttributes;
                          endpointNetworkConfiguration;
                          fileSystemAssociationStatusDetails
                        }
    let to_value x =
      structure_to_value
        [("FileSystemAssociationARN",
           (Option.map x.fileSystemAssociationARN
              ~f:FileSystemAssociationARN.to_value));
        ("LocationARN",
          (Option.map x.locationARN ~f:FileSystemLocationARN.to_value));
        ("FileSystemAssociationStatus",
          (Option.map x.fileSystemAssociationStatus
             ~f:FileSystemAssociationStatus.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value));
        ("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("EndpointNetworkConfiguration",
          (Option.map x.endpointNetworkConfiguration
             ~f:EndpointNetworkConfiguration.to_value));
        ("FileSystemAssociationStatusDetails",
          (Option.map x.fileSystemAssociationStatusDetails
             ~f:FileSystemAssociationStatusDetails.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationStatusDetails =
        (Option.map ~f:FileSystemAssociationStatusDetails.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationStatusDetails") in
      let endpointNetworkConfiguration =
        (Option.map ~f:EndpointNetworkConfiguration.of_xml)
          (Xml.child xml_arg0 "EndpointNetworkConfiguration") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let fileSystemAssociationStatus =
        (Option.map ~f:FileSystemAssociationStatus.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationStatus") in
      let locationARN =
        (Option.map ~f:FileSystemLocationARN.of_xml)
          (Xml.child xml_arg0 "LocationARN") in
      let fileSystemAssociationARN =
        (Option.map ~f:FileSystemAssociationARN.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationARN") in
      make ?fileSystemAssociationStatusDetails ?endpointNetworkConfiguration
        ?cacheAttributes ?tags ?gatewayARN ?auditDestinationARN
        ?fileSystemAssociationStatus ?locationARN ?fileSystemAssociationARN
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationStatusDetails =
        field_map json__ "FileSystemAssociationStatusDetails"
          FileSystemAssociationStatusDetails.of_json in
      let endpointNetworkConfiguration =
        field_map json__ "EndpointNetworkConfiguration"
          EndpointNetworkConfiguration.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let fileSystemAssociationStatus =
        field_map json__ "FileSystemAssociationStatus"
          FileSystemAssociationStatus.of_json in
      let locationARN =
        field_map json__ "LocationARN" FileSystemLocationARN.of_json in
      let fileSystemAssociationARN =
        field_map json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      make ?fileSystemAssociationStatusDetails ?endpointNetworkConfiguration
        ?cacheAttributes ?tags ?gatewayARN ?auditDestinationARN
        ?fileSystemAssociationStatus ?locationARN ?fileSystemAssociationARN
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the object returned by DescribeFileSystemAssociations that describes a created file system association."]
module ChapInfo =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-)."];
      secretToAuthenticateInitiator: ChapSecret.t option
        [@ocaml.doc
          "The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target."];
      initiatorName: IqnName.t option
        [@ocaml.doc "The iSCSI initiator that connects to the target."];
      secretToAuthenticateTarget: ChapSecret.t option
        [@ocaml.doc
          "The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g., Windows client)."]}
    let make ?targetARN =
      fun ?secretToAuthenticateInitiator ->
        fun ?initiatorName ->
          fun ?secretToAuthenticateTarget ->
            fun () ->
              {
                targetARN;
                secretToAuthenticateInitiator;
                initiatorName;
                secretToAuthenticateTarget
              }
    let to_value x =
      structure_to_value
        [("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value));
        ("SecretToAuthenticateInitiator",
          (Option.map x.secretToAuthenticateInitiator ~f:ChapSecret.to_value));
        ("InitiatorName", (Option.map x.initiatorName ~f:IqnName.to_value));
        ("SecretToAuthenticateTarget",
          (Option.map x.secretToAuthenticateTarget ~f:ChapSecret.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretToAuthenticateTarget =
        (Option.map ~f:ChapSecret.of_xml)
          (Xml.child xml_arg0 "SecretToAuthenticateTarget") in
      let initiatorName =
        (Option.map ~f:IqnName.of_xml) (Xml.child xml_arg0 "InitiatorName") in
      let secretToAuthenticateInitiator =
        (Option.map ~f:ChapSecret.of_xml)
          (Xml.child xml_arg0 "SecretToAuthenticateInitiator") in
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      make ?secretToAuthenticateTarget ?initiatorName
        ?secretToAuthenticateInitiator ?targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretToAuthenticateTarget =
        field_map json__ "SecretToAuthenticateTarget" ChapSecret.of_json in
      let initiatorName = field_map json__ "InitiatorName" IqnName.of_json in
      let secretToAuthenticateInitiator =
        field_map json__ "SecretToAuthenticateInitiator" ChapSecret.of_json in
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      make ?secretToAuthenticateTarget ?initiatorName
        ?secretToAuthenticateInitiator ?targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes Challenge-Handshake Authentication Protocol (CHAP) information that supports authentication between your gateway and iSCSI initiators."]
module CachediSCSIVolume =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the storage volume."];
      volumeId: VolumeId.t option
        [@ocaml.doc
          "The unique identifier of the volume, e.g., vol-AE4B946D."];
      volumeType: VolumeType.t option
        [@ocaml.doc
          "One of the VolumeType enumeration values that describes the type of the volume."];
      volumeStatus: VolumeStatus.t option
        [@ocaml.doc
          "One of the VolumeStatus values that indicates the state of the storage volume."];
      volumeAttachmentStatus: VolumeAttachmentStatus.t option
        [@ocaml.doc
          "A value that indicates whether a storage volume is attached to or detached from a gateway. For more information, see Moving your volumes to a different gateway."];
      volumeSizeInBytes: Long.t option
        [@ocaml.doc "The size, in bytes, of the volume capacity."];
      volumeProgress: DoubleObject.t option
        [@ocaml.doc
          "Represents the percentage complete if the volume is restoring or bootstrapping that represents the percent of data transferred. This field does not appear in the response if the cached volume is not restoring or bootstrapping."];
      sourceSnapshotId: SnapshotId.t option
        [@ocaml.doc
          "If the cached volume was created from a snapshot, this field contains the snapshot ID used, e.g., snap-78e22663. Otherwise, this field is not included."];
      volumeiSCSIAttributes: VolumeiSCSIAttributes.t option
        [@ocaml.doc
          "An VolumeiSCSIAttributes object that represents a collection of iSCSI attributes for one stored volume."];
      createdDate: CreatedDate.t option
        [@ocaml.doc
          "The date the volume was created. Volumes created prior to March 28, 2017 don\226\128\153t have this timestamp."];
      volumeUsedInBytes: VolumeUsedInBytes.t option
        [@ocaml.doc
          "The size of the data stored on the volume in bytes. This value is calculated based on the number of blocks that are touched, instead of the actual amount of data written. This value can be useful for sequential write patterns but less accurate for random write patterns. VolumeUsedInBytes is different from the compressed size of the volume, which is the value that is used to calculate your bill. This value is not available for volumes created prior to May 13, 2015, until you store data on the volume. If you use a delete tool that overwrites the data on your volume with random data, your usage will not be reduced. This is because the random data is not compressible. If you want to reduce the amount of billed storage on your volume, we recommend overwriting your files with zeros to compress the data to a negligible amount of actual storage."];
      kMSKey: KMSKey.t option ;
      targetName: TargetName.t option
        [@ocaml.doc
          "The name of the iSCSI target used by an initiator to connect to a volume and used as a suffix for the target ARN. For example, specifying TargetName as myvolume results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes on a gateway. If you don't specify a value, Storage Gateway uses the value that was previously used for this volume as the new target name."]}
    let make ?volumeARN =
      fun ?volumeId ->
        fun ?volumeType ->
          fun ?volumeStatus ->
            fun ?volumeAttachmentStatus ->
              fun ?volumeSizeInBytes ->
                fun ?volumeProgress ->
                  fun ?sourceSnapshotId ->
                    fun ?volumeiSCSIAttributes ->
                      fun ?createdDate ->
                        fun ?volumeUsedInBytes ->
                          fun ?kMSKey ->
                            fun ?targetName ->
                              fun () ->
                                {
                                  volumeARN;
                                  volumeId;
                                  volumeType;
                                  volumeStatus;
                                  volumeAttachmentStatus;
                                  volumeSizeInBytes;
                                  volumeProgress;
                                  sourceSnapshotId;
                                  volumeiSCSIAttributes;
                                  createdDate;
                                  volumeUsedInBytes;
                                  kMSKey;
                                  targetName
                                }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("VolumeId", (Option.map x.volumeId ~f:VolumeId.to_value));
        ("VolumeType", (Option.map x.volumeType ~f:VolumeType.to_value));
        ("VolumeStatus",
          (Option.map x.volumeStatus ~f:VolumeStatus.to_value));
        ("VolumeAttachmentStatus",
          (Option.map x.volumeAttachmentStatus
             ~f:VolumeAttachmentStatus.to_value));
        ("VolumeSizeInBytes",
          (Option.map x.volumeSizeInBytes ~f:Long.to_value));
        ("VolumeProgress",
          (Option.map x.volumeProgress ~f:DoubleObject.to_value));
        ("SourceSnapshotId",
          (Option.map x.sourceSnapshotId ~f:SnapshotId.to_value));
        ("VolumeiSCSIAttributes",
          (Option.map x.volumeiSCSIAttributes
             ~f:VolumeiSCSIAttributes.to_value));
        ("CreatedDate", (Option.map x.createdDate ~f:CreatedDate.to_value));
        ("VolumeUsedInBytes",
          (Option.map x.volumeUsedInBytes ~f:VolumeUsedInBytes.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("TargetName", (Option.map x.targetName ~f:TargetName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetName =
        (Option.map ~f:TargetName.of_xml) (Xml.child xml_arg0 "TargetName") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let volumeUsedInBytes =
        (Option.map ~f:VolumeUsedInBytes.of_xml)
          (Xml.child xml_arg0 "VolumeUsedInBytes") in
      let createdDate =
        (Option.map ~f:CreatedDate.of_xml) (Xml.child xml_arg0 "CreatedDate") in
      let volumeiSCSIAttributes =
        (Option.map ~f:VolumeiSCSIAttributes.of_xml)
          (Xml.child xml_arg0 "VolumeiSCSIAttributes") in
      let sourceSnapshotId =
        (Option.map ~f:SnapshotId.of_xml)
          (Xml.child xml_arg0 "SourceSnapshotId") in
      let volumeProgress =
        (Option.map ~f:DoubleObject.of_xml)
          (Xml.child xml_arg0 "VolumeProgress") in
      let volumeSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "VolumeSizeInBytes") in
      let volumeAttachmentStatus =
        (Option.map ~f:VolumeAttachmentStatus.of_xml)
          (Xml.child xml_arg0 "VolumeAttachmentStatus") in
      let volumeStatus =
        (Option.map ~f:VolumeStatus.of_xml)
          (Xml.child xml_arg0 "VolumeStatus") in
      let volumeType =
        (Option.map ~f:VolumeType.of_xml) (Xml.child xml_arg0 "VolumeType") in
      let volumeId =
        (Option.map ~f:VolumeId.of_xml) (Xml.child xml_arg0 "VolumeId") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?targetName ?kMSKey ?volumeUsedInBytes ?createdDate
        ?volumeiSCSIAttributes ?sourceSnapshotId ?volumeProgress
        ?volumeSizeInBytes ?volumeAttachmentStatus ?volumeStatus ?volumeType
        ?volumeId ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetName = field_map json__ "TargetName" TargetName.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let volumeUsedInBytes =
        field_map json__ "VolumeUsedInBytes" VolumeUsedInBytes.of_json in
      let createdDate = field_map json__ "CreatedDate" CreatedDate.of_json in
      let volumeiSCSIAttributes =
        field_map json__ "VolumeiSCSIAttributes"
          VolumeiSCSIAttributes.of_json in
      let sourceSnapshotId =
        field_map json__ "SourceSnapshotId" SnapshotId.of_json in
      let volumeProgress =
        field_map json__ "VolumeProgress" DoubleObject.of_json in
      let volumeSizeInBytes =
        field_map json__ "VolumeSizeInBytes" Long.of_json in
      let volumeAttachmentStatus =
        field_map json__ "VolumeAttachmentStatus"
          VolumeAttachmentStatus.of_json in
      let volumeStatus = field_map json__ "VolumeStatus" VolumeStatus.of_json in
      let volumeType = field_map json__ "VolumeType" VolumeType.of_json in
      let volumeId = field_map json__ "VolumeId" VolumeId.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?targetName ?kMSKey ?volumeUsedInBytes ?createdDate
        ?volumeiSCSIAttributes ?sourceSnapshotId ?volumeProgress
        ?volumeSizeInBytes ?volumeAttachmentStatus ?volumeStatus ?volumeType
        ?volumeId ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes an iSCSI cached volume."]
module InternalServerError =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "A human-readable message describing the error that occurred."];
      error: StorageGatewayError.t option
        [@ocaml.doc
          "A StorageGatewayError that provides more information about the cause of the error."]}
    let make ?message = fun ?error -> fun () -> { message; error }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("error", (Option.map x.error ~f:StorageGatewayError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:StorageGatewayError.of_xml)
          (Xml.child xml_arg0 "error") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?error ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "error" StorageGatewayError.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?error ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal server error has occurred during the request. For more information, see the error and message fields."]
module InvalidGatewayRequestException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "A human-readable message describing the error that occurred."];
      error: StorageGatewayError.t option
        [@ocaml.doc
          "A StorageGatewayError that provides more detail about the cause of the error."]}
    let make ?message = fun ?error -> fun () -> { message; error }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("error", (Option.map x.error ~f:StorageGatewayError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:StorageGatewayError.of_xml)
          (Xml.child xml_arg0 "error") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?error ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "error" StorageGatewayError.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?error ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception occurred because an invalid gateway request was issued to the service. For more information, see the error and message fields."]
module DeviceType =
  struct
    type nonrec t = string
    let context_ = "DeviceType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DeviceType" j
    let to_json = simple_to_json to_value
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module RecurrenceInHours =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:24) >>= (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 RecurrenceInHours" 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 SMBSecurityStrategy =
  struct
    type nonrec t =
      | ClientSpecified 
      | MandatorySigning 
      | MandatoryEncryption 
      | MandatoryEncryptionNoAes128 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ClientSpecified -> "ClientSpecified"
      | MandatorySigning -> "MandatorySigning"
      | MandatoryEncryption -> "MandatoryEncryption"
      | MandatoryEncryptionNoAes128 -> "MandatoryEncryptionNoAes128"
      | Non_static_id s -> s
    let of_string =
      function
      | "ClientSpecified" -> ClientSpecified
      | "MandatorySigning" -> MandatorySigning
      | "MandatoryEncryption" -> MandatoryEncryption
      | "MandatoryEncryptionNoAes128" -> MandatoryEncryptionNoAes128
      | 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 SMBSecurityStrategy" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SMBSecurityStrategy" j)
    let to_json = simple_to_json to_value
  end
module SMBLocalGroups =
  struct
    type nonrec t =
      {
      gatewayAdmins: UserList.t option
        [@ocaml.doc
          "A list of Active Directory users and groups that have local Gateway Admin permissions. Acceptable formats include: DOMAIN\\User1, user1, DOMAIN\\group1, and group1. Gateway Admins can use the Shared Folders Microsoft Management Console snap-in to force-close files that are open and locked."]}
    let make ?gatewayAdmins = fun () -> { gatewayAdmins }
    let to_value x =
      structure_to_value
        [("GatewayAdmins", (Option.map x.gatewayAdmins ~f:UserList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayAdmins =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "GatewayAdmins") in
      make ?gatewayAdmins ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayAdmins = field_map json__ "GatewayAdmins" UserList.of_json in
      make ?gatewayAdmins ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A list of Active Directory users and groups that have special permissions for SMB file shares on the gateway."]
module DayOfMonth =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:28) >>= (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 DayOfMonth" 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 SoftwareUpdatePreferences =
  struct
    type nonrec t =
      {
      automaticUpdatePolicy: AutomaticUpdatePolicy.t option
        [@ocaml.doc
          "Indicates the automatic update policy for a gateway. ALL_VERSIONS - Enables regular gateway maintenance updates. EMERGENCY_VERSIONS_ONLY - Disables regular gateway maintenance updates. The gateway will still receive emergency version updates on rare occasions if necessary to remedy highly critical security or durability issues. You will be notified before an emergency version update is applied. These updates are applied during your gateway's scheduled maintenance window."]}
    let make ?automaticUpdatePolicy = fun () -> { automaticUpdatePolicy }
    let to_value x =
      structure_to_value
        [("AutomaticUpdatePolicy",
           (Option.map x.automaticUpdatePolicy
              ~f:AutomaticUpdatePolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automaticUpdatePolicy =
        (Option.map ~f:AutomaticUpdatePolicy.of_xml)
          (Xml.child xml_arg0 "AutomaticUpdatePolicy") in
      make ?automaticUpdatePolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automaticUpdatePolicy =
        field_map json__ "AutomaticUpdatePolicy"
          AutomaticUpdatePolicy.of_json in
      make ?automaticUpdatePolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A set of variables indicating the software update preferences for the gateway."]
module CloudWatchLogGroupARN =
  struct
    type nonrec t = string
    let context_ = "CloudWatchLogGroupARN"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:562); 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:"CloudWatchLogGroupARN" j
    let to_json = simple_to_json to_value
  end
module GatewayName =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The name you configured for your gateway."]
    let context_ = "GatewayName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[ -\\.0-\\[\\]-~]*[!-\\.0-\\[\\]-~][ -\\.0-\\[\\]-~]*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GatewayName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "The name you configured for your gateway."]
module GatewayTimezone =
  struct
    type nonrec t = string
    let context_ = "GatewayTimezone"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10) >>=
             (fun () -> check_string_min i ~min:3));
        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:"GatewayTimezone" j
    let to_json = simple_to_json to_value
  end
module DomainUserName =
  struct
    type nonrec t = string
    let context_ = "DomainUserName"
    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:"^\\w[\\w\\.\\- ]*$")));
        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:"DomainUserName" j
    let to_json = simple_to_json to_value
  end
module DomainUserPassword =
  struct
    type nonrec t = string
    let context_ = "DomainUserPassword"
    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:"DomainUserPassword" j
    let to_json = simple_to_json to_value
  end
module BandwidthRateLimitIntervals =
  struct
    type nonrec t = BandwidthRateLimitInterval.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BandwidthRateLimitInterval.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:BandwidthRateLimitInterval.of_xml)
    let of_json j =
      list_of_json ~kind:"BandwidthRateLimitIntervals"
        ~of_json:BandwidthRateLimitInterval.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:5));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module SMBGuestPassword =
  struct
    type nonrec t = string
    let context_ = "SMBGuestPassword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (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:"SMBGuestPassword" j
    let to_json = simple_to_json to_value
  end
module LocalConsolePassword =
  struct
    type nonrec t = string
    let context_ = "LocalConsolePassword"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (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:"LocalConsolePassword" j
    let to_json = simple_to_json to_value
  end
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:500) >>=
             (fun () -> check_string_min i ~min:50));
        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 TagKeys =
  struct
    type nonrec t = TagKey.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:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotificationId =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The randomly generated ID of the notification that was sent. This ID is in UUID format."]
    let context_ = "NotificationId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NotificationId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The randomly generated ID of the notification that was sent. This ID is in UUID format."]
module FolderList =
  struct
    type nonrec t = Folder.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:50) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Folder.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:Folder.of_xml)
    let of_json j = list_of_json ~kind:"FolderList" ~of_json:Folder.of_json j
    let to_json v = composed_to_json to_value v
  end
module Marker =
  struct
    type nonrec t = string
    let context_ = "Marker"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2000) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Marker" j
    let to_json = simple_to_json to_value
  end
module VolumeInfos =
  struct
    type nonrec t = VolumeInfo.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:VolumeInfo.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:VolumeInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"VolumeInfos" ~of_json:VolumeInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module VolumeRecoveryPointInfos =
  struct
    type nonrec t = VolumeRecoveryPointInfo.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:VolumeRecoveryPointInfo.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:VolumeRecoveryPointInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"VolumeRecoveryPointInfos"
        ~of_json:VolumeRecoveryPointInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module Initiators =
  struct
    type nonrec t = Initiator.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:Initiator.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:Initiator.of_xml)
    let of_json j =
      list_of_json ~kind:"Initiators" ~of_json:Initiator.of_json j
    let to_json v = composed_to_json to_value v
  end
module TapeInfos =
  struct
    type nonrec t = TapeInfo.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:TapeInfo.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:TapeInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"TapeInfos" ~of_json:TapeInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module TapeARNs =
  struct
    type nonrec t = TapeARN.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:TapeARN.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:TapeARN.of_xml)
    let of_json j = list_of_json ~kind:"TapeARNs" ~of_json:TapeARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolInfos =
  struct
    type nonrec t = PoolInfo.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:PoolInfo.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:PoolInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"PoolInfos" ~of_json:PoolInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module PoolARNs =
  struct
    type nonrec t = PoolARN.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:PoolARN.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:PoolARN.of_xml)
    let of_json j = list_of_json ~kind:"PoolARNs" ~of_json:PoolARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module Disks =
  struct
    type nonrec t = Disk.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:Disk.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:Disk.of_xml)
    let of_json j = list_of_json ~kind:"Disks" ~of_json:Disk.of_json j
    let to_json v = composed_to_json to_value v
  end
module Gateways =
  struct
    type nonrec t = GatewayInfo.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:GatewayInfo.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:GatewayInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"Gateways" ~of_json:GatewayInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileSystemAssociationSummaryList =
  struct
    type nonrec t = FileSystemAssociationSummary.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:FileSystemAssociationSummary.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:FileSystemAssociationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"FileSystemAssociationSummaryList"
        ~of_json:FileSystemAssociationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileShareInfoList =
  struct
    type nonrec t = FileShareInfo.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:FileShareInfo.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:FileShareInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"FileShareInfoList" ~of_json:FileShareInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module CacheReportList =
  struct
    type nonrec t = CacheReportInfo.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:CacheReportInfo.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:CacheReportInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"CacheReportList" ~of_json:CacheReportInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module AutomaticTapeCreationPolicyInfos =
  struct
    type nonrec t = AutomaticTapeCreationPolicyInfo.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:AutomaticTapeCreationPolicyInfo.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:AutomaticTapeCreationPolicyInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"AutomaticTapeCreationPolicyInfos"
        ~of_json:AutomaticTapeCreationPolicyInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActiveDirectoryStatus =
  struct
    type nonrec t =
      | ACCESS_DENIED 
      | DETACHED 
      | JOINED 
      | JOINING 
      | NETWORK_ERROR 
      | TIMEOUT 
      | UNKNOWN_ERROR 
      | INSUFFICIENT_PERMISSIONS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCESS_DENIED -> "ACCESS_DENIED"
      | DETACHED -> "DETACHED"
      | JOINED -> "JOINED"
      | JOINING -> "JOINING"
      | NETWORK_ERROR -> "NETWORK_ERROR"
      | TIMEOUT -> "TIMEOUT"
      | UNKNOWN_ERROR -> "UNKNOWN_ERROR"
      | INSUFFICIENT_PERMISSIONS -> "INSUFFICIENT_PERMISSIONS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCESS_DENIED" -> ACCESS_DENIED
      | "DETACHED" -> DETACHED
      | "JOINED" -> JOINED
      | "JOINING" -> JOINING
      | "NETWORK_ERROR" -> NETWORK_ERROR
      | "TIMEOUT" -> TIMEOUT
      | "UNKNOWN_ERROR" -> UNKNOWN_ERROR
      | "INSUFFICIENT_PERMISSIONS" -> INSUFFICIENT_PERMISSIONS
      | 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 ActiveDirectoryStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ActiveDirectoryStatus" j)
    let to_json = simple_to_json to_value
  end
module DomainName =
  struct
    type nonrec t = string
    let context_ = "DomainName"
    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:"^([a-zA-Z0-9]+[\\\\.-])+([a-zA-Z0-9])+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DomainName" j
    let to_json = simple_to_json to_value
  end
module Hosts =
  struct
    type nonrec t = Host.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:Host.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:Host.of_xml)
    let of_json j = list_of_json ~kind:"Hosts" ~of_json:Host.of_json j
    let to_json v = composed_to_json to_value v
  end
module OrganizationalUnit =
  struct
    type nonrec t = string
    let context_ = "OrganizationalUnit"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"OrganizationalUnit" j
    let to_json = simple_to_json to_value
  end
module TimeoutInSeconds =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:3600) >>= (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 TimeoutInSeconds" 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 DiskIds =
  struct
    type nonrec t = DiskId.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:DiskId.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:DiskId.of_xml)
    let of_json j = list_of_json ~kind:"DiskIds" ~of_json:DiskId.of_json j
    let to_json v = composed_to_json to_value v
  end
module VTLDevices =
  struct
    type nonrec t = VTLDevice.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:VTLDevice.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:VTLDevice.of_xml)
    let of_json j =
      list_of_json ~kind:"VTLDevices" ~of_json:VTLDevice.of_json j
    let to_json v = composed_to_json to_value v
  end
module VTLDeviceARNs =
  struct
    type nonrec t = VTLDeviceARN.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:VTLDeviceARN.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:VTLDeviceARN.of_xml)
    let of_json j =
      list_of_json ~kind:"VTLDeviceARNs" ~of_json:VTLDeviceARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tapes =
  struct
    type nonrec t = Tape.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:Tape.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:Tape.of_xml)
    let of_json j = list_of_json ~kind:"Tapes" ~of_json:Tape.of_json j
    let to_json v = composed_to_json to_value v
  end
module TapeRecoveryPointInfos =
  struct
    type nonrec t = TapeRecoveryPointInfo.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:TapeRecoveryPointInfo.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:TapeRecoveryPointInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"TapeRecoveryPointInfos"
        ~of_json:TapeRecoveryPointInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module TapeArchives =
  struct
    type nonrec t = TapeArchive.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:TapeArchive.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:TapeArchive.of_xml)
    let of_json j =
      list_of_json ~kind:"TapeArchives" ~of_json:TapeArchive.of_json j
    let to_json v = composed_to_json to_value v
  end
module StorediSCSIVolumes =
  struct
    type nonrec t = StorediSCSIVolume.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:StorediSCSIVolume.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:StorediSCSIVolume.of_xml)
    let of_json j =
      list_of_json ~kind:"StorediSCSIVolumes"
        ~of_json:StorediSCSIVolume.of_json j
    let to_json v = composed_to_json to_value v
  end
module VolumeARNs =
  struct
    type nonrec t = VolumeARN.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:VolumeARN.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:VolumeARN.of_xml)
    let of_json j =
      list_of_json ~kind:"VolumeARNs" ~of_json:VolumeARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module SMBFileShareInfoList =
  struct
    type nonrec t = SMBFileShareInfo.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:SMBFileShareInfo.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:SMBFileShareInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"SMBFileShareInfoList"
        ~of_json:SMBFileShareInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileShareARNList =
  struct
    type nonrec t = FileShareARN.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FileShareARN.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:FileShareARN.of_xml)
    let of_json j =
      list_of_json ~kind:"FileShareARNList" ~of_json:FileShareARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module NFSFileShareInfoList =
  struct
    type nonrec t = NFSFileShareInfo.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:NFSFileShareInfo.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:NFSFileShareInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"NFSFileShareInfoList"
        ~of_json:NFSFileShareInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module EndpointType =
  struct
    type nonrec t = string
    let context_ = "EndpointType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8) >>=
             (fun () -> check_string_min i ~min:4));
        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:"EndpointType" j
    let to_json = simple_to_json to_value
  end
module GatewayNetworkInterfaces =
  struct
    type nonrec t = NetworkInterface.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:NetworkInterface.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:NetworkInterface.of_xml)
    let of_json j =
      list_of_json ~kind:"GatewayNetworkInterfaces"
        ~of_json:NetworkInterface.of_json j
    let to_json v = composed_to_json to_value v
  end
module GatewayState =
  struct
    type nonrec t = string
    let context_ = "GatewayState"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"GatewayState" j
    let to_json = simple_to_json to_value
  end
module LastSoftwareUpdate =
  struct
    type nonrec t = string
    let context_ = "LastSoftwareUpdate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"LastSoftwareUpdate" j
    let to_json = simple_to_json to_value
  end
module NextUpdateAvailabilityDate =
  struct
    type nonrec t = string
    let context_ = "NextUpdateAvailabilityDate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextUpdateAvailabilityDate" j
    let to_json = simple_to_json to_value
  end
module SoftwareUpdatesEndDate =
  struct
    type nonrec t = string
    let context_ = "SoftwareUpdatesEndDate"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SoftwareUpdatesEndDate" j
    let to_json = simple_to_json to_value
  end
module SupportedGatewayCapacities =
  struct
    type nonrec t = GatewayCapacity.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:GatewayCapacity.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:GatewayCapacity.of_xml)
    let of_json j =
      list_of_json ~kind:"SupportedGatewayCapacities"
        ~of_json:GatewayCapacity.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileSystemAssociationInfoList =
  struct
    type nonrec t = FileSystemAssociationInfo.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:FileSystemAssociationInfo.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:FileSystemAssociationInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"FileSystemAssociationInfoList"
        ~of_json:FileSystemAssociationInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileSystemAssociationARNList =
  struct
    type nonrec t = FileSystemAssociationARN.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:FileSystemAssociationARN.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:FileSystemAssociationARN.of_xml)
    let of_json j =
      list_of_json ~kind:"FileSystemAssociationARNList"
        ~of_json:FileSystemAssociationARN.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChapCredentials =
  struct
    type nonrec t = ChapInfo.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:ChapInfo.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:ChapInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"ChapCredentials" ~of_json:ChapInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module CachediSCSIVolumes =
  struct
    type nonrec t = CachediSCSIVolume.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:CachediSCSIVolume.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:CachediSCSIVolume.of_xml)
    let of_json j =
      list_of_json ~kind:"CachediSCSIVolumes"
        ~of_json:CachediSCSIVolume.of_json j
    let to_json v = composed_to_json to_value v
  end
module Double =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module AvailabilityMonitorTestStatus =
  struct
    type nonrec t =
      | COMPLETE 
      | FAILED 
      | PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | COMPLETE -> "COMPLETE"
      | FAILED -> "FAILED"
      | PENDING -> "PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "COMPLETE" -> COMPLETE
      | "FAILED" -> FAILED
      | "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 AvailabilityMonitorTestStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AvailabilityMonitorTestStatus" j)
    let to_json = simple_to_json to_value
  end
module BandwidthType =
  struct
    type nonrec t = string
    let context_ = "BandwidthType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:25) >>=
             (fun () -> check_string_min i ~min:3));
        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:"BandwidthType" j
    let to_json = simple_to_json to_value
  end
module NumTapesToCreate =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:10) >>= (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 NumTapesToCreate" 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 ServiceUnavailableError =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "A human-readable message describing the error that occurred."];
      error: StorageGatewayError.t option
        [@ocaml.doc
          "A StorageGatewayError that provides more information about the cause of the error."]}
    let make ?message = fun ?error -> fun () -> { message; error }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("error", (Option.map x.error ~f:StorageGatewayError.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let error =
        (Option.map ~f:StorageGatewayError.of_xml)
          (Xml.child xml_arg0 "error") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?error ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let error = field_map json__ "error" StorageGatewayError.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?error ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal server error has occurred because the service is unavailable. For more information, see the error and message fields."]
module SnapshotDescription =
  struct
    type nonrec t = string
    let context_ = "SnapshotDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SnapshotDescription" j
    let to_json = simple_to_json to_value
  end
module ActivationKey =
  struct
    type nonrec t = string
    let context_ = "ActivationKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActivationKey" j
    let to_json = simple_to_json to_value
  end
module MediumChangerType =
  struct
    type nonrec t = string
    let context_ = "MediumChangerType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MediumChangerType" j
    let to_json = simple_to_json to_value
  end
module TapeDriveType =
  struct
    type nonrec t = string
    let context_ = "TapeDriveType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50) >>=
             (fun () -> check_string_min i ~min:2));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TapeDriveType" j
    let to_json = simple_to_json to_value
  end
module UpdateVTLDeviceTypeOutput =
  struct
    type nonrec t =
      {
      vTLDeviceARN: VTLDeviceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the medium changer you have selected."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?vTLDeviceARN = fun () -> { vTLDeviceARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VTLDeviceARN",
           (Option.map x.vTLDeviceARN ~f:VTLDeviceARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vTLDeviceARN =
        (Option.map ~f:VTLDeviceARN.of_xml)
          (Xml.child xml_arg0 "VTLDeviceARN") in
      make ?vTLDeviceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vTLDeviceARN = field_map json__ "VTLDeviceARN" VTLDeviceARN.of_json in
      make ?vTLDeviceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "UpdateVTLDeviceTypeOutput"]
module UpdateVTLDeviceTypeInput =
  struct
    type nonrec t =
      {
      vTLDeviceARN: VTLDeviceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the medium changer you want to select."];
      deviceType: DeviceType.t
        [@ocaml.doc
          "The type of medium changer you want to select. Valid Values: STK-L700 | AWS-Gateway-VTL | IBM-03584L32-0402"]}
    let context_ = "UpdateVTLDeviceTypeInput"
    let make ~vTLDeviceARN =
      fun ~deviceType -> fun () -> { vTLDeviceARN; deviceType }
    let to_value x =
      structure_to_value
        [("VTLDeviceARN", (Some (VTLDeviceARN.to_value x.vTLDeviceARN)));
        ("DeviceType", (Some (DeviceType.to_value x.deviceType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceType =
        DeviceType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DeviceType") in
      let vTLDeviceARN =
        VTLDeviceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VTLDeviceARN") in
      make ~deviceType ~vTLDeviceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceType = field_map_exn json__ "DeviceType" DeviceType.of_json in
      let vTLDeviceARN =
        field_map_exn json__ "VTLDeviceARN" VTLDeviceARN.of_json in
      make ~deviceType ~vTLDeviceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the type of medium changer in a tape gateway. When you activate a tape gateway, you select a medium changer type for the tape gateway. This operation enables you to select a different type of medium changer after a tape gateway is activated. This operation is only supported in the tape gateway type."]
module UpdateSnapshotScheduleOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Use the ListVolumes operation to return a list of gateway volumes."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN = fun () -> { volumeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the updated storage volume."]
module UpdateSnapshotScheduleInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Use the ListVolumes operation to return a list of gateway volumes."];
      startAt: HourOfDay.t
        [@ocaml.doc
          "The hour of the day at which the snapshot schedule begins represented as hh, where hh is the hour (0 to 23). The hour of the day is in the time zone of the gateway."];
      recurrenceInHours: RecurrenceInHours.t
        [@ocaml.doc
          "Frequency of snapshots. Specify the number of hours between snapshots."];
      description: Description.t option
        [@ocaml.doc
          "Optional description of the snapshot that overwrites the existing description."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to a snapshot. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "UpdateSnapshotScheduleInput"
    let make ?description =
      fun ?tags ->
        fun ~volumeARN ->
          fun ~startAt ->
            fun ~recurrenceInHours ->
              fun () ->
                { description; tags; volumeARN; startAt; recurrenceInHours }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)));
        ("StartAt", (Some (HourOfDay.to_value x.startAt)));
        ("RecurrenceInHours",
          (Some (RecurrenceInHours.to_value x.recurrenceInHours)));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let recurrenceInHours =
        RecurrenceInHours.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecurrenceInHours") in
      let startAt =
        HourOfDay.of_xml (Xml.child_exn ~context:context_ xml_arg0 "StartAt") in
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ?tags ?description ~recurrenceInHours ~startAt ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let recurrenceInHours =
        field_map_exn json__ "RecurrenceInHours" RecurrenceInHours.of_json in
      let startAt = field_map_exn json__ "StartAt" HourOfDay.of_json in
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ?tags ?description ~recurrenceInHours ~startAt ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: UpdateSnapshotScheduleInput$Description UpdateSnapshotScheduleInput$RecurrenceInHours UpdateSnapshotScheduleInput$StartAt UpdateSnapshotScheduleInput$VolumeARN"]
module UpdateSMBSecurityStrategyOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the SMB security strategy level for an Amazon S3 file gateway. This action is only supported for Amazon S3 file gateways. For information about configuring this setting using the Amazon Web Services console, see Setting a security level for your gateway in the Amazon S3 File Gateway User Guide. A higher security strategy level can affect performance of the gateway."]
module UpdateSMBSecurityStrategyInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      sMBSecurityStrategy: SMBSecurityStrategy.t
        [@ocaml.doc
          "Specifies the type of security strategy. ClientSpecified: If you choose this option, requests are established based on what is negotiated by the client. This option is recommended when you want to maximize compatibility across different clients in your environment. Supported only for S3 File Gateway. MandatorySigning: If you choose this option, File Gateway only allows connections from SMBv2 or SMBv3 clients that have signing enabled. This option works with SMB clients on Microsoft Windows Vista, Windows Server 2008 or newer. MandatoryEncryption: If you choose this option, File Gateway only allows connections from SMBv3 clients that have encryption enabled. This option is recommended for environments that handle sensitive data. This option works with SMB clients on Microsoft Windows 8, Windows Server 2012 or newer. MandatoryEncryptionNoAes128: If you choose this option, File Gateway only allows connections from SMBv3 clients that use 256-bit AES encryption algorithms. 128-bit algorithms are not allowed. This option is recommended for environments that handle sensitive data. It works with SMB clients on Microsoft Windows 8, Windows Server 2012, or later."]}
    let context_ = "UpdateSMBSecurityStrategyInput"
    let make ~gatewayARN =
      fun ~sMBSecurityStrategy ->
        fun () -> { gatewayARN; sMBSecurityStrategy }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("SMBSecurityStrategy",
          (Some (SMBSecurityStrategy.to_value x.sMBSecurityStrategy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sMBSecurityStrategy =
        SMBSecurityStrategy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SMBSecurityStrategy") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~sMBSecurityStrategy ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sMBSecurityStrategy =
        field_map_exn json__ "SMBSecurityStrategy"
          SMBSecurityStrategy.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~sMBSecurityStrategy ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the SMB security strategy level for an Amazon S3 file gateway. This action is only supported for Amazon S3 file gateways. For information about configuring this setting using the Amazon Web Services console, see Setting a security level for your gateway in the Amazon S3 File Gateway User Guide. A higher security strategy level can affect performance of the gateway."]
module UpdateSMBLocalGroupsOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the list of Active Directory users and groups that have special permissions for SMB file shares on the gateway."]
module UpdateSMBLocalGroupsInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      sMBLocalGroups: SMBLocalGroups.t
        [@ocaml.doc
          "A list of Active Directory users and groups that you want to grant special permissions for SMB file shares on the gateway."]}
    let context_ = "UpdateSMBLocalGroupsInput"
    let make ~gatewayARN =
      fun ~sMBLocalGroups -> fun () -> { gatewayARN; sMBLocalGroups }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("SMBLocalGroups", (Some (SMBLocalGroups.to_value x.sMBLocalGroups)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sMBLocalGroups =
        SMBLocalGroups.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SMBLocalGroups") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~sMBLocalGroups ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sMBLocalGroups =
        field_map_exn json__ "SMBLocalGroups" SMBLocalGroups.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~sMBLocalGroups ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the list of Active Directory users and groups that have special permissions for SMB file shares on the gateway."]
module UpdateSMBFileShareVisibilityOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Controls whether the shares on an S3 File Gateway are visible in a net view or browse list. The operation is only supported for S3 File Gateways."]
module UpdateSMBFileShareVisibilityInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      fileSharesVisible: Boolean.t
        [@ocaml.doc "The shares on this gateway appear when listing shares."]}
    let context_ = "UpdateSMBFileShareVisibilityInput"
    let make ~gatewayARN =
      fun ~fileSharesVisible -> fun () -> { gatewayARN; fileSharesVisible }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("FileSharesVisible", (Some (Boolean.to_value x.fileSharesVisible)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSharesVisible =
        Boolean.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSharesVisible") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~fileSharesVisible ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSharesVisible =
        field_map_exn json__ "FileSharesVisible" Boolean.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~fileSharesVisible ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Controls whether the shares on an S3 File Gateway are visible in a net view or browse list. The operation is only supported for S3 File Gateways."]
module UpdateSMBFileShareOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated SMB file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN = fun () -> { fileShareARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "UpdateSMBFileShareOutput"]
module UpdateSMBFileShareInput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the SMB file share that you want to update."];
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "A value that specifies the type of server-side encryption that the file share will use for the data that it stores in Amazon S3. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Optional. Set to true to use Amazon S3 server-side encryption with your own KMS key (SSE-KMS), or false to use a key managed by Amazon S3 (SSE-S3). To use dual-layer encryption (DSSE-KMS), set the EncryptionType parameter instead. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "Optional. The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value must be set if KMSEncrypted is true, or if EncryptionType is SseKms or DsseKms."];
      defaultStorageClass: StorageClass.t option
        [@ocaml.doc
          "The default storage class for objects put into an Amazon S3 bucket by the S3 File Gateway. The default value is S3_STANDARD. Optional. Valid Values: S3_STANDARD | S3_INTELLIGENT_TIERING | S3_STANDARD_IA | S3_ONEZONE_IA"];
      objectACL: ObjectACL.t option
        [@ocaml.doc
          "A value that sets the access control list (ACL) permission for objects in the S3 bucket that a S3 File Gateway puts objects into. The default value is private."];
      readOnly: Boolean.t option
        [@ocaml.doc
          "A value that sets the write status of a file share. Set this value to true to set write status to read-only, otherwise set to false. Valid Values: true | false"];
      guessMIMETypeEnabled: Boolean.t option
        [@ocaml.doc
          "A value that enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, otherwise set to false. The default value is true. Valid Values: true | false"];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "A value that sets who pays the cost of the request and the cost associated with data download from the S3 bucket. If this value is set to true, the requester pays the costs; otherwise, the S3 bucket owner pays. However, the S3 bucket owner always pays the cost of storing data. RequesterPays is a configuration for the S3 bucket that backs the file share, so make sure that the configuration on the file share is the same as the S3 bucket configuration. Valid Values: true | false"];
      sMBACLEnabled: Boolean.t option
        [@ocaml.doc
          "Set this value to true to enable access control list (ACL) on the SMB file share. Set it to false to map file and directory permissions to the POSIX permissions. For more information, see Using Windows ACLs to limit SMB file share access in the Amazon S3 File Gateway User Guide. Valid Values: true | false"];
      accessBasedEnumeration: Boolean.t option
        [@ocaml.doc
          "The files and folders on this share will only be visible to users with read access."];
      adminUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that have administrator rights to the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      validUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that are allowed to access the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      invalidUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that are not allowed to access the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for audit logs."];
      caseSensitivity: CaseSensitivity.t option
        [@ocaml.doc
          "The case of an object name in an Amazon S3 bucket. For ClientSpecified, the client determines the case sensitivity. For CaseSensitive, the gateway determines the case sensitivity. The default value is ClientSpecified."];
      fileShareName: FileShareName.t option
        [@ocaml.doc
          "The name of the file share. Optional. FileShareName must be set if an S3 prefix name is set in LocationARN, or if an access point or access point alias is used. A valid SMB file share name cannot contain the following characters: \\[,\\],#,;,<,>,:,\",\\,/,|,?,*,+, or ASCII control characters 1-31."];
      cacheAttributes: CacheAttributes.t option
        [@ocaml.doc
          "Specifies refresh cache information for the file share."];
      notificationPolicy: NotificationPolicy.t option
        [@ocaml.doc
          "The notification policy of the file share. SettlingTimeInSeconds controls the number of seconds to wait after the last point in time a client wrote to a file before generating an ObjectUploaded notification. Because clients can make many small writes to files, it's best to set this parameter for as long as possible to avoid generating multiple notifications for the same file in a small time period. SettlingTimeInSeconds has no effect on the timing of the object uploading to Amazon S3, only the timing of the notification. This setting is not meant to specify an exact time at which the notification will be sent. In some cases, the gateway might require more than the specified delay time to generate and send notifications. The following example sets NotificationPolicy on with SettlingTimeInSeconds set to 60. \\{\\\"Upload\\\": \\{\\\"SettlingTimeInSeconds\\\": 60\\}\\} The following example sets NotificationPolicy off. \\{\\}"];
      oplocksEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether opportunistic locking is enabled for the SMB file share. Enabling opportunistic locking on case-sensitive shares is not recommended for workloads that involve access to files with the same name in different case. Valid Values: true | false"]}
    let context_ = "UpdateSMBFileShareInput"
    let make ?encryptionType =
      fun ?kMSEncrypted ->
        fun ?kMSKey ->
          fun ?defaultStorageClass ->
            fun ?objectACL ->
              fun ?readOnly ->
                fun ?guessMIMETypeEnabled ->
                  fun ?requesterPays ->
                    fun ?sMBACLEnabled ->
                      fun ?accessBasedEnumeration ->
                        fun ?adminUserList ->
                          fun ?validUserList ->
                            fun ?invalidUserList ->
                              fun ?auditDestinationARN ->
                                fun ?caseSensitivity ->
                                  fun ?fileShareName ->
                                    fun ?cacheAttributes ->
                                      fun ?notificationPolicy ->
                                        fun ?oplocksEnabled ->
                                          fun ~fileShareARN ->
                                            fun () ->
                                              {
                                                encryptionType;
                                                kMSEncrypted;
                                                kMSKey;
                                                defaultStorageClass;
                                                objectACL;
                                                readOnly;
                                                guessMIMETypeEnabled;
                                                requesterPays;
                                                sMBACLEnabled;
                                                accessBasedEnumeration;
                                                adminUserList;
                                                validUserList;
                                                invalidUserList;
                                                auditDestinationARN;
                                                caseSensitivity;
                                                fileShareName;
                                                cacheAttributes;
                                                notificationPolicy;
                                                oplocksEnabled;
                                                fileShareARN
                                              }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)));
        ("EncryptionType",
          (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("DefaultStorageClass",
          (Option.map x.defaultStorageClass ~f:StorageClass.to_value));
        ("ObjectACL", (Option.map x.objectACL ~f:ObjectACL.to_value));
        ("ReadOnly", (Option.map x.readOnly ~f:Boolean.to_value));
        ("GuessMIMETypeEnabled",
          (Option.map x.guessMIMETypeEnabled ~f:Boolean.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("SMBACLEnabled", (Option.map x.sMBACLEnabled ~f:Boolean.to_value));
        ("AccessBasedEnumeration",
          (Option.map x.accessBasedEnumeration ~f:Boolean.to_value));
        ("AdminUserList", (Option.map x.adminUserList ~f:UserList.to_value));
        ("ValidUserList", (Option.map x.validUserList ~f:UserList.to_value));
        ("InvalidUserList",
          (Option.map x.invalidUserList ~f:UserList.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value));
        ("CaseSensitivity",
          (Option.map x.caseSensitivity ~f:CaseSensitivity.to_value));
        ("FileShareName",
          (Option.map x.fileShareName ~f:FileShareName.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("NotificationPolicy",
          (Option.map x.notificationPolicy ~f:NotificationPolicy.to_value));
        ("OplocksEnabled", (Option.map x.oplocksEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oplocksEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "OplocksEnabled") in
      let notificationPolicy =
        (Option.map ~f:NotificationPolicy.of_xml)
          (Xml.child xml_arg0 "NotificationPolicy") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let fileShareName =
        (Option.map ~f:FileShareName.of_xml)
          (Xml.child xml_arg0 "FileShareName") in
      let caseSensitivity =
        (Option.map ~f:CaseSensitivity.of_xml)
          (Xml.child xml_arg0 "CaseSensitivity") in
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let invalidUserList =
        (Option.map ~f:UserList.of_xml)
          (Xml.child xml_arg0 "InvalidUserList") in
      let validUserList =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "ValidUserList") in
      let adminUserList =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "AdminUserList") in
      let accessBasedEnumeration =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AccessBasedEnumeration") in
      let sMBACLEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SMBACLEnabled") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let guessMIMETypeEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "GuessMIMETypeEnabled") in
      let readOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReadOnly") in
      let objectACL =
        (Option.map ~f:ObjectACL.of_xml) (Xml.child xml_arg0 "ObjectACL") in
      let defaultStorageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "DefaultStorageClass") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ?oplocksEnabled ?notificationPolicy ?cacheAttributes
        ?fileShareName ?caseSensitivity ?auditDestinationARN ?invalidUserList
        ?validUserList ?adminUserList ?accessBasedEnumeration ?sMBACLEnabled
        ?requesterPays ?guessMIMETypeEnabled ?readOnly ?objectACL
        ?defaultStorageClass ?kMSKey ?kMSEncrypted ?encryptionType
        ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oplocksEnabled = field_map json__ "OplocksEnabled" Boolean.of_json in
      let notificationPolicy =
        field_map json__ "NotificationPolicy" NotificationPolicy.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let fileShareName =
        field_map json__ "FileShareName" FileShareName.of_json in
      let caseSensitivity =
        field_map json__ "CaseSensitivity" CaseSensitivity.of_json in
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let invalidUserList =
        field_map json__ "InvalidUserList" UserList.of_json in
      let validUserList = field_map json__ "ValidUserList" UserList.of_json in
      let adminUserList = field_map json__ "AdminUserList" UserList.of_json in
      let accessBasedEnumeration =
        field_map json__ "AccessBasedEnumeration" Boolean.of_json in
      let sMBACLEnabled = field_map json__ "SMBACLEnabled" Boolean.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let guessMIMETypeEnabled =
        field_map json__ "GuessMIMETypeEnabled" Boolean.of_json in
      let readOnly = field_map json__ "ReadOnly" Boolean.of_json in
      let objectACL = field_map json__ "ObjectACL" ObjectACL.of_json in
      let defaultStorageClass =
        field_map json__ "DefaultStorageClass" StorageClass.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ?oplocksEnabled ?notificationPolicy ?cacheAttributes
        ?fileShareName ?caseSensitivity ?auditDestinationARN ?invalidUserList
        ?validUserList ?adminUserList ?accessBasedEnumeration ?sMBACLEnabled
        ?requesterPays ?guessMIMETypeEnabled ?readOnly ?objectACL
        ?defaultStorageClass ?kMSKey ?kMSEncrypted ?encryptionType
        ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "UpdateSMBFileShareInput"]
module UpdateNFSFileShareOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN = fun () -> { fileShareARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "UpdateNFSFileShareOutput"]
module UpdateNFSFileShareInput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file share to be updated."];
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "A value that specifies the type of server-side encryption that the file share will use for the data that it stores in Amazon S3. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Optional. Set to true to use Amazon S3 server-side encryption with your own KMS key (SSE-KMS), or false to use a key managed by Amazon S3 (SSE-S3). To use dual-layer encryption (DSSE-KMS), set the EncryptionType parameter instead. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "Optional. The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value must be set if KMSEncrypted is true, or if EncryptionType is SseKms or DsseKms."];
      nFSFileShareDefaults: NFSFileShareDefaults.t option
        [@ocaml.doc "The default values for the file share. Optional."];
      defaultStorageClass: StorageClass.t option
        [@ocaml.doc
          "The default storage class for objects put into an Amazon S3 bucket by the S3 File Gateway. The default value is S3_STANDARD. Optional. Valid Values: S3_STANDARD | S3_INTELLIGENT_TIERING | S3_STANDARD_IA | S3_ONEZONE_IA"];
      objectACL: ObjectACL.t option
        [@ocaml.doc
          "A value that sets the access control list (ACL) permission for objects in the S3 bucket that a S3 File Gateway puts objects into. The default value is private."];
      clientList: FileShareClientList.t option
        [@ocaml.doc
          "The list of clients that are allowed to access the S3 File Gateway. The list must contain either valid IPv4/IPv6 addresses or valid CIDR blocks."];
      squash: Squash.t option
        [@ocaml.doc
          "The user mapped to anonymous user. Valid values are the following: RootSquash: Only root is mapped to anonymous user. NoSquash: No one is mapped to anonymous user. AllSquash: Everyone is mapped to anonymous user."];
      readOnly: Boolean.t option
        [@ocaml.doc
          "A value that sets the write status of a file share. Set this value to true to set the write status to read-only, otherwise set to false. Valid Values: true | false"];
      guessMIMETypeEnabled: Boolean.t option
        [@ocaml.doc
          "A value that enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, otherwise set to false. The default value is true. Valid Values: true | false"];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "A value that sets who pays the cost of the request and the cost associated with data download from the S3 bucket. If this value is set to true, the requester pays the costs; otherwise, the S3 bucket owner pays. However, the S3 bucket owner always pays the cost of storing data. RequesterPays is a configuration for the S3 bucket that backs the file share, so make sure that the configuration on the file share is the same as the S3 bucket configuration. Valid Values: true | false"];
      fileShareName: FileShareName.t option
        [@ocaml.doc
          "The name of the file share. Optional. FileShareName must be set if an S3 prefix name is set in LocationARN, or if an access point or access point alias is used. A valid NFS file share name can only contain the following characters: a-z, A-Z, 0-9, -, ., and _."];
      cacheAttributes: CacheAttributes.t option
        [@ocaml.doc
          "Specifies refresh cache information for the file share."];
      notificationPolicy: NotificationPolicy.t option
        [@ocaml.doc
          "The notification policy of the file share. SettlingTimeInSeconds controls the number of seconds to wait after the last point in time a client wrote to a file before generating an ObjectUploaded notification. Because clients can make many small writes to files, it's best to set this parameter for as long as possible to avoid generating multiple notifications for the same file in a small time period. SettlingTimeInSeconds has no effect on the timing of the object uploading to Amazon S3, only the timing of the notification. This setting is not meant to specify an exact time at which the notification will be sent. In some cases, the gateway might require more than the specified delay time to generate and send notifications. The following example sets NotificationPolicy on with SettlingTimeInSeconds set to 60. \\{\\\"Upload\\\": \\{\\\"SettlingTimeInSeconds\\\": 60\\}\\} The following example sets NotificationPolicy off. \\{\\}"];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for audit logs."]}
    let context_ = "UpdateNFSFileShareInput"
    let make ?encryptionType =
      fun ?kMSEncrypted ->
        fun ?kMSKey ->
          fun ?nFSFileShareDefaults ->
            fun ?defaultStorageClass ->
              fun ?objectACL ->
                fun ?clientList ->
                  fun ?squash ->
                    fun ?readOnly ->
                      fun ?guessMIMETypeEnabled ->
                        fun ?requesterPays ->
                          fun ?fileShareName ->
                            fun ?cacheAttributes ->
                              fun ?notificationPolicy ->
                                fun ?auditDestinationARN ->
                                  fun ~fileShareARN ->
                                    fun () ->
                                      {
                                        encryptionType;
                                        kMSEncrypted;
                                        kMSKey;
                                        nFSFileShareDefaults;
                                        defaultStorageClass;
                                        objectACL;
                                        clientList;
                                        squash;
                                        readOnly;
                                        guessMIMETypeEnabled;
                                        requesterPays;
                                        fileShareName;
                                        cacheAttributes;
                                        notificationPolicy;
                                        auditDestinationARN;
                                        fileShareARN
                                      }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)));
        ("EncryptionType",
          (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("NFSFileShareDefaults",
          (Option.map x.nFSFileShareDefaults ~f:NFSFileShareDefaults.to_value));
        ("DefaultStorageClass",
          (Option.map x.defaultStorageClass ~f:StorageClass.to_value));
        ("ObjectACL", (Option.map x.objectACL ~f:ObjectACL.to_value));
        ("ClientList",
          (Option.map x.clientList ~f:FileShareClientList.to_value));
        ("Squash", (Option.map x.squash ~f:Squash.to_value));
        ("ReadOnly", (Option.map x.readOnly ~f:Boolean.to_value));
        ("GuessMIMETypeEnabled",
          (Option.map x.guessMIMETypeEnabled ~f:Boolean.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("FileShareName",
          (Option.map x.fileShareName ~f:FileShareName.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("NotificationPolicy",
          (Option.map x.notificationPolicy ~f:NotificationPolicy.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let notificationPolicy =
        (Option.map ~f:NotificationPolicy.of_xml)
          (Xml.child xml_arg0 "NotificationPolicy") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let fileShareName =
        (Option.map ~f:FileShareName.of_xml)
          (Xml.child xml_arg0 "FileShareName") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let guessMIMETypeEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "GuessMIMETypeEnabled") in
      let readOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReadOnly") in
      let squash =
        (Option.map ~f:Squash.of_xml) (Xml.child xml_arg0 "Squash") in
      let clientList =
        (Option.map ~f:FileShareClientList.of_xml)
          (Xml.child xml_arg0 "ClientList") in
      let objectACL =
        (Option.map ~f:ObjectACL.of_xml) (Xml.child xml_arg0 "ObjectACL") in
      let defaultStorageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "DefaultStorageClass") in
      let nFSFileShareDefaults =
        (Option.map ~f:NFSFileShareDefaults.of_xml)
          (Xml.child xml_arg0 "NFSFileShareDefaults") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ?auditDestinationARN ?notificationPolicy ?cacheAttributes
        ?fileShareName ?requesterPays ?guessMIMETypeEnabled ?readOnly ?squash
        ?clientList ?objectACL ?defaultStorageClass ?nFSFileShareDefaults
        ?kMSKey ?kMSEncrypted ?encryptionType ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let notificationPolicy =
        field_map json__ "NotificationPolicy" NotificationPolicy.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let fileShareName =
        field_map json__ "FileShareName" FileShareName.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let guessMIMETypeEnabled =
        field_map json__ "GuessMIMETypeEnabled" Boolean.of_json in
      let readOnly = field_map json__ "ReadOnly" Boolean.of_json in
      let squash = field_map json__ "Squash" Squash.of_json in
      let clientList =
        field_map json__ "ClientList" FileShareClientList.of_json in
      let objectACL = field_map json__ "ObjectACL" ObjectACL.of_json in
      let defaultStorageClass =
        field_map json__ "DefaultStorageClass" StorageClass.of_json in
      let nFSFileShareDefaults =
        field_map json__ "NFSFileShareDefaults" NFSFileShareDefaults.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ?auditDestinationARN ?notificationPolicy ?cacheAttributes
        ?fileShareName ?requesterPays ?guessMIMETypeEnabled ?readOnly ?squash
        ?clientList ?objectACL ?defaultStorageClass ?nFSFileShareDefaults
        ?kMSKey ?kMSEncrypted ?encryptionType ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "UpdateNFSFileShareInput"]
module UpdateMaintenanceStartTimeOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway whose maintenance start time is updated."]
module UpdateMaintenanceStartTimeInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      hourOfDay: HourOfDay.t option
        [@ocaml.doc
          "The hour component of the maintenance start time represented as hh, where hh is the hour (00 to 23). The hour of the day is in the time zone of the gateway."];
      minuteOfHour: MinuteOfHour.t option
        [@ocaml.doc
          "The minute component of the maintenance start time represented as mm, where mm is the minute (00 to 59). The minute of the hour is in the time zone of the gateway."];
      dayOfWeek: DayOfWeek.t option
        [@ocaml.doc
          "The day of the week component of the maintenance start time week represented as an ordinal number from 0 to 6, where 0 represents Sunday and 6 represents Saturday."];
      dayOfMonth: DayOfMonth.t option
        [@ocaml.doc
          "The day of the month component of the maintenance start time represented as an ordinal number from 1 to 28, where 1 represents the first day of the month. It is not possible to set the maintenance schedule to start on days 29 through 31."];
      softwareUpdatePreferences: SoftwareUpdatePreferences.t option
        [@ocaml.doc
          "A set of variables indicating the software update preferences for the gateway. Includes AutomaticUpdatePolicy field with the following inputs: ALL_VERSIONS - Enables regular gateway maintenance updates. EMERGENCY_VERSIONS_ONLY - Disables regular gateway maintenance updates. The gateway will still receive emergency version updates on rare occasions if necessary to remedy highly critical security or durability issues. You will be notified before an emergency version update is applied. These updates are applied during your gateway's scheduled maintenance window."]}
    let context_ = "UpdateMaintenanceStartTimeInput"
    let make ?hourOfDay =
      fun ?minuteOfHour ->
        fun ?dayOfWeek ->
          fun ?dayOfMonth ->
            fun ?softwareUpdatePreferences ->
              fun ~gatewayARN ->
                fun () ->
                  {
                    hourOfDay;
                    minuteOfHour;
                    dayOfWeek;
                    dayOfMonth;
                    softwareUpdatePreferences;
                    gatewayARN
                  }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("HourOfDay", (Option.map x.hourOfDay ~f:HourOfDay.to_value));
        ("MinuteOfHour",
          (Option.map x.minuteOfHour ~f:MinuteOfHour.to_value));
        ("DayOfWeek", (Option.map x.dayOfWeek ~f:DayOfWeek.to_value));
        ("DayOfMonth", (Option.map x.dayOfMonth ~f:DayOfMonth.to_value));
        ("SoftwareUpdatePreferences",
          (Option.map x.softwareUpdatePreferences
             ~f:SoftwareUpdatePreferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let softwareUpdatePreferences =
        (Option.map ~f:SoftwareUpdatePreferences.of_xml)
          (Xml.child xml_arg0 "SoftwareUpdatePreferences") in
      let dayOfMonth =
        (Option.map ~f:DayOfMonth.of_xml) (Xml.child xml_arg0 "DayOfMonth") in
      let dayOfWeek =
        (Option.map ~f:DayOfWeek.of_xml) (Xml.child xml_arg0 "DayOfWeek") in
      let minuteOfHour =
        (Option.map ~f:MinuteOfHour.of_xml)
          (Xml.child xml_arg0 "MinuteOfHour") in
      let hourOfDay =
        (Option.map ~f:HourOfDay.of_xml) (Xml.child xml_arg0 "HourOfDay") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?softwareUpdatePreferences ?dayOfMonth ?dayOfWeek ?minuteOfHour
        ?hourOfDay ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let softwareUpdatePreferences =
        field_map json__ "SoftwareUpdatePreferences"
          SoftwareUpdatePreferences.of_json in
      let dayOfMonth = field_map json__ "DayOfMonth" DayOfMonth.of_json in
      let dayOfWeek = field_map json__ "DayOfWeek" DayOfWeek.of_json in
      let minuteOfHour = field_map json__ "MinuteOfHour" MinuteOfHour.of_json in
      let hourOfDay = field_map json__ "HourOfDay" HourOfDay.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?softwareUpdatePreferences ?dayOfMonth ?dayOfWeek ?minuteOfHour
        ?hourOfDay ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the following fields: UpdateMaintenanceStartTimeInput$SoftwareUpdatePreferences UpdateMaintenanceStartTimeInput$DayOfMonth UpdateMaintenanceStartTimeInput$DayOfWeek UpdateMaintenanceStartTimeInput$HourOfDay UpdateMaintenanceStartTimeInput$MinuteOfHour"]
module UpdateGatewaySoftwareNowOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway that was updated."]
module UpdateGatewaySoftwareNowInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "UpdateGatewaySoftwareNowInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway to update."]
module UpdateGatewayInformationOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      gatewayName: String_.t option
        [@ocaml.doc "The name you configured for your gateway."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?gatewayName -> fun () -> { gatewayARN; gatewayName }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("GatewayName", (Option.map x.gatewayName ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "GatewayName") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayName ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayName = field_map json__ "GatewayName" String_.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayName ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway that was updated."]
module UpdateGatewayInformationInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      gatewayName: GatewayName.t option ;
      gatewayTimezone: GatewayTimezone.t option
        [@ocaml.doc "A value that indicates the time zone of the gateway."];
      cloudWatchLogGroupARN: CloudWatchLogGroupARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon CloudWatch log group that you want to use to monitor and log events in the gateway. For more information, see What is Amazon CloudWatch Logs?"];
      gatewayCapacity: GatewayCapacity.t option
        [@ocaml.doc
          "Specifies the size of the gateway's metadata cache. This setting impacts gateway performance and hardware recommendations. For more information, see Performance guidance for gateways with multiple file shares in the Amazon S3 File Gateway User Guide."]}
    let context_ = "UpdateGatewayInformationInput"
    let make ?gatewayName =
      fun ?gatewayTimezone ->
        fun ?cloudWatchLogGroupARN ->
          fun ?gatewayCapacity ->
            fun ~gatewayARN ->
              fun () ->
                {
                  gatewayName;
                  gatewayTimezone;
                  cloudWatchLogGroupARN;
                  gatewayCapacity;
                  gatewayARN
                }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("GatewayName", (Option.map x.gatewayName ~f:GatewayName.to_value));
        ("GatewayTimezone",
          (Option.map x.gatewayTimezone ~f:GatewayTimezone.to_value));
        ("CloudWatchLogGroupARN",
          (Option.map x.cloudWatchLogGroupARN
             ~f:CloudWatchLogGroupARN.to_value));
        ("GatewayCapacity",
          (Option.map x.gatewayCapacity ~f:GatewayCapacity.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayCapacity =
        (Option.map ~f:GatewayCapacity.of_xml)
          (Xml.child xml_arg0 "GatewayCapacity") in
      let cloudWatchLogGroupARN =
        (Option.map ~f:CloudWatchLogGroupARN.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogGroupARN") in
      let gatewayTimezone =
        (Option.map ~f:GatewayTimezone.of_xml)
          (Xml.child xml_arg0 "GatewayTimezone") in
      let gatewayName =
        (Option.map ~f:GatewayName.of_xml) (Xml.child xml_arg0 "GatewayName") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?gatewayCapacity ?cloudWatchLogGroupARN ?gatewayTimezone
        ?gatewayName ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayCapacity =
        field_map json__ "GatewayCapacity" GatewayCapacity.of_json in
      let cloudWatchLogGroupARN =
        field_map json__ "CloudWatchLogGroupARN"
          CloudWatchLogGroupARN.of_json in
      let gatewayTimezone =
        field_map json__ "GatewayTimezone" GatewayTimezone.of_json in
      let gatewayName = field_map json__ "GatewayName" GatewayName.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayCapacity ?cloudWatchLogGroupARN ?gatewayTimezone
        ?gatewayName ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a gateway's metadata, which includes the gateway's name, time zone, and metadata cache size. To specify which gateway to update, use the Amazon Resource Name (ARN) of the gateway in your request. For gateways activated after September 2, 2015, the gateway's ARN contains the gateway ID rather than the gateway name. However, changing the name of the gateway has no effect on the gateway's ARN."]
module UpdateFileSystemAssociationOutput =
  struct
    type nonrec t =
      {
      fileSystemAssociationARN: FileSystemAssociationARN.t option
        [@ocaml.doc "The ARN of the updated file system association."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileSystemAssociationARN =
      fun () -> { fileSystemAssociationARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileSystemAssociationARN",
           (Option.map x.fileSystemAssociationARN
              ~f:FileSystemAssociationARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationARN =
        (Option.map ~f:FileSystemAssociationARN.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationARN") in
      make ?fileSystemAssociationARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationARN =
        field_map json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      make ?fileSystemAssociationARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a file system association. This operation is only supported in the FSx File Gateways."]
module UpdateFileSystemAssociationInput =
  struct
    type nonrec t =
      {
      fileSystemAssociationARN: FileSystemAssociationARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file system association that you want to update."];
      userName: DomainUserName.t option
        [@ocaml.doc
          "The user name of the user credential that has permission to access the root share D$ of the Amazon FSx file system. The user account must belong to the Amazon FSx delegated admin user group."];
      password: DomainUserPassword.t option
        [@ocaml.doc "The password of the user credential."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for the audit logs."];
      cacheAttributes: CacheAttributes.t option }
    let context_ = "UpdateFileSystemAssociationInput"
    let make ?userName =
      fun ?password ->
        fun ?auditDestinationARN ->
          fun ?cacheAttributes ->
            fun ~fileSystemAssociationARN ->
              fun () ->
                {
                  userName;
                  password;
                  auditDestinationARN;
                  cacheAttributes;
                  fileSystemAssociationARN
                }
    let to_value x =
      structure_to_value
        [("FileSystemAssociationARN",
           (Some
              (FileSystemAssociationARN.to_value x.fileSystemAssociationARN)));
        ("UserName", (Option.map x.userName ~f:DomainUserName.to_value));
        ("Password", (Option.map x.password ~f:DomainUserPassword.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let password =
        (Option.map ~f:DomainUserPassword.of_xml)
          (Xml.child xml_arg0 "Password") in
      let userName =
        (Option.map ~f:DomainUserName.of_xml) (Xml.child xml_arg0 "UserName") in
      let fileSystemAssociationARN =
        FileSystemAssociationARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FileSystemAssociationARN") in
      make ?cacheAttributes ?auditDestinationARN ?password ?userName
        ~fileSystemAssociationARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let password = field_map json__ "Password" DomainUserPassword.of_json in
      let userName = field_map json__ "UserName" DomainUserName.of_json in
      let fileSystemAssociationARN =
        field_map_exn json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      make ?cacheAttributes ?auditDestinationARN ?password ?userName
        ~fileSystemAssociationARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates a file system association. This operation is only supported in the FSx File Gateways."]
module UpdateChapCredentialsOutput =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the target. This is the same target specified in the request."];
      initiatorName: IqnName.t option
        [@ocaml.doc
          "The iSCSI initiator that connects to the target. This is the same initiator name specified in the request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?targetARN =
      fun ?initiatorName -> fun () -> { targetARN; initiatorName }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value));
        ("InitiatorName", (Option.map x.initiatorName ~f:IqnName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiatorName =
        (Option.map ~f:IqnName.of_xml) (Xml.child xml_arg0 "InitiatorName") in
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      make ?initiatorName ?targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiatorName = field_map json__ "InitiatorName" IqnName.of_json in
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      make ?initiatorName ?targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module UpdateChapCredentialsInput =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the iSCSI volume target. Use the DescribeStorediSCSIVolumes operation to return the TargetARN for specified VolumeARN."];
      secretToAuthenticateInitiator: ChapSecret.t
        [@ocaml.doc
          "The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target. The secret key must be between 12 and 16 bytes when encoded in UTF-8."];
      initiatorName: IqnName.t
        [@ocaml.doc "The iSCSI initiator that connects to the target."];
      secretToAuthenticateTarget: ChapSecret.t option
        [@ocaml.doc
          "The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g. Windows client). Byte constraints: Minimum bytes of 12. Maximum bytes of 16. The secret key must be between 12 and 16 bytes when encoded in UTF-8."]}
    let context_ = "UpdateChapCredentialsInput"
    let make ?secretToAuthenticateTarget =
      fun ~targetARN ->
        fun ~secretToAuthenticateInitiator ->
          fun ~initiatorName ->
            fun () ->
              {
                secretToAuthenticateTarget;
                targetARN;
                secretToAuthenticateInitiator;
                initiatorName
              }
    let to_value x =
      structure_to_value
        [("TargetARN", (Some (TargetARN.to_value x.targetARN)));
        ("SecretToAuthenticateInitiator",
          (Some (ChapSecret.to_value x.secretToAuthenticateInitiator)));
        ("InitiatorName", (Some (IqnName.to_value x.initiatorName)));
        ("SecretToAuthenticateTarget",
          (Option.map x.secretToAuthenticateTarget ~f:ChapSecret.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secretToAuthenticateTarget =
        (Option.map ~f:ChapSecret.of_xml)
          (Xml.child xml_arg0 "SecretToAuthenticateTarget") in
      let initiatorName =
        IqnName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InitiatorName") in
      let secretToAuthenticateInitiator =
        ChapSecret.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "SecretToAuthenticateInitiator") in
      let targetARN =
        TargetARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetARN") in
      make ?secretToAuthenticateTarget ~initiatorName
        ~secretToAuthenticateInitiator ~targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secretToAuthenticateTarget =
        field_map json__ "SecretToAuthenticateTarget" ChapSecret.of_json in
      let initiatorName =
        field_map_exn json__ "InitiatorName" IqnName.of_json in
      let secretToAuthenticateInitiator =
        field_map_exn json__ "SecretToAuthenticateInitiator"
          ChapSecret.of_json in
      let targetARN = field_map_exn json__ "TargetARN" TargetARN.of_json in
      make ?secretToAuthenticateTarget ~initiatorName
        ~secretToAuthenticateInitiator ~targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: UpdateChapCredentialsInput$InitiatorName UpdateChapCredentialsInput$SecretToAuthenticateInitiator UpdateChapCredentialsInput$SecretToAuthenticateTarget UpdateChapCredentialsInput$TargetARN"]
module UpdateBandwidthRateLimitScheduleOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the bandwidth rate limit schedule for a specified gateway. By default, gateways do not have bandwidth rate limit schedules, which means no bandwidth rate limiting is in effect. Use this to initiate or update a gateway's bandwidth rate limit schedule. This operation is supported for volume, tape, and S3 file gateways. S3 file gateways support bandwidth rate limits for upload only. FSx file gateways do not support bandwidth rate limits."]
module UpdateBandwidthRateLimitScheduleInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      bandwidthRateLimitIntervals: BandwidthRateLimitIntervals.t
        [@ocaml.doc
          "An array containing bandwidth rate limit schedule intervals for a gateway. When no bandwidth rate limit intervals have been scheduled, the array is empty."]}
    let context_ = "UpdateBandwidthRateLimitScheduleInput"
    let make ~gatewayARN =
      fun ~bandwidthRateLimitIntervals ->
        fun () -> { gatewayARN; bandwidthRateLimitIntervals }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("BandwidthRateLimitIntervals",
          (Some
             (BandwidthRateLimitIntervals.to_value
                x.bandwidthRateLimitIntervals)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bandwidthRateLimitIntervals =
        BandwidthRateLimitIntervals.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "BandwidthRateLimitIntervals") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~bandwidthRateLimitIntervals ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bandwidthRateLimitIntervals =
        field_map_exn json__ "BandwidthRateLimitIntervals"
          BandwidthRateLimitIntervals.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~bandwidthRateLimitIntervals ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the bandwidth rate limit schedule for a specified gateway. By default, gateways do not have bandwidth rate limit schedules, which means no bandwidth rate limiting is in effect. Use this to initiate or update a gateway's bandwidth rate limit schedule. This operation is supported for volume, tape, and S3 file gateways. S3 file gateways support bandwidth rate limits for upload only. FSx file gateways do not support bandwidth rate limits."]
module UpdateBandwidthRateLimitOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway whose throttle information was updated."]
module UpdateBandwidthRateLimitInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      averageUploadRateLimitInBitsPerSec: BandwidthUploadRateLimit.t option
        [@ocaml.doc
          "The average upload bandwidth rate limit in bits per second."];
      averageDownloadRateLimitInBitsPerSec:
        BandwidthDownloadRateLimit.t option
        [@ocaml.doc
          "The average download bandwidth rate limit in bits per second."]}
    let context_ = "UpdateBandwidthRateLimitInput"
    let make ?averageUploadRateLimitInBitsPerSec =
      fun ?averageDownloadRateLimitInBitsPerSec ->
        fun ~gatewayARN ->
          fun () ->
            {
              averageUploadRateLimitInBitsPerSec;
              averageDownloadRateLimitInBitsPerSec;
              gatewayARN
            }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("AverageUploadRateLimitInBitsPerSec",
          (Option.map x.averageUploadRateLimitInBitsPerSec
             ~f:BandwidthUploadRateLimit.to_value));
        ("AverageDownloadRateLimitInBitsPerSec",
          (Option.map x.averageDownloadRateLimitInBitsPerSec
             ~f:BandwidthDownloadRateLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let averageDownloadRateLimitInBitsPerSec =
        (Option.map ~f:BandwidthDownloadRateLimit.of_xml)
          (Xml.child xml_arg0 "AverageDownloadRateLimitInBitsPerSec") in
      let averageUploadRateLimitInBitsPerSec =
        (Option.map ~f:BandwidthUploadRateLimit.of_xml)
          (Xml.child xml_arg0 "AverageUploadRateLimitInBitsPerSec") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?averageDownloadRateLimitInBitsPerSec
        ?averageUploadRateLimitInBitsPerSec ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let averageDownloadRateLimitInBitsPerSec =
        field_map json__ "AverageDownloadRateLimitInBitsPerSec"
          BandwidthDownloadRateLimit.of_json in
      let averageUploadRateLimitInBitsPerSec =
        field_map json__ "AverageUploadRateLimitInBitsPerSec"
          BandwidthUploadRateLimit.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?averageDownloadRateLimitInBitsPerSec
        ?averageUploadRateLimitInBitsPerSec ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: UpdateBandwidthRateLimitInput$AverageDownloadRateLimitInBitsPerSec UpdateBandwidthRateLimitInput$AverageUploadRateLimitInBitsPerSec"]
module UpdateAutomaticTapeCreationPolicyOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the automatic tape creation policy of a gateway. Use this to update the policy with a new set of automatic tape creation rules. This is only supported for tape gateways. By default, there is no automatic tape creation policy. A gateway can have only one automatic tape creation policy."]
module UpdateAutomaticTapeCreationPolicyInput =
  struct
    type nonrec t =
      {
      automaticTapeCreationRules: AutomaticTapeCreationRules.t
        [@ocaml.doc
          "An automatic tape creation policy consists of a list of automatic tape creation rules. The rules determine when and how to automatically create new tapes."];
      gatewayARN: GatewayARN.t }
    let context_ = "UpdateAutomaticTapeCreationPolicyInput"
    let make ~automaticTapeCreationRules =
      fun ~gatewayARN -> fun () -> { automaticTapeCreationRules; gatewayARN }
    let to_value x =
      structure_to_value
        [("AutomaticTapeCreationRules",
           (Some
              (AutomaticTapeCreationRules.to_value
                 x.automaticTapeCreationRules)));
        ("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      let automaticTapeCreationRules =
        AutomaticTapeCreationRules.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "AutomaticTapeCreationRules") in
      make ~gatewayARN ~automaticTapeCreationRules ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      let automaticTapeCreationRules =
        field_map_exn json__ "AutomaticTapeCreationRules"
          AutomaticTapeCreationRules.of_json in
      make ~gatewayARN ~automaticTapeCreationRules ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the automatic tape creation policy of a gateway. Use this to update the policy with a new set of automatic tape creation rules. This is only supported for tape gateways. By default, there is no automatic tape creation policy. A gateway can have only one automatic tape creation policy."]
module StartGatewayOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway that was restarted."]
module StartGatewayInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "StartGatewayInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway to start."]
module StartCacheReportOutput =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report generated by the StartCacheReport request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cacheReportARN = fun () -> { cacheReportARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("CacheReportARN",
           (Option.map x.cacheReportARN ~f:CacheReportARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportARN =
        (Option.map ~f:CacheReportARN.of_xml)
          (Xml.child xml_arg0 "CacheReportARN") in
      make ?cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportARN =
        field_map json__ "CacheReportARN" CacheReportARN.of_json in
      make ?cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts generating a report of the file metadata currently cached by an S3 File Gateway for a specific file share. You can use this report to identify and resolve issues if you have files failing upload from your gateway to Amazon S3. The report is a CSV file containing a list of files which match the set of filter parameters you specify in the request. The Files Failing Upload flag is reset every 24 hours and during gateway reboot. If this report captures the files after the reset, but before they become flagged again, they will not be reported as Files Failing Upload. The following requirements must be met to successfully generate a cache report: You must have s3:PutObject and s3:AbortMultipartUpload permissions for the Amazon S3 bucket where you want to store the cache report. No other cache reports can currently be in-progress for the specified file share. There must be fewer than 10 existing cache reports for the specified file share. The gateway must be online and connected to Amazon Web Services. The root disk must have at least 20GB of free space when report generation starts. You must specify at least one value for InclusionFilters or ExclusionFilters in the request."]
module StartCacheReportInput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t ;
      role: Role.t
        [@ocaml.doc
          "The ARN of the IAM role used when saving the cache report to Amazon S3."];
      locationARN: LocationARN.t
        [@ocaml.doc
          "The ARN of the Amazon S3 bucket where you want to save the cache report. We do not recommend saving the cache report to the same Amazon S3 bucket for which you are generating the report. This field does not accept access point ARNs."];
      bucketRegion: RegionId.t
        [@ocaml.doc
          "The Amazon Web Services Region of the Amazon S3 bucket where you want to save the cache report."];
      vPCEndpointDNSName: DNSHostName.t option
        [@ocaml.doc
          "The DNS name of the VPC endpoint associated with the Amazon S3 where you want to save the cache report. Optional."];
      inclusionFilters: CacheReportFilterList.t option
        [@ocaml.doc
          "The list of filters and parameters that determine which files are included in the report. You must specify at least one value for InclusionFilters or ExclusionFilters in a StartCacheReport request."];
      exclusionFilters: CacheReportFilterList.t option
        [@ocaml.doc
          "The list of filters and parameters that determine which files are excluded from the report. You must specify at least one value for InclusionFilters or ExclusionFilters in a StartCacheReport request."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique identifier that you use to ensure idempotent report generation if you need to retry an unsuccessful StartCacheReport request. If you retry a request, use the same ClientToken you specified in the initial request."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 key/value tags that you can assign to the cache report. Using tags can help you categorize your reports and more easily locate them in search results."]}
    let context_ = "StartCacheReportInput"
    let make ?vPCEndpointDNSName =
      fun ?inclusionFilters ->
        fun ?exclusionFilters ->
          fun ?tags ->
            fun ~fileShareARN ->
              fun ~role ->
                fun ~locationARN ->
                  fun ~bucketRegion ->
                    fun ~clientToken ->
                      fun () ->
                        {
                          vPCEndpointDNSName;
                          inclusionFilters;
                          exclusionFilters;
                          tags;
                          fileShareARN;
                          role;
                          locationARN;
                          bucketRegion;
                          clientToken
                        }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)));
        ("Role", (Some (Role.to_value x.role)));
        ("LocationARN", (Some (LocationARN.to_value x.locationARN)));
        ("BucketRegion", (Some (RegionId.to_value x.bucketRegion)));
        ("VPCEndpointDNSName",
          (Option.map x.vPCEndpointDNSName ~f:DNSHostName.to_value));
        ("InclusionFilters",
          (Option.map x.inclusionFilters ~f:CacheReportFilterList.to_value));
        ("ExclusionFilters",
          (Option.map x.exclusionFilters ~f:CacheReportFilterList.to_value));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let exclusionFilters =
        (Option.map ~f:CacheReportFilterList.of_xml)
          (Xml.child xml_arg0 "ExclusionFilters") in
      let inclusionFilters =
        (Option.map ~f:CacheReportFilterList.of_xml)
          (Xml.child xml_arg0 "InclusionFilters") in
      let vPCEndpointDNSName =
        (Option.map ~f:DNSHostName.of_xml)
          (Xml.child xml_arg0 "VPCEndpointDNSName") in
      let bucketRegion =
        RegionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BucketRegion") in
      let locationARN =
        LocationARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LocationARN") in
      let role =
        Role.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Role") in
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ?tags ~clientToken ?exclusionFilters ?inclusionFilters
        ?vPCEndpointDNSName ~bucketRegion ~locationARN ~role ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let exclusionFilters =
        field_map json__ "ExclusionFilters" CacheReportFilterList.of_json in
      let inclusionFilters =
        field_map json__ "InclusionFilters" CacheReportFilterList.of_json in
      let vPCEndpointDNSName =
        field_map json__ "VPCEndpointDNSName" DNSHostName.of_json in
      let bucketRegion = field_map_exn json__ "BucketRegion" RegionId.of_json in
      let locationARN =
        field_map_exn json__ "LocationARN" LocationARN.of_json in
      let role = field_map_exn json__ "Role" Role.of_json in
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ?tags ~clientToken ?exclusionFilters ?inclusionFilters
        ?vPCEndpointDNSName ~bucketRegion ~locationARN ~role ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts generating a report of the file metadata currently cached by an S3 File Gateway for a specific file share. You can use this report to identify and resolve issues if you have files failing upload from your gateway to Amazon S3. The report is a CSV file containing a list of files which match the set of filter parameters you specify in the request. The Files Failing Upload flag is reset every 24 hours and during gateway reboot. If this report captures the files after the reset, but before they become flagged again, they will not be reported as Files Failing Upload. The following requirements must be met to successfully generate a cache report: You must have s3:PutObject and s3:AbortMultipartUpload permissions for the Amazon S3 bucket where you want to store the cache report. No other cache reports can currently be in-progress for the specified file share. There must be fewer than 10 existing cache reports for the specified file share. The gateway must be online and connected to Amazon Web Services. The root disk must have at least 20GB of free space when report generation starts. You must specify at least one value for InclusionFilters or ExclusionFilters in the request."]
module StartAvailabilityMonitorTestOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Start a test that verifies that the specified gateway is configured for High Availability monitoring in your host environment. This request only initiates the test and that a successful response only indicates that the test was started. It doesn't indicate that the test passed. For the status of the test, invoke the DescribeAvailabilityMonitorTest API. Starting this test will cause your gateway to go offline for a brief period."]
module StartAvailabilityMonitorTestInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "StartAvailabilityMonitorTestInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Start a test that verifies that the specified gateway is configured for High Availability monitoring in your host environment. This request only initiates the test and that a successful response only indicates that the test was started. It doesn't indicate that the test passed. For the status of the test, invoke the DescribeAvailabilityMonitorTest API. Starting this test will cause your gateway to go offline for a brief period."]
module ShutdownGatewayOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway that was shut down."]
module ShutdownGatewayInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "ShutdownGatewayInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway to shut down."]
module SetSMBGuestPasswordOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the password for the guest user smbguest. The smbguest user is the user when the authentication method for the file share is set to GuestAccess. This operation only supported for S3 File Gateways"]
module SetSMBGuestPasswordInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 File Gateway the SMB file share is associated with."];
      password: SMBGuestPassword.t
        [@ocaml.doc "The password that you want to set for your SMB server."]}
    let context_ = "SetSMBGuestPasswordInput"
    let make ~gatewayARN =
      fun ~password -> fun () -> { gatewayARN; password }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("Password", (Some (SMBGuestPassword.to_value x.password)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        SMBGuestPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~password ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password = field_map_exn json__ "Password" SMBGuestPassword.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~password ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "SetSMBGuestPasswordInput"]
module SetLocalConsolePasswordOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets the password for your VM local console. When you log in to the local console for the first time, you log in to the VM with the default credentials. We recommend that you set a new password. You don't need to know the default password to set a new password."]
module SetLocalConsolePasswordInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      localConsolePassword: LocalConsolePassword.t
        [@ocaml.doc
          "The password you want to set for your VM local console."]}
    let context_ = "SetLocalConsolePasswordInput"
    let make ~gatewayARN =
      fun ~localConsolePassword ->
        fun () -> { gatewayARN; localConsolePassword }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("LocalConsolePassword",
          (Some (LocalConsolePassword.to_value x.localConsolePassword)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let localConsolePassword =
        LocalConsolePassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LocalConsolePassword") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~localConsolePassword ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let localConsolePassword =
        field_map_exn json__ "LocalConsolePassword"
          LocalConsolePassword.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~localConsolePassword ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "SetLocalConsolePasswordInput"]
module RetrieveTapeRecoveryPointOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape for which the recovery point was retrieved."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RetrieveTapeRecoveryPointOutput"]
module RetrieveTapeRecoveryPointInput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape for which you want to retrieve the recovery point."];
      gatewayARN: GatewayARN.t }
    let context_ = "RetrieveTapeRecoveryPointInput"
    let make ~tapeARN = fun ~gatewayARN -> fun () -> { tapeARN; gatewayARN }
    let to_value x =
      structure_to_value
        [("TapeARN", (Some (TapeARN.to_value x.tapeARN)));
        ("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      make ~gatewayARN ~tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      make ~gatewayARN ~tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RetrieveTapeRecoveryPointInput"]
module RetrieveTapeArchiveOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the retrieved virtual tape."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RetrieveTapeArchiveOutput"]
module RetrieveTapeArchiveInput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape you want to retrieve from the virtual tape shelf (VTS)."];
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the gateway you want to retrieve the virtual tape to. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region. You retrieve archived virtual tapes to only one gateway and the gateway must be a tape gateway."]}
    let context_ = "RetrieveTapeArchiveInput"
    let make ~tapeARN = fun ~gatewayARN -> fun () -> { tapeARN; gatewayARN }
    let to_value x =
      structure_to_value
        [("TapeARN", (Some (TapeARN.to_value x.tapeARN)));
        ("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      make ~gatewayARN ~tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      make ~gatewayARN ~tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RetrieveTapeArchiveInput"]
module ResetCacheOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets all cache disks that have encountered an error and makes the disks available for reconfiguration as cache storage. If your cache disk encounters an error, the gateway prevents read and write operations on virtual tapes in the gateway. For example, an error can occur when a disk is corrupted or removed from the gateway. When a cache is reset, the gateway loses its cache storage. At this point, you can reconfigure the disks as cache disks. This operation is only supported in the cached volume and tape types. If the cache disk you are resetting contains data that has not been uploaded to Amazon S3 yet, that data can be lost. After you reset cache disks, there will be no configured cache disks left in the gateway, so you must configure at least one new cache disk for your gateway to function properly."]
module ResetCacheInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "ResetCacheInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets all cache disks that have encountered an error and makes the disks available for reconfiguration as cache storage. If your cache disk encounters an error, the gateway prevents read and write operations on virtual tapes in the gateway. For example, an error can occur when a disk is corrupted or removed from the gateway. When a cache is reset, the gateway loses its cache storage. At this point, you can reconfigure the disks as cache disks. This operation is only supported in the cached volume and tape types. If the cache disk you are resetting contains data that has not been uploaded to Amazon S3 yet, that data can be lost. After you reset cache disks, there will be no configured cache disks left in the gateway, so you must configure at least one new cache disk for your gateway to function properly."]
module RemoveTagsFromResourceOutput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource that the tags were removed from."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceARN = fun () -> { resourceARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RemoveTagsFromResourceOutput"]
module RemoveTagsFromResourceInput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource you want to remove the tags from."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "The keys of the tags you want to remove from the specified resource. A tag is composed of a key-value pair."]}
    let context_ = "RemoveTagsFromResourceInput"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("TagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" TagKeys.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RemoveTagsFromResourceInput"]
module RefreshCacheOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option ;
      notificationId: NotificationId.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN =
      fun ?notificationId -> fun () -> { fileShareARN; notificationId }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value));
        ("NotificationId",
          (Option.map x.notificationId ~f:NotificationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationId =
        (Option.map ~f:NotificationId.of_xml)
          (Xml.child xml_arg0 "NotificationId") in
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?notificationId ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationId =
        field_map json__ "NotificationId" NotificationId.of_json in
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?notificationId ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RefreshCacheOutput"]
module RefreshCacheInput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file share you want to refresh."];
      folderList: FolderList.t option
        [@ocaml.doc
          "A comma-separated list of the paths of folders to refresh in the cache. The default is \\[\"/\"\\]. The default refreshes objects and folders at the root of the Amazon S3 bucket. If Recursive is set to true, the entire S3 bucket that the file share has access to is refreshed. Do not include / when specifying folder names. For example, you would specify samplefolder rather than samplefolder/."];
      recursive: Boolean.t option
        [@ocaml.doc
          "A value that specifies whether to recursively refresh folders in the cache. The refresh includes folders that were in the cache the last time the gateway listed the folder's contents. If this value set to true, each folder that is listed in FolderList is recursively updated. Otherwise, subfolders listed in FolderList are not refreshed. Only objects that are in folders listed directly under FolderList are found and used for the update. The default is true. Valid Values: true | false"]}
    let context_ = "RefreshCacheInput"
    let make ?folderList =
      fun ?recursive ->
        fun ~fileShareARN ->
          fun () -> { folderList; recursive; fileShareARN }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)));
        ("FolderList", (Option.map x.folderList ~f:FolderList.to_value));
        ("Recursive", (Option.map x.recursive ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recursive =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "Recursive") in
      let folderList =
        (Option.map ~f:FolderList.of_xml) (Xml.child xml_arg0 "FolderList") in
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ?recursive ?folderList ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recursive = field_map json__ "Recursive" Boolean.of_json in
      let folderList = field_map json__ "FolderList" FolderList.of_json in
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ?recursive ?folderList ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "RefreshCacheInput"]
module NotifyWhenUploadedOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option ;
      notificationId: NotificationId.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN =
      fun ?notificationId -> fun () -> { fileShareARN; notificationId }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value));
        ("NotificationId",
          (Option.map x.notificationId ~f:NotificationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationId =
        (Option.map ~f:NotificationId.of_xml)
          (Xml.child xml_arg0 "NotificationId") in
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?notificationId ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationId =
        field_map json__ "NotificationId" NotificationId.of_json in
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?notificationId ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends you notification through Amazon EventBridge when all files written to your file share have been uploaded to Amazon S3. Storage Gateway can send a notification through Amazon EventBridge when all files written to your file share up to that point in time have been uploaded to Amazon S3. These files include files written to the file share up to the time that you make a request for notification. When the upload is done, Storage Gateway sends you notification through EventBridge. You can configure EventBridge to send the notification through event targets such as Amazon SNS or Lambda function. This operation is only supported for S3 File Gateways. For more information, see Getting file upload notification in the Amazon S3 File Gateway User Guide."]
module NotifyWhenUploadedInput =
  struct
    type nonrec t = {
      fileShareARN: FileShareARN.t }
    let context_ = "NotifyWhenUploadedInput"
    let make ~fileShareARN = fun () -> { fileShareARN }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sends you notification through Amazon EventBridge when all files written to your file share have been uploaded to Amazon S3. Storage Gateway can send a notification through Amazon EventBridge when all files written to your file share up to that point in time have been uploaded to Amazon S3. These files include files written to the file share up to the time that you make a request for notification. When the upload is done, Storage Gateway sends you notification through EventBridge. You can configure EventBridge to send the notification through event targets such as Amazon SNS or Lambda function. This operation is only supported for S3 File Gateways. For more information, see Getting file upload notification in the Amazon S3 File Gateway User Guide."]
module ListVolumesOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      marker: Marker.t option
        [@ocaml.doc
          "Use the marker in your next request to continue pagination of iSCSI volumes. If there are no more volumes to list, this field does not appear in the response body."];
      volumeInfos: VolumeInfos.t option
        [@ocaml.doc
          "An array of VolumeInfo objects, where each object describes an iSCSI volume. If no volumes are defined for the gateway, then VolumeInfos is an empty array \"\\[\\]\"."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?marker ->
        fun ?volumeInfos -> fun () -> { gatewayARN; marker; volumeInfos }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("VolumeInfos", (Option.map x.volumeInfos ~f:VolumeInfos.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeInfos =
        (Option.map ~f:VolumeInfos.of_xml) (Xml.child xml_arg0 "VolumeInfos") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?volumeInfos ?marker ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeInfos = field_map json__ "VolumeInfos" VolumeInfos.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?volumeInfos ?marker ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the following fields: ListVolumesOutput$Marker ListVolumesOutput$VolumeInfos"]
module ListVolumesInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      marker: Marker.t option
        [@ocaml.doc
          "A string that indicates the position at which to begin the returned list of volumes. Obtain the marker from the response of a previous List iSCSI Volumes request."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the list of volumes returned be limited to the specified number of items."]}
    let make ?gatewayARN =
      fun ?marker -> fun ?limit -> fun () -> { gatewayARN; marker; limit }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?limit ?marker ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?limit ?marker ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object that contains one or more of the following fields: ListVolumesInput$Limit ListVolumesInput$Marker"]
module ListVolumeRecoveryPointsOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      volumeRecoveryPointInfos: VolumeRecoveryPointInfos.t option
        [@ocaml.doc "An array of VolumeRecoveryPointInfo objects."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?volumeRecoveryPointInfos ->
        fun () -> { gatewayARN; volumeRecoveryPointInfos }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("VolumeRecoveryPointInfos",
          (Option.map x.volumeRecoveryPointInfos
             ~f:VolumeRecoveryPointInfos.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeRecoveryPointInfos =
        (Option.map ~f:VolumeRecoveryPointInfos.of_xml)
          (Xml.child xml_arg0 "VolumeRecoveryPointInfos") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?volumeRecoveryPointInfos ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeRecoveryPointInfos =
        field_map json__ "VolumeRecoveryPointInfos"
          VolumeRecoveryPointInfos.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?volumeRecoveryPointInfos ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the recovery points for a specified gateway. This operation is only supported in the cached volume gateway type. Each cache volume has one recovery point. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot or clone a new cached volume from a source volume. To create a snapshot from a volume recovery point use the CreateSnapshotFromVolumeRecoveryPoint operation."]
module ListVolumeRecoveryPointsInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "ListVolumeRecoveryPointsInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the recovery points for a specified gateway. This operation is only supported in the cached volume gateway type. Each cache volume has one recovery point. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot or clone a new cached volume from a source volume. To create a snapshot from a volume recovery point use the CreateSnapshotFromVolumeRecoveryPoint operation."]
module ListVolumeInitiatorsOutput =
  struct
    type nonrec t =
      {
      initiators: Initiators.t option
        [@ocaml.doc
          "The host names and port numbers of all iSCSI initiators that are connected to the gateway."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?initiators = fun () -> { initiators }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("Initiators", (Option.map x.initiators ~f:Initiators.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiators =
        (Option.map ~f:Initiators.of_xml) (Xml.child xml_arg0 "Initiators") in
      make ?initiators ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiators = field_map json__ "Initiators" Initiators.of_json in
      make ?initiators ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ListVolumeInitiatorsOutput"]
module ListVolumeInitiatorsInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Use the ListVolumes operation to return a list of gateway volumes for the gateway."]}
    let context_ = "ListVolumeInitiatorsInput"
    let make ~volumeARN = fun () -> { volumeARN }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ListVolumeInitiatorsInput"]
module ListTapesOutput =
  struct
    type nonrec t =
      {
      tapeInfos: TapeInfos.t option ;
      marker: Marker.t option
        [@ocaml.doc
          "A string that indicates the position at which to begin returning the next list of tapes. Use the marker in your next request to continue pagination of tapes. If there are no more tapes to list, this element does not appear in the response body."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeInfos = fun ?marker -> fun () -> { tapeInfos; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeInfos", (Option.map x.tapeInfos ~f:TapeInfos.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapeInfos =
        (Option.map ~f:TapeInfos.of_xml) (Xml.child xml_arg0 "TapeInfos") in
      make ?marker ?tapeInfos ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapeInfos = field_map json__ "TapeInfos" TapeInfos.of_json in
      make ?marker ?tapeInfos ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the following fields: ListTapesOutput$Marker ListTapesOutput$VolumeInfos"]
module ListTapesInput =
  struct
    type nonrec t =
      {
      tapeARNs: TapeARNs.t option ;
      marker: Marker.t option
        [@ocaml.doc
          "A string that indicates the position at which to begin the returned list of tapes."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "An optional number limit for the tapes in the list returned by this call."]}
    let make ?tapeARNs =
      fun ?marker -> fun ?limit -> fun () -> { tapeARNs; marker; limit }
    let to_value x =
      structure_to_value
        [("TapeARNs", (Option.map x.tapeARNs ~f:TapeARNs.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapeARNs =
        (Option.map ~f:TapeARNs.of_xml) (Xml.child xml_arg0 "TapeARNs") in
      make ?limit ?marker ?tapeARNs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapeARNs = field_map json__ "TapeARNs" TapeARNs.of_json in
      make ?limit ?marker ?tapeARNs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object that contains one or more of the following fields: ListTapesInput$Limit ListTapesInput$Marker ListTapesInput$TapeARNs"]
module ListTapePoolsOutput =
  struct
    type nonrec t =
      {
      poolInfos: PoolInfos.t option
        [@ocaml.doc
          "An array of PoolInfo objects, where each object describes a single custom tape pool. If there are no custom tape pools, the PoolInfos is an empty array."];
      marker: Marker.t option
        [@ocaml.doc
          "A string that indicates the position at which to begin the returned list of tape pools. Use the marker in your next request to continue pagination of tape pools. If there are no more tape pools to list, this element does not appear in the response body."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolInfos = fun ?marker -> fun () -> { poolInfos; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("PoolInfos", (Option.map x.poolInfos ~f:PoolInfos.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let poolInfos =
        (Option.map ~f:PoolInfos.of_xml) (Xml.child xml_arg0 "PoolInfos") in
      make ?marker ?poolInfos ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let poolInfos = field_map json__ "PoolInfos" PoolInfos.of_json in
      make ?marker ?poolInfos ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists custom tape pools. You specify custom tape pools to list by specifying one or more custom tape pool Amazon Resource Names (ARNs). If you don't specify a custom tape pool ARN, the operation lists all custom tape pools. This operation supports pagination. You can optionally specify the Limit parameter in the body to limit the number of tape pools in the response. If the number of tape pools returned in the response is truncated, the response includes a Marker element that you can use in your subsequent request to retrieve the next set of tape pools."]
module ListTapePoolsInput =
  struct
    type nonrec t =
      {
      poolARNs: PoolARNs.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of each of the custom tape pools you want to list. If you don't specify a custom tape pool ARN, the response lists all custom tape pools."];
      marker: Marker.t option
        [@ocaml.doc
          "A string that indicates the position at which to begin the returned list of tape pools."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "An optional number limit for the tape pools in the list returned by this call."]}
    let make ?poolARNs =
      fun ?marker -> fun ?limit -> fun () -> { poolARNs; marker; limit }
    let to_value x =
      structure_to_value
        [("PoolARNs", (Option.map x.poolARNs ~f:PoolARNs.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let poolARNs =
        (Option.map ~f:PoolARNs.of_xml) (Xml.child xml_arg0 "PoolARNs") in
      make ?limit ?marker ?poolARNs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let poolARNs = field_map json__ "PoolARNs" PoolARNs.of_json in
      make ?limit ?marker ?poolARNs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists custom tape pools. You specify custom tape pools to list by specifying one or more custom tape pool Amazon Resource Names (ARNs). If you don't specify a custom tape pool ARN, the operation lists all custom tape pools. This operation supports pagination. You can optionally specify the Limit parameter in the body to limit the number of tape pools in the response. If the number of tape pools returned in the response is truncated, the response includes a Marker element that you can use in your subsequent request to retrieve the next set of tape pools."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which you want to list tags."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which to stop returning the list of tags."];
      tags: Tags.t option
        [@ocaml.doc
          "An array that contains the tags for the specified resource."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceARN =
      fun ?marker -> fun ?tags -> fun () -> { resourceARN; marker; tags }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?tags ?marker ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?tags ?marker ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ListTagsForResourceOutput"]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which you want to list tags."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which to begin returning the list of tags."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the list of tags returned be limited to the specified number of items."]}
    let context_ = "ListTagsForResourceInput"
    let make ?marker =
      fun ?limit ->
        fun ~resourceARN -> fun () -> { marker; limit; resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ?limit ?marker ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ?limit ?marker ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ListTagsForResourceInput"]
module ListLocalDisksOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      disks: Disks.t option
        [@ocaml.doc
          "A JSON object containing the following fields: ListLocalDisksOutput$Disks"]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun ?disks -> fun () -> { gatewayARN; disks }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Disks", (Option.map x.disks ~f:Disks.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let disks = (Option.map ~f:Disks.of_xml) (Xml.child xml_arg0 "Disks") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?disks ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let disks = field_map json__ "Disks" Disks.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?disks ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the gateway's local disks. To specify which gateway to describe, you use the Amazon Resource Name (ARN) of the gateway in the body of the request. The request returns a list of all disks, specifying which are configured as working storage, cache storage, or stored volume or not configured at all. The response includes a DiskStatus field. This field can have a value of present (the disk is available to use), missing (the disk is no longer connected to the gateway), or mismatch (the disk node is occupied by a disk that has incorrect metadata or the disk content is corrupted)."]
module ListLocalDisksInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "ListLocalDisksInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway."]
module ListGatewaysOutput =
  struct
    type nonrec t =
      {
      gateways: Gateways.t option
        [@ocaml.doc "An array of GatewayInfo objects."];
      marker: Marker.t option
        [@ocaml.doc
          "Use the marker in your next request to fetch the next set of gateways in the list. If there are no more gateways to list, this field does not appear in the response."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gateways = fun ?marker -> fun () -> { gateways; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("Gateways", (Option.map x.gateways ~f:Gateways.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let gateways =
        (Option.map ~f:Gateways.of_xml) (Xml.child xml_arg0 "Gateways") in
      make ?marker ?gateways ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let gateways = field_map json__ "Gateways" Gateways.of_json in
      make ?marker ?gateways ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists gateways owned by an Amazon Web Services account in an Amazon Web Services Region specified in the request. The returned list is ordered by gateway Amazon Resource Name (ARN). By default, the operation returns a maximum of 100 gateways. This operation supports pagination that allows you to optionally reduce the number of gateways returned in a response. If you have more gateways than are returned in a response (that is, the response returns only a truncated list of your gateways), the response contains a marker that you can specify in your next request to fetch the next page of gateways."]
module ListGatewaysInput =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which to begin the returned list of gateways."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the list of gateways returned be limited to the specified number of items."]}
    let make ?marker = fun ?limit -> fun () -> { marker; limit }
    let to_value x =
      structure_to_value
        [("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?limit ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?limit ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing zero or more of the following fields: ListGatewaysInput$Limit ListGatewaysInput$Marker"]
module ListFileSystemAssociationsOutput =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc
          "If the request includes Marker, the response returns that value in this field."];
      nextMarker: Marker.t option
        [@ocaml.doc
          "If a value is present, there are more file system associations to return. In a subsequent request, use NextMarker as the value for Marker to retrieve the next set of file system associations."];
      fileSystemAssociationSummaryList:
        FileSystemAssociationSummaryList.t option
        [@ocaml.doc
          "An array of information about the Amazon FSx gateway's file system associations."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?marker =
      fun ?nextMarker ->
        fun ?fileSystemAssociationSummaryList ->
          fun () -> { marker; nextMarker; fileSystemAssociationSummaryList }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("NextMarker", (Option.map x.nextMarker ~f:Marker.to_value));
        ("FileSystemAssociationSummaryList",
          (Option.map x.fileSystemAssociationSummaryList
             ~f:FileSystemAssociationSummaryList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationSummaryList =
        (Option.map ~f:FileSystemAssociationSummaryList.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationSummaryList") in
      let nextMarker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "NextMarker") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?fileSystemAssociationSummaryList ?nextMarker ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationSummaryList =
        field_map json__ "FileSystemAssociationSummaryList"
          FileSystemAssociationSummaryList.of_json in
      let nextMarker = field_map json__ "NextMarker" Marker.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?fileSystemAssociationSummaryList ?nextMarker ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of FileSystemAssociationSummary objects. Each object contains a summary of a file system association. This operation is only supported for FSx File Gateways."]
module ListFileSystemAssociationsInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "The maximum number of file system associations to return in the response. If present, Limit must be an integer with a value greater than zero. Optional."];
      marker: Marker.t option
        [@ocaml.doc
          "Opaque pagination token returned from a previous ListFileSystemAssociations operation. If present, Marker specifies where to continue the list from after a previous call to ListFileSystemAssociations. Optional."]}
    let make ?gatewayARN =
      fun ?limit -> fun ?marker -> fun () -> { gatewayARN; limit; marker }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?marker ?limit ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?marker ?limit ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a list of FileSystemAssociationSummary objects. Each object contains a summary of a file system association. This operation is only supported for FSx File Gateways."]
module ListFileSharesOutput =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc
          "If the request includes Marker, the response returns that value in this field."];
      nextMarker: Marker.t option
        [@ocaml.doc
          "If a value is present, there are more file shares to return. In a subsequent request, use NextMarker as the value for Marker to retrieve the next set of file shares."];
      fileShareInfoList: FileShareInfoList.t option
        [@ocaml.doc
          "An array of information about the S3 File Gateway's file shares."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?marker =
      fun ?nextMarker ->
        fun ?fileShareInfoList ->
          fun () -> { marker; nextMarker; fileShareInfoList }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("NextMarker", (Option.map x.nextMarker ~f:Marker.to_value));
        ("FileShareInfoList",
          (Option.map x.fileShareInfoList ~f:FileShareInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareInfoList =
        (Option.map ~f:FileShareInfoList.of_xml)
          (Xml.child xml_arg0 "FileShareInfoList") in
      let nextMarker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "NextMarker") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?fileShareInfoList ?nextMarker ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareInfoList =
        field_map json__ "FileShareInfoList" FileShareInfoList.of_json in
      let nextMarker = field_map json__ "NextMarker" Marker.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?fileShareInfoList ?nextMarker ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ListFileShareOutput"]
module ListFileSharesInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the gateway whose file shares you want to list. If this field is not present, all file shares under your account are listed."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "The maximum number of file shares to return in the response. The value must be an integer with a value greater than zero. Optional."];
      marker: Marker.t option
        [@ocaml.doc
          "Opaque pagination token returned from a previous ListFileShares operation. If present, Marker specifies where to continue the list from after a previous call to ListFileShares. Optional."]}
    let make ?gatewayARN =
      fun ?limit -> fun ?marker -> fun () -> { gatewayARN; limit; marker }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?marker ?limit ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?marker ?limit ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "ListFileShareInput"]
module ListCacheReportsOutput =
  struct
    type nonrec t =
      {
      cacheReportList: CacheReportList.t option
        [@ocaml.doc
          "A list of existing cache reports for all file shares associated with your Amazon Web Services account. This list includes all information provided by the DescribeCacheReport action, such as report status, completion progress, start time, end time, filters, and tags."];
      marker: Marker.t option
        [@ocaml.doc
          "If the request includes Marker, the response returns that value in this field."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cacheReportList =
      fun ?marker -> fun () -> { cacheReportList; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("CacheReportList",
           (Option.map x.cacheReportList ~f:CacheReportList.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let cacheReportList =
        (Option.map ~f:CacheReportList.of_xml)
          (Xml.child xml_arg0 "CacheReportList") in
      make ?marker ?cacheReportList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let cacheReportList =
        field_map json__ "CacheReportList" CacheReportList.of_json in
      make ?marker ?cacheReportList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of existing cache reports for all file shares associated with your Amazon Web Services account. This list includes all information provided by the DescribeCacheReport action, such as report name, status, completion progress, start time, end time, filters, and tags."]
module ListCacheReportsInput =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc
          "Opaque pagination token returned from a previous ListCacheReports operation. If present, Marker specifies where to continue the list from after a previous call to ListCacheReports. Optional."]}
    let make ?marker = fun () -> { marker }
    let to_value x =
      structure_to_value
        [("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of existing cache reports for all file shares associated with your Amazon Web Services account. This list includes all information provided by the DescribeCacheReport action, such as report name, status, completion progress, start time, end time, filters, and tags."]
module ListAutomaticTapeCreationPoliciesOutput =
  struct
    type nonrec t =
      {
      automaticTapeCreationPolicyInfos:
        AutomaticTapeCreationPolicyInfos.t option
        [@ocaml.doc
          "Gets a listing of information about the gateway's automatic tape creation policies, including the automatic tape creation rules and the gateway that is using the policies."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?automaticTapeCreationPolicyInfos =
      fun () -> { automaticTapeCreationPolicyInfos }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("AutomaticTapeCreationPolicyInfos",
           (Option.map x.automaticTapeCreationPolicyInfos
              ~f:AutomaticTapeCreationPolicyInfos.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let automaticTapeCreationPolicyInfos =
        (Option.map ~f:AutomaticTapeCreationPolicyInfos.of_xml)
          (Xml.child xml_arg0 "AutomaticTapeCreationPolicyInfos") in
      make ?automaticTapeCreationPolicyInfos ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let automaticTapeCreationPolicyInfos =
        field_map json__ "AutomaticTapeCreationPolicyInfos"
          AutomaticTapeCreationPolicyInfos.of_json in
      make ?automaticTapeCreationPolicyInfos ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the automatic tape creation policies for a gateway. If there are no automatic tape creation policies for the gateway, it returns an empty list. This operation is only supported for tape gateways."]
module ListAutomaticTapeCreationPoliciesInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    let make ?gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the automatic tape creation policies for a gateway. If there are no automatic tape creation policies for the gateway, it returns an empty list. This operation is only supported for tape gateways."]
module JoinDomainOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) of the gateway that joined the domain."];
      activeDirectoryStatus: ActiveDirectoryStatus.t option
        [@ocaml.doc
          "Indicates the status of the gateway as a member of the Active Directory domain. This field is only used as part of a JoinDomain request. It is not affected by Active Directory connectivity changes that occur after the JoinDomain request succeeds. ACCESS_DENIED: Indicates that the JoinDomain operation failed due to an authentication error. DETACHED: Indicates that gateway is not joined to a domain. JOINED: Indicates that the gateway has successfully joined a domain. JOINING: Indicates that a JoinDomain operation is in progress. INSUFFICIENT_PERMISSIONS: Indicates that the JoinDomain operation failed because the specified user lacks the necessary permissions to join the domain. NETWORK_ERROR: Indicates that JoinDomain operation failed due to a network or connectivity error. TIMEOUT: Indicates that the JoinDomain operation failed because the operation didn't complete within the allotted time. UNKNOWN_ERROR: Indicates that the JoinDomain operation failed due to another type of error."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?activeDirectoryStatus ->
        fun () -> { gatewayARN; activeDirectoryStatus }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("ActiveDirectoryStatus",
          (Option.map x.activeDirectoryStatus
             ~f:ActiveDirectoryStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let activeDirectoryStatus =
        (Option.map ~f:ActiveDirectoryStatus.of_xml)
          (Xml.child xml_arg0 "ActiveDirectoryStatus") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?activeDirectoryStatus ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let activeDirectoryStatus =
        field_map json__ "ActiveDirectoryStatus"
          ActiveDirectoryStatus.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?activeDirectoryStatus ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "JoinDomainOutput"]
module JoinDomainInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the gateway. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."];
      domainName: DomainName.t
        [@ocaml.doc
          "The name of the domain that you want the gateway to join."];
      organizationalUnit: OrganizationalUnit.t option
        [@ocaml.doc
          "The organizational unit (OU) is a container in an Active Directory that can hold users, groups, computers, and other OUs and this parameter specifies the OU that the gateway will join within the AD domain."];
      domainControllers: Hosts.t option
        [@ocaml.doc
          "List of IP addresses, NetBIOS names, or host names of your domain server. If you need to specify the port number include it after the colon (\226\128\156:\226\128\157). For example, mydc.mydomain.com:389. S3 File Gateway supports IPv6 addresses in addition to IPv4 and other existing formats. FSx File Gateway does not support IPv6."];
      timeoutInSeconds: TimeoutInSeconds.t option
        [@ocaml.doc
          "Specifies the time in seconds, in which the JoinDomain operation must complete. The default is 20 seconds."];
      userName: DomainUserName.t
        [@ocaml.doc
          "Sets the user name of user who has permission to add the gateway to the Active Directory domain. The domain user account should be enabled to join computers to the domain. For example, you can use the domain administrator account or an account with delegated permissions to join computers to the domain."];
      password: DomainUserPassword.t
        [@ocaml.doc
          "Sets the password of the user who has permission to add the gateway to the Active Directory domain."]}
    let context_ = "JoinDomainInput"
    let make ?organizationalUnit =
      fun ?domainControllers ->
        fun ?timeoutInSeconds ->
          fun ~gatewayARN ->
            fun ~domainName ->
              fun ~userName ->
                fun ~password ->
                  fun () ->
                    {
                      organizationalUnit;
                      domainControllers;
                      timeoutInSeconds;
                      gatewayARN;
                      domainName;
                      userName;
                      password
                    }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("DomainName", (Some (DomainName.to_value x.domainName)));
        ("OrganizationalUnit",
          (Option.map x.organizationalUnit ~f:OrganizationalUnit.to_value));
        ("DomainControllers",
          (Option.map x.domainControllers ~f:Hosts.to_value));
        ("TimeoutInSeconds",
          (Option.map x.timeoutInSeconds ~f:TimeoutInSeconds.to_value));
        ("UserName", (Some (DomainUserName.to_value x.userName)));
        ("Password", (Some (DomainUserPassword.to_value x.password)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let password =
        DomainUserPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let userName =
        DomainUserName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserName") in
      let timeoutInSeconds =
        (Option.map ~f:TimeoutInSeconds.of_xml)
          (Xml.child xml_arg0 "TimeoutInSeconds") in
      let domainControllers =
        (Option.map ~f:Hosts.of_xml) (Xml.child xml_arg0 "DomainControllers") in
      let organizationalUnit =
        (Option.map ~f:OrganizationalUnit.of_xml)
          (Xml.child xml_arg0 "OrganizationalUnit") in
      let domainName =
        DomainName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DomainName") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~password ~userName ?timeoutInSeconds ?domainControllers
        ?organizationalUnit ~domainName ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let password =
        field_map_exn json__ "Password" DomainUserPassword.of_json in
      let userName = field_map_exn json__ "UserName" DomainUserName.of_json in
      let timeoutInSeconds =
        field_map json__ "TimeoutInSeconds" TimeoutInSeconds.of_json in
      let domainControllers =
        field_map json__ "DomainControllers" Hosts.of_json in
      let organizationalUnit =
        field_map json__ "OrganizationalUnit" OrganizationalUnit.of_json in
      let domainName = field_map_exn json__ "DomainName" DomainName.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~password ~userName ?timeoutInSeconds ?domainControllers
        ?organizationalUnit ~domainName ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "JoinDomainInput"]
module EvictFilesFailingUploadOutput =
  struct
    type nonrec t =
      {
      notificationId: String_.t option
        [@ocaml.doc
          "The randomly generated ID of the CloudWatch notification associated with the cache clean operation. This ID is in UUID format."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?notificationId = fun () -> { notificationId }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("NotificationId",
           (Option.map x.notificationId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NotificationId") in
      make ?notificationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationId = field_map json__ "NotificationId" String_.of_json in
      make ?notificationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a process that cleans the specified file share's cache of file entries that are failing upload to Amazon S3. This API operation reports success if the request is received with valid arguments, and there are no other cache clean operations currently in-progress for the specified file share. After a successful request, the cache clean operation occurs asynchronously and reports progress using CloudWatch logs and notifications. If ForceRemove is set to True, the cache clean operation will delete file data from the gateway which might otherwise be recoverable. We recommend using this operation only after all other methods to clear files failing upload have been exhausted, and if your business need outweighs the potential data loss."]
module EvictFilesFailingUploadInput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file share for which you want to start the cache clean operation."];
      forceRemove: Boolean__lc1.t option
        [@ocaml.doc
          "Specifies whether cache entries with full or partial file data currently stored on the gateway will be forcibly removed by the cache clean operation. Valid arguments: False - The cache clean operation skips cache entries failing upload if they are associated with data currently stored on the gateway. This preserves the cached data. True - The cache clean operation removes cache entries failing upload even if they are associated with data currently stored on the gateway. This deletes the cached data. If ForceRemove is set to True, the cache clean operation will delete file data from the gateway which might otherwise be recoverable."]}
    let context_ = "EvictFilesFailingUploadInput"
    let make ?forceRemove =
      fun ~fileShareARN -> fun () -> { forceRemove; fileShareARN }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)));
        ("ForceRemove", (Option.map x.forceRemove ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forceRemove =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "ForceRemove") in
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ?forceRemove ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forceRemove = field_map json__ "ForceRemove" Boolean__lc1.of_json in
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ?forceRemove ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a process that cleans the specified file share's cache of file entries that are failing upload to Amazon S3. This API operation reports success if the request is received with valid arguments, and there are no other cache clean operations currently in-progress for the specified file share. After a successful request, the cache clean operation occurs asynchronously and reports progress using CloudWatch logs and notifications. If ForceRemove is set to True, the cache clean operation will delete file data from the gateway which might otherwise be recoverable. We recommend using this operation only after all other methods to clear files failing upload have been exhausted, and if your business need outweighs the potential data loss."]
module DisassociateFileSystemOutput =
  struct
    type nonrec t =
      {
      fileSystemAssociationARN: FileSystemAssociationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted file system association."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileSystemAssociationARN =
      fun () -> { fileSystemAssociationARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileSystemAssociationARN",
           (Option.map x.fileSystemAssociationARN
              ~f:FileSystemAssociationARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationARN =
        (Option.map ~f:FileSystemAssociationARN.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationARN") in
      make ?fileSystemAssociationARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationARN =
        field_map json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      make ?fileSystemAssociationARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an Amazon FSx file system from the specified gateway. After the disassociation process finishes, the gateway can no longer access the Amazon FSx file system. This operation is only supported in the FSx File Gateway type."]
module DisassociateFileSystemInput =
  struct
    type nonrec t =
      {
      fileSystemAssociationARN: FileSystemAssociationARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file system association to be deleted."];
      forceDelete: Boolean__lc1.t option
        [@ocaml.doc
          "If this value is set to true, the operation disassociates an Amazon FSx file system immediately. It ends all data uploads to the file system, and the file system association enters the FORCE_DELETING status. If this value is set to false, the Amazon FSx file system does not disassociate until all data is uploaded."]}
    let context_ = "DisassociateFileSystemInput"
    let make ?forceDelete =
      fun ~fileSystemAssociationARN ->
        fun () -> { forceDelete; fileSystemAssociationARN }
    let to_value x =
      structure_to_value
        [("FileSystemAssociationARN",
           (Some
              (FileSystemAssociationARN.to_value x.fileSystemAssociationARN)));
        ("ForceDelete", (Option.map x.forceDelete ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forceDelete =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "ForceDelete") in
      let fileSystemAssociationARN =
        FileSystemAssociationARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FileSystemAssociationARN") in
      make ?forceDelete ~fileSystemAssociationARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forceDelete = field_map json__ "ForceDelete" Boolean__lc1.of_json in
      let fileSystemAssociationARN =
        field_map_exn json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      make ?forceDelete ~fileSystemAssociationARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates an Amazon FSx file system from the specified gateway. After the disassociation process finishes, the gateway can no longer access the Amazon FSx file system. This operation is only supported in the FSx File Gateway type."]
module DisableGatewayOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) of the disabled gateway."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DisableGatewayOutput"]
module DisableGatewayInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DisableGatewayInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DisableGatewayInput"]
module DetachVolumeOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume that was detached."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN = fun () -> { volumeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AttachVolumeOutput"]
module DetachVolumeInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume to detach from the gateway."];
      forceDetach: Boolean.t option
        [@ocaml.doc
          "Set to true to forcibly remove the iSCSI connection of the target volume and detach the volume. The default is false. If this value is set to false, you must manually disconnect the iSCSI connection from the target volume. Valid Values: true | false"]}
    let context_ = "DetachVolumeInput"
    let make ?forceDetach =
      fun ~volumeARN -> fun () -> { forceDetach; volumeARN }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)));
        ("ForceDetach", (Option.map x.forceDetach ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forceDetach =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ForceDetach") in
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ?forceDetach ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forceDetach = field_map json__ "ForceDetach" Boolean.of_json in
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ?forceDetach ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AttachVolumeInput"]
module DescribeWorkingStorageOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      diskIds: DiskIds.t option
        [@ocaml.doc
          "An array of the gateway's local disk IDs that are configured as working storage. Each local disk ID is specified as a string (minimum length of 1 and maximum length of 300). If no local disks are configured as working storage, then the DiskIds array is empty."];
      workingStorageUsedInBytes: Long.t option
        [@ocaml.doc
          "The total working storage in bytes in use by the gateway. If no working storage is configured for the gateway, this field returns 0."];
      workingStorageAllocatedInBytes: Long.t option
        [@ocaml.doc
          "The total working storage in bytes allocated for the gateway. If no working storage is configured for the gateway, this field returns 0."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?diskIds ->
        fun ?workingStorageUsedInBytes ->
          fun ?workingStorageAllocatedInBytes ->
            fun () ->
              {
                gatewayARN;
                diskIds;
                workingStorageUsedInBytes;
                workingStorageAllocatedInBytes
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("DiskIds", (Option.map x.diskIds ~f:DiskIds.to_value));
        ("WorkingStorageUsedInBytes",
          (Option.map x.workingStorageUsedInBytes ~f:Long.to_value));
        ("WorkingStorageAllocatedInBytes",
          (Option.map x.workingStorageAllocatedInBytes ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let workingStorageAllocatedInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "WorkingStorageAllocatedInBytes") in
      let workingStorageUsedInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "WorkingStorageUsedInBytes") in
      let diskIds =
        (Option.map ~f:DiskIds.of_xml) (Xml.child xml_arg0 "DiskIds") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?workingStorageAllocatedInBytes ?workingStorageUsedInBytes
        ?diskIds ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let workingStorageAllocatedInBytes =
        field_map json__ "WorkingStorageAllocatedInBytes" Long.of_json in
      let workingStorageUsedInBytes =
        field_map json__ "WorkingStorageUsedInBytes" Long.of_json in
      let diskIds = field_map json__ "DiskIds" DiskIds.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?workingStorageAllocatedInBytes ?workingStorageUsedInBytes
        ?diskIds ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module DescribeWorkingStorageInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeWorkingStorageInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway."]
module DescribeVTLDevicesOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      vTLDevices: VTLDevices.t option
        [@ocaml.doc
          "An array of VTL device objects composed of the Amazon Resource Name (ARN) of the VTL devices."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which the VTL devices that were fetched for description ended. Use the marker in your next request to fetch the next set of VTL devices in the list. If there are no more VTL devices to describe, this field does not appear in the response."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?vTLDevices ->
        fun ?marker -> fun () -> { gatewayARN; vTLDevices; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("VTLDevices", (Option.map x.vTLDevices ~f:VTLDevices.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let vTLDevices =
        (Option.map ~f:VTLDevices.of_xml) (Xml.child xml_arg0 "VTLDevices") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?marker ?vTLDevices ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let vTLDevices = field_map json__ "VTLDevices" VTLDevices.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?marker ?vTLDevices ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeVTLDevicesOutput"]
module DescribeVTLDevicesInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      vTLDeviceARNs: VTLDeviceARNs.t option
        [@ocaml.doc
          "An array of strings, where each string represents the Amazon Resource Name (ARN) of a VTL device. All of the specified VTL devices must be from the same gateway. If no VTL devices are specified, the result will contain all devices on the specified gateway."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which to begin describing the VTL devices."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the number of VTL devices described be limited to the specified number."]}
    let context_ = "DescribeVTLDevicesInput"
    let make ?vTLDeviceARNs =
      fun ?marker ->
        fun ?limit ->
          fun ~gatewayARN ->
            fun () -> { vTLDeviceARNs; marker; limit; gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("VTLDeviceARNs",
          (Option.map x.vTLDeviceARNs ~f:VTLDeviceARNs.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let vTLDeviceARNs =
        (Option.map ~f:VTLDeviceARNs.of_xml)
          (Xml.child xml_arg0 "VTLDeviceARNs") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?limit ?marker ?vTLDeviceARNs ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let vTLDeviceARNs =
        field_map json__ "VTLDeviceARNs" VTLDeviceARNs.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?limit ?marker ?vTLDeviceARNs ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeVTLDevicesInput"]
module DescribeUploadBufferOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      diskIds: DiskIds.t option
        [@ocaml.doc
          "An array of the gateway's local disk IDs that are configured as working storage. Each local disk ID is specified as a string (minimum length of 1 and maximum length of 300). If no local disks are configured as working storage, then the DiskIds array is empty."];
      uploadBufferUsedInBytes: Long.t option
        [@ocaml.doc
          "The total number of bytes being used in the gateway's upload buffer."];
      uploadBufferAllocatedInBytes: Long.t option
        [@ocaml.doc
          "The total number of bytes allocated in the gateway's as upload buffer."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?diskIds ->
        fun ?uploadBufferUsedInBytes ->
          fun ?uploadBufferAllocatedInBytes ->
            fun () ->
              {
                gatewayARN;
                diskIds;
                uploadBufferUsedInBytes;
                uploadBufferAllocatedInBytes
              }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("DiskIds", (Option.map x.diskIds ~f:DiskIds.to_value));
        ("UploadBufferUsedInBytes",
          (Option.map x.uploadBufferUsedInBytes ~f:Long.to_value));
        ("UploadBufferAllocatedInBytes",
          (Option.map x.uploadBufferAllocatedInBytes ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uploadBufferAllocatedInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "UploadBufferAllocatedInBytes") in
      let uploadBufferUsedInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "UploadBufferUsedInBytes") in
      let diskIds =
        (Option.map ~f:DiskIds.of_xml) (Xml.child xml_arg0 "DiskIds") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?uploadBufferAllocatedInBytes ?uploadBufferUsedInBytes ?diskIds
        ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uploadBufferAllocatedInBytes =
        field_map json__ "UploadBufferAllocatedInBytes" Long.of_json in
      let uploadBufferUsedInBytes =
        field_map json__ "UploadBufferUsedInBytes" Long.of_json in
      let diskIds = field_map json__ "DiskIds" DiskIds.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?uploadBufferAllocatedInBytes ?uploadBufferUsedInBytes ?diskIds
        ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the upload buffer of a gateway. This operation is supported for the stored volume, cached volume, and tape gateway types. The response includes disk IDs that are configured as upload buffer space, and it includes the amount of upload buffer space allocated and used."]
module DescribeUploadBufferInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeUploadBufferInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the upload buffer of a gateway. This operation is supported for the stored volume, cached volume, and tape gateway types. The response includes disk IDs that are configured as upload buffer space, and it includes the amount of upload buffer space allocated and used."]
module DescribeTapesOutput =
  struct
    type nonrec t =
      {
      tapes: Tapes.t option
        [@ocaml.doc "An array of virtual tape descriptions."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that can be used as part of a subsequent DescribeTapes call to retrieve the next page of results. If a response does not contain a marker, then there are no more results to be retrieved."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapes = fun ?marker -> fun () -> { tapes; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("Tapes", (Option.map x.tapes ~f:Tapes.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapes = (Option.map ~f:Tapes.of_xml) (Xml.child xml_arg0 "Tapes") in
      make ?marker ?tapes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapes = field_map json__ "Tapes" Tapes.of_json in
      make ?marker ?tapes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeTapesOutput"]
module DescribeTapesInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      tapeARNs: TapeARNs.t option
        [@ocaml.doc
          "Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. If this parameter is not specified, Tape gateway returns a description of all virtual tapes associated with the specified gateway."];
      marker: Marker.t option
        [@ocaml.doc
          "A marker value, obtained in a previous call to DescribeTapes. This marker indicates which page of results to retrieve. If not specified, the first page of results is retrieved."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the number of virtual tapes described be limited to the specified number. Amazon Web Services may impose its own limit, if this field is not set."]}
    let context_ = "DescribeTapesInput"
    let make ?tapeARNs =
      fun ?marker ->
        fun ?limit ->
          fun ~gatewayARN ->
            fun () -> { tapeARNs; marker; limit; gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TapeARNs", (Option.map x.tapeARNs ~f:TapeARNs.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapeARNs =
        (Option.map ~f:TapeARNs.of_xml) (Xml.child xml_arg0 "TapeARNs") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?limit ?marker ?tapeARNs ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapeARNs = field_map json__ "TapeARNs" TapeARNs.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?limit ?marker ?tapeARNs ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeTapesInput"]
module DescribeTapeRecoveryPointsOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      tapeRecoveryPointInfos: TapeRecoveryPointInfos.t option
        [@ocaml.doc
          "An array of TapeRecoveryPointInfos that are available for the specified gateway."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which the virtual tape recovery points that were listed for description ended. Use this marker in your next request to list the next set of virtual tape recovery points in the list. If there are no more recovery points to describe, this field does not appear in the response."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?tapeRecoveryPointInfos ->
        fun ?marker ->
          fun () -> { gatewayARN; tapeRecoveryPointInfos; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("TapeRecoveryPointInfos",
          (Option.map x.tapeRecoveryPointInfos
             ~f:TapeRecoveryPointInfos.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapeRecoveryPointInfos =
        (Option.map ~f:TapeRecoveryPointInfos.of_xml)
          (Xml.child xml_arg0 "TapeRecoveryPointInfos") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?marker ?tapeRecoveryPointInfos ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapeRecoveryPointInfos =
        field_map json__ "TapeRecoveryPointInfos"
          TapeRecoveryPointInfos.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?marker ?tapeRecoveryPointInfos ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeTapeRecoveryPointsOutput"]
module DescribeTapeRecoveryPointsInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which to begin describing the virtual tape recovery points."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the number of virtual tape recovery points that are described be limited to the specified number."]}
    let context_ = "DescribeTapeRecoveryPointsInput"
    let make ?marker =
      fun ?limit ->
        fun ~gatewayARN -> fun () -> { marker; limit; gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?limit ?marker ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?limit ?marker ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeTapeRecoveryPointsInput"]
module DescribeTapeArchivesOutput =
  struct
    type nonrec t =
      {
      tapeArchives: TapeArchives.t option
        [@ocaml.doc
          "An array of virtual tape objects in the virtual tape shelf (VTS). The description includes of the Amazon Resource Name (ARN) of the virtual tapes. The information returned includes the Amazon Resource Names (ARNs) of the tapes, size of the tapes, status of the tapes, progress of the description, and tape barcode."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which the virtual tapes that were fetched for description ended. Use this marker in your next request to fetch the next set of virtual tapes in the virtual tape shelf (VTS). If there are no more virtual tapes to describe, this field does not appear in the response."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeArchives =
      fun ?marker -> fun () -> { tapeArchives; marker }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeArchives",
           (Option.map x.tapeArchives ~f:TapeArchives.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapeArchives =
        (Option.map ~f:TapeArchives.of_xml)
          (Xml.child xml_arg0 "TapeArchives") in
      make ?marker ?tapeArchives ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapeArchives = field_map json__ "TapeArchives" TapeArchives.of_json in
      make ?marker ?tapeArchives ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeTapeArchivesOutput"]
module DescribeTapeArchivesInput =
  struct
    type nonrec t =
      {
      tapeARNs: TapeARNs.t option
        [@ocaml.doc
          "Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe."];
      marker: Marker.t option
        [@ocaml.doc
          "An opaque string that indicates the position at which to begin describing virtual tapes."];
      limit: PositiveIntObject.t option
        [@ocaml.doc
          "Specifies that the number of virtual tapes described be limited to the specified number."]}
    let make ?tapeARNs =
      fun ?marker -> fun ?limit -> fun () -> { tapeARNs; marker; limit }
    let to_value x =
      structure_to_value
        [("TapeARNs", (Option.map x.tapeARNs ~f:TapeARNs.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("Limit", (Option.map x.limit ~f:PositiveIntObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntObject.of_xml) (Xml.child xml_arg0 "Limit") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let tapeARNs =
        (Option.map ~f:TapeARNs.of_xml) (Xml.child xml_arg0 "TapeARNs") in
      make ?limit ?marker ?tapeARNs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntObject.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let tapeARNs = field_map json__ "TapeARNs" TapeARNs.of_json in
      make ?limit ?marker ?tapeARNs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeTapeArchivesInput"]
module DescribeStorediSCSIVolumesOutput =
  struct
    type nonrec t =
      {
      storediSCSIVolumes: StorediSCSIVolumes.t option
        [@ocaml.doc
          "Describes a single unit of output from DescribeStorediSCSIVolumes. The following fields are returned: ChapEnabled: Indicates whether mutual CHAP is enabled for the iSCSI target. LunNumber: The logical disk number. NetworkInterfaceId: The network interface ID of the stored volume that initiator use to map the stored volume as an iSCSI target. NetworkInterfacePort: The port used to communicate with iSCSI targets. PreservedExistingData: Indicates when the stored volume was created, existing data on the underlying local disk was preserved. SourceSnapshotId: If the stored volume was created from a snapshot, this field contains the snapshot ID used, e.g. snap-1122aabb. Otherwise, this field is not included. StorediSCSIVolumes: An array of StorediSCSIVolume objects where each object contains metadata about one stored volume. TargetARN: The Amazon Resource Name (ARN) of the volume target. VolumeARN: The Amazon Resource Name (ARN) of the stored volume. VolumeDiskId: The disk ID of the local disk that was specified in the CreateStorediSCSIVolume operation. VolumeId: The unique identifier of the storage volume, e.g. vol-1122AABB. VolumeiSCSIAttributes: An VolumeiSCSIAttributes object that represents a collection of iSCSI attributes for one stored volume. VolumeProgress: Represents the percentage complete if the volume is restoring or bootstrapping that represents the percent of data transferred. This field does not appear in the response if the stored volume is not restoring or bootstrapping. VolumeSizeInBytes: The size of the volume in bytes. VolumeStatus: One of the VolumeStatus values that indicates the state of the volume. VolumeType: One of the enumeration values describing the type of the volume. Currently, only STORED volumes are supported."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?storediSCSIVolumes = fun () -> { storediSCSIVolumes }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("StorediSCSIVolumes",
           (Option.map x.storediSCSIVolumes ~f:StorediSCSIVolumes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storediSCSIVolumes =
        (Option.map ~f:StorediSCSIVolumes.of_xml)
          (Xml.child xml_arg0 "StorediSCSIVolumes") in
      make ?storediSCSIVolumes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storediSCSIVolumes =
        field_map json__ "StorediSCSIVolumes" StorediSCSIVolumes.of_json in
      make ?storediSCSIVolumes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of the gateway volumes specified in the request. The list of gateway volumes in the request must be from one gateway. In the response, Storage Gateway returns volume information sorted by volume ARNs. This operation is only supported in stored volume gateway type."]
module DescribeStorediSCSIVolumesInput =
  struct
    type nonrec t =
      {
      volumeARNs: VolumeARNs.t
        [@ocaml.doc
          "An array of strings where each string represents the Amazon Resource Name (ARN) of a stored volume. All of the specified stored volumes must be from the same gateway. Use ListVolumes to get volume ARNs for a gateway."]}
    let context_ = "DescribeStorediSCSIVolumesInput"
    let make ~volumeARNs = fun () -> { volumeARNs }
    let to_value x =
      structure_to_value
        [("VolumeARNs", (Some (VolumeARNs.to_value x.volumeARNs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARNs =
        VolumeARNs.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARNs") in
      make ~volumeARNs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARNs = field_map_exn json__ "VolumeARNs" VolumeARNs.of_json in
      make ~volumeARNs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing a list of DescribeStorediSCSIVolumesInput$VolumeARNs."]
module DescribeSnapshotScheduleOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume that was specified in the request."];
      startAt: HourOfDay.t option
        [@ocaml.doc
          "The hour of the day at which the snapshot schedule begins represented as hh, where hh is the hour (0 to 23). The hour of the day is in the time zone of the gateway."];
      recurrenceInHours: RecurrenceInHours.t option
        [@ocaml.doc "The number of hours between snapshots."];
      description: Description.t option
        [@ocaml.doc "The snapshot description."];
      timezone: GatewayTimezone.t option
        [@ocaml.doc "A value that indicates the time zone of the gateway."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags assigned to the snapshot schedule, sorted alphabetically by key name. Each tag is a key-value pair. For a gateway with more than 10 tags assigned, you can view all tags using the ListTagsForResource API operation."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN =
      fun ?startAt ->
        fun ?recurrenceInHours ->
          fun ?description ->
            fun ?timezone ->
              fun ?tags ->
                fun () ->
                  {
                    volumeARN;
                    startAt;
                    recurrenceInHours;
                    description;
                    timezone;
                    tags
                  }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("StartAt", (Option.map x.startAt ~f:HourOfDay.to_value));
        ("RecurrenceInHours",
          (Option.map x.recurrenceInHours ~f:RecurrenceInHours.to_value));
        ("Description", (Option.map x.description ~f:Description.to_value));
        ("Timezone", (Option.map x.timezone ~f:GatewayTimezone.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let timezone =
        (Option.map ~f:GatewayTimezone.of_xml)
          (Xml.child xml_arg0 "Timezone") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "Description") in
      let recurrenceInHours =
        (Option.map ~f:RecurrenceInHours.of_xml)
          (Xml.child xml_arg0 "RecurrenceInHours") in
      let startAt =
        (Option.map ~f:HourOfDay.of_xml) (Xml.child xml_arg0 "StartAt") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?tags ?timezone ?description ?recurrenceInHours ?startAt
        ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let timezone = field_map json__ "Timezone" GatewayTimezone.of_json in
      let description = field_map json__ "Description" Description.of_json in
      let recurrenceInHours =
        field_map json__ "RecurrenceInHours" RecurrenceInHours.of_json in
      let startAt = field_map json__ "StartAt" HourOfDay.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?tags ?timezone ?description ?recurrenceInHours ?startAt
        ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the snapshot schedule for the specified gateway volume. The snapshot schedule information includes intervals at which snapshots are automatically initiated on the volume. This operation is only supported in the cached volume and stored volume types."]
module DescribeSnapshotScheduleInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Use the ListVolumes operation to return a list of gateway volumes."]}
    let context_ = "DescribeSnapshotScheduleInput"
    let make ~volumeARN = fun () -> { volumeARN }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the DescribeSnapshotScheduleInput$VolumeARN of the volume."]
module DescribeSMBSettingsOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      domainName: DomainName.t option
        [@ocaml.doc "The name of the domain that the gateway is joined to."];
      activeDirectoryStatus: ActiveDirectoryStatus.t option
        [@ocaml.doc
          "Indicates the status of a gateway that is a member of the Active Directory domain. This field is only used as part of a JoinDomain request. It is not affected by Active Directory connectivity changes that occur after the JoinDomain request succeeds. ACCESS_DENIED: Indicates that the JoinDomain operation failed due to an authentication error. DETACHED: Indicates that gateway is not joined to a domain. JOINED: Indicates that the gateway has successfully joined a domain. JOINING: Indicates that a JoinDomain operation is in progress. NETWORK_ERROR: Indicates that JoinDomain operation failed due to a network or connectivity error. TIMEOUT: Indicates that the JoinDomain operation failed because the operation didn't complete within the allotted time. UNKNOWN_ERROR: Indicates that the JoinDomain operation failed due to another type of error."];
      sMBGuestPasswordSet: Boolean.t option
        [@ocaml.doc
          "This value is true if a password for the guest user smbguest is set, otherwise false. Only supported for S3 File Gateways. Valid Values: true | false"];
      sMBSecurityStrategy: SMBSecurityStrategy.t option
        [@ocaml.doc
          "The type of security strategy that was specified for file gateway. ClientSpecified: If you choose this option, requests are established based on what is negotiated by the client. This option is recommended when you want to maximize compatibility across different clients in your environment. Supported only for S3 File Gateway. MandatorySigning: If you choose this option, File Gateway only allows connections from SMBv2 or SMBv3 clients that have signing turned on. This option works with SMB clients on Microsoft Windows Vista, Windows Server 2008, or later. MandatoryEncryption: If you choose this option, File Gateway only allows connections from SMBv3 clients that have encryption turned on. Both 256-bit and 128-bit algorithms are allowed. This option is recommended for environments that handle sensitive data. It works with SMB clients on Microsoft Windows 8, Windows Server 2012, or later. MandatoryEncryptionNoAes128: If you choose this option, File Gateway only allows connections from SMBv3 clients that use 256-bit AES encryption algorithms. 128-bit algorithms are not allowed. This option is recommended for environments that handle sensitive data. It works with SMB clients on Microsoft Windows 8, Windows Server 2012, or later."];
      fileSharesVisible: Boolean.t option
        [@ocaml.doc
          "The shares on this gateway appear when listing shares. Only supported for S3 File Gateways."];
      sMBLocalGroups: SMBLocalGroups.t option
        [@ocaml.doc
          "A list of Active Directory users and groups that have special permissions for SMB file shares on the gateway."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?domainName ->
        fun ?activeDirectoryStatus ->
          fun ?sMBGuestPasswordSet ->
            fun ?sMBSecurityStrategy ->
              fun ?fileSharesVisible ->
                fun ?sMBLocalGroups ->
                  fun () ->
                    {
                      gatewayARN;
                      domainName;
                      activeDirectoryStatus;
                      sMBGuestPasswordSet;
                      sMBSecurityStrategy;
                      fileSharesVisible;
                      sMBLocalGroups
                    }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("DomainName", (Option.map x.domainName ~f:DomainName.to_value));
        ("ActiveDirectoryStatus",
          (Option.map x.activeDirectoryStatus
             ~f:ActiveDirectoryStatus.to_value));
        ("SMBGuestPasswordSet",
          (Option.map x.sMBGuestPasswordSet ~f:Boolean.to_value));
        ("SMBSecurityStrategy",
          (Option.map x.sMBSecurityStrategy ~f:SMBSecurityStrategy.to_value));
        ("FileSharesVisible",
          (Option.map x.fileSharesVisible ~f:Boolean.to_value));
        ("SMBLocalGroups",
          (Option.map x.sMBLocalGroups ~f:SMBLocalGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sMBLocalGroups =
        (Option.map ~f:SMBLocalGroups.of_xml)
          (Xml.child xml_arg0 "SMBLocalGroups") in
      let fileSharesVisible =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "FileSharesVisible") in
      let sMBSecurityStrategy =
        (Option.map ~f:SMBSecurityStrategy.of_xml)
          (Xml.child xml_arg0 "SMBSecurityStrategy") in
      let sMBGuestPasswordSet =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "SMBGuestPasswordSet") in
      let activeDirectoryStatus =
        (Option.map ~f:ActiveDirectoryStatus.of_xml)
          (Xml.child xml_arg0 "ActiveDirectoryStatus") in
      let domainName =
        (Option.map ~f:DomainName.of_xml) (Xml.child xml_arg0 "DomainName") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?sMBLocalGroups ?fileSharesVisible ?sMBSecurityStrategy
        ?sMBGuestPasswordSet ?activeDirectoryStatus ?domainName ?gatewayARN
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sMBLocalGroups =
        field_map json__ "SMBLocalGroups" SMBLocalGroups.of_json in
      let fileSharesVisible =
        field_map json__ "FileSharesVisible" Boolean.of_json in
      let sMBSecurityStrategy =
        field_map json__ "SMBSecurityStrategy" SMBSecurityStrategy.of_json in
      let sMBGuestPasswordSet =
        field_map json__ "SMBGuestPasswordSet" Boolean.of_json in
      let activeDirectoryStatus =
        field_map json__ "ActiveDirectoryStatus"
          ActiveDirectoryStatus.of_json in
      let domainName = field_map json__ "DomainName" DomainName.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?sMBLocalGroups ?fileSharesVisible ?sMBSecurityStrategy
        ?sMBGuestPasswordSet ?activeDirectoryStatus ?domainName ?gatewayARN
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a description of a Server Message Block (SMB) file share settings from a file gateway. This operation is only supported for file gateways."]
module DescribeSMBSettingsInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeSMBSettingsInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets a description of a Server Message Block (SMB) file share settings from a file gateway. This operation is only supported for file gateways."]
module DescribeSMBFileSharesOutput =
  struct
    type nonrec t =
      {
      sMBFileShareInfoList: SMBFileShareInfoList.t option
        [@ocaml.doc
          "An array containing a description for each requested file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sMBFileShareInfoList = fun () -> { sMBFileShareInfoList }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("SMBFileShareInfoList",
           (Option.map x.sMBFileShareInfoList
              ~f:SMBFileShareInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sMBFileShareInfoList =
        (Option.map ~f:SMBFileShareInfoList.of_xml)
          (Xml.child xml_arg0 "SMBFileShareInfoList") in
      make ?sMBFileShareInfoList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sMBFileShareInfoList =
        field_map json__ "SMBFileShareInfoList" SMBFileShareInfoList.of_json in
      make ?sMBFileShareInfoList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeSMBFileSharesOutput"]
module DescribeSMBFileSharesInput =
  struct
    type nonrec t =
      {
      fileShareARNList: FileShareARNList.t
        [@ocaml.doc
          "An array containing the Amazon Resource Name (ARN) of each file share to be described."]}
    let context_ = "DescribeSMBFileSharesInput"
    let make ~fileShareARNList = fun () -> { fileShareARNList }
    let to_value x =
      structure_to_value
        [("FileShareARNList",
           (Some (FileShareARNList.to_value x.fileShareARNList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARNList =
        FileShareARNList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARNList") in
      make ~fileShareARNList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARNList =
        field_map_exn json__ "FileShareARNList" FileShareARNList.of_json in
      make ~fileShareARNList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeSMBFileSharesInput"]
module DescribeNFSFileSharesOutput =
  struct
    type nonrec t =
      {
      nFSFileShareInfoList: NFSFileShareInfoList.t option
        [@ocaml.doc
          "An array containing a description for each requested file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nFSFileShareInfoList = fun () -> { nFSFileShareInfoList }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("NFSFileShareInfoList",
           (Option.map x.nFSFileShareInfoList
              ~f:NFSFileShareInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nFSFileShareInfoList =
        (Option.map ~f:NFSFileShareInfoList.of_xml)
          (Xml.child xml_arg0 "NFSFileShareInfoList") in
      make ?nFSFileShareInfoList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nFSFileShareInfoList =
        field_map json__ "NFSFileShareInfoList" NFSFileShareInfoList.of_json in
      make ?nFSFileShareInfoList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeNFSFileSharesOutput"]
module DescribeNFSFileSharesInput =
  struct
    type nonrec t =
      {
      fileShareARNList: FileShareARNList.t
        [@ocaml.doc
          "An array containing the Amazon Resource Name (ARN) of each file share to be described."]}
    let context_ = "DescribeNFSFileSharesInput"
    let make ~fileShareARNList = fun () -> { fileShareARNList }
    let to_value x =
      structure_to_value
        [("FileShareARNList",
           (Some (FileShareARNList.to_value x.fileShareARNList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARNList =
        FileShareARNList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARNList") in
      make ~fileShareARNList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARNList =
        field_map_exn json__ "FileShareARNList" FileShareARNList.of_json in
      make ~fileShareARNList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DescribeNFSFileSharesInput"]
module DescribeMaintenanceStartTimeOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      hourOfDay: HourOfDay.t option
        [@ocaml.doc
          "The hour component of the maintenance start time represented as hh, where hh is the hour (0 to 23). The hour of the day is in the time zone of the gateway."];
      minuteOfHour: MinuteOfHour.t option
        [@ocaml.doc
          "The minute component of the maintenance start time represented as mm, where mm is the minute (0 to 59). The minute of the hour is in the time zone of the gateway."];
      dayOfWeek: DayOfWeek.t option
        [@ocaml.doc
          "An ordinal number between 0 and 6 that represents the day of the week, where 0 represents Sunday and 6 represents Saturday. The day of week is in the time zone of the gateway."];
      dayOfMonth: DayOfMonth.t option
        [@ocaml.doc
          "The day of the month component of the maintenance start time represented as an ordinal number from 1 to 28, where 1 represents the first day of the month. It is not possible to set the maintenance schedule to start on days 29 through 31."];
      timezone: GatewayTimezone.t option
        [@ocaml.doc
          "A value that indicates the time zone that is set for the gateway. The start time and day of week specified should be in the time zone of the gateway."];
      softwareUpdatePreferences: SoftwareUpdatePreferences.t option
        [@ocaml.doc
          "A set of variables indicating the software update preferences for the gateway. Includes AutomaticUpdatePolicy parameter with the following inputs: ALL_VERSIONS - Enables regular gateway maintenance updates. EMERGENCY_VERSIONS_ONLY - Disables regular gateway maintenance updates. The gateway will still receive emergency version updates on rare occasions if necessary to remedy highly critical security or durability issues. You will be notified before an emergency version update is applied. These updates are applied during your gateway's scheduled maintenance window."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?hourOfDay ->
        fun ?minuteOfHour ->
          fun ?dayOfWeek ->
            fun ?dayOfMonth ->
              fun ?timezone ->
                fun ?softwareUpdatePreferences ->
                  fun () ->
                    {
                      gatewayARN;
                      hourOfDay;
                      minuteOfHour;
                      dayOfWeek;
                      dayOfMonth;
                      timezone;
                      softwareUpdatePreferences
                    }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("HourOfDay", (Option.map x.hourOfDay ~f:HourOfDay.to_value));
        ("MinuteOfHour",
          (Option.map x.minuteOfHour ~f:MinuteOfHour.to_value));
        ("DayOfWeek", (Option.map x.dayOfWeek ~f:DayOfWeek.to_value));
        ("DayOfMonth", (Option.map x.dayOfMonth ~f:DayOfMonth.to_value));
        ("Timezone", (Option.map x.timezone ~f:GatewayTimezone.to_value));
        ("SoftwareUpdatePreferences",
          (Option.map x.softwareUpdatePreferences
             ~f:SoftwareUpdatePreferences.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let softwareUpdatePreferences =
        (Option.map ~f:SoftwareUpdatePreferences.of_xml)
          (Xml.child xml_arg0 "SoftwareUpdatePreferences") in
      let timezone =
        (Option.map ~f:GatewayTimezone.of_xml)
          (Xml.child xml_arg0 "Timezone") in
      let dayOfMonth =
        (Option.map ~f:DayOfMonth.of_xml) (Xml.child xml_arg0 "DayOfMonth") in
      let dayOfWeek =
        (Option.map ~f:DayOfWeek.of_xml) (Xml.child xml_arg0 "DayOfWeek") in
      let minuteOfHour =
        (Option.map ~f:MinuteOfHour.of_xml)
          (Xml.child xml_arg0 "MinuteOfHour") in
      let hourOfDay =
        (Option.map ~f:HourOfDay.of_xml) (Xml.child xml_arg0 "HourOfDay") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?softwareUpdatePreferences ?timezone ?dayOfMonth ?dayOfWeek
        ?minuteOfHour ?hourOfDay ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let softwareUpdatePreferences =
        field_map json__ "SoftwareUpdatePreferences"
          SoftwareUpdatePreferences.of_json in
      let timezone = field_map json__ "Timezone" GatewayTimezone.of_json in
      let dayOfMonth = field_map json__ "DayOfMonth" DayOfMonth.of_json in
      let dayOfWeek = field_map json__ "DayOfWeek" DayOfWeek.of_json in
      let minuteOfHour = field_map json__ "MinuteOfHour" MinuteOfHour.of_json in
      let hourOfDay = field_map json__ "HourOfDay" HourOfDay.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?softwareUpdatePreferences ?timezone ?dayOfMonth ?dayOfWeek
        ?minuteOfHour ?hourOfDay ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the following fields: DescribeMaintenanceStartTimeOutput$SoftwareUpdatePreferences DescribeMaintenanceStartTimeOutput$DayOfMonth DescribeMaintenanceStartTimeOutput$DayOfWeek DescribeMaintenanceStartTimeOutput$HourOfDay DescribeMaintenanceStartTimeOutput$MinuteOfHour DescribeMaintenanceStartTimeOutput$Timezone"]
module DescribeMaintenanceStartTimeInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeMaintenanceStartTimeInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway."]
module DescribeGatewayInformationOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      gatewayId: GatewayId.t option
        [@ocaml.doc
          "The unique identifier assigned to your gateway during activation. This ID becomes part of the gateway Amazon Resource Name (ARN), which you use as input for other operations."];
      gatewayName: String_.t option
        [@ocaml.doc "The name you configured for your gateway."];
      gatewayTimezone: GatewayTimezone.t option
        [@ocaml.doc
          "A value that indicates the time zone configured for the gateway."];
      gatewayState: GatewayState.t option
        [@ocaml.doc
          "A value that indicates the operating state of the gateway."];
      gatewayNetworkInterfaces: GatewayNetworkInterfaces.t option
        [@ocaml.doc
          "A NetworkInterface array that contains descriptions of the gateway network interfaces."];
      gatewayType: GatewayType.t option
        [@ocaml.doc
          "The type of the gateway. Amazon FSx File Gateway is no longer available to new customers. Existing customers of FSx File Gateway can continue to use the service normally. For capabilities similar to FSx File Gateway, visit this blog post."];
      nextUpdateAvailabilityDate: NextUpdateAvailabilityDate.t option
        [@ocaml.doc
          "The date on which an update to the gateway is available. This date is in the time zone of the gateway. If the gateway is not available for an update this field is not returned in the response."];
      lastSoftwareUpdate: LastSoftwareUpdate.t option
        [@ocaml.doc
          "The date on which the last software update was applied to the gateway. If the gateway has never been updated, this field does not return a value in the response. This only only exist and returns once it have been chosen and set by the SGW service, based on the OS version of the gateway VM"];
      ec2InstanceId: Ec2InstanceId.t option
        [@ocaml.doc
          "The ID of the Amazon EC2 instance that was used to launch the gateway."];
      ec2InstanceRegion: Ec2InstanceRegion.t option
        [@ocaml.doc
          "The Amazon Web Services Region where the Amazon EC2 instance is located."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags assigned to the gateway, sorted alphabetically by key name. Each tag is a key-value pair. For a gateway with more than 10 tags assigned, you can view all tags using the ListTagsForResource API operation."];
      vPCEndpoint: String_.t option
        [@ocaml.doc
          "The configuration settings for the virtual private cloud (VPC) endpoint for your gateway."];
      cloudWatchLogGroupARN: CloudWatchLogGroupARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon CloudWatch log group that is used to monitor events in the gateway. This field only only exist and returns once it have been chosen and set by the SGW service, based on the OS version of the gateway VM"];
      hostEnvironment: HostEnvironment.t option
        [@ocaml.doc
          "The type of hardware or software platform on which the gateway is running. Tape Gateway is no longer available on Snow Family devices."];
      endpointType: EndpointType.t option
        [@ocaml.doc
          "The type of endpoint for your gateway. Valid Values: STANDARD | FIPS"];
      softwareUpdatesEndDate: SoftwareUpdatesEndDate.t option
        [@ocaml.doc
          "Date after which this gateway will not receive software updates for new features."];
      deprecationDate: DeprecationDate.t option
        [@ocaml.doc
          "Date after which this gateway will not receive software updates for new features and bug fixes."];
      gatewayCapacity: GatewayCapacity.t option
        [@ocaml.doc "Specifies the size of the gateway's metadata cache."];
      supportedGatewayCapacities: SupportedGatewayCapacities.t option
        [@ocaml.doc
          "A list of the metadata cache sizes that the gateway can support based on its current hardware specifications."];
      hostEnvironmentId: HostEnvironmentId.t option
        [@ocaml.doc
          "A unique identifier for the specific instance of the host platform running the gateway. This value is only available for certain host environments, and its format depends on the host environment type."];
      softwareVersion: SoftwareVersion.t option
        [@ocaml.doc
          "The version number of the software running on the gateway appliance."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?gatewayId ->
        fun ?gatewayName ->
          fun ?gatewayTimezone ->
            fun ?gatewayState ->
              fun ?gatewayNetworkInterfaces ->
                fun ?gatewayType ->
                  fun ?nextUpdateAvailabilityDate ->
                    fun ?lastSoftwareUpdate ->
                      fun ?ec2InstanceId ->
                        fun ?ec2InstanceRegion ->
                          fun ?tags ->
                            fun ?vPCEndpoint ->
                              fun ?cloudWatchLogGroupARN ->
                                fun ?hostEnvironment ->
                                  fun ?endpointType ->
                                    fun ?softwareUpdatesEndDate ->
                                      fun ?deprecationDate ->
                                        fun ?gatewayCapacity ->
                                          fun ?supportedGatewayCapacities ->
                                            fun ?hostEnvironmentId ->
                                              fun ?softwareVersion ->
                                                fun () ->
                                                  {
                                                    gatewayARN;
                                                    gatewayId;
                                                    gatewayName;
                                                    gatewayTimezone;
                                                    gatewayState;
                                                    gatewayNetworkInterfaces;
                                                    gatewayType;
                                                    nextUpdateAvailabilityDate;
                                                    lastSoftwareUpdate;
                                                    ec2InstanceId;
                                                    ec2InstanceRegion;
                                                    tags;
                                                    vPCEndpoint;
                                                    cloudWatchLogGroupARN;
                                                    hostEnvironment;
                                                    endpointType;
                                                    softwareUpdatesEndDate;
                                                    deprecationDate;
                                                    gatewayCapacity;
                                                    supportedGatewayCapacities;
                                                    hostEnvironmentId;
                                                    softwareVersion
                                                  }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("GatewayId", (Option.map x.gatewayId ~f:GatewayId.to_value));
        ("GatewayName", (Option.map x.gatewayName ~f:String_.to_value));
        ("GatewayTimezone",
          (Option.map x.gatewayTimezone ~f:GatewayTimezone.to_value));
        ("GatewayState",
          (Option.map x.gatewayState ~f:GatewayState.to_value));
        ("GatewayNetworkInterfaces",
          (Option.map x.gatewayNetworkInterfaces
             ~f:GatewayNetworkInterfaces.to_value));
        ("GatewayType", (Option.map x.gatewayType ~f:GatewayType.to_value));
        ("NextUpdateAvailabilityDate",
          (Option.map x.nextUpdateAvailabilityDate
             ~f:NextUpdateAvailabilityDate.to_value));
        ("LastSoftwareUpdate",
          (Option.map x.lastSoftwareUpdate ~f:LastSoftwareUpdate.to_value));
        ("Ec2InstanceId",
          (Option.map x.ec2InstanceId ~f:Ec2InstanceId.to_value));
        ("Ec2InstanceRegion",
          (Option.map x.ec2InstanceRegion ~f:Ec2InstanceRegion.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("VPCEndpoint", (Option.map x.vPCEndpoint ~f:String_.to_value));
        ("CloudWatchLogGroupARN",
          (Option.map x.cloudWatchLogGroupARN
             ~f:CloudWatchLogGroupARN.to_value));
        ("HostEnvironment",
          (Option.map x.hostEnvironment ~f:HostEnvironment.to_value));
        ("EndpointType",
          (Option.map x.endpointType ~f:EndpointType.to_value));
        ("SoftwareUpdatesEndDate",
          (Option.map x.softwareUpdatesEndDate
             ~f:SoftwareUpdatesEndDate.to_value));
        ("DeprecationDate",
          (Option.map x.deprecationDate ~f:DeprecationDate.to_value));
        ("GatewayCapacity",
          (Option.map x.gatewayCapacity ~f:GatewayCapacity.to_value));
        ("SupportedGatewayCapacities",
          (Option.map x.supportedGatewayCapacities
             ~f:SupportedGatewayCapacities.to_value));
        ("HostEnvironmentId",
          (Option.map x.hostEnvironmentId ~f:HostEnvironmentId.to_value));
        ("SoftwareVersion",
          (Option.map x.softwareVersion ~f:SoftwareVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let softwareVersion =
        (Option.map ~f:SoftwareVersion.of_xml)
          (Xml.child xml_arg0 "SoftwareVersion") in
      let hostEnvironmentId =
        (Option.map ~f:HostEnvironmentId.of_xml)
          (Xml.child xml_arg0 "HostEnvironmentId") in
      let supportedGatewayCapacities =
        (Option.map ~f:SupportedGatewayCapacities.of_xml)
          (Xml.child xml_arg0 "SupportedGatewayCapacities") in
      let gatewayCapacity =
        (Option.map ~f:GatewayCapacity.of_xml)
          (Xml.child xml_arg0 "GatewayCapacity") in
      let deprecationDate =
        (Option.map ~f:DeprecationDate.of_xml)
          (Xml.child xml_arg0 "DeprecationDate") in
      let softwareUpdatesEndDate =
        (Option.map ~f:SoftwareUpdatesEndDate.of_xml)
          (Xml.child xml_arg0 "SoftwareUpdatesEndDate") in
      let endpointType =
        (Option.map ~f:EndpointType.of_xml)
          (Xml.child xml_arg0 "EndpointType") in
      let hostEnvironment =
        (Option.map ~f:HostEnvironment.of_xml)
          (Xml.child xml_arg0 "HostEnvironment") in
      let cloudWatchLogGroupARN =
        (Option.map ~f:CloudWatchLogGroupARN.of_xml)
          (Xml.child xml_arg0 "CloudWatchLogGroupARN") in
      let vPCEndpoint =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "VPCEndpoint") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let ec2InstanceRegion =
        (Option.map ~f:Ec2InstanceRegion.of_xml)
          (Xml.child xml_arg0 "Ec2InstanceRegion") in
      let ec2InstanceId =
        (Option.map ~f:Ec2InstanceId.of_xml)
          (Xml.child xml_arg0 "Ec2InstanceId") in
      let lastSoftwareUpdate =
        (Option.map ~f:LastSoftwareUpdate.of_xml)
          (Xml.child xml_arg0 "LastSoftwareUpdate") in
      let nextUpdateAvailabilityDate =
        (Option.map ~f:NextUpdateAvailabilityDate.of_xml)
          (Xml.child xml_arg0 "NextUpdateAvailabilityDate") in
      let gatewayType =
        (Option.map ~f:GatewayType.of_xml) (Xml.child xml_arg0 "GatewayType") in
      let gatewayNetworkInterfaces =
        (Option.map ~f:GatewayNetworkInterfaces.of_xml)
          (Xml.child xml_arg0 "GatewayNetworkInterfaces") in
      let gatewayState =
        (Option.map ~f:GatewayState.of_xml)
          (Xml.child xml_arg0 "GatewayState") in
      let gatewayTimezone =
        (Option.map ~f:GatewayTimezone.of_xml)
          (Xml.child xml_arg0 "GatewayTimezone") in
      let gatewayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "GatewayName") in
      let gatewayId =
        (Option.map ~f:GatewayId.of_xml) (Xml.child xml_arg0 "GatewayId") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?softwareVersion ?hostEnvironmentId ?supportedGatewayCapacities
        ?gatewayCapacity ?deprecationDate ?softwareUpdatesEndDate
        ?endpointType ?hostEnvironment ?cloudWatchLogGroupARN ?vPCEndpoint
        ?tags ?ec2InstanceRegion ?ec2InstanceId ?lastSoftwareUpdate
        ?nextUpdateAvailabilityDate ?gatewayType ?gatewayNetworkInterfaces
        ?gatewayState ?gatewayTimezone ?gatewayName ?gatewayId ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let softwareVersion =
        field_map json__ "SoftwareVersion" SoftwareVersion.of_json in
      let hostEnvironmentId =
        field_map json__ "HostEnvironmentId" HostEnvironmentId.of_json in
      let supportedGatewayCapacities =
        field_map json__ "SupportedGatewayCapacities"
          SupportedGatewayCapacities.of_json in
      let gatewayCapacity =
        field_map json__ "GatewayCapacity" GatewayCapacity.of_json in
      let deprecationDate =
        field_map json__ "DeprecationDate" DeprecationDate.of_json in
      let softwareUpdatesEndDate =
        field_map json__ "SoftwareUpdatesEndDate"
          SoftwareUpdatesEndDate.of_json in
      let endpointType = field_map json__ "EndpointType" EndpointType.of_json in
      let hostEnvironment =
        field_map json__ "HostEnvironment" HostEnvironment.of_json in
      let cloudWatchLogGroupARN =
        field_map json__ "CloudWatchLogGroupARN"
          CloudWatchLogGroupARN.of_json in
      let vPCEndpoint = field_map json__ "VPCEndpoint" String_.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let ec2InstanceRegion =
        field_map json__ "Ec2InstanceRegion" Ec2InstanceRegion.of_json in
      let ec2InstanceId =
        field_map json__ "Ec2InstanceId" Ec2InstanceId.of_json in
      let lastSoftwareUpdate =
        field_map json__ "LastSoftwareUpdate" LastSoftwareUpdate.of_json in
      let nextUpdateAvailabilityDate =
        field_map json__ "NextUpdateAvailabilityDate"
          NextUpdateAvailabilityDate.of_json in
      let gatewayType = field_map json__ "GatewayType" GatewayType.of_json in
      let gatewayNetworkInterfaces =
        field_map json__ "GatewayNetworkInterfaces"
          GatewayNetworkInterfaces.of_json in
      let gatewayState = field_map json__ "GatewayState" GatewayState.of_json in
      let gatewayTimezone =
        field_map json__ "GatewayTimezone" GatewayTimezone.of_json in
      let gatewayName = field_map json__ "GatewayName" String_.of_json in
      let gatewayId = field_map json__ "GatewayId" GatewayId.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?softwareVersion ?hostEnvironmentId ?supportedGatewayCapacities
        ?gatewayCapacity ?deprecationDate ?softwareUpdatesEndDate
        ?endpointType ?hostEnvironment ?cloudWatchLogGroupARN ?vPCEndpoint
        ?tags ?ec2InstanceRegion ?ec2InstanceId ?lastSoftwareUpdate
        ?nextUpdateAvailabilityDate ?gatewayType ?gatewayNetworkInterfaces
        ?gatewayState ?gatewayTimezone ?gatewayName ?gatewayId ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module DescribeGatewayInformationInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeGatewayInformationInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the ID of the gateway."]
module DescribeFileSystemAssociationsOutput =
  struct
    type nonrec t =
      {
      fileSystemAssociationInfoList: FileSystemAssociationInfoList.t option
        [@ocaml.doc
          "An array containing the FileSystemAssociationInfo data type of each file system association to be described."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileSystemAssociationInfoList =
      fun () -> { fileSystemAssociationInfoList }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileSystemAssociationInfoList",
           (Option.map x.fileSystemAssociationInfoList
              ~f:FileSystemAssociationInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationInfoList =
        (Option.map ~f:FileSystemAssociationInfoList.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationInfoList") in
      make ?fileSystemAssociationInfoList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationInfoList =
        field_map json__ "FileSystemAssociationInfoList"
          FileSystemAssociationInfoList.of_json in
      make ?fileSystemAssociationInfoList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the file system association information. This operation is only supported for FSx File Gateways."]
module DescribeFileSystemAssociationsInput =
  struct
    type nonrec t =
      {
      fileSystemAssociationARNList: FileSystemAssociationARNList.t
        [@ocaml.doc
          "An array containing the Amazon Resource Name (ARN) of each file system association to be described."]}
    let context_ = "DescribeFileSystemAssociationsInput"
    let make ~fileSystemAssociationARNList =
      fun () -> { fileSystemAssociationARNList }
    let to_value x =
      structure_to_value
        [("FileSystemAssociationARNList",
           (Some
              (FileSystemAssociationARNList.to_value
                 x.fileSystemAssociationARNList)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationARNList =
        FileSystemAssociationARNList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "FileSystemAssociationARNList") in
      make ~fileSystemAssociationARNList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationARNList =
        field_map_exn json__ "FileSystemAssociationARNList"
          FileSystemAssociationARNList.of_json in
      make ~fileSystemAssociationARNList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets the file system association information. This operation is only supported for FSx File Gateways."]
module DescribeChapCredentialsOutput =
  struct
    type nonrec t =
      {
      chapCredentials: ChapCredentials.t option
        [@ocaml.doc
          "An array of ChapInfo objects that represent CHAP credentials. Each object in the array contains CHAP credential information for one target-initiator pair. If no CHAP credentials are set, an empty array is returned. CHAP credential information is provided in a JSON object with the following fields: InitiatorName: The iSCSI initiator that connects to the target. SecretToAuthenticateInitiator: The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target. SecretToAuthenticateTarget: The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g. Windows client). TargetARN: The Amazon Resource Name (ARN) of the storage volume."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?chapCredentials = fun () -> { chapCredentials }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("ChapCredentials",
           (Option.map x.chapCredentials ~f:ChapCredentials.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let chapCredentials =
        (Option.map ~f:ChapCredentials.of_xml)
          (Xml.child xml_arg0 "ChapCredentials") in
      make ?chapCredentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let chapCredentials =
        field_map json__ "ChapCredentials" ChapCredentials.of_json in
      make ?chapCredentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module DescribeChapCredentialsInput =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the iSCSI volume target. Use the DescribeStorediSCSIVolumes operation to return to retrieve the TargetARN for specified VolumeARN."]}
    let context_ = "DescribeChapCredentialsInput"
    let make ~targetARN = fun () -> { targetARN }
    let to_value x =
      structure_to_value
        [("TargetARN", (Some (TargetARN.to_value x.targetARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetARN =
        TargetARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetARN") in
      make ~targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetARN = field_map_exn json__ "TargetARN" TargetARN.of_json in
      make ~targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the iSCSI volume target."]
module DescribeCachediSCSIVolumesOutput =
  struct
    type nonrec t =
      {
      cachediSCSIVolumes: CachediSCSIVolumes.t option
        [@ocaml.doc
          "An array of objects where each object contains metadata about one cached volume."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cachediSCSIVolumes = fun () -> { cachediSCSIVolumes }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("CachediSCSIVolumes",
           (Option.map x.cachediSCSIVolumes ~f:CachediSCSIVolumes.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cachediSCSIVolumes =
        (Option.map ~f:CachediSCSIVolumes.of_xml)
          (Xml.child xml_arg0 "CachediSCSIVolumes") in
      make ?cachediSCSIVolumes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cachediSCSIVolumes =
        field_map json__ "CachediSCSIVolumes" CachediSCSIVolumes.of_json in
      make ?cachediSCSIVolumes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module DescribeCachediSCSIVolumesInput =
  struct
    type nonrec t =
      {
      volumeARNs: VolumeARNs.t
        [@ocaml.doc
          "An array of strings where each string represents the Amazon Resource Name (ARN) of a cached volume. All of the specified cached volumes must be from the same gateway. Use ListVolumes to get volume ARNs for a gateway."]}
    let context_ = "DescribeCachediSCSIVolumesInput"
    let make ~volumeARNs = fun () -> { volumeARNs }
    let to_value x =
      structure_to_value
        [("VolumeARNs", (Some (VolumeARNs.to_value x.volumeARNs)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARNs =
        VolumeARNs.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARNs") in
      make ~volumeARNs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARNs = field_map_exn json__ "VolumeARNs" VolumeARNs.of_json in
      make ~volumeARNs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a description of the gateway volumes specified in the request. This operation is only supported in the cached volume gateway types. The list of gateway volumes in the request must be from one gateway. In the response, Storage Gateway returns volume information sorted by volume Amazon Resource Name (ARN)."]
module DescribeCacheReportOutput =
  struct
    type nonrec t =
      {
      cacheReportInfo: CacheReportInfo.t option
        [@ocaml.doc
          "Contains all informational fields associated with a cache report. Includes name, ARN, tags, status, progress, filters, start time, and end time."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cacheReportInfo = fun () -> { cacheReportInfo }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("CacheReportInfo",
           (Option.map x.cacheReportInfo ~f:CacheReportInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportInfo =
        (Option.map ~f:CacheReportInfo.of_xml)
          (Xml.child xml_arg0 "CacheReportInfo") in
      make ?cacheReportInfo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportInfo =
        field_map json__ "CacheReportInfo" CacheReportInfo.of_json in
      make ?cacheReportInfo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the specified cache report, including completion status and generation progress."]
module DescribeCacheReportInput =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report you want to describe."]}
    let context_ = "DescribeCacheReportInput"
    let make ~cacheReportARN = fun () -> { cacheReportARN }
    let to_value x =
      structure_to_value
        [("CacheReportARN",
           (Some (CacheReportARN.to_value x.cacheReportARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportARN =
        CacheReportARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CacheReportARN") in
      make ~cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportARN =
        field_map_exn json__ "CacheReportARN" CacheReportARN.of_json in
      make ~cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the specified cache report, including completion status and generation progress."]
module DescribeCacheOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      diskIds: DiskIds.t option
        [@ocaml.doc
          "An array of strings that identify disks that are to be configured as working storage. Each string has a minimum length of 1 and maximum length of 300. You can get the disk IDs from the ListLocalDisks API."];
      cacheAllocatedInBytes: Long.t option
        [@ocaml.doc "The amount of cache in bytes allocated to a gateway."];
      cacheUsedPercentage: Double.t option
        [@ocaml.doc
          "Percent use of the gateway's cache storage. This metric applies only to the gateway-cached volume setup. The sample is taken at the end of the reporting period."];
      cacheDirtyPercentage: Double.t option
        [@ocaml.doc
          "The file share's contribution to the overall percentage of the gateway's cache that has not been persisted to Amazon Web Services. The sample is taken at the end of the reporting period."];
      cacheHitPercentage: Double.t option
        [@ocaml.doc
          "Percent of application read operations from the file shares that are served from cache. The sample is taken at the end of the reporting period."];
      cacheMissPercentage: Double.t option
        [@ocaml.doc
          "Percent of application read operations from the file shares that are not served from cache. The sample is taken at the end of the reporting period."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?diskIds ->
        fun ?cacheAllocatedInBytes ->
          fun ?cacheUsedPercentage ->
            fun ?cacheDirtyPercentage ->
              fun ?cacheHitPercentage ->
                fun ?cacheMissPercentage ->
                  fun () ->
                    {
                      gatewayARN;
                      diskIds;
                      cacheAllocatedInBytes;
                      cacheUsedPercentage;
                      cacheDirtyPercentage;
                      cacheHitPercentage;
                      cacheMissPercentage
                    }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("DiskIds", (Option.map x.diskIds ~f:DiskIds.to_value));
        ("CacheAllocatedInBytes",
          (Option.map x.cacheAllocatedInBytes ~f:Long.to_value));
        ("CacheUsedPercentage",
          (Option.map x.cacheUsedPercentage ~f:Double.to_value));
        ("CacheDirtyPercentage",
          (Option.map x.cacheDirtyPercentage ~f:Double.to_value));
        ("CacheHitPercentage",
          (Option.map x.cacheHitPercentage ~f:Double.to_value));
        ("CacheMissPercentage",
          (Option.map x.cacheMissPercentage ~f:Double.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheMissPercentage =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "CacheMissPercentage") in
      let cacheHitPercentage =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "CacheHitPercentage") in
      let cacheDirtyPercentage =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "CacheDirtyPercentage") in
      let cacheUsedPercentage =
        (Option.map ~f:Double.of_xml)
          (Xml.child xml_arg0 "CacheUsedPercentage") in
      let cacheAllocatedInBytes =
        (Option.map ~f:Long.of_xml)
          (Xml.child xml_arg0 "CacheAllocatedInBytes") in
      let diskIds =
        (Option.map ~f:DiskIds.of_xml) (Xml.child xml_arg0 "DiskIds") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?cacheMissPercentage ?cacheHitPercentage ?cacheDirtyPercentage
        ?cacheUsedPercentage ?cacheAllocatedInBytes ?diskIds ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheMissPercentage =
        field_map json__ "CacheMissPercentage" Double.of_json in
      let cacheHitPercentage =
        field_map json__ "CacheHitPercentage" Double.of_json in
      let cacheDirtyPercentage =
        field_map json__ "CacheDirtyPercentage" Double.of_json in
      let cacheUsedPercentage =
        field_map json__ "CacheUsedPercentage" Double.of_json in
      let cacheAllocatedInBytes =
        field_map json__ "CacheAllocatedInBytes" Long.of_json in
      let diskIds = field_map json__ "DiskIds" DiskIds.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?cacheMissPercentage ?cacheHitPercentage ?cacheDirtyPercentage
        ?cacheUsedPercentage ?cacheAllocatedInBytes ?diskIds ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the cache of a gateway. This operation is only supported in the cached volume, tape, and file gateway types. The response includes disk IDs that are configured as cache, and it includes the amount of cache allocated and used."]
module DescribeCacheInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeCacheInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the cache of a gateway. This operation is only supported in the cached volume, tape, and file gateway types. The response includes disk IDs that are configured as cache, and it includes the amount of cache allocated and used."]
module DescribeBandwidthRateLimitScheduleOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      bandwidthRateLimitIntervals: BandwidthRateLimitIntervals.t option
        [@ocaml.doc
          "An array that contains the bandwidth rate limit intervals for a tape or volume gateway."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?bandwidthRateLimitIntervals ->
        fun () -> { gatewayARN; bandwidthRateLimitIntervals }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("BandwidthRateLimitIntervals",
          (Option.map x.bandwidthRateLimitIntervals
             ~f:BandwidthRateLimitIntervals.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bandwidthRateLimitIntervals =
        (Option.map ~f:BandwidthRateLimitIntervals.of_xml)
          (Xml.child xml_arg0 "BandwidthRateLimitIntervals") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?bandwidthRateLimitIntervals ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bandwidthRateLimitIntervals =
        field_map json__ "BandwidthRateLimitIntervals"
          BandwidthRateLimitIntervals.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?bandwidthRateLimitIntervals ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the bandwidth rate limit schedule of a gateway. By default, gateways do not have bandwidth rate limit schedules, which means no bandwidth rate limiting is in effect. This operation is supported only for volume, tape and S3 file gateways. FSx file gateways do not support bandwidth rate limits. This operation returns information about a gateway's bandwidth rate limit schedule. A bandwidth rate limit schedule consists of one or more bandwidth rate limit intervals. A bandwidth rate limit interval defines a period of time on one or more days of the week, during which bandwidth rate limits are specified for uploading, downloading, or both. A bandwidth rate limit interval consists of one or more days of the week, a start hour and minute, an ending hour and minute, and bandwidth rate limits for uploading and downloading If no bandwidth rate limit schedule intervals are set for the gateway, this operation returns an empty response. To specify which gateway to describe, use the Amazon Resource Name (ARN) of the gateway in your request."]
module DescribeBandwidthRateLimitScheduleInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeBandwidthRateLimitScheduleInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the bandwidth rate limit schedule of a gateway. By default, gateways do not have bandwidth rate limit schedules, which means no bandwidth rate limiting is in effect. This operation is supported only for volume, tape and S3 file gateways. FSx file gateways do not support bandwidth rate limits. This operation returns information about a gateway's bandwidth rate limit schedule. A bandwidth rate limit schedule consists of one or more bandwidth rate limit intervals. A bandwidth rate limit interval defines a period of time on one or more days of the week, during which bandwidth rate limits are specified for uploading, downloading, or both. A bandwidth rate limit interval consists of one or more days of the week, a start hour and minute, an ending hour and minute, and bandwidth rate limits for uploading and downloading If no bandwidth rate limit schedule intervals are set for the gateway, this operation returns an empty response. To specify which gateway to describe, use the Amazon Resource Name (ARN) of the gateway in your request."]
module DescribeBandwidthRateLimitOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      averageUploadRateLimitInBitsPerSec: BandwidthUploadRateLimit.t option
        [@ocaml.doc
          "The average upload bandwidth rate limit in bits per second. This field does not appear in the response if the upload rate limit is not set."];
      averageDownloadRateLimitInBitsPerSec:
        BandwidthDownloadRateLimit.t option
        [@ocaml.doc
          "The average download bandwidth rate limit in bits per second. This field does not appear in the response if the download rate limit is not set."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?averageUploadRateLimitInBitsPerSec ->
        fun ?averageDownloadRateLimitInBitsPerSec ->
          fun () ->
            {
              gatewayARN;
              averageUploadRateLimitInBitsPerSec;
              averageDownloadRateLimitInBitsPerSec
            }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("AverageUploadRateLimitInBitsPerSec",
          (Option.map x.averageUploadRateLimitInBitsPerSec
             ~f:BandwidthUploadRateLimit.to_value));
        ("AverageDownloadRateLimitInBitsPerSec",
          (Option.map x.averageDownloadRateLimitInBitsPerSec
             ~f:BandwidthDownloadRateLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let averageDownloadRateLimitInBitsPerSec =
        (Option.map ~f:BandwidthDownloadRateLimit.of_xml)
          (Xml.child xml_arg0 "AverageDownloadRateLimitInBitsPerSec") in
      let averageUploadRateLimitInBitsPerSec =
        (Option.map ~f:BandwidthUploadRateLimit.of_xml)
          (Xml.child xml_arg0 "AverageUploadRateLimitInBitsPerSec") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?averageDownloadRateLimitInBitsPerSec
        ?averageUploadRateLimitInBitsPerSec ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let averageDownloadRateLimitInBitsPerSec =
        field_map json__ "AverageDownloadRateLimitInBitsPerSec"
          BandwidthDownloadRateLimit.of_json in
      let averageUploadRateLimitInBitsPerSec =
        field_map json__ "AverageUploadRateLimitInBitsPerSec"
          BandwidthUploadRateLimit.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?averageDownloadRateLimitInBitsPerSec
        ?averageUploadRateLimitInBitsPerSec ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module DescribeBandwidthRateLimitInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeBandwidthRateLimitInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway."]
module DescribeAvailabilityMonitorTestOutput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t option ;
      status: AvailabilityMonitorTestStatus.t option
        [@ocaml.doc
          "The status of the high availability monitoring test. If a test hasn't been performed, the value of this field is null."];
      startTime: Time.t option
        [@ocaml.doc
          "The time the high availability monitoring test was started. If a test hasn't been performed, the value of this field is null."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN =
      fun ?status ->
        fun ?startTime -> fun () -> { gatewayARN; status; startTime }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value));
        ("Status",
          (Option.map x.status ~f:AvailabilityMonitorTestStatus.to_value));
        ("StartTime", (Option.map x.startTime ~f:Time.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let startTime =
        (Option.map ~f:Time.of_xml) (Xml.child xml_arg0 "StartTime") in
      let status =
        (Option.map ~f:AvailabilityMonitorTestStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?startTime ?status ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let startTime = field_map json__ "StartTime" Time.of_json in
      let status =
        field_map json__ "Status" AvailabilityMonitorTestStatus.of_json in
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?startTime ?status ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the most recent high availability monitoring test that was performed on the host in a cluster. If a test isn't performed, the status and start time in the response would be null."]
module DescribeAvailabilityMonitorTestInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DescribeAvailabilityMonitorTestInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the most recent high availability monitoring test that was performed on the host in a cluster. If a test isn't performed, the status and start time in the response would be null."]
module DeleteVolumeOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage volume that was deleted. It is the same ARN you provided in the request."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN = fun () -> { volumeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the storage volume that was deleted."]
module DeleteVolumeInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Use the ListVolumes operation to return a list of gateway volumes."]}
    let context_ = "DeleteVolumeInput"
    let make ~volumeARN = fun () -> { volumeARN }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the DeleteVolumeInput$VolumeARN to delete."]
module DeleteTapePoolOutput =
  struct
    type nonrec t =
      {
      poolARN: PoolARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the custom tape pool being deleted."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolARN = fun () -> { poolARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("PoolARN", (Option.map x.poolARN ~f:PoolARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolARN =
        (Option.map ~f:PoolARN.of_xml) (Xml.child xml_arg0 "PoolARN") in
      make ?poolARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolARN = field_map json__ "PoolARN" PoolARN.of_json in
      make ?poolARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete a custom tape pool. A custom tape pool can only be deleted if there are no tapes in the pool and if there are no automatic tape creation policies that reference the custom tape pool."]
module DeleteTapePoolInput =
  struct
    type nonrec t =
      {
      poolARN: PoolARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the custom tape pool to delete."]}
    let context_ = "DeleteTapePoolInput"
    let make ~poolARN = fun () -> { poolARN }
    let to_value x =
      structure_to_value [("PoolARN", (Some (PoolARN.to_value x.poolARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolARN =
        PoolARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolARN") in
      make ~poolARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolARN = field_map_exn json__ "PoolARN" PoolARN.of_json in
      make ~poolARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Delete a custom tape pool. A custom tape pool can only be deleted if there are no tapes in the pool and if there are no automatic tape creation policies that reference the custom tape pool."]
module DeleteTapeOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted virtual tape."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteTapeOutput"]
module DeleteTapeInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) of the gateway that the virtual tape to delete is associated with. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."];
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape to delete."];
      bypassGovernanceRetention: Boolean__lc1.t option
        [@ocaml.doc
          "Set to TRUE to delete an archived tape that belongs to a custom pool with tape retention lock. Only archived tapes with tape retention lock set to governance can be deleted. Archived tapes with tape retention lock set to compliance can't be deleted."]}
    let context_ = "DeleteTapeInput"
    let make ?bypassGovernanceRetention =
      fun ~gatewayARN ->
        fun ~tapeARN ->
          fun () -> { bypassGovernanceRetention; gatewayARN; tapeARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TapeARN", (Some (TapeARN.to_value x.tapeARN)));
        ("BypassGovernanceRetention",
          (Option.map x.bypassGovernanceRetention ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bypassGovernanceRetention =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "BypassGovernanceRetention") in
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?bypassGovernanceRetention ~tapeARN ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bypassGovernanceRetention =
        field_map json__ "BypassGovernanceRetention" Boolean__lc1.of_json in
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?bypassGovernanceRetention ~tapeARN ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteTapeInput"]
module DeleteTapeArchiveOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape that was deleted from the virtual tape shelf (VTS)."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteTapeArchiveOutput"]
module DeleteTapeArchiveInput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape to delete from the virtual tape shelf (VTS)."];
      bypassGovernanceRetention: Boolean__lc1.t option
        [@ocaml.doc
          "Set to TRUE to delete an archived tape that belongs to a custom pool with tape retention lock. Only archived tapes with tape retention lock set to governance can be deleted. Archived tapes with tape retention lock set to compliance can't be deleted."]}
    let context_ = "DeleteTapeArchiveInput"
    let make ?bypassGovernanceRetention =
      fun ~tapeARN -> fun () -> { bypassGovernanceRetention; tapeARN }
    let to_value x =
      structure_to_value
        [("TapeARN", (Some (TapeARN.to_value x.tapeARN)));
        ("BypassGovernanceRetention",
          (Option.map x.bypassGovernanceRetention ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bypassGovernanceRetention =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "BypassGovernanceRetention") in
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      make ?bypassGovernanceRetention ~tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bypassGovernanceRetention =
        field_map json__ "BypassGovernanceRetention" Boolean__lc1.of_json in
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      make ?bypassGovernanceRetention ~tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteTapeArchiveInput"]
module DeleteSnapshotScheduleOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc "The volume which snapshot schedule was deleted."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN = fun () -> { volumeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a snapshot of a volume. You can take snapshots of your gateway volumes on a scheduled or ad hoc basis. This API action enables you to delete a snapshot schedule for a volume. For more information, see Backing up your volumes. In the DeleteSnapshotSchedule request, you identify the volume by providing its Amazon Resource Name (ARN). This operation is only supported for cached volume gateway types. To list or delete a snapshot, you must use the Amazon EC2 API. For more information, go to DescribeSnapshots in the Amazon Elastic Compute Cloud API Reference."]
module DeleteSnapshotScheduleInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc "The volume which snapshot schedule to delete."]}
    let context_ = "DeleteSnapshotScheduleInput"
    let make ~volumeARN = fun () -> { volumeARN }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a snapshot of a volume. You can take snapshots of your gateway volumes on a scheduled or ad hoc basis. This API action enables you to delete a snapshot schedule for a volume. For more information, see Backing up your volumes. In the DeleteSnapshotSchedule request, you identify the volume by providing its Amazon Resource Name (ARN). This operation is only supported for cached volume gateway types. To list or delete a snapshot, you must use the Amazon EC2 API. For more information, go to DescribeSnapshots in the Amazon Elastic Compute Cloud API Reference."]
module DeleteGatewayOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the ID of the deleted gateway."]
module DeleteGatewayInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DeleteGatewayInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the ID of the gateway to delete."]
module DeleteFileShareOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the deleted file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN = fun () -> { fileShareARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteFileShareOutput"]
module DeleteFileShareInput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the file share to be deleted."];
      forceDelete: Boolean__lc1.t option
        [@ocaml.doc
          "If this value is set to true, the operation deletes a file share immediately and aborts all data uploads to Amazon Web Services. Otherwise, the file share is not deleted until all data is uploaded to Amazon Web Services. This process aborts the data upload process, and the file share enters the FORCE_DELETING status. Valid Values: true | false"]}
    let context_ = "DeleteFileShareInput"
    let make ?forceDelete =
      fun ~fileShareARN -> fun () -> { forceDelete; fileShareARN }
    let to_value x =
      structure_to_value
        [("FileShareARN", (Some (FileShareARN.to_value x.fileShareARN)));
        ("ForceDelete", (Option.map x.forceDelete ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let forceDelete =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "ForceDelete") in
      let fileShareARN =
        FileShareARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileShareARN") in
      make ?forceDelete ~fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let forceDelete = field_map json__ "ForceDelete" Boolean__lc1.of_json in
      let fileShareARN =
        field_map_exn json__ "FileShareARN" FileShareARN.of_json in
      make ?forceDelete ~fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "DeleteFileShareInput"]
module DeleteChapCredentialsOutput =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the target."];
      initiatorName: IqnName.t option
        [@ocaml.doc "The iSCSI initiator that connects to the target."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?targetARN =
      fun ?initiatorName -> fun () -> { targetARN; initiatorName }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value));
        ("InitiatorName", (Option.map x.initiatorName ~f:IqnName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiatorName =
        (Option.map ~f:IqnName.of_xml) (Xml.child xml_arg0 "InitiatorName") in
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      make ?initiatorName ?targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiatorName = field_map json__ "InitiatorName" IqnName.of_json in
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      make ?initiatorName ?targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module DeleteChapCredentialsInput =
  struct
    type nonrec t =
      {
      targetARN: TargetARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the iSCSI volume target. Use the DescribeStorediSCSIVolumes operation to return to retrieve the TargetARN for specified VolumeARN."];
      initiatorName: IqnName.t
        [@ocaml.doc "The iSCSI initiator that connects to the target."]}
    let context_ = "DeleteChapCredentialsInput"
    let make ~targetARN =
      fun ~initiatorName -> fun () -> { targetARN; initiatorName }
    let to_value x =
      structure_to_value
        [("TargetARN", (Some (TargetARN.to_value x.targetARN)));
        ("InitiatorName", (Some (IqnName.to_value x.initiatorName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initiatorName =
        IqnName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InitiatorName") in
      let targetARN =
        TargetARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetARN") in
      make ~initiatorName ~targetARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initiatorName =
        field_map_exn json__ "InitiatorName" IqnName.of_json in
      let targetARN = field_map_exn json__ "TargetARN" TargetARN.of_json in
      make ~initiatorName ~targetARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: DeleteChapCredentialsInput$InitiatorName DeleteChapCredentialsInput$TargetARN"]
module DeleteCacheReportOutput =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report you want to delete."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cacheReportARN = fun () -> { cacheReportARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("CacheReportARN",
           (Option.map x.cacheReportARN ~f:CacheReportARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportARN =
        (Option.map ~f:CacheReportARN.of_xml)
          (Xml.child xml_arg0 "CacheReportARN") in
      make ?cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportARN =
        field_map json__ "CacheReportARN" CacheReportARN.of_json in
      make ?cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified cache report and any associated tags from the Storage Gateway database. You can only delete completed reports. If the status of the report you attempt to delete still IN-PROGRESS, the delete operation returns an error. You can use CancelCacheReport to cancel an IN-PROGRESS report. DeleteCacheReport does not delete the report object from your Amazon S3 bucket."]
module DeleteCacheReportInput =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report you want to delete."]}
    let context_ = "DeleteCacheReportInput"
    let make ~cacheReportARN = fun () -> { cacheReportARN }
    let to_value x =
      structure_to_value
        [("CacheReportARN",
           (Some (CacheReportARN.to_value x.cacheReportARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportARN =
        CacheReportARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CacheReportARN") in
      make ~cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportARN =
        field_map_exn json__ "CacheReportARN" CacheReportARN.of_json in
      make ~cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified cache report and any associated tags from the Storage Gateway database. You can only delete completed reports. If the status of the report you attempt to delete still IN-PROGRESS, the delete operation returns an error. You can use CancelCacheReport to cancel an IN-PROGRESS report. DeleteCacheReport does not delete the report object from your Amazon S3 bucket."]
module DeleteBandwidthRateLimitOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway whose bandwidth rate information was deleted."]
module DeleteBandwidthRateLimitInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      bandwidthType: BandwidthType.t
        [@ocaml.doc
          "One of the BandwidthType values that indicates the gateway bandwidth rate limit to delete. Valid Values: UPLOAD | DOWNLOAD | ALL"]}
    let context_ = "DeleteBandwidthRateLimitInput"
    let make ~gatewayARN =
      fun ~bandwidthType -> fun () -> { gatewayARN; bandwidthType }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("BandwidthType", (Some (BandwidthType.to_value x.bandwidthType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bandwidthType =
        BandwidthType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BandwidthType") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~bandwidthType ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bandwidthType =
        field_map_exn json__ "BandwidthType" BandwidthType.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~bandwidthType ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the following fields: DeleteBandwidthRateLimitInput$BandwidthType"]
module DeleteAutomaticTapeCreationPolicyOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the automatic tape creation policy of a gateway. If you delete this policy, new virtual tapes must be created manually. Use the Amazon Resource Name (ARN) of the gateway in your request to remove the policy."]
module DeleteAutomaticTapeCreationPolicyInput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t }
    let context_ = "DeleteAutomaticTapeCreationPolicyInput"
    let make ~gatewayARN = fun () -> { gatewayARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the automatic tape creation policy of a gateway. If you delete this policy, new virtual tapes must be created manually. Use the Amazon Resource Name (ARN) of the gateway in your request to remove the policy."]
module CreateTapesOutput =
  struct
    type nonrec t =
      {
      tapeARNs: TapeARNs.t option
        [@ocaml.doc
          "A list of unique Amazon Resource Names (ARNs) that represents the virtual tapes that were created."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARNs = fun () -> { tapeARNs }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARNs", (Option.map x.tapeARNs ~f:TapeARNs.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARNs =
        (Option.map ~f:TapeARNs.of_xml) (Xml.child xml_arg0 "TapeARNs") in
      make ?tapeARNs ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARNs = field_map json__ "TapeARNs" TapeARNs.of_json in
      make ?tapeARNs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateTapeOutput"]
module CreateTapesInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) that represents the gateway to associate the virtual tapes with. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."];
      tapeSizeInBytes: TapeSize.t
        [@ocaml.doc
          "The size, in bytes, of the virtual tapes that you want to create. The size must be aligned by gigabyte (1024*1024*1024 bytes)."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique identifier that you use to retry a request. If you retry a request, use the same ClientToken you specified in the initial request. Using the same ClientToken prevents creating the tape multiple times."];
      numTapesToCreate: NumTapesToCreate.t
        [@ocaml.doc "The number of virtual tapes that you want to create."];
      tapeBarcodePrefix: TapeBarcodePrefix.t
        [@ocaml.doc
          "A prefix that you append to the barcode of the virtual tape you are creating. This prefix makes the barcode unique. The prefix must be 1-4 characters in length and must be one of the uppercase letters from A to Z."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Set to true to use Amazon S3 server-side encryption with your own KMS key, or false to use a key managed by Amazon S3. Optional. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value can only be set when KMSEncrypted is true. Optional."];
      poolId: PoolId.t option
        [@ocaml.doc
          "The ID of the pool that you want to add your tape to for archiving. The tape in this pool is archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      worm: Boolean__lc1.t option
        [@ocaml.doc
          "Set to TRUE if the tape you are creating is to be configured as a write-once-read-many (WORM) tape."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to a virtual tape. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "CreateTapesInput"
    let make ?kMSEncrypted =
      fun ?kMSKey ->
        fun ?poolId ->
          fun ?worm ->
            fun ?tags ->
              fun ~gatewayARN ->
                fun ~tapeSizeInBytes ->
                  fun ~clientToken ->
                    fun ~numTapesToCreate ->
                      fun ~tapeBarcodePrefix ->
                        fun () ->
                          {
                            kMSEncrypted;
                            kMSKey;
                            poolId;
                            worm;
                            tags;
                            gatewayARN;
                            tapeSizeInBytes;
                            clientToken;
                            numTapesToCreate;
                            tapeBarcodePrefix
                          }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TapeSizeInBytes", (Some (TapeSize.to_value x.tapeSizeInBytes)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("NumTapesToCreate",
          (Some (NumTapesToCreate.to_value x.numTapesToCreate)));
        ("TapeBarcodePrefix",
          (Some (TapeBarcodePrefix.to_value x.tapeBarcodePrefix)));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolId.to_value));
        ("Worm", (Option.map x.worm ~f:Boolean__lc1.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let worm =
        (Option.map ~f:Boolean__lc1.of_xml) (Xml.child xml_arg0 "Worm") in
      let poolId =
        (Option.map ~f:PoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let tapeBarcodePrefix =
        TapeBarcodePrefix.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TapeBarcodePrefix") in
      let numTapesToCreate =
        NumTapesToCreate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NumTapesToCreate") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let tapeSizeInBytes =
        TapeSize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TapeSizeInBytes") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?tags ?worm ?poolId ?kMSKey ?kMSEncrypted ~tapeBarcodePrefix
        ~numTapesToCreate ~clientToken ~tapeSizeInBytes ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let worm = field_map json__ "Worm" Boolean__lc1.of_json in
      let poolId = field_map json__ "PoolId" PoolId.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let tapeBarcodePrefix =
        field_map_exn json__ "TapeBarcodePrefix" TapeBarcodePrefix.of_json in
      let numTapesToCreate =
        field_map_exn json__ "NumTapesToCreate" NumTapesToCreate.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let tapeSizeInBytes =
        field_map_exn json__ "TapeSizeInBytes" TapeSize.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?tags ?worm ?poolId ?kMSKey ?kMSEncrypted ~tapeBarcodePrefix
        ~numTapesToCreate ~clientToken ~tapeSizeInBytes ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateTapesInput"]
module CreateTapeWithBarcodeOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "A unique Amazon Resource Name (ARN) that represents the virtual tape that was created."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateTapeOutput"]
module CreateTapeWithBarcodeInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) that represents the gateway to associate the virtual tape with. Use the ListGateways operation to return a list of gateways for your account and Amazon Web Services Region."];
      tapeSizeInBytes: TapeSize.t
        [@ocaml.doc
          "The size, in bytes, of the virtual tape that you want to create. The size must be aligned by gigabyte (1024*1024*1024 bytes)."];
      tapeBarcode: TapeBarcode.t
        [@ocaml.doc
          "The barcode that you want to assign to the tape. Barcodes cannot be reused. This includes barcodes used for tapes that have been deleted."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Set to true to use Amazon S3 server-side encryption with your own KMS key, or false to use a key managed by Amazon S3. Optional. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value can only be set when KMSEncrypted is true. Optional."];
      poolId: PoolId.t option
        [@ocaml.doc
          "The ID of the pool that you want to add your tape to for archiving. The tape in this pool is archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Deep Archive) that corresponds to the pool."];
      worm: Boolean__lc1.t option
        [@ocaml.doc
          "Set to TRUE if the tape you are creating is to be configured as a write-once-read-many (WORM) tape."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to a virtual tape that has a barcode. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "CreateTapeWithBarcodeInput"
    let make ?kMSEncrypted =
      fun ?kMSKey ->
        fun ?poolId ->
          fun ?worm ->
            fun ?tags ->
              fun ~gatewayARN ->
                fun ~tapeSizeInBytes ->
                  fun ~tapeBarcode ->
                    fun () ->
                      {
                        kMSEncrypted;
                        kMSKey;
                        poolId;
                        worm;
                        tags;
                        gatewayARN;
                        tapeSizeInBytes;
                        tapeBarcode
                      }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TapeSizeInBytes", (Some (TapeSize.to_value x.tapeSizeInBytes)));
        ("TapeBarcode", (Some (TapeBarcode.to_value x.tapeBarcode)));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("PoolId", (Option.map x.poolId ~f:PoolId.to_value));
        ("Worm", (Option.map x.worm ~f:Boolean__lc1.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let worm =
        (Option.map ~f:Boolean__lc1.of_xml) (Xml.child xml_arg0 "Worm") in
      let poolId =
        (Option.map ~f:PoolId.of_xml) (Xml.child xml_arg0 "PoolId") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let tapeBarcode =
        TapeBarcode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TapeBarcode") in
      let tapeSizeInBytes =
        TapeSize.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TapeSizeInBytes") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?tags ?worm ?poolId ?kMSKey ?kMSEncrypted ~tapeBarcode
        ~tapeSizeInBytes ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let worm = field_map json__ "Worm" Boolean__lc1.of_json in
      let poolId = field_map json__ "PoolId" PoolId.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let tapeBarcode =
        field_map_exn json__ "TapeBarcode" TapeBarcode.of_json in
      let tapeSizeInBytes =
        field_map_exn json__ "TapeSizeInBytes" TapeSize.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?tags ?worm ?poolId ?kMSKey ?kMSEncrypted ~tapeBarcode
        ~tapeSizeInBytes ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateTapeWithBarcodeInput"]
module CreateTapePoolOutput =
  struct
    type nonrec t =
      {
      poolARN: PoolARN.t option
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) that represents the custom tape pool. Use the ListTapePools operation to return a list of tape pools for your account and Amazon Web Services Region."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?poolARN = fun () -> { poolARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("PoolARN", (Option.map x.poolARN ~f:PoolARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let poolARN =
        (Option.map ~f:PoolARN.of_xml) (Xml.child xml_arg0 "PoolARN") in
      make ?poolARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let poolARN = field_map json__ "PoolARN" PoolARN.of_json in
      make ?poolARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new custom tape pool. You can use custom tape pool to enable tape retention lock on tapes that are archived in the custom pool."]
module CreateTapePoolInput =
  struct
    type nonrec t =
      {
      poolName: PoolName.t
        [@ocaml.doc "The name of the new custom tape pool."];
      storageClass: TapeStorageClass.t
        [@ocaml.doc
          "The storage class that is associated with the new custom pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      retentionLockType: RetentionLockType.t option
        [@ocaml.doc
          "Tape retention lock can be configured in two modes. When configured in governance mode, Amazon Web Services accounts with specific IAM permissions are authorized to remove the tape retention lock from archived virtual tapes. When configured in compliance mode, the tape retention lock cannot be removed by any user, including the root Amazon Web Services account."];
      retentionLockTimeInDays: RetentionLockTimeInDays.t option
        [@ocaml.doc
          "Tape retention lock time is set in days. Tape retention lock can be enabled for up to 100 years (36,500 days)."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to tape pool. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "CreateTapePoolInput"
    let make ?retentionLockType =
      fun ?retentionLockTimeInDays ->
        fun ?tags ->
          fun ~poolName ->
            fun ~storageClass ->
              fun () ->
                {
                  retentionLockType;
                  retentionLockTimeInDays;
                  tags;
                  poolName;
                  storageClass
                }
    let to_value x =
      structure_to_value
        [("PoolName", (Some (PoolName.to_value x.poolName)));
        ("StorageClass", (Some (TapeStorageClass.to_value x.storageClass)));
        ("RetentionLockType",
          (Option.map x.retentionLockType ~f:RetentionLockType.to_value));
        ("RetentionLockTimeInDays",
          (Option.map x.retentionLockTimeInDays
             ~f:RetentionLockTimeInDays.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let retentionLockTimeInDays =
        (Option.map ~f:RetentionLockTimeInDays.of_xml)
          (Xml.child xml_arg0 "RetentionLockTimeInDays") in
      let retentionLockType =
        (Option.map ~f:RetentionLockType.of_xml)
          (Xml.child xml_arg0 "RetentionLockType") in
      let storageClass =
        TapeStorageClass.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "StorageClass") in
      let poolName =
        PoolName.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolName") in
      make ?tags ?retentionLockTimeInDays ?retentionLockType ~storageClass
        ~poolName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let retentionLockTimeInDays =
        field_map json__ "RetentionLockTimeInDays"
          RetentionLockTimeInDays.of_json in
      let retentionLockType =
        field_map json__ "RetentionLockType" RetentionLockType.of_json in
      let storageClass =
        field_map_exn json__ "StorageClass" TapeStorageClass.of_json in
      let poolName = field_map_exn json__ "PoolName" PoolName.of_json in
      make ?tags ?retentionLockTimeInDays ?retentionLockType ~storageClass
        ~poolName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new custom tape pool. You can use custom tape pool to enable tape retention lock on tapes that are archived in the custom pool."]
module CreateStorediSCSIVolumeOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configured volume."];
      volumeSizeInBytes: Long.t option
        [@ocaml.doc "The size of the volume in bytes."];
      targetARN: TargetARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume target, which includes the iSCSI name that initiators can use to connect to the target."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN =
      fun ?volumeSizeInBytes ->
        fun ?targetARN ->
          fun () -> { volumeARN; volumeSizeInBytes; targetARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("VolumeSizeInBytes",
          (Option.map x.volumeSizeInBytes ~f:Long.to_value));
        ("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      let volumeSizeInBytes =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "VolumeSizeInBytes") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?targetARN ?volumeSizeInBytes ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      let volumeSizeInBytes =
        field_map json__ "VolumeSizeInBytes" Long.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?targetARN ?volumeSizeInBytes ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module CreateStorediSCSIVolumeInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      diskId: DiskId.t
        [@ocaml.doc
          "The unique identifier for the gateway local disk that is configured as a stored volume. Use ListLocalDisks to list disk IDs for a gateway."];
      snapshotId: SnapshotId.t option
        [@ocaml.doc
          "The snapshot ID (e.g., \"snap-1122aabb\") of the snapshot to restore as the new stored volume. Specify this field if you want to create the iSCSI storage volume from a snapshot; otherwise, do not include this field. To list snapshots for your account use DescribeSnapshots in the Amazon Elastic Compute Cloud API Reference."];
      preserveExistingData: Boolean__lc1.t
        [@ocaml.doc
          "Set to true if you want to preserve the data on the local disk. Otherwise, set to false to create an empty volume. Valid Values: true | false"];
      targetName: TargetName.t
        [@ocaml.doc
          "The name of the iSCSI target used by an initiator to connect to a volume and used as a suffix for the target ARN. For example, specifying TargetName as myvolume results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes on a gateway. If you don't specify a value, Storage Gateway uses the value that was previously used for this volume as the new target name."];
      networkInterfaceId: NetworkInterfaceId.t
        [@ocaml.doc
          "The network interface of the gateway on which to expose the iSCSI target. Accepts IPv4 and IPv6 addresses. Use DescribeGatewayInformation to get a list of the network interfaces available on a gateway. Valid Values: A valid IP address."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Set to true to use Amazon S3 server-side encryption with your own KMS key, or false to use a key managed by Amazon S3. Optional. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value can only be set when KMSEncrypted is true. Optional."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to a stored volume. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "CreateStorediSCSIVolumeInput"
    let make ?snapshotId =
      fun ?kMSEncrypted ->
        fun ?kMSKey ->
          fun ?tags ->
            fun ~gatewayARN ->
              fun ~diskId ->
                fun ~preserveExistingData ->
                  fun ~targetName ->
                    fun ~networkInterfaceId ->
                      fun () ->
                        {
                          snapshotId;
                          kMSEncrypted;
                          kMSKey;
                          tags;
                          gatewayARN;
                          diskId;
                          preserveExistingData;
                          targetName;
                          networkInterfaceId
                        }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("DiskId", (Some (DiskId.to_value x.diskId)));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("PreserveExistingData",
          (Some (Boolean__lc1.to_value x.preserveExistingData)));
        ("TargetName", (Some (TargetName.to_value x.targetName)));
        ("NetworkInterfaceId",
          (Some (NetworkInterfaceId.to_value x.networkInterfaceId)));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let networkInterfaceId =
        NetworkInterfaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NetworkInterfaceId") in
      let targetName =
        TargetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetName") in
      let preserveExistingData =
        Boolean__lc1.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PreserveExistingData") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let diskId =
        DiskId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DiskId") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?tags ?kMSKey ?kMSEncrypted ~networkInterfaceId ~targetName
        ~preserveExistingData ?snapshotId ~diskId ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let networkInterfaceId =
        field_map_exn json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let targetName = field_map_exn json__ "TargetName" TargetName.of_json in
      let preserveExistingData =
        field_map_exn json__ "PreserveExistingData" Boolean__lc1.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let diskId = field_map_exn json__ "DiskId" DiskId.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?tags ?kMSKey ?kMSEncrypted ~networkInterfaceId ~targetName
        ~preserveExistingData ?snapshotId ~diskId ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: CreateStorediSCSIVolumeInput$DiskId CreateStorediSCSIVolumeInput$NetworkInterfaceId CreateStorediSCSIVolumeInput$PreserveExistingData CreateStorediSCSIVolumeInput$SnapshotId CreateStorediSCSIVolumeInput$TargetName"]
module CreateSnapshotOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume of which the snapshot was taken."];
      snapshotId: SnapshotId.t option
        [@ocaml.doc
          "The snapshot ID that is used to refer to the snapshot in future operations such as describing snapshots (Amazon Elastic Compute Cloud API DescribeSnapshots) or creating a volume from a snapshot (CreateStorediSCSIVolume)."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `ServiceUnavailableError of ServiceUnavailableError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN =
      fun ?snapshotId -> fun () -> { volumeARN; snapshotId }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | "ServiceUnavailableError" ->
          `ServiceUnavailableError (ServiceUnavailableError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | "ServiceUnavailableError" ->
          `ServiceUnavailableError (ServiceUnavailableError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.to_json e))]
      | `ServiceUnavailableError e ->
          `Assoc
            [("error", (`String "ServiceUnavailableError"));
            ("details", (ServiceUnavailableError.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?snapshotId ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?snapshotId ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A JSON object containing the following fields:"]
module CreateSnapshotInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume. Use the ListVolumes operation to return a list of gateway volumes."];
      snapshotDescription: SnapshotDescription.t
        [@ocaml.doc
          "Textual description of the snapshot that appears in the Amazon EC2 console, Elastic Block Store snapshots panel in the Description field, and in the Storage Gateway snapshot Details pane, Description field."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to a snapshot. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "CreateSnapshotInput"
    let make ?tags =
      fun ~volumeARN ->
        fun ~snapshotDescription ->
          fun () -> { tags; volumeARN; snapshotDescription }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)));
        ("SnapshotDescription",
          (Some (SnapshotDescription.to_value x.snapshotDescription)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let snapshotDescription =
        SnapshotDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnapshotDescription") in
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ?tags ~snapshotDescription ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let snapshotDescription =
        field_map_exn json__ "SnapshotDescription"
          SnapshotDescription.of_json in
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ?tags ~snapshotDescription ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: CreateSnapshotInput$SnapshotDescription CreateSnapshotInput$VolumeARN"]
module CreateSnapshotFromVolumeRecoveryPointOutput =
  struct
    type nonrec t =
      {
      snapshotId: SnapshotId.t option [@ocaml.doc "The ID of the snapshot."];
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the iSCSI volume target. Use the DescribeStorediSCSIVolumes operation to return to retrieve the TargetARN for specified VolumeARN."];
      volumeRecoveryPointTime: String_.t option
        [@ocaml.doc
          "The time the volume was created from the recovery point."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `ServiceUnavailableError of ServiceUnavailableError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?snapshotId =
      fun ?volumeARN ->
        fun ?volumeRecoveryPointTime ->
          fun () -> { snapshotId; volumeARN; volumeRecoveryPointTime }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | "ServiceUnavailableError" ->
          `ServiceUnavailableError (ServiceUnavailableError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | "ServiceUnavailableError" ->
          `ServiceUnavailableError (ServiceUnavailableError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.to_json e))]
      | `ServiceUnavailableError e ->
          `Assoc
            [("error", (`String "ServiceUnavailableError"));
            ("details", (ServiceUnavailableError.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
        [("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("VolumeRecoveryPointTime",
          (Option.map x.volumeRecoveryPointTime ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let volumeRecoveryPointTime =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "VolumeRecoveryPointTime") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      make ?volumeRecoveryPointTime ?volumeARN ?snapshotId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let volumeRecoveryPointTime =
        field_map json__ "VolumeRecoveryPointTime" String_.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      make ?volumeRecoveryPointTime ?volumeARN ?snapshotId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a snapshot of a gateway from a volume recovery point. This operation is only supported in the cached volume gateway type. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot. To get a list of volume recovery point for cached volume gateway, use ListVolumeRecoveryPoints. In the CreateSnapshotFromVolumeRecoveryPoint request, you identify the volume by providing its Amazon Resource Name (ARN). You must also provide a description for the snapshot. When the gateway takes a snapshot of the specified volume, the snapshot and its description appear in the Storage Gateway console. In response, the gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot. To list or delete a snapshot, you must use the Amazon EC2 API. For more information, see DescribeSnapshots or DeleteSnapshot in the Amazon Elastic Compute Cloud API Reference."]
module CreateSnapshotFromVolumeRecoveryPointInput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the iSCSI volume target. Use the DescribeStorediSCSIVolumes operation to return to retrieve the TargetARN for specified VolumeARN."];
      snapshotDescription: SnapshotDescription.t
        [@ocaml.doc
          "Textual description of the snapshot that appears in the Amazon EC2 console, Elastic Block Store snapshots panel in the Description field, and in the Storage Gateway snapshot Details pane, Description field."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to a snapshot. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "CreateSnapshotFromVolumeRecoveryPointInput"
    let make ?tags =
      fun ~volumeARN ->
        fun ~snapshotDescription ->
          fun () -> { tags; volumeARN; snapshotDescription }
    let to_value x =
      structure_to_value
        [("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)));
        ("SnapshotDescription",
          (Some (SnapshotDescription.to_value x.snapshotDescription)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let snapshotDescription =
        SnapshotDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SnapshotDescription") in
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      make ?tags ~snapshotDescription ~volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let snapshotDescription =
        field_map_exn json__ "SnapshotDescription"
          SnapshotDescription.of_json in
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      make ?tags ~snapshotDescription ~volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a snapshot of a gateway from a volume recovery point. This operation is only supported in the cached volume gateway type. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot. To get a list of volume recovery point for cached volume gateway, use ListVolumeRecoveryPoints. In the CreateSnapshotFromVolumeRecoveryPoint request, you identify the volume by providing its Amazon Resource Name (ARN). You must also provide a description for the snapshot. When the gateway takes a snapshot of the specified volume, the snapshot and its description appear in the Storage Gateway console. In response, the gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot. To list or delete a snapshot, you must use the Amazon EC2 API. For more information, see DescribeSnapshots or DeleteSnapshot in the Amazon Elastic Compute Cloud API Reference."]
module CreateSMBFileShareOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN = fun () -> { fileShareARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateSMBFileShareOutput"]
module CreateSMBFileShareInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique string value that you supply that is used by S3 File Gateway to ensure idempotent file share creation."];
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The ARN of the S3 File Gateway on which you want to create a file share."];
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "A value that specifies the type of server-side encryption that the file share will use for the data that it stores in Amazon S3. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Optional. Set to true to use Amazon S3 server-side encryption with your own KMS key (SSE-KMS), or false to use a key managed by Amazon S3 (SSE-S3). To use dual-layer encryption (DSSE-KMS), set the EncryptionType parameter instead. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "Optional. The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value must be set if KMSEncrypted is true, or if EncryptionType is SseKms or DsseKms."];
      role: Role.t
        [@ocaml.doc
          "The ARN of the Identity and Access Management (IAM) role that an S3 File Gateway assumes when it accesses the underlying storage."];
      locationARN: LocationARN.t
        [@ocaml.doc
          "A custom ARN for the backend storage used for storing data for file shares. It includes a resource ARN with an optional prefix concatenation. The prefix must end with a forward slash (/). You can specify LocationARN as a bucket ARN, access point ARN or access point alias, as shown in the following examples. Bucket ARN: arn:aws:s3:::amzn-s3-demo-bucket/prefix/ Access point ARN: arn:aws:s3:region:account-id:accesspoint/access-point-name/prefix/ If you specify an access point, the bucket policy must be configured to delegate access control to the access point. For information, see Delegating access control to access points in the Amazon S3 User Guide. Access point alias: test-ap-ab123cdef4gehijklmn5opqrstuvuse1a-s3alias"];
      defaultStorageClass: StorageClass.t option
        [@ocaml.doc
          "The default storage class for objects put into an Amazon S3 bucket by the S3 File Gateway. The default value is S3_STANDARD. Optional. Valid Values: S3_STANDARD | S3_INTELLIGENT_TIERING | S3_STANDARD_IA | S3_ONEZONE_IA"];
      objectACL: ObjectACL.t option
        [@ocaml.doc
          "A value that sets the access control list (ACL) permission for objects in the S3 bucket that a S3 File Gateway puts objects into. The default value is private."];
      readOnly: Boolean.t option
        [@ocaml.doc
          "A value that sets the write status of a file share. Set this value to true to set the write status to read-only, otherwise set to false. Valid Values: true | false"];
      guessMIMETypeEnabled: Boolean.t option
        [@ocaml.doc
          "A value that enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, otherwise set to false. The default value is true. Valid Values: true | false"];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "A value that sets who pays the cost of the request and the cost associated with data download from the S3 bucket. If this value is set to true, the requester pays the costs; otherwise, the S3 bucket owner pays. However, the S3 bucket owner always pays the cost of storing data. RequesterPays is a configuration for the S3 bucket that backs the file share, so make sure that the configuration on the file share is the same as the S3 bucket configuration. Valid Values: true | false"];
      sMBACLEnabled: Boolean.t option
        [@ocaml.doc
          "Set this value to true to enable access control list (ACL) on the SMB file share. Set it to false to map file and directory permissions to the POSIX permissions. For more information, see Using Windows ACLs to limit SMB file share access in the Amazon S3 File Gateway User Guide. Valid Values: true | false"];
      accessBasedEnumeration: Boolean.t option
        [@ocaml.doc
          "The files and folders on this share will only be visible to users with read access."];
      adminUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that will be granted administrator privileges on the file share. These users can do all file operations as the super-user. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Use this option very carefully, because any user in this list can do anything they like on the file share, regardless of file permissions."];
      validUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that are allowed to access the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      invalidUserList: UserList.t option
        [@ocaml.doc
          "A list of users or groups in the Active Directory that are not allowed to access the file share. A group must be prefixed with the \\@ character. Acceptable formats include: DOMAIN\\User1, user1, \\@group1, and \\@DOMAIN\\group1. Can only be set if Authentication is set to ActiveDirectory."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for audit logs."];
      authentication: Authentication.t option
        [@ocaml.doc
          "The authentication method that users use to access the file share. The default is ActiveDirectory. Valid Values: ActiveDirectory | GuestAccess"];
      caseSensitivity: CaseSensitivity.t option
        [@ocaml.doc
          "The case of an object name in an Amazon S3 bucket. For ClientSpecified, the client determines the case sensitivity. For CaseSensitive, the gateway determines the case sensitivity. The default value is ClientSpecified."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to the NFS file share. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."];
      fileShareName: FileShareName.t option
        [@ocaml.doc
          "The name of the file share. Optional. FileShareName must be set if an S3 prefix name is set in LocationARN, or if an access point or access point alias is used. A valid SMB file share name cannot contain the following characters: \\[,\\],#,;,<,>,:,\",\\,/,|,?,*,+, or ASCII control characters 1-31."];
      cacheAttributes: CacheAttributes.t option
        [@ocaml.doc
          "Specifies refresh cache information for the file share."];
      notificationPolicy: NotificationPolicy.t option
        [@ocaml.doc
          "The notification policy of the file share. SettlingTimeInSeconds controls the number of seconds to wait after the last point in time a client wrote to a file before generating an ObjectUploaded notification. Because clients can make many small writes to files, it's best to set this parameter for as long as possible to avoid generating multiple notifications for the same file in a small time period. SettlingTimeInSeconds has no effect on the timing of the object uploading to Amazon S3, only the timing of the notification. This setting is not meant to specify an exact time at which the notification will be sent. In some cases, the gateway might require more than the specified delay time to generate and send notifications. The following example sets NotificationPolicy on with SettlingTimeInSeconds set to 60. \\{\\\"Upload\\\": \\{\\\"SettlingTimeInSeconds\\\": 60\\}\\} The following example sets NotificationPolicy off. \\{\\}"];
      vPCEndpointDNSName: DNSHostName.t option
        [@ocaml.doc
          "Specifies the DNS name for the VPC endpoint that the SMB file share uses to connect to Amazon S3. This parameter is required for SMB file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      bucketRegion: RegionId.t option
        [@ocaml.doc
          "Specifies the Region of the S3 bucket where the SMB file share stores files. This parameter is required for SMB file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      oplocksEnabled: Boolean.t option
        [@ocaml.doc
          "Specifies whether opportunistic locking is enabled for the SMB file share. Enabling opportunistic locking on case-sensitive shares is not recommended for workloads that involve access to files with the same name in different case. Valid Values: true | false"]}
    let context_ = "CreateSMBFileShareInput"
    let make ?encryptionType =
      fun ?kMSEncrypted ->
        fun ?kMSKey ->
          fun ?defaultStorageClass ->
            fun ?objectACL ->
              fun ?readOnly ->
                fun ?guessMIMETypeEnabled ->
                  fun ?requesterPays ->
                    fun ?sMBACLEnabled ->
                      fun ?accessBasedEnumeration ->
                        fun ?adminUserList ->
                          fun ?validUserList ->
                            fun ?invalidUserList ->
                              fun ?auditDestinationARN ->
                                fun ?authentication ->
                                  fun ?caseSensitivity ->
                                    fun ?tags ->
                                      fun ?fileShareName ->
                                        fun ?cacheAttributes ->
                                          fun ?notificationPolicy ->
                                            fun ?vPCEndpointDNSName ->
                                              fun ?bucketRegion ->
                                                fun ?oplocksEnabled ->
                                                  fun ~clientToken ->
                                                    fun ~gatewayARN ->
                                                      fun ~role ->
                                                        fun ~locationARN ->
                                                          fun () ->
                                                            {
                                                              encryptionType;
                                                              kMSEncrypted;
                                                              kMSKey;
                                                              defaultStorageClass;
                                                              objectACL;
                                                              readOnly;
                                                              guessMIMETypeEnabled;
                                                              requesterPays;
                                                              sMBACLEnabled;
                                                              accessBasedEnumeration;
                                                              adminUserList;
                                                              validUserList;
                                                              invalidUserList;
                                                              auditDestinationARN;
                                                              authentication;
                                                              caseSensitivity;
                                                              tags;
                                                              fileShareName;
                                                              cacheAttributes;
                                                              notificationPolicy;
                                                              vPCEndpointDNSName;
                                                              bucketRegion;
                                                              oplocksEnabled;
                                                              clientToken;
                                                              gatewayARN;
                                                              role;
                                                              locationARN
                                                            }
    let to_value x =
      structure_to_value
        [("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("EncryptionType",
          (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("Role", (Some (Role.to_value x.role)));
        ("LocationARN", (Some (LocationARN.to_value x.locationARN)));
        ("DefaultStorageClass",
          (Option.map x.defaultStorageClass ~f:StorageClass.to_value));
        ("ObjectACL", (Option.map x.objectACL ~f:ObjectACL.to_value));
        ("ReadOnly", (Option.map x.readOnly ~f:Boolean.to_value));
        ("GuessMIMETypeEnabled",
          (Option.map x.guessMIMETypeEnabled ~f:Boolean.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("SMBACLEnabled", (Option.map x.sMBACLEnabled ~f:Boolean.to_value));
        ("AccessBasedEnumeration",
          (Option.map x.accessBasedEnumeration ~f:Boolean.to_value));
        ("AdminUserList", (Option.map x.adminUserList ~f:UserList.to_value));
        ("ValidUserList", (Option.map x.validUserList ~f:UserList.to_value));
        ("InvalidUserList",
          (Option.map x.invalidUserList ~f:UserList.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value));
        ("Authentication",
          (Option.map x.authentication ~f:Authentication.to_value));
        ("CaseSensitivity",
          (Option.map x.caseSensitivity ~f:CaseSensitivity.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("FileShareName",
          (Option.map x.fileShareName ~f:FileShareName.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("NotificationPolicy",
          (Option.map x.notificationPolicy ~f:NotificationPolicy.to_value));
        ("VPCEndpointDNSName",
          (Option.map x.vPCEndpointDNSName ~f:DNSHostName.to_value));
        ("BucketRegion", (Option.map x.bucketRegion ~f:RegionId.to_value));
        ("OplocksEnabled", (Option.map x.oplocksEnabled ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let oplocksEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "OplocksEnabled") in
      let bucketRegion =
        (Option.map ~f:RegionId.of_xml) (Xml.child xml_arg0 "BucketRegion") in
      let vPCEndpointDNSName =
        (Option.map ~f:DNSHostName.of_xml)
          (Xml.child xml_arg0 "VPCEndpointDNSName") in
      let notificationPolicy =
        (Option.map ~f:NotificationPolicy.of_xml)
          (Xml.child xml_arg0 "NotificationPolicy") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let fileShareName =
        (Option.map ~f:FileShareName.of_xml)
          (Xml.child xml_arg0 "FileShareName") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let caseSensitivity =
        (Option.map ~f:CaseSensitivity.of_xml)
          (Xml.child xml_arg0 "CaseSensitivity") in
      let authentication =
        (Option.map ~f:Authentication.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let invalidUserList =
        (Option.map ~f:UserList.of_xml)
          (Xml.child xml_arg0 "InvalidUserList") in
      let validUserList =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "ValidUserList") in
      let adminUserList =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "AdminUserList") in
      let accessBasedEnumeration =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "AccessBasedEnumeration") in
      let sMBACLEnabled =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "SMBACLEnabled") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let guessMIMETypeEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "GuessMIMETypeEnabled") in
      let readOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReadOnly") in
      let objectACL =
        (Option.map ~f:ObjectACL.of_xml) (Xml.child xml_arg0 "ObjectACL") in
      let defaultStorageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "DefaultStorageClass") in
      let locationARN =
        LocationARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LocationARN") in
      let role =
        Role.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Role") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      make ?oplocksEnabled ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?caseSensitivity ?authentication ?auditDestinationARN
        ?invalidUserList ?validUserList ?adminUserList
        ?accessBasedEnumeration ?sMBACLEnabled ?requesterPays
        ?guessMIMETypeEnabled ?readOnly ?objectACL ?defaultStorageClass
        ~locationARN ~role ?kMSKey ?kMSEncrypted ?encryptionType ~gatewayARN
        ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let oplocksEnabled = field_map json__ "OplocksEnabled" Boolean.of_json in
      let bucketRegion = field_map json__ "BucketRegion" RegionId.of_json in
      let vPCEndpointDNSName =
        field_map json__ "VPCEndpointDNSName" DNSHostName.of_json in
      let notificationPolicy =
        field_map json__ "NotificationPolicy" NotificationPolicy.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let fileShareName =
        field_map json__ "FileShareName" FileShareName.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let caseSensitivity =
        field_map json__ "CaseSensitivity" CaseSensitivity.of_json in
      let authentication =
        field_map json__ "Authentication" Authentication.of_json in
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let invalidUserList =
        field_map json__ "InvalidUserList" UserList.of_json in
      let validUserList = field_map json__ "ValidUserList" UserList.of_json in
      let adminUserList = field_map json__ "AdminUserList" UserList.of_json in
      let accessBasedEnumeration =
        field_map json__ "AccessBasedEnumeration" Boolean.of_json in
      let sMBACLEnabled = field_map json__ "SMBACLEnabled" Boolean.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let guessMIMETypeEnabled =
        field_map json__ "GuessMIMETypeEnabled" Boolean.of_json in
      let readOnly = field_map json__ "ReadOnly" Boolean.of_json in
      let objectACL = field_map json__ "ObjectACL" ObjectACL.of_json in
      let defaultStorageClass =
        field_map json__ "DefaultStorageClass" StorageClass.of_json in
      let locationARN =
        field_map_exn json__ "LocationARN" LocationARN.of_json in
      let role = field_map_exn json__ "Role" Role.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      make ?oplocksEnabled ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?caseSensitivity ?authentication ?auditDestinationARN
        ?invalidUserList ?validUserList ?adminUserList
        ?accessBasedEnumeration ?sMBACLEnabled ?requesterPays
        ?guessMIMETypeEnabled ?readOnly ?objectACL ?defaultStorageClass
        ~locationARN ~role ?kMSKey ?kMSEncrypted ?encryptionType ~gatewayARN
        ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateSMBFileShareInput"]
module CreateNFSFileShareOutput =
  struct
    type nonrec t =
      {
      fileShareARN: FileShareARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the newly created file share."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileShareARN = fun () -> { fileShareARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileShareARN",
           (Option.map x.fileShareARN ~f:FileShareARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileShareARN =
        (Option.map ~f:FileShareARN.of_xml)
          (Xml.child xml_arg0 "FileShareARN") in
      make ?fileShareARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileShareARN = field_map json__ "FileShareARN" FileShareARN.of_json in
      make ?fileShareARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateNFSFileShareOutput"]
module CreateNFSFileShareInput =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique string value that you supply that is used by S3 File Gateway to ensure idempotent file share creation."];
      nFSFileShareDefaults: NFSFileShareDefaults.t option
        [@ocaml.doc "File share default values. Optional."];
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the S3 File Gateway on which you want to create a file share."];
      encryptionType: EncryptionType.t option
        [@ocaml.doc
          "A value that specifies the type of server-side encryption that the file share will use for the data that it stores in Amazon S3. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Optional. Set to true to use Amazon S3 server-side encryption with your own KMS key (SSE-KMS), or false to use a key managed by Amazon S3 (SSE-S3). To use dual-layer encryption (DSSE-KMS), set the EncryptionType parameter instead. We recommend using EncryptionType instead of KMSEncrypted to set the file share encryption method. You do not need to provide values for both parameters. If values for both parameters exist in the same request, then the specified encryption methods must not conflict. For example, if EncryptionType is SseS3, then KMSEncrypted must be false. If EncryptionType is SseKms or DsseKms, then KMSEncrypted must be true. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "Optional. The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value must be set if KMSEncrypted is true, or if EncryptionType is SseKms or DsseKms."];
      role: Role.t
        [@ocaml.doc
          "The ARN of the Identity and Access Management (IAM) role that an S3 File Gateway assumes when it accesses the underlying storage."];
      locationARN: LocationARN.t
        [@ocaml.doc
          "A custom ARN for the backend storage used for storing data for file shares. It includes a resource ARN with an optional prefix concatenation. The prefix must end with a forward slash (/). You can specify LocationARN as a bucket ARN, access point ARN or access point alias, as shown in the following examples. Bucket ARN: arn:aws:s3:::amzn-s3-demo-bucket/prefix/ Access point ARN: arn:aws:s3:region:account-id:accesspoint/access-point-name/prefix/ If you specify an access point, the bucket policy must be configured to delegate access control to the access point. For information, see Delegating access control to access points in the Amazon S3 User Guide. Access point alias: test-ap-ab123cdef4gehijklmn5opqrstuvuse1a-s3alias"];
      defaultStorageClass: StorageClass.t option
        [@ocaml.doc
          "The default storage class for objects put into an Amazon S3 bucket by the S3 File Gateway. The default value is S3_STANDARD. Optional. Valid Values: S3_STANDARD | S3_INTELLIGENT_TIERING | S3_STANDARD_IA | S3_ONEZONE_IA"];
      objectACL: ObjectACL.t option
        [@ocaml.doc
          "A value that sets the access control list (ACL) permission for objects in the S3 bucket that a S3 File Gateway puts objects into. The default value is private."];
      clientList: FileShareClientList.t option
        [@ocaml.doc
          "The list of clients that are allowed to access the S3 File Gateway. The list must contain either valid IPv4/IPv6 addresses or valid CIDR blocks."];
      squash: Squash.t option
        [@ocaml.doc
          "A value that maps a user to anonymous user. Valid values are the following: RootSquash: Only root is mapped to anonymous user. NoSquash: No one is mapped to anonymous user. AllSquash: Everyone is mapped to anonymous user."];
      readOnly: Boolean.t option
        [@ocaml.doc
          "A value that sets the write status of a file share. Set this value to true to set the write status to read-only, otherwise set to false. Valid Values: true | false"];
      guessMIMETypeEnabled: Boolean.t option
        [@ocaml.doc
          "A value that enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, otherwise set to false. The default value is true. Valid Values: true | false"];
      requesterPays: Boolean.t option
        [@ocaml.doc
          "A value that sets who pays the cost of the request and the cost associated with data download from the S3 bucket. If this value is set to true, the requester pays the costs; otherwise, the S3 bucket owner pays. However, the S3 bucket owner always pays the cost of storing data. RequesterPays is a configuration for the S3 bucket that backs the file share, so make sure that the configuration on the file share is the same as the S3 bucket configuration. Valid Values: true | false"];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to the NFS file share. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."];
      fileShareName: FileShareName.t option
        [@ocaml.doc
          "The name of the file share. Optional. FileShareName must be set if an S3 prefix name is set in LocationARN, or if an access point or access point alias is used. A valid NFS file share name can only contain the following characters: a-z, A-Z, 0-9, -, ., and _."];
      cacheAttributes: CacheAttributes.t option
        [@ocaml.doc
          "Specifies refresh cache information for the file share."];
      notificationPolicy: NotificationPolicy.t option
        [@ocaml.doc
          "The notification policy of the file share. SettlingTimeInSeconds controls the number of seconds to wait after the last point in time a client wrote to a file before generating an ObjectUploaded notification. Because clients can make many small writes to files, it's best to set this parameter for as long as possible to avoid generating multiple notifications for the same file in a small time period. SettlingTimeInSeconds has no effect on the timing of the object uploading to Amazon S3, only the timing of the notification. This setting is not meant to specify an exact time at which the notification will be sent. In some cases, the gateway might require more than the specified delay time to generate and send notifications. The following example sets NotificationPolicy on with SettlingTimeInSeconds set to 60. \\{\\\"Upload\\\": \\{\\\"SettlingTimeInSeconds\\\": 60\\}\\} The following example sets NotificationPolicy off. \\{\\}"];
      vPCEndpointDNSName: DNSHostName.t option
        [@ocaml.doc
          "Specifies the DNS name for the VPC endpoint that the NFS file share uses to connect to Amazon S3. This parameter is required for NFS file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      bucketRegion: RegionId.t option
        [@ocaml.doc
          "Specifies the Region of the S3 bucket where the NFS file share stores files. This parameter is required for NFS file shares that connect to Amazon S3 through a VPC endpoint, a VPC access point, or an access point alias that points to a VPC access point."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for audit logs."]}
    let context_ = "CreateNFSFileShareInput"
    let make ?nFSFileShareDefaults =
      fun ?encryptionType ->
        fun ?kMSEncrypted ->
          fun ?kMSKey ->
            fun ?defaultStorageClass ->
              fun ?objectACL ->
                fun ?clientList ->
                  fun ?squash ->
                    fun ?readOnly ->
                      fun ?guessMIMETypeEnabled ->
                        fun ?requesterPays ->
                          fun ?tags ->
                            fun ?fileShareName ->
                              fun ?cacheAttributes ->
                                fun ?notificationPolicy ->
                                  fun ?vPCEndpointDNSName ->
                                    fun ?bucketRegion ->
                                      fun ?auditDestinationARN ->
                                        fun ~clientToken ->
                                          fun ~gatewayARN ->
                                            fun ~role ->
                                              fun ~locationARN ->
                                                fun () ->
                                                  {
                                                    nFSFileShareDefaults;
                                                    encryptionType;
                                                    kMSEncrypted;
                                                    kMSKey;
                                                    defaultStorageClass;
                                                    objectACL;
                                                    clientList;
                                                    squash;
                                                    readOnly;
                                                    guessMIMETypeEnabled;
                                                    requesterPays;
                                                    tags;
                                                    fileShareName;
                                                    cacheAttributes;
                                                    notificationPolicy;
                                                    vPCEndpointDNSName;
                                                    bucketRegion;
                                                    auditDestinationARN;
                                                    clientToken;
                                                    gatewayARN;
                                                    role;
                                                    locationARN
                                                  }
    let to_value x =
      structure_to_value
        [("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("NFSFileShareDefaults",
          (Option.map x.nFSFileShareDefaults ~f:NFSFileShareDefaults.to_value));
        ("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("EncryptionType",
          (Option.map x.encryptionType ~f:EncryptionType.to_value));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("Role", (Some (Role.to_value x.role)));
        ("LocationARN", (Some (LocationARN.to_value x.locationARN)));
        ("DefaultStorageClass",
          (Option.map x.defaultStorageClass ~f:StorageClass.to_value));
        ("ObjectACL", (Option.map x.objectACL ~f:ObjectACL.to_value));
        ("ClientList",
          (Option.map x.clientList ~f:FileShareClientList.to_value));
        ("Squash", (Option.map x.squash ~f:Squash.to_value));
        ("ReadOnly", (Option.map x.readOnly ~f:Boolean.to_value));
        ("GuessMIMETypeEnabled",
          (Option.map x.guessMIMETypeEnabled ~f:Boolean.to_value));
        ("RequesterPays", (Option.map x.requesterPays ~f:Boolean.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("FileShareName",
          (Option.map x.fileShareName ~f:FileShareName.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("NotificationPolicy",
          (Option.map x.notificationPolicy ~f:NotificationPolicy.to_value));
        ("VPCEndpointDNSName",
          (Option.map x.vPCEndpointDNSName ~f:DNSHostName.to_value));
        ("BucketRegion", (Option.map x.bucketRegion ~f:RegionId.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let bucketRegion =
        (Option.map ~f:RegionId.of_xml) (Xml.child xml_arg0 "BucketRegion") in
      let vPCEndpointDNSName =
        (Option.map ~f:DNSHostName.of_xml)
          (Xml.child xml_arg0 "VPCEndpointDNSName") in
      let notificationPolicy =
        (Option.map ~f:NotificationPolicy.of_xml)
          (Xml.child xml_arg0 "NotificationPolicy") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let fileShareName =
        (Option.map ~f:FileShareName.of_xml)
          (Xml.child xml_arg0 "FileShareName") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let requesterPays =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "RequesterPays") in
      let guessMIMETypeEnabled =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "GuessMIMETypeEnabled") in
      let readOnly =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "ReadOnly") in
      let squash =
        (Option.map ~f:Squash.of_xml) (Xml.child xml_arg0 "Squash") in
      let clientList =
        (Option.map ~f:FileShareClientList.of_xml)
          (Xml.child xml_arg0 "ClientList") in
      let objectACL =
        (Option.map ~f:ObjectACL.of_xml) (Xml.child xml_arg0 "ObjectACL") in
      let defaultStorageClass =
        (Option.map ~f:StorageClass.of_xml)
          (Xml.child xml_arg0 "DefaultStorageClass") in
      let locationARN =
        LocationARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LocationARN") in
      let role =
        Role.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Role") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let encryptionType =
        (Option.map ~f:EncryptionType.of_xml)
          (Xml.child xml_arg0 "EncryptionType") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      let nFSFileShareDefaults =
        (Option.map ~f:NFSFileShareDefaults.of_xml)
          (Xml.child xml_arg0 "NFSFileShareDefaults") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      make ?auditDestinationARN ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?requesterPays ?guessMIMETypeEnabled ?readOnly ?squash ?clientList
        ?objectACL ?defaultStorageClass ~locationARN ~role ?kMSKey
        ?kMSEncrypted ?encryptionType ~gatewayARN ?nFSFileShareDefaults
        ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let bucketRegion = field_map json__ "BucketRegion" RegionId.of_json in
      let vPCEndpointDNSName =
        field_map json__ "VPCEndpointDNSName" DNSHostName.of_json in
      let notificationPolicy =
        field_map json__ "NotificationPolicy" NotificationPolicy.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let fileShareName =
        field_map json__ "FileShareName" FileShareName.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let requesterPays = field_map json__ "RequesterPays" Boolean.of_json in
      let guessMIMETypeEnabled =
        field_map json__ "GuessMIMETypeEnabled" Boolean.of_json in
      let readOnly = field_map json__ "ReadOnly" Boolean.of_json in
      let squash = field_map json__ "Squash" Squash.of_json in
      let clientList =
        field_map json__ "ClientList" FileShareClientList.of_json in
      let objectACL = field_map json__ "ObjectACL" ObjectACL.of_json in
      let defaultStorageClass =
        field_map json__ "DefaultStorageClass" StorageClass.of_json in
      let locationARN =
        field_map_exn json__ "LocationARN" LocationARN.of_json in
      let role = field_map_exn json__ "Role" Role.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let encryptionType =
        field_map json__ "EncryptionType" EncryptionType.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      let nFSFileShareDefaults =
        field_map json__ "NFSFileShareDefaults" NFSFileShareDefaults.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      make ?auditDestinationARN ?bucketRegion ?vPCEndpointDNSName
        ?notificationPolicy ?cacheAttributes ?fileShareName ?tags
        ?requesterPays ?guessMIMETypeEnabled ?readOnly ?squash ?clientList
        ?objectACL ?defaultStorageClass ~locationARN ~role ?kMSKey
        ?kMSEncrypted ?encryptionType ~gatewayARN ?nFSFileShareDefaults
        ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CreateNFSFileShareInput"]
module CreateCachediSCSIVolumeOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the configured volume."];
      targetARN: TargetARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume target, which includes the iSCSI name that initiators can use to connect to the target."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN =
      fun ?targetARN -> fun () -> { volumeARN; targetARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?targetARN ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?targetARN ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a cached volume on a specified cached volume gateway. This operation is only supported in the cached volume gateway type. Cache storage must be allocated to the gateway before you can create a cached volume. Use the AddCache operation to add cache storage to a gateway. In the request, you must specify the gateway, size of the volume in bytes, the iSCSI target name, an IP address on which to expose the target, and a unique client token. In response, the gateway creates the volume and returns information about it. This information includes the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target. Optionally, you can provide the ARN for an existing volume as the SourceVolumeARN for this cached volume, which creates an exact copy of the existing volume\226\128\153s latest recovery point. The VolumeSizeInBytes value must be equal to or larger than the size of the copied volume, in bytes."]
module CreateCachediSCSIVolumeInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      volumeSizeInBytes: Long.t
        [@ocaml.doc "The size of the volume in bytes."];
      snapshotId: SnapshotId.t option
        [@ocaml.doc
          "The snapshot ID (e.g. \"snap-1122aabb\") of the snapshot to restore as the new cached volume. Specify this field if you want to create the iSCSI storage volume from a snapshot; otherwise, do not include this field. To list snapshots for your account use DescribeSnapshots in the Amazon Elastic Compute Cloud API Reference."];
      targetName: TargetName.t
        [@ocaml.doc
          "The name of the iSCSI target used by an initiator to connect to a volume and used as a suffix for the target ARN. For example, specifying TargetName as myvolume results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes on a gateway. If you don't specify a value, Storage Gateway uses the value that was previously used for this volume as the new target name."];
      sourceVolumeARN: VolumeARN.t option
        [@ocaml.doc
          "The ARN for an existing volume. Specifying this ARN makes the new volume into an exact copy of the specified existing volume's latest recovery point. The VolumeSizeInBytes value for this new volume must be equal to or larger than the size of the existing volume, in bytes."];
      networkInterfaceId: NetworkInterfaceId.t
        [@ocaml.doc
          "The network interface of the gateway on which to expose the iSCSI target. Accepts IPv4 and IPv6 addresses. Use DescribeGatewayInformation to get a list of the network interfaces available on a gateway. Valid Values: A valid IP address."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique identifier that you use to retry a request. If you retry a request, use the same ClientToken you specified in the initial request."];
      kMSEncrypted: Boolean.t option
        [@ocaml.doc
          "Set to true to use Amazon S3 server-side encryption with your own KMS key, or false to use a key managed by Amazon S3. Optional. Valid Values: true | false"];
      kMSKey: KMSKey.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of a symmetric customer master key (CMK) used for Amazon S3 server-side encryption. Storage Gateway does not support asymmetric CMKs. This value can only be set when KMSEncrypted is true. Optional."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that you can assign to a cached volume. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers that you can represent in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256 characters."]}
    let context_ = "CreateCachediSCSIVolumeInput"
    let make ?snapshotId =
      fun ?sourceVolumeARN ->
        fun ?kMSEncrypted ->
          fun ?kMSKey ->
            fun ?tags ->
              fun ~gatewayARN ->
                fun ~volumeSizeInBytes ->
                  fun ~targetName ->
                    fun ~networkInterfaceId ->
                      fun ~clientToken ->
                        fun () ->
                          {
                            snapshotId;
                            sourceVolumeARN;
                            kMSEncrypted;
                            kMSKey;
                            tags;
                            gatewayARN;
                            volumeSizeInBytes;
                            targetName;
                            networkInterfaceId;
                            clientToken
                          }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("VolumeSizeInBytes", (Some (Long.to_value x.volumeSizeInBytes)));
        ("SnapshotId", (Option.map x.snapshotId ~f:SnapshotId.to_value));
        ("TargetName", (Some (TargetName.to_value x.targetName)));
        ("SourceVolumeARN",
          (Option.map x.sourceVolumeARN ~f:VolumeARN.to_value));
        ("NetworkInterfaceId",
          (Some (NetworkInterfaceId.to_value x.networkInterfaceId)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("KMSEncrypted", (Option.map x.kMSEncrypted ~f:Boolean.to_value));
        ("KMSKey", (Option.map x.kMSKey ~f:KMSKey.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let kMSKey =
        (Option.map ~f:KMSKey.of_xml) (Xml.child xml_arg0 "KMSKey") in
      let kMSEncrypted =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "KMSEncrypted") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let networkInterfaceId =
        NetworkInterfaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NetworkInterfaceId") in
      let sourceVolumeARN =
        (Option.map ~f:VolumeARN.of_xml)
          (Xml.child xml_arg0 "SourceVolumeARN") in
      let targetName =
        TargetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TargetName") in
      let snapshotId =
        (Option.map ~f:SnapshotId.of_xml) (Xml.child xml_arg0 "SnapshotId") in
      let volumeSizeInBytes =
        Long.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeSizeInBytes") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?tags ?kMSKey ?kMSEncrypted ~clientToken ~networkInterfaceId
        ?sourceVolumeARN ~targetName ?snapshotId ~volumeSizeInBytes
        ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let kMSKey = field_map json__ "KMSKey" KMSKey.of_json in
      let kMSEncrypted = field_map json__ "KMSEncrypted" Boolean.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let networkInterfaceId =
        field_map_exn json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let sourceVolumeARN =
        field_map json__ "SourceVolumeARN" VolumeARN.of_json in
      let targetName = field_map_exn json__ "TargetName" TargetName.of_json in
      let snapshotId = field_map json__ "SnapshotId" SnapshotId.of_json in
      let volumeSizeInBytes =
        field_map_exn json__ "VolumeSizeInBytes" Long.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?tags ?kMSKey ?kMSEncrypted ~clientToken ~networkInterfaceId
        ?sourceVolumeARN ~targetName ?snapshotId ~volumeSizeInBytes
        ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a cached volume on a specified cached volume gateway. This operation is only supported in the cached volume gateway type. Cache storage must be allocated to the gateway before you can create a cached volume. Use the AddCache operation to add cache storage to a gateway. In the request, you must specify the gateway, size of the volume in bytes, the iSCSI target name, an IP address on which to expose the target, and a unique client token. In response, the gateway creates the volume and returns information about it. This information includes the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target. Optionally, you can provide the ARN for an existing volume as the SourceVolumeARN for this cached volume, which creates an exact copy of the existing volume\226\128\153s latest recovery point. The VolumeSizeInBytes value must be equal to or larger than the size of the copied volume, in bytes."]
module CancelRetrievalOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape for which retrieval was canceled."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CancelRetrievalOutput"]
module CancelRetrievalInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape you want to cancel retrieval for."]}
    let context_ = "CancelRetrievalInput"
    let make ~gatewayARN = fun ~tapeARN -> fun () -> { gatewayARN; tapeARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TapeARN", (Some (TapeARN.to_value x.tapeARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~tapeARN ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~tapeARN ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CancelRetrievalInput"]
module CancelCacheReportOutput =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report you want to cancel."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?cacheReportARN = fun () -> { cacheReportARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("CacheReportARN",
           (Option.map x.cacheReportARN ~f:CacheReportARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportARN =
        (Option.map ~f:CacheReportARN.of_xml)
          (Xml.child xml_arg0 "CacheReportARN") in
      make ?cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportARN =
        field_map json__ "CacheReportARN" CacheReportARN.of_json in
      make ?cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels generation of a specified cache report. You can use this operation to manually cancel an IN-PROGRESS report for any reason. This action changes the report status from IN-PROGRESS to CANCELLED. You can only cancel in-progress reports. If the the report you attempt to cancel is in FAILED, ERROR, or COMPLETED state, the cancel operation returns an error."]
module CancelCacheReportInput =
  struct
    type nonrec t =
      {
      cacheReportARN: CacheReportARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the cache report you want to cancel."]}
    let context_ = "CancelCacheReportInput"
    let make ~cacheReportARN = fun () -> { cacheReportARN }
    let to_value x =
      structure_to_value
        [("CacheReportARN",
           (Some (CacheReportARN.to_value x.cacheReportARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cacheReportARN =
        CacheReportARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CacheReportARN") in
      make ~cacheReportARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cacheReportARN =
        field_map_exn json__ "CacheReportARN" CacheReportARN.of_json in
      make ~cacheReportARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Cancels generation of a specified cache report. You can use this operation to manually cancel an IN-PROGRESS report for any reason. This action changes the report status from IN-PROGRESS to CANCELLED. You can only cancel in-progress reports. If the the report you attempt to cancel is in FAILED, ERROR, or COMPLETED state, the cancel operation returns an error."]
module CancelArchivalOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape for which archiving was canceled."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CancelArchivalOutput"]
module CancelArchivalInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the virtual tape you want to cancel archiving for."]}
    let context_ = "CancelArchivalInput"
    let make ~gatewayARN = fun ~tapeARN -> fun () -> { gatewayARN; tapeARN }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TapeARN", (Some (TapeARN.to_value x.tapeARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~tapeARN ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~tapeARN ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "CancelArchivalInput"]
module AttachVolumeOutput =
  struct
    type nonrec t =
      {
      volumeARN: VolumeARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume that was attached to the gateway."];
      targetARN: TargetARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume target, which includes the iSCSI name for the initiator that was used to connect to the target."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?volumeARN =
      fun ?targetARN -> fun () -> { volumeARN; targetARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("VolumeARN", (Option.map x.volumeARN ~f:VolumeARN.to_value));
        ("TargetARN", (Option.map x.targetARN ~f:TargetARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetARN =
        (Option.map ~f:TargetARN.of_xml) (Xml.child xml_arg0 "TargetARN") in
      let volumeARN =
        (Option.map ~f:VolumeARN.of_xml) (Xml.child xml_arg0 "VolumeARN") in
      make ?targetARN ?volumeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetARN = field_map json__ "TargetARN" TargetARN.of_json in
      let volumeARN = field_map json__ "VolumeARN" VolumeARN.of_json in
      make ?targetARN ?volumeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AttachVolumeOutput"]
module AttachVolumeInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the gateway that you want to attach the volume to."];
      targetName: TargetName.t option
        [@ocaml.doc
          "The name of the iSCSI target used by an initiator to connect to a volume and used as a suffix for the target ARN. For example, specifying TargetName as myvolume results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes on a gateway. If you don't specify a value, Storage Gateway uses the value that was previously used for this volume as the new target name."];
      volumeARN: VolumeARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the volume to attach to the specified gateway."];
      networkInterfaceId: NetworkInterfaceId.t
        [@ocaml.doc
          "The network interface of the gateway on which to expose the iSCSI target. Accepts IPv4 and IPv6 addresses. Use DescribeGatewayInformation to get a list of the network interfaces available on a gateway. Valid Values: A valid IP address."];
      diskId: DiskId.t option
        [@ocaml.doc
          "The unique device ID or other distinguishing data that identifies the local disk used to create the volume. This value is only required when you are attaching a stored volume."]}
    let context_ = "AttachVolumeInput"
    let make ?targetName =
      fun ?diskId ->
        fun ~gatewayARN ->
          fun ~volumeARN ->
            fun ~networkInterfaceId ->
              fun () ->
                {
                  targetName;
                  diskId;
                  gatewayARN;
                  volumeARN;
                  networkInterfaceId
                }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("TargetName", (Option.map x.targetName ~f:TargetName.to_value));
        ("VolumeARN", (Some (VolumeARN.to_value x.volumeARN)));
        ("NetworkInterfaceId",
          (Some (NetworkInterfaceId.to_value x.networkInterfaceId)));
        ("DiskId", (Option.map x.diskId ~f:DiskId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diskId =
        (Option.map ~f:DiskId.of_xml) (Xml.child xml_arg0 "DiskId") in
      let networkInterfaceId =
        NetworkInterfaceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NetworkInterfaceId") in
      let volumeARN =
        VolumeARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VolumeARN") in
      let targetName =
        (Option.map ~f:TargetName.of_xml) (Xml.child xml_arg0 "TargetName") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ?diskId ~networkInterfaceId ~volumeARN ?targetName ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diskId = field_map json__ "DiskId" DiskId.of_json in
      let networkInterfaceId =
        field_map_exn json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let volumeARN = field_map_exn json__ "VolumeARN" VolumeARN.of_json in
      let targetName = field_map json__ "TargetName" TargetName.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ?diskId ~networkInterfaceId ~volumeARN ?targetName ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AttachVolumeInput"]
module AssociateFileSystemOutput =
  struct
    type nonrec t =
      {
      fileSystemAssociationARN: FileSystemAssociationARN.t option
        [@ocaml.doc "The ARN of the newly created file system association."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileSystemAssociationARN =
      fun () -> { fileSystemAssociationARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("FileSystemAssociationARN",
           (Option.map x.fileSystemAssociationARN
              ~f:FileSystemAssociationARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemAssociationARN =
        (Option.map ~f:FileSystemAssociationARN.of_xml)
          (Xml.child xml_arg0 "FileSystemAssociationARN") in
      make ?fileSystemAssociationARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemAssociationARN =
        field_map json__ "FileSystemAssociationARN"
          FileSystemAssociationARN.of_json in
      make ?fileSystemAssociationARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate an Amazon FSx file system with the FSx File Gateway. After the association process is complete, the file shares on the Amazon FSx file system are available for access through the gateway. This operation only supports the FSx File Gateway type."]
module AssociateFileSystemInput =
  struct
    type nonrec t =
      {
      userName: DomainUserName.t
        [@ocaml.doc
          "The user name of the user credential that has permission to access the root share D$ of the Amazon FSx file system. The user account must belong to the Amazon FSx delegated admin user group."];
      password: DomainUserPassword.t
        [@ocaml.doc "The password of the user credential."];
      clientToken: ClientToken.t
        [@ocaml.doc
          "A unique string value that you supply that is used by the FSx File Gateway to ensure idempotent file system association creation."];
      gatewayARN: GatewayARN.t ;
      locationARN: FileSystemLocationARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon FSx file system to associate with the FSx File Gateway."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that can be assigned to the file system association. Each tag is a key-value pair."];
      auditDestinationARN: AuditDestinationARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the storage used for the audit logs."];
      cacheAttributes: CacheAttributes.t option ;
      endpointNetworkConfiguration: EndpointNetworkConfiguration.t option
        [@ocaml.doc
          "Specifies the network configuration information for the gateway associated with the Amazon FSx file system. If multiple file systems are associated with this gateway, this parameter's IpAddresses field is required."]}
    let context_ = "AssociateFileSystemInput"
    let make ?tags =
      fun ?auditDestinationARN ->
        fun ?cacheAttributes ->
          fun ?endpointNetworkConfiguration ->
            fun ~userName ->
              fun ~password ->
                fun ~clientToken ->
                  fun ~gatewayARN ->
                    fun ~locationARN ->
                      fun () ->
                        {
                          tags;
                          auditDestinationARN;
                          cacheAttributes;
                          endpointNetworkConfiguration;
                          userName;
                          password;
                          clientToken;
                          gatewayARN;
                          locationARN
                        }
    let to_value x =
      structure_to_value
        [("UserName", (Some (DomainUserName.to_value x.userName)));
        ("Password", (Some (DomainUserPassword.to_value x.password)));
        ("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("LocationARN",
          (Some (FileSystemLocationARN.to_value x.locationARN)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("AuditDestinationARN",
          (Option.map x.auditDestinationARN ~f:AuditDestinationARN.to_value));
        ("CacheAttributes",
          (Option.map x.cacheAttributes ~f:CacheAttributes.to_value));
        ("EndpointNetworkConfiguration",
          (Option.map x.endpointNetworkConfiguration
             ~f:EndpointNetworkConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endpointNetworkConfiguration =
        (Option.map ~f:EndpointNetworkConfiguration.of_xml)
          (Xml.child xml_arg0 "EndpointNetworkConfiguration") in
      let cacheAttributes =
        (Option.map ~f:CacheAttributes.of_xml)
          (Xml.child xml_arg0 "CacheAttributes") in
      let auditDestinationARN =
        (Option.map ~f:AuditDestinationARN.of_xml)
          (Xml.child xml_arg0 "AuditDestinationARN") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let locationARN =
        FileSystemLocationARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LocationARN") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      let clientToken =
        ClientToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ClientToken") in
      let password =
        DomainUserPassword.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let userName =
        DomainUserName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "UserName") in
      make ?endpointNetworkConfiguration ?cacheAttributes
        ?auditDestinationARN ?tags ~locationARN ~gatewayARN ~clientToken
        ~password ~userName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endpointNetworkConfiguration =
        field_map json__ "EndpointNetworkConfiguration"
          EndpointNetworkConfiguration.of_json in
      let cacheAttributes =
        field_map json__ "CacheAttributes" CacheAttributes.of_json in
      let auditDestinationARN =
        field_map json__ "AuditDestinationARN" AuditDestinationARN.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let locationARN =
        field_map_exn json__ "LocationARN" FileSystemLocationARN.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      let password =
        field_map_exn json__ "Password" DomainUserPassword.of_json in
      let userName = field_map_exn json__ "UserName" DomainUserName.of_json in
      make ?endpointNetworkConfiguration ?cacheAttributes
        ?auditDestinationARN ?tags ~locationARN ~gatewayARN ~clientToken
        ~password ~userName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associate an Amazon FSx file system with the FSx File Gateway. After the association process is complete, the file shares on the Amazon FSx file system are available for access through the gateway. This operation only supports the FSx File Gateway type."]
module AssignTapePoolOutput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t option
        [@ocaml.doc
          "The unique Amazon Resource Names (ARN) of the virtual tape that was added to the tape pool."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tapeARN = fun () -> { tapeARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("TapeARN", (Option.map x.tapeARN ~f:TapeARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tapeARN =
        (Option.map ~f:TapeARN.of_xml) (Xml.child xml_arg0 "TapeARN") in
      make ?tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tapeARN = field_map json__ "TapeARN" TapeARN.of_json in
      make ?tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns a tape to a tape pool for archiving. The tape assigned to a pool is archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the S3 storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."]
module AssignTapePoolInput =
  struct
    type nonrec t =
      {
      tapeARN: TapeARN.t
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) of the virtual tape that you want to add to the tape pool."];
      poolId: PoolId.t
        [@ocaml.doc
          "The ID of the pool that you want to add your tape to for archiving. The tape in this pool is archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."];
      bypassGovernanceRetention: Boolean__lc1.t option
        [@ocaml.doc
          "Set permissions to bypass governance retention. If the lock type of the archived tape is Governance, the tape's archived age is not older than RetentionLockInDays, and the user does not already have BypassGovernanceRetention, setting this to TRUE enables the user to bypass the retention lock. This parameter is set to true by default for calls from the console. Valid values: TRUE | FALSE"]}
    let context_ = "AssignTapePoolInput"
    let make ?bypassGovernanceRetention =
      fun ~tapeARN ->
        fun ~poolId ->
          fun () -> { bypassGovernanceRetention; tapeARN; poolId }
    let to_value x =
      structure_to_value
        [("TapeARN", (Some (TapeARN.to_value x.tapeARN)));
        ("PoolId", (Some (PoolId.to_value x.poolId)));
        ("BypassGovernanceRetention",
          (Option.map x.bypassGovernanceRetention ~f:Boolean__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bypassGovernanceRetention =
        (Option.map ~f:Boolean__lc1.of_xml)
          (Xml.child xml_arg0 "BypassGovernanceRetention") in
      let poolId =
        PoolId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "PoolId") in
      let tapeARN =
        TapeARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "TapeARN") in
      make ?bypassGovernanceRetention ~poolId ~tapeARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bypassGovernanceRetention =
        field_map json__ "BypassGovernanceRetention" Boolean__lc1.of_json in
      let poolId = field_map_exn json__ "PoolId" PoolId.of_json in
      let tapeARN = field_map_exn json__ "TapeARN" TapeARN.of_json in
      make ?bypassGovernanceRetention ~poolId ~tapeARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Assigns a tape to a tape pool for archiving. The tape assigned to a pool is archived in the S3 storage class that is associated with the pool. When you use your backup application to eject the tape, the tape is archived directly into the S3 storage class (S3 Glacier or S3 Glacier Deep Archive) that corresponds to the pool."]
module AddWorkingStorageOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing the Amazon Resource Name (ARN) of the gateway for which working storage was configured."]
module AddWorkingStorageInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      diskIds: DiskIds.t
        [@ocaml.doc
          "An array of strings that identify disks that are to be configured as working storage. Each string has a minimum length of 1 and maximum length of 300. You can get the disk IDs from the ListLocalDisks API."]}
    let context_ = "AddWorkingStorageInput"
    let make ~gatewayARN = fun ~diskIds -> fun () -> { gatewayARN; diskIds }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("DiskIds", (Some (DiskIds.to_value x.diskIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diskIds =
        DiskIds.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DiskIds") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~diskIds ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diskIds = field_map_exn json__ "DiskIds" DiskIds.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~diskIds ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: AddWorkingStorageInput$DiskIds"]
module AddUploadBufferOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures one or more gateway local disks as upload buffer for a specified gateway. This operation is supported for the stored volume, cached volume, and tape gateway types. In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add upload buffer, and one or more disk IDs that you want to configure as upload buffer."]
module AddUploadBufferInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      diskIds: DiskIds.t
        [@ocaml.doc
          "An array of strings that identify disks that are to be configured as working storage. Each string has a minimum length of 1 and maximum length of 300. You can get the disk IDs from the ListLocalDisks API."]}
    let context_ = "AddUploadBufferInput"
    let make ~gatewayARN = fun ~diskIds -> fun () -> { gatewayARN; diskIds }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("DiskIds", (Some (DiskIds.to_value x.diskIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diskIds =
        DiskIds.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DiskIds") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~diskIds ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diskIds = field_map_exn json__ "DiskIds" DiskIds.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~diskIds ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures one or more gateway local disks as upload buffer for a specified gateway. This operation is supported for the stored volume, cached volume, and tape gateway types. In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add upload buffer, and one or more disk IDs that you want to configure as upload buffer."]
module AddTagsToResourceOutput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource you want to add tags to."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceARN = fun () -> { resourceARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AddTagsToResourceOutput"]
module AddTagsToResourceInput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource you want to add tags to."];
      tags: Tags.t
        [@ocaml.doc
          "The key-value pair that represents the tag you want to add to the resource. The value can be an empty string. Valid characters for key and value are letters, spaces, and numbers representable in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256."]}
    let context_ = "AddTagsToResourceInput"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("Tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" Tags.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "AddTagsToResourceInput"]
module AddCacheOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures one or more gateway local disks as cache for a gateway. This operation is only supported in the cached volume, tape, and file gateway type (see How Storage Gateway works (architecture). In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add cache, and one or more disk IDs that you want to configure as cache."]
module AddCacheInput =
  struct
    type nonrec t =
      {
      gatewayARN: GatewayARN.t ;
      diskIds: DiskIds.t
        [@ocaml.doc
          "An array of strings that identify disks that are to be configured as working storage. Each string has a minimum length of 1 and maximum length of 300. You can get the disk IDs from the ListLocalDisks API."]}
    let context_ = "AddCacheInput"
    let make ~gatewayARN = fun ~diskIds -> fun () -> { gatewayARN; diskIds }
    let to_value x =
      structure_to_value
        [("GatewayARN", (Some (GatewayARN.to_value x.gatewayARN)));
        ("DiskIds", (Some (DiskIds.to_value x.diskIds)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let diskIds =
        DiskIds.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DiskIds") in
      let gatewayARN =
        GatewayARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayARN") in
      make ~diskIds ~gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let diskIds = field_map_exn json__ "DiskIds" DiskIds.of_json in
      let gatewayARN = field_map_exn json__ "GatewayARN" GatewayARN.of_json in
      make ~diskIds ~gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configures one or more gateway local disks as cache for a gateway. This operation is only supported in the cached volume, tape, and file gateway type (see How Storage Gateway works (architecture). In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add cache, and one or more disk IDs that you want to configure as cache."]
module ActivateGatewayOutput =
  struct
    type nonrec t = {
      gatewayARN: GatewayARN.t option }
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `InvalidGatewayRequestException of InvalidGatewayRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?gatewayARN = fun () -> { gatewayARN }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "InvalidGatewayRequestException" ->
          `InvalidGatewayRequestException
            (InvalidGatewayRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `InvalidGatewayRequestException e ->
          `Assoc
            [("error", (`String "InvalidGatewayRequestException"));
            ("details", (InvalidGatewayRequestException.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
        [("GatewayARN", (Option.map x.gatewayARN ~f:GatewayARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let gatewayARN =
        (Option.map ~f:GatewayARN.of_xml) (Xml.child xml_arg0 "GatewayARN") in
      make ?gatewayARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let gatewayARN = field_map json__ "GatewayARN" GatewayARN.of_json in
      make ?gatewayARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Storage Gateway returns the Amazon Resource Name (ARN) of the activated gateway. It is a string made of information such as your account, gateway name, and Amazon Web Services Region. This ARN is used to reference the gateway in other API operations as well as resource-based authorization. For gateways activated prior to September 02, 2015, the gateway ARN contains the gateway name rather than the gateway ID. Changing the name of the gateway has no effect on the gateway ARN."]
module ActivateGatewayInput =
  struct
    type nonrec t =
      {
      activationKey: ActivationKey.t
        [@ocaml.doc
          "Your gateway activation key. You can obtain the activation key by sending an HTTP GET request with redirects enabled to the gateway IP address (port 80). The redirect URL returned in the response provides you the activation key for your gateway in the query string parameter activationKey. It may also include other activation-related parameters, however, these are merely defaults -- the arguments you pass to the ActivateGateway API call determine the actual configuration of your gateway. For more information, see Getting activation key in the Storage Gateway User Guide."];
      gatewayName: GatewayName.t
        [@ocaml.doc "The name you configured for your gateway."];
      gatewayTimezone: GatewayTimezone.t
        [@ocaml.doc
          "A value that indicates the time zone you want to set for the gateway. The time zone is of the format \"GMT\", \"GMT-hr:mm\", or \"GMT+hr:mm\". For example, GMT indicates Greenwich Mean Time without any offset. GMT-4:00 indicates the time is 4 hours behind GMT. GMT+2:00 indicates the time is 2 hours ahead of GMT. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule."];
      gatewayRegion: RegionId.t
        [@ocaml.doc
          "A value that indicates the Amazon Web Services Region where you want to store your data. The gateway Amazon Web Services Region specified must be the same Amazon Web Services Region as the Amazon Web Services Region in your Host header in the request. For more information about available Amazon Web Services Regions and endpoints for Storage Gateway, see Storage Gateway endpoints and quotas in the Amazon Web Services General Reference. Valid Values: See Storage Gateway endpoints and quotas in the Amazon Web Services General Reference."];
      gatewayType: GatewayType.t option
        [@ocaml.doc
          "A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is CACHED. Amazon FSx File Gateway is no longer available to new customers. Existing customers of FSx File Gateway can continue to use the service normally. For capabilities similar to FSx File Gateway, visit this blog post. Valid Values: STORED | CACHED | VTL | FILE_S3 | FILE_FSX_SMB"];
      tapeDriveType: TapeDriveType.t option
        [@ocaml.doc
          "The value that indicates the type of tape drive to use for tape gateway. This field is optional. Valid Values: IBM-ULT3580-TD5"];
      mediumChangerType: MediumChangerType.t option
        [@ocaml.doc
          "The value that indicates the type of medium changer to use for tape gateway. This field is optional. Valid Values: STK-L700 | AWS-Gateway-VTL | IBM-03584L32-0402"];
      tags: Tags.t option
        [@ocaml.doc
          "A list of up to 50 tags that you can assign to the gateway. Each tag is a key-value pair. Valid characters for key and value are letters, spaces, and numbers that can be represented in UTF-8 format, and the following special characters: + - = . _ : / \\@. The maximum length of a tag's key is 128 characters, and the maximum length for a tag's value is 256 characters."]}
    let context_ = "ActivateGatewayInput"
    let make ?gatewayType =
      fun ?tapeDriveType ->
        fun ?mediumChangerType ->
          fun ?tags ->
            fun ~activationKey ->
              fun ~gatewayName ->
                fun ~gatewayTimezone ->
                  fun ~gatewayRegion ->
                    fun () ->
                      {
                        gatewayType;
                        tapeDriveType;
                        mediumChangerType;
                        tags;
                        activationKey;
                        gatewayName;
                        gatewayTimezone;
                        gatewayRegion
                      }
    let to_value x =
      structure_to_value
        [("ActivationKey", (Some (ActivationKey.to_value x.activationKey)));
        ("GatewayName", (Some (GatewayName.to_value x.gatewayName)));
        ("GatewayTimezone",
          (Some (GatewayTimezone.to_value x.gatewayTimezone)));
        ("GatewayRegion", (Some (RegionId.to_value x.gatewayRegion)));
        ("GatewayType", (Option.map x.gatewayType ~f:GatewayType.to_value));
        ("TapeDriveType",
          (Option.map x.tapeDriveType ~f:TapeDriveType.to_value));
        ("MediumChangerType",
          (Option.map x.mediumChangerType ~f:MediumChangerType.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let mediumChangerType =
        (Option.map ~f:MediumChangerType.of_xml)
          (Xml.child xml_arg0 "MediumChangerType") in
      let tapeDriveType =
        (Option.map ~f:TapeDriveType.of_xml)
          (Xml.child xml_arg0 "TapeDriveType") in
      let gatewayType =
        (Option.map ~f:GatewayType.of_xml) (Xml.child xml_arg0 "GatewayType") in
      let gatewayRegion =
        RegionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayRegion") in
      let gatewayTimezone =
        GatewayTimezone.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayTimezone") in
      let gatewayName =
        GatewayName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GatewayName") in
      let activationKey =
        ActivationKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ActivationKey") in
      make ?tags ?mediumChangerType ?tapeDriveType ?gatewayType
        ~gatewayRegion ~gatewayTimezone ~gatewayName ~activationKey ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" Tags.of_json in
      let mediumChangerType =
        field_map json__ "MediumChangerType" MediumChangerType.of_json in
      let tapeDriveType =
        field_map json__ "TapeDriveType" TapeDriveType.of_json in
      let gatewayType = field_map json__ "GatewayType" GatewayType.of_json in
      let gatewayRegion =
        field_map_exn json__ "GatewayRegion" RegionId.of_json in
      let gatewayTimezone =
        field_map_exn json__ "GatewayTimezone" GatewayTimezone.of_json in
      let gatewayName =
        field_map_exn json__ "GatewayName" GatewayName.of_json in
      let activationKey =
        field_map_exn json__ "ActivationKey" ActivationKey.of_json in
      make ?tags ?mediumChangerType ?tapeDriveType ?gatewayType
        ~gatewayRegion ~gatewayTimezone ~gatewayName ~activationKey ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A JSON object containing one or more of the following fields: ActivateGatewayInput$ActivationKey ActivateGatewayInput$GatewayName ActivateGatewayInput$GatewayRegion ActivateGatewayInput$GatewayTimezone ActivateGatewayInput$GatewayType ActivateGatewayInput$MediumChangerType ActivateGatewayInput$TapeDriveType"]