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.efs
let apiVersion = "2015-02-01"
let endpointPrefix = "elasticfilesystem"
let serviceFullName = "Amazon Elastic File System"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "EFS"
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 AwsAccountId =
  struct
    type nonrec t = string
    let context_ = "AwsAccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:14) >>=
             (fun () ->
                check_pattern i ~pattern:"^(\\d{12})|(\\d{4}-\\d{4}-\\d{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:"AwsAccountId" j
    let to_json = simple_to_json to_value
  end
module FileSystemId =
  struct
    type nonrec t = string
    let context_ = "FileSystemId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(arn:aws[-a-z]*:elasticfilesystem:[0-9a-z-:]+:file-system/fs-[0-9a-f]{8,40}|fs-[0-9a-f]{8,40})$"));
        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:"FileSystemId" j
    let to_json = simple_to_json to_value
  end
module RegionName =
  struct
    type nonrec t = string
    let context_ = "RegionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[a-z]{2}-((iso[a-z]{0,1}-)|(gov-)){0,1}[a-z]+-{0,1}[0-9]{0,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:"RegionName" j
    let to_json = simple_to_json to_value
  end
module ReplicationStatus =
  struct
    type nonrec t =
      | ENABLED 
      | ENABLING 
      | DELETING 
      | ERROR 
      | PAUSED 
      | PAUSING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | ENABLING -> "ENABLING"
      | DELETING -> "DELETING"
      | ERROR -> "ERROR"
      | PAUSED -> "PAUSED"
      | PAUSING -> "PAUSING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "ENABLING" -> ENABLING
      | "DELETING" -> DELETING
      | "ERROR" -> ERROR
      | "PAUSED" -> PAUSED
      | "PAUSING" -> PAUSING
      | 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 ReplicationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplicationStatus" j)
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"arn:(aws[a-zA-Z-]*)?:iam::\\d{12}:role/?[a-zA-Z_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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module StatusMessage =
  struct
    type nonrec t = string
    let context_ = "StatusMessage"
    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:"StatusMessage" j
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The error code is a string that uniquely identifies an error condition. It is meant to be read and understood by programs that detect and handle errors by type."]
    let context_ = "ErrorCode"
    let make i =
      let open Result in ok_or_failwith (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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The error code is a string that uniquely identifies an error condition. It is meant to be read and understood by programs that detect and handle errors by type."]
module ErrorMessage =
  struct
    type nonrec t = string[@@ocaml.doc
                            "The error message contains a generic description of the error condition in English. It is intended for a human audience. Simple programs display the message directly to the end user if they encounter an error condition they don't know how or don't care to handle. Sophisticated programs with more exhaustive error handling and proper internationalization are more likely to ignore the error message."]
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc
       "The error message contains a generic description of the error condition in English. It is intended for a human audience. Simple programs display the message directly to the end user if they encounter an error condition they don't know how or don't care to handle. Sophisticated programs with more exhaustive error handling and proper internationalization are more likely to ignore the error message."]
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:"^(?![aA]{1}[wW]{1}[sS]{1}:)([\\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) >>=
             (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:"TagValue" j
    let to_json = simple_to_json to_value
  end
module Gid =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:4294967295L) >>=
             (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 OwnerGid =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:4294967295L) >>=
             (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 OwnerUid =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:4294967295L) >>=
             (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 Permissions =
  struct
    type nonrec t = string
    let context_ = "Permissions"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:3) >>=
             (fun () ->
                (check_string_max i ~max:4) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-7]{3,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:"Permissions" j
    let to_json = simple_to_json to_value
  end
module Destination =
  struct
    type nonrec t =
      {
      status: ReplicationStatus.t option
        [@ocaml.doc
          "Describes the status of the replication configuration. For more information about replication status, see Viewing replication details in the Amazon EFS User Guide."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc "The ID of the destination Amazon EFS file system."];
      region: RegionName.t option
        [@ocaml.doc
          "The Amazon Web Services Region in which the destination file system is located."];
      lastReplicatedTimestamp: Timestamp.t option
        [@ocaml.doc
          "The time when the most recent sync was successfully completed on the destination file system. Any changes to data on the source file system that occurred before this time have been successfully replicated to the destination file system. Any changes that occurred after this time might not be fully replicated."];
      ownerId: AwsAccountId.t option
        [@ocaml.doc
          "ID of the Amazon Web Services account in which the destination file system resides."];
      statusMessage: StatusMessage.t option
        [@ocaml.doc
          "Message that provides details about the PAUSED or ERRROR state of the replication destination configuration. For more information about replication status messages, see Viewing replication details in the Amazon EFS User Guide."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the IAM role in the source account that allows Amazon EFS to perform replication on its behalf. This is optional for same-account replication and required for cross-account replication."]}
    let make ?status =
      fun ?fileSystemId ->
        fun ?region ->
          fun ?lastReplicatedTimestamp ->
            fun ?ownerId ->
              fun ?statusMessage ->
                fun ?roleArn ->
                  fun () ->
                    {
                      status;
                      fileSystemId;
                      region;
                      lastReplicatedTimestamp;
                      ownerId;
                      statusMessage;
                      roleArn
                    }
    let to_value x =
      structure_to_value
        [("Status", (Option.map x.status ~f:ReplicationStatus.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("Region", (Option.map x.region ~f:RegionName.to_value));
        ("LastReplicatedTimestamp",
          (Option.map x.lastReplicatedTimestamp ~f:Timestamp.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AwsAccountId.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:StatusMessage.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let statusMessage =
        (Option.map ~f:StatusMessage.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let ownerId =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let lastReplicatedTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastReplicatedTimestamp") in
      let region =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "Region") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let status =
        (Option.map ~f:ReplicationStatus.of_xml)
          (Xml.child xml_arg0 "Status") in
      make ?roleArn ?statusMessage ?ownerId ?lastReplicatedTimestamp ?region
        ?fileSystemId ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let statusMessage =
        field_map json__ "StatusMessage" StatusMessage.of_json in
      let ownerId = field_map json__ "OwnerId" AwsAccountId.of_json in
      let lastReplicatedTimestamp =
        field_map json__ "LastReplicatedTimestamp" Timestamp.of_json in
      let region = field_map json__ "Region" RegionName.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let status = field_map json__ "Status" ReplicationStatus.of_json in
      make ?roleArn ?statusMessage ?ownerId ?lastReplicatedTimestamp ?region
        ?fileSystemId ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the destination file system in the replication configuration."]
module BadRequest =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the request is malformed or contains an error such as an invalid parameter value or a missing required parameter."]
module FileSystemNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the specified FileSystemId value doesn't exist in the requester's Amazon Web Services account."]
module IncorrectFileSystemLifeCycleState =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the file system's lifecycle state is not \"available\"."]
module InsufficientThroughputCapacity =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if there's not enough capacity to provision additional throughput. This value might be returned when you try to create a file system in provisioned throughput mode, when you attempt to increase the provisioned throughput of an existing file system, or when you attempt to change an existing file system from Bursting Throughput to Provisioned Throughput mode. Try again later."]
module InternalServerError =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned if an error occurred on the server side."]
module ReplicationAlreadyExists =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the file system is already included in a replication configuration.>"]
module ReplicationOverwriteProtection =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | REPLICATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | REPLICATING -> "REPLICATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | "REPLICATING" -> REPLICATING
      | 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 ReplicationOverwriteProtection"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ReplicationOverwriteProtection" j)
    let to_json = simple_to_json to_value
  end
module ThroughputLimitExceeded =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the throughput mode or amount of provisioned throughput can't be changed because the throughput limit of 1024 MiB/s has been reached."]
module TooManyRequests =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if you don\226\128\153t wait at least 24 hours before either changing the throughput mode, or decreasing the Provisioned Throughput value."]
module FileSystemNullableSizeValue =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module FileSystemSizeValue =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc "The tag key (String). The key can't start with aws:."];
      value: TagValue.t [@ocaml.doc "The 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 tag is a key-value pair. Allowed characters are letters, white space, and numbers that can be represented in UTF-8, and the following characters: + - = . _ : /."]
module AccessPointId =
  struct
    type nonrec t = string
    let context_ = "AccessPointId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(arn:aws[-a-z]*:elasticfilesystem:[0-9a-z-:]+:access-point/fsap-[0-9a-f]{8,40}|fsap-[0-9a-f]{8,40})$"));
        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:"AccessPointId" j
    let to_json = simple_to_json to_value
  end
module SecondaryGids =
  struct
    type nonrec t = Gid.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:16) >>= (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:Gid.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:Gid.of_xml)
    let of_json j = list_of_json ~kind:"SecondaryGids" ~of_json:Gid.of_json j
    let to_json v = composed_to_json to_value v
  end
module Uid =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:4294967295L) >>=
             (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 CreationInfo =
  struct
    type nonrec t =
      {
      ownerUid: OwnerUid.t
        [@ocaml.doc
          "Specifies the POSIX user ID to apply to the RootDirectory. Accepts values from 0 to 2^32 (4294967295)."];
      ownerGid: OwnerGid.t
        [@ocaml.doc
          "Specifies the POSIX group ID to apply to the RootDirectory. Accepts values from 0 to 2^32 (4294967295)."];
      permissions: Permissions.t
        [@ocaml.doc
          "Specifies the POSIX permissions to apply to the RootDirectory, in the format of an octal number representing the file's mode bits."]}
    let context_ = "CreationInfo"
    let make ~ownerUid =
      fun ~ownerGid ->
        fun ~permissions -> fun () -> { ownerUid; ownerGid; permissions }
    let to_value x =
      structure_to_value
        [("OwnerUid", (Some (OwnerUid.to_value x.ownerUid)));
        ("OwnerGid", (Some (OwnerGid.to_value x.ownerGid)));
        ("Permissions", (Some (Permissions.to_value x.permissions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissions =
        Permissions.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Permissions") in
      let ownerGid =
        OwnerGid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "OwnerGid") in
      let ownerUid =
        OwnerUid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "OwnerUid") in
      make ~permissions ~ownerGid ~ownerUid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissions =
        field_map_exn json__ "Permissions" Permissions.of_json in
      let ownerGid = field_map_exn json__ "OwnerGid" OwnerGid.of_json in
      let ownerUid = field_map_exn json__ "OwnerUid" OwnerUid.of_json in
      make ~permissions ~ownerGid ~ownerUid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Required if the RootDirectory > Path specified does not exist. Specifies the POSIX IDs and permissions to apply to the access point's RootDirectory > Path. If the access point root directory does not exist, EFS creates it with these settings when a client connects to the access point. When specifying CreationInfo, you must include values for all properties. Amazon EFS creates a root directory only if you have provided the CreationInfo: OwnUid, OwnGID, and permissions for the directory. If you do not provide this information, Amazon EFS does not create the root directory. If the root directory does not exist, attempts to mount using the access point will fail. If you do not provide CreationInfo and the specified RootDirectory does not exist, attempts to mount the file system using the access point will fail."]
module Path =
  struct
    type nonrec t = string
    let context_ = "Path"
    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:"^(\\/|(\\/(?!\\.)+[^$#<>;`|&?{}^*/\\n]+){1,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:"Path" j
    let to_json = simple_to_json to_value
  end
module TransitionToArchiveRules =
  struct
    type nonrec t =
      | AFTER_1_DAY 
      | AFTER_7_DAYS 
      | AFTER_14_DAYS 
      | AFTER_30_DAYS 
      | AFTER_60_DAYS 
      | AFTER_90_DAYS 
      | AFTER_180_DAYS 
      | AFTER_270_DAYS 
      | AFTER_365_DAYS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AFTER_1_DAY -> "AFTER_1_DAY"
      | AFTER_7_DAYS -> "AFTER_7_DAYS"
      | AFTER_14_DAYS -> "AFTER_14_DAYS"
      | AFTER_30_DAYS -> "AFTER_30_DAYS"
      | AFTER_60_DAYS -> "AFTER_60_DAYS"
      | AFTER_90_DAYS -> "AFTER_90_DAYS"
      | AFTER_180_DAYS -> "AFTER_180_DAYS"
      | AFTER_270_DAYS -> "AFTER_270_DAYS"
      | AFTER_365_DAYS -> "AFTER_365_DAYS"
      | Non_static_id s -> s
    let of_string =
      function
      | "AFTER_1_DAY" -> AFTER_1_DAY
      | "AFTER_7_DAYS" -> AFTER_7_DAYS
      | "AFTER_14_DAYS" -> AFTER_14_DAYS
      | "AFTER_30_DAYS" -> AFTER_30_DAYS
      | "AFTER_60_DAYS" -> AFTER_60_DAYS
      | "AFTER_90_DAYS" -> AFTER_90_DAYS
      | "AFTER_180_DAYS" -> AFTER_180_DAYS
      | "AFTER_270_DAYS" -> AFTER_270_DAYS
      | "AFTER_365_DAYS" -> AFTER_365_DAYS
      | 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 TransitionToArchiveRules" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"TransitionToArchiveRules" j)
    let to_json = simple_to_json to_value
  end
module TransitionToIARules =
  struct
    type nonrec t =
      | AFTER_7_DAYS 
      | AFTER_14_DAYS 
      | AFTER_30_DAYS 
      | AFTER_60_DAYS 
      | AFTER_90_DAYS 
      | AFTER_1_DAY 
      | AFTER_180_DAYS 
      | AFTER_270_DAYS 
      | AFTER_365_DAYS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AFTER_7_DAYS -> "AFTER_7_DAYS"
      | AFTER_14_DAYS -> "AFTER_14_DAYS"
      | AFTER_30_DAYS -> "AFTER_30_DAYS"
      | AFTER_60_DAYS -> "AFTER_60_DAYS"
      | AFTER_90_DAYS -> "AFTER_90_DAYS"
      | AFTER_1_DAY -> "AFTER_1_DAY"
      | AFTER_180_DAYS -> "AFTER_180_DAYS"
      | AFTER_270_DAYS -> "AFTER_270_DAYS"
      | AFTER_365_DAYS -> "AFTER_365_DAYS"
      | Non_static_id s -> s
    let of_string =
      function
      | "AFTER_7_DAYS" -> AFTER_7_DAYS
      | "AFTER_14_DAYS" -> AFTER_14_DAYS
      | "AFTER_30_DAYS" -> AFTER_30_DAYS
      | "AFTER_60_DAYS" -> AFTER_60_DAYS
      | "AFTER_90_DAYS" -> AFTER_90_DAYS
      | "AFTER_1_DAY" -> AFTER_1_DAY
      | "AFTER_180_DAYS" -> AFTER_180_DAYS
      | "AFTER_270_DAYS" -> AFTER_270_DAYS
      | "AFTER_365_DAYS" -> AFTER_365_DAYS
      | 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 TransitionToIARules" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"TransitionToIARules" j)
    let to_json = simple_to_json to_value
  end
module TransitionToPrimaryStorageClassRules =
  struct
    type nonrec t =
      | AFTER_1_ACCESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | AFTER_1_ACCESS -> "AFTER_1_ACCESS" | Non_static_id s -> s
    let of_string =
      function | "AFTER_1_ACCESS" -> AFTER_1_ACCESS | 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 TransitionToPrimaryStorageClassRules" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"TransitionToPrimaryStorageClassRules" j)
    let to_json = simple_to_json to_value
  end
module Resource =
  struct
    type nonrec t =
      | FILE_SYSTEM 
      | MOUNT_TARGET 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FILE_SYSTEM -> "FILE_SYSTEM"
      | MOUNT_TARGET -> "MOUNT_TARGET"
      | Non_static_id s -> s
    let of_string =
      function
      | "FILE_SYSTEM" -> FILE_SYSTEM
      | "MOUNT_TARGET" -> MOUNT_TARGET
      | 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 Resource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Resource" j)
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the source file system in a replication is encrypted but the destination file system is unencrypted."]
module Destinations =
  struct
    type nonrec t = Destination.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:Destination.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:Destination.of_xml)
    let of_json j =
      list_of_json ~kind:"Destinations" ~of_json:Destination.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileSystemArn =
  struct
    type nonrec t = string
    let context_ = "FileSystemArn"
    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:"FileSystemArn" j
    let to_json = simple_to_json to_value
  end
module FileSystemLimitExceeded =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the Amazon Web Services account has already created the maximum number of file systems allowed per account."]
module ReplicationNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option [@ocaml.doc "ReplicationNotFound"];
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the specified file system does not have a replication configuration."]
module UnsupportedAvailabilityZone =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the requested Amazon EFS functionality is not available in the specified Availability Zone."]
module ValidationException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the Backup service is not available in the Amazon Web Services Region in which the request was made."]
module AvailabilityZoneId =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZoneId"
    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:"AvailabilityZoneId" j
    let to_json = simple_to_json to_value
  end
module AvailabilityZoneName =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZoneName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"AvailabilityZoneName" j
    let to_json = simple_to_json to_value
  end
module AvailabilityZonesMismatch =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the Availability Zone that was specified for a mount target is different from the Availability Zone that was specified for One Zone storage. For more information, see Regional and One Zone storage redundancy."]
module IpAddress =
  struct
    type nonrec t = string
    let context_ = "IpAddress"
    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:"^[0-9]{1,3}\\.[0-9]{1,3}\\.[0-9]{1,3}\\.[0-9]{1,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:"IpAddress" j
    let to_json = simple_to_json to_value
  end
module IpAddressInUse =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the request specified an IpAddress that is already in use in the subnet."]
module Ipv6Address =
  struct
    type nonrec t = string
    let context_ = "Ipv6Address"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:39) >>=
             (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:"Ipv6Address" j
    let to_json = simple_to_json to_value
  end
module LifeCycleState =
  struct
    type nonrec t =
      | Creating 
      | Available 
      | Updating 
      | Deleting 
      | Deleted 
      | Error 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Creating -> "creating"
      | Available -> "available"
      | Updating -> "updating"
      | Deleting -> "deleting"
      | Deleted -> "deleted"
      | Error -> "error"
      | Non_static_id s -> s
    let of_string =
      function
      | "creating" -> Creating
      | "available" -> Available
      | "updating" -> Updating
      | "deleting" -> Deleting
      | "deleted" -> Deleted
      | "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 LifeCycleState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LifeCycleState" j)
    let to_json = simple_to_json to_value
  end
module MountTargetConflict =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the mount target would violate one of the specified restrictions based on the file system's existing mount targets."]
module MountTargetId =
  struct
    type nonrec t = string
    let context_ = "MountTargetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:13) >>=
             (fun () ->
                (check_string_max i ~max:45) >>=
                  (fun () -> check_pattern i ~pattern:"^fsmt-[0-9a-f]{8,40}$")));
        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:"MountTargetId" j
    let to_json = simple_to_json to_value
  end
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 NetworkInterfaceLimitExceeded =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The calling account has reached the limit for elastic network interfaces for the specific Amazon Web Services Region. Either delete some network interfaces or request that the account quota be raised. For more information, see Amazon VPC Quotas in the Amazon VPC User Guide (see the Network interfaces per Region entry in the Network interfaces table)."]
module NoFreeAddressesInSubnet =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if IpAddress was not specified in the request and there are no free IP addresses in the subnet."]
module SecurityGroupLimitExceeded =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the number of SecurityGroups specified in the request is greater than the limit, which is based on account quota. Either delete some security groups or request that the account quota be raised. For more information, see Amazon VPC Quotas in the Amazon VPC User Guide (see the Security Groups table)."]
module SecurityGroupNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if one of the specified security groups doesn't exist in the subnet's virtual private cloud (VPC)."]
module SubnetId =
  struct
    type nonrec t = string
    let context_ = "SubnetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:15) >>=
             (fun () ->
                (check_string_max i ~max:47) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^subnet-[0-9a-f]{8,40}$")));
        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:"SubnetId" j
    let to_json = simple_to_json to_value
  end
module SubnetNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if there is no subnet with ID SubnetId provided in the request."]
module VpcId =
  struct
    type nonrec t = string
    let context_ = "VpcId"
    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:"VpcId" j
    let to_json = simple_to_json to_value
  end
module CreationToken =
  struct
    type nonrec t = string
    let context_ = "CreationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"CreationToken" j
    let to_json = simple_to_json to_value
  end
module Encrypted =
  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 FileSystemAlreadyExists =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option ;
      fileSystemId: FileSystemId.t option }
    let make ?errorCode =
      fun ?message ->
        fun ?fileSystemId -> fun () -> { errorCode; message; fileSystemId }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?fileSystemId ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?fileSystemId ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the file system you are trying to create already exists, with the creation token you provided."]
module FileSystemProtectionDescription =
  struct
    type nonrec t =
      {
      replicationOverwriteProtection: ReplicationOverwriteProtection.t option
        [@ocaml.doc
          "The status of the file system's replication overwrite protection. ENABLED \226\128\147 The file system cannot be used as the destination file system in a replication configuration. The file system is writeable. Replication overwrite protection is ENABLED by default. DISABLED \226\128\147 The file system can be used as the destination file system in a replication configuration. The file system is read-only and can only be modified by EFS replication. REPLICATING \226\128\147 The file system is being used as the destination file system in a replication configuration. The file system is read-only and is modified only by EFS replication. If the replication configuration is deleted, the file system's replication overwrite protection is re-enabled, the file system becomes writeable."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `IncorrectFileSystemLifeCycleState of
          IncorrectFileSystemLifeCycleState.t 
      | `InsufficientThroughputCapacity of InsufficientThroughputCapacity.t 
      | `InternalServerError of InternalServerError.t 
      | `ReplicationAlreadyExists of ReplicationAlreadyExists.t 
      | `ThroughputLimitExceeded of ThroughputLimitExceeded.t 
      | `TooManyRequests of TooManyRequests.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replicationOverwriteProtection =
      fun () -> { replicationOverwriteProtection }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_json json)
      | "InsufficientThroughputCapacity" ->
          `InsufficientThroughputCapacity
            (InsufficientThroughputCapacity.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ReplicationAlreadyExists" ->
          `ReplicationAlreadyExists (ReplicationAlreadyExists.of_json json)
      | "ThroughputLimitExceeded" ->
          `ThroughputLimitExceeded (ThroughputLimitExceeded.of_json json)
      | "TooManyRequests" -> `TooManyRequests (TooManyRequests.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_xml xml)
      | "InsufficientThroughputCapacity" ->
          `InsufficientThroughputCapacity
            (InsufficientThroughputCapacity.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ReplicationAlreadyExists" ->
          `ReplicationAlreadyExists (ReplicationAlreadyExists.of_xml xml)
      | "ThroughputLimitExceeded" ->
          `ThroughputLimitExceeded (ThroughputLimitExceeded.of_xml xml)
      | "TooManyRequests" -> `TooManyRequests (TooManyRequests.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `IncorrectFileSystemLifeCycleState e ->
          `Assoc
            [("error", (`String "IncorrectFileSystemLifeCycleState"));
            ("details", (IncorrectFileSystemLifeCycleState.to_json e))]
      | `InsufficientThroughputCapacity e ->
          `Assoc
            [("error", (`String "InsufficientThroughputCapacity"));
            ("details", (InsufficientThroughputCapacity.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ReplicationAlreadyExists e ->
          `Assoc
            [("error", (`String "ReplicationAlreadyExists"));
            ("details", (ReplicationAlreadyExists.to_json e))]
      | `ThroughputLimitExceeded e ->
          `Assoc
            [("error", (`String "ThroughputLimitExceeded"));
            ("details", (ThroughputLimitExceeded.to_json e))]
      | `TooManyRequests e ->
          `Assoc
            [("error", (`String "TooManyRequests"));
            ("details", (TooManyRequests.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
        [("ReplicationOverwriteProtection",
           (Option.map x.replicationOverwriteProtection
              ~f:ReplicationOverwriteProtection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationOverwriteProtection =
        (Option.map ~f:ReplicationOverwriteProtection.of_xml)
          (Xml.child xml_arg0 "ReplicationOverwriteProtection") in
      make ?replicationOverwriteProtection ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationOverwriteProtection =
        field_map json__ "ReplicationOverwriteProtection"
          ReplicationOverwriteProtection.of_json in
      make ?replicationOverwriteProtection ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the protection on a file system."]
module FileSystemSize =
  struct
    type nonrec t =
      {
      value: FileSystemSizeValue.t option
        [@ocaml.doc
          "The latest known metered size (in bytes) of data stored in the file system."];
      timestamp: Timestamp.t option
        [@ocaml.doc
          "The time at which the size of data, returned in the Value field, was determined. The value is the integer number of seconds since 1970-01-01T00:00:00Z."];
      valueInIA: FileSystemNullableSizeValue.t option
        [@ocaml.doc
          "The latest known metered size (in bytes) of data stored in the Infrequent Access storage class."];
      valueInStandard: FileSystemNullableSizeValue.t option
        [@ocaml.doc
          "The latest known metered size (in bytes) of data stored in the Standard storage class."];
      valueInArchive: FileSystemNullableSizeValue.t option
        [@ocaml.doc
          "The latest known metered size (in bytes) of data stored in the Archive storage class."]}
    let make ?value =
      fun ?timestamp ->
        fun ?valueInIA ->
          fun ?valueInStandard ->
            fun ?valueInArchive ->
              fun () ->
                {
                  value;
                  timestamp;
                  valueInIA;
                  valueInStandard;
                  valueInArchive
                }
    let to_value x =
      structure_to_value
        [("Value", (Option.map x.value ~f:FileSystemSizeValue.to_value));
        ("Timestamp", (Option.map x.timestamp ~f:Timestamp.to_value));
        ("ValueInIA",
          (Option.map x.valueInIA ~f:FileSystemNullableSizeValue.to_value));
        ("ValueInStandard",
          (Option.map x.valueInStandard
             ~f:FileSystemNullableSizeValue.to_value));
        ("ValueInArchive",
          (Option.map x.valueInArchive
             ~f:FileSystemNullableSizeValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let valueInArchive =
        (Option.map ~f:FileSystemNullableSizeValue.of_xml)
          (Xml.child xml_arg0 "ValueInArchive") in
      let valueInStandard =
        (Option.map ~f:FileSystemNullableSizeValue.of_xml)
          (Xml.child xml_arg0 "ValueInStandard") in
      let valueInIA =
        (Option.map ~f:FileSystemNullableSizeValue.of_xml)
          (Xml.child xml_arg0 "ValueInIA") in
      let timestamp =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "Timestamp") in
      let value =
        (Option.map ~f:FileSystemSizeValue.of_xml)
          (Xml.child xml_arg0 "Value") in
      make ?valueInArchive ?valueInStandard ?valueInIA ?timestamp ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let valueInArchive =
        field_map json__ "ValueInArchive" FileSystemNullableSizeValue.of_json in
      let valueInStandard =
        field_map json__ "ValueInStandard"
          FileSystemNullableSizeValue.of_json in
      let valueInIA =
        field_map json__ "ValueInIA" FileSystemNullableSizeValue.of_json in
      let timestamp = field_map json__ "Timestamp" Timestamp.of_json in
      let value = field_map json__ "Value" FileSystemSizeValue.of_json in
      make ?valueInArchive ?valueInStandard ?valueInIA ?timestamp ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The latest known metered size (in bytes) of data stored in the file system, in its Value field, and the time at which that size was determined in its Timestamp field. The value doesn't represent the size of a consistent snapshot of the file system, but it is eventually consistent when there are no writes to the file system. That is, the value represents the actual size only if the file system is not modified for a period longer than a couple of hours. Otherwise, the value is not necessarily the exact size the file system was at any instant in time."]
module KmsKeyId =
  struct
    type nonrec t = string
    let context_ = "KmsKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^([0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}|mrk-[0-9a-f]{32}|alias/[a-zA-Z0-9/_-]+|(arn:aws[-a-z]*:kms:[a-z0-9-]+:\\d{12}:((key/[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12})|(key/mrk-[0-9a-f]{32})|(alias/[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:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end
module MountTargetCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:0); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MountTargetCount" 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 PerformanceMode =
  struct
    type nonrec t =
      | GeneralPurpose 
      | MaxIO 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | GeneralPurpose -> "generalPurpose"
      | MaxIO -> "maxIO"
      | Non_static_id s -> s
    let of_string =
      function
      | "generalPurpose" -> GeneralPurpose
      | "maxIO" -> MaxIO
      | 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 PerformanceMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PerformanceMode" j)
    let to_json = simple_to_json to_value
  end
module ProvisionedThroughputInMibps =
  struct
    type nonrec t = float
    let make i =
      let open Result in ok_or_failwith (check_float_min i ~min:1.); 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 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 ThroughputMode =
  struct
    type nonrec t =
      | Bursting 
      | Provisioned 
      | Elastic 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Bursting -> "bursting"
      | Provisioned -> "provisioned"
      | Elastic -> "elastic"
      | Non_static_id s -> s
    let of_string =
      function
      | "bursting" -> Bursting
      | "provisioned" -> Provisioned
      | "elastic" -> Elastic
      | 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 ThroughputMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ThroughputMode" j)
    let to_json = simple_to_json to_value
  end
module AccessPointAlreadyExists =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option ;
      accessPointId: AccessPointId.t option }
    let make ?errorCode =
      fun ?message ->
        fun ?accessPointId -> fun () -> { errorCode; message; accessPointId }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("AccessPointId",
          (Option.map x.accessPointId ~f:AccessPointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPointId =
        (Option.map ~f:AccessPointId.of_xml)
          (Xml.child xml_arg0 "AccessPointId") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?accessPointId ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPointId =
        field_map json__ "AccessPointId" AccessPointId.of_json in
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?accessPointId ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the access point that you are trying to create already exists, with the creation token you provided in the request."]
module AccessPointArn =
  struct
    type nonrec t = string
    let context_ = "AccessPointArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^arn:aws[-a-z]*:elasticfilesystem:[0-9a-z-:]+:access-point/fsap-[0-9a-f]{8,40}$"));
        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:"AccessPointArn" j
    let to_json = simple_to_json to_value
  end
module AccessPointLimitExceeded =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the Amazon Web Services account has already created the maximum number of access points allowed per file system. For more informaton, see https://docs.aws.amazon.com/efs/latest/ug/limits.html#limits-efs-resources-per-account-per-region."]
module ClientToken =
  struct
    type nonrec t = string
    let context_ = "ClientToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (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:"ClientToken" j
    let to_json = simple_to_json to_value
  end
module Name =
  struct
    type nonrec t = string
    let context_ = "Name"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Name" j
    let to_json = simple_to_json to_value
  end
module PosixUser =
  struct
    type nonrec t =
      {
      uid: Uid.t
        [@ocaml.doc
          "The POSIX user ID used for all file system operations using this access point."];
      gid: Gid.t
        [@ocaml.doc
          "The POSIX group ID used for all file system operations using this access point."];
      secondaryGids: SecondaryGids.t option
        [@ocaml.doc
          "Secondary POSIX group IDs used for all file system operations using this access point."]}
    let context_ = "PosixUser"
    let make ?secondaryGids =
      fun ~uid -> fun ~gid -> fun () -> { secondaryGids; uid; gid }
    let to_value x =
      structure_to_value
        [("Uid", (Some (Uid.to_value x.uid)));
        ("Gid", (Some (Gid.to_value x.gid)));
        ("SecondaryGids",
          (Option.map x.secondaryGids ~f:SecondaryGids.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let secondaryGids =
        (Option.map ~f:SecondaryGids.of_xml)
          (Xml.child xml_arg0 "SecondaryGids") in
      let gid = Gid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Gid") in
      let uid = Uid.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Uid") in
      make ?secondaryGids ~gid ~uid ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let secondaryGids =
        field_map json__ "SecondaryGids" SecondaryGids.of_json in
      let gid = field_map_exn json__ "Gid" Gid.of_json in
      let uid = field_map_exn json__ "Uid" Uid.of_json in
      make ?secondaryGids ~gid ~uid ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The full POSIX identity, including the user ID, group ID, and any secondary group IDs, on the access point that is used for all file system operations performed by NFS clients using the access point."]
module RootDirectory =
  struct
    type nonrec t =
      {
      path: Path.t option
        [@ocaml.doc
          "Specifies the path on the EFS file system to expose as the root directory to NFS clients using the access point to access the EFS file system. A path can have up to four subdirectories. If the specified path does not exist, you are required to provide the CreationInfo."];
      creationInfo: CreationInfo.t option
        [@ocaml.doc
          "(Optional) Specifies the POSIX IDs and permissions to apply to the access point's RootDirectory. If the RootDirectory > Path specified does not exist, EFS creates the root directory using the CreationInfo settings when a client connects to an access point. When specifying the CreationInfo, you must provide values for all properties. If you do not provide CreationInfo and the specified RootDirectory > Path does not exist, attempts to mount the file system using the access point will fail."]}
    let make ?path = fun ?creationInfo -> fun () -> { path; creationInfo }
    let to_value x =
      structure_to_value
        [("Path", (Option.map x.path ~f:Path.to_value));
        ("CreationInfo",
          (Option.map x.creationInfo ~f:CreationInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let creationInfo =
        (Option.map ~f:CreationInfo.of_xml)
          (Xml.child xml_arg0 "CreationInfo") in
      let path = (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "Path") in
      make ?creationInfo ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let creationInfo = field_map json__ "CreationInfo" CreationInfo.of_json in
      let path = field_map json__ "Path" Path.of_json in
      make ?creationInfo ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Specifies the directory on the Amazon EFS file system that the access point provides access to. The access point exposes the specified file system path as the root directory of your file system to applications using the access point. NFS clients using the access point can only access data in the access point's RootDirectory and its subdirectories."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned when the CreateAccessPoint API action is called too quickly and the number of Access Points on the file system is nearing the limit of 120."]
module LifecyclePolicy =
  struct
    type nonrec t =
      {
      transitionToIA: TransitionToIARules.t option
        [@ocaml.doc
          "The number of days after files were last accessed in primary storage (the Standard storage class) at which to move them to Infrequent Access (IA) storage. Metadata operations such as listing the contents of a directory don't count as file access events."];
      transitionToPrimaryStorageClass:
        TransitionToPrimaryStorageClassRules.t option
        [@ocaml.doc
          "Whether to move files back to primary (Standard) storage after they are accessed in IA or Archive storage. Metadata operations such as listing the contents of a directory don't count as file access events."];
      transitionToArchive: TransitionToArchiveRules.t option
        [@ocaml.doc
          "The number of days after files were last accessed in primary storage (the Standard storage class) at which to move them to Archive storage. Metadata operations such as listing the contents of a directory don't count as file access events."]}
    let make ?transitionToIA =
      fun ?transitionToPrimaryStorageClass ->
        fun ?transitionToArchive ->
          fun () ->
            {
              transitionToIA;
              transitionToPrimaryStorageClass;
              transitionToArchive
            }
    let to_value x =
      structure_to_value
        [("TransitionToIA",
           (Option.map x.transitionToIA ~f:TransitionToIARules.to_value));
        ("TransitionToPrimaryStorageClass",
          (Option.map x.transitionToPrimaryStorageClass
             ~f:TransitionToPrimaryStorageClassRules.to_value));
        ("TransitionToArchive",
          (Option.map x.transitionToArchive
             ~f:TransitionToArchiveRules.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let transitionToArchive =
        (Option.map ~f:TransitionToArchiveRules.of_xml)
          (Xml.child xml_arg0 "TransitionToArchive") in
      let transitionToPrimaryStorageClass =
        (Option.map ~f:TransitionToPrimaryStorageClassRules.of_xml)
          (Xml.child xml_arg0 "TransitionToPrimaryStorageClass") in
      let transitionToIA =
        (Option.map ~f:TransitionToIARules.of_xml)
          (Xml.child xml_arg0 "TransitionToIA") in
      make ?transitionToArchive ?transitionToPrimaryStorageClass
        ?transitionToIA ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let transitionToArchive =
        field_map json__ "TransitionToArchive"
          TransitionToArchiveRules.of_json in
      let transitionToPrimaryStorageClass =
        field_map json__ "TransitionToPrimaryStorageClass"
          TransitionToPrimaryStorageClassRules.of_json in
      let transitionToIA =
        field_map json__ "TransitionToIA" TransitionToIARules.of_json in
      make ?transitionToArchive ?transitionToPrimaryStorageClass
        ?transitionToIA ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes a policy used by lifecycle management that specifies when to transition files into and out of storage classes. For more information, see Managing file system storage. When using the put-lifecycle-configuration CLI command or the PutLifecycleConfiguration API action, Amazon EFS requires that each LifecyclePolicy object have only a single transition. This means that in a request body, LifecyclePolicies must be structured as an array of LifecyclePolicy objects, one object for each transition. For more information, see the request examples in PutLifecycleConfiguration."]
module Status =
  struct
    type nonrec t =
      | ENABLED 
      | ENABLING 
      | DISABLED 
      | DISABLING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | ENABLING -> "ENABLING"
      | DISABLED -> "DISABLED"
      | DISABLING -> "DISABLING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "ENABLING" -> ENABLING
      | "DISABLED" -> DISABLED
      | "DISABLING" -> DISABLING
      | 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 Status" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Status" j)
    let to_json = simple_to_json to_value
  end
module ResourceIdType =
  struct
    type nonrec t =
      | LONG_ID 
      | SHORT_ID 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | LONG_ID -> "LONG_ID"
      | SHORT_ID -> "SHORT_ID"
      | Non_static_id s -> s
    let of_string =
      function
      | "LONG_ID" -> LONG_ID
      | "SHORT_ID" -> SHORT_ID
      | 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 ResourceIdType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceIdType" j)
    let to_json = simple_to_json to_value
  end
module Resources =
  struct
    type nonrec t = Resource.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:Resource.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:Resource.of_xml)
    let of_json j =
      list_of_json ~kind:"Resources" ~of_json:Resource.of_json j
    let to_json v = composed_to_json to_value v
  end
module SecurityGroup =
  struct
    type nonrec t = string
    let context_ = "SecurityGroup"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:11) >>=
             (fun () ->
                (check_string_max i ~max:43) >>=
                  (fun () -> check_pattern i ~pattern:"^sg-[0-9a-f]{8,40}")));
        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:"SecurityGroup" j
    let to_json = simple_to_json to_value
  end
module ReplicationConfigurationDescription =
  struct
    type nonrec t =
      {
      sourceFileSystemId: FileSystemId.t option
        [@ocaml.doc
          "The ID of the source Amazon EFS file system that is being replicated."];
      sourceFileSystemRegion: RegionName.t option
        [@ocaml.doc
          "The Amazon Web Services Region in which the source EFS file system is located."];
      sourceFileSystemArn: FileSystemArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the current source file system in the replication configuration."];
      originalSourceFileSystemArn: FileSystemArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the original source EFS file system in the replication configuration."];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "Describes when the replication configuration was created."];
      destinations: Destinations.t option
        [@ocaml.doc
          "An array of destination objects. Only one destination object is supported."];
      sourceFileSystemOwnerId: AwsAccountId.t option
        [@ocaml.doc
          "ID of the Amazon Web Services account in which the source file system resides."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `ConflictException of ConflictException.t 
      | `FileSystemLimitExceeded of FileSystemLimitExceeded.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `IncorrectFileSystemLifeCycleState of
          IncorrectFileSystemLifeCycleState.t 
      | `InsufficientThroughputCapacity of InsufficientThroughputCapacity.t 
      | `InternalServerError of InternalServerError.t 
      | `ReplicationNotFound of ReplicationNotFound.t 
      | `ThroughputLimitExceeded of ThroughputLimitExceeded.t 
      | `UnsupportedAvailabilityZone of UnsupportedAvailabilityZone.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sourceFileSystemId =
      fun ?sourceFileSystemRegion ->
        fun ?sourceFileSystemArn ->
          fun ?originalSourceFileSystemArn ->
            fun ?creationTime ->
              fun ?destinations ->
                fun ?sourceFileSystemOwnerId ->
                  fun () ->
                    {
                      sourceFileSystemId;
                      sourceFileSystemRegion;
                      sourceFileSystemArn;
                      originalSourceFileSystemArn;
                      creationTime;
                      destinations;
                      sourceFileSystemOwnerId
                    }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "FileSystemLimitExceeded" ->
          `FileSystemLimitExceeded (FileSystemLimitExceeded.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_json json)
      | "InsufficientThroughputCapacity" ->
          `InsufficientThroughputCapacity
            (InsufficientThroughputCapacity.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ReplicationNotFound" ->
          `ReplicationNotFound (ReplicationNotFound.of_json json)
      | "ThroughputLimitExceeded" ->
          `ThroughputLimitExceeded (ThroughputLimitExceeded.of_json json)
      | "UnsupportedAvailabilityZone" ->
          `UnsupportedAvailabilityZone
            (UnsupportedAvailabilityZone.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "FileSystemLimitExceeded" ->
          `FileSystemLimitExceeded (FileSystemLimitExceeded.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_xml xml)
      | "InsufficientThroughputCapacity" ->
          `InsufficientThroughputCapacity
            (InsufficientThroughputCapacity.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ReplicationNotFound" ->
          `ReplicationNotFound (ReplicationNotFound.of_xml xml)
      | "ThroughputLimitExceeded" ->
          `ThroughputLimitExceeded (ThroughputLimitExceeded.of_xml xml)
      | "UnsupportedAvailabilityZone" ->
          `UnsupportedAvailabilityZone
            (UnsupportedAvailabilityZone.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `FileSystemLimitExceeded e ->
          `Assoc
            [("error", (`String "FileSystemLimitExceeded"));
            ("details", (FileSystemLimitExceeded.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `IncorrectFileSystemLifeCycleState e ->
          `Assoc
            [("error", (`String "IncorrectFileSystemLifeCycleState"));
            ("details", (IncorrectFileSystemLifeCycleState.to_json e))]
      | `InsufficientThroughputCapacity e ->
          `Assoc
            [("error", (`String "InsufficientThroughputCapacity"));
            ("details", (InsufficientThroughputCapacity.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ReplicationNotFound e ->
          `Assoc
            [("error", (`String "ReplicationNotFound"));
            ("details", (ReplicationNotFound.to_json e))]
      | `ThroughputLimitExceeded e ->
          `Assoc
            [("error", (`String "ThroughputLimitExceeded"));
            ("details", (ThroughputLimitExceeded.to_json e))]
      | `UnsupportedAvailabilityZone e ->
          `Assoc
            [("error", (`String "UnsupportedAvailabilityZone"));
            ("details", (UnsupportedAvailabilityZone.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("SourceFileSystemId",
           (Option.map x.sourceFileSystemId ~f:FileSystemId.to_value));
        ("SourceFileSystemRegion",
          (Option.map x.sourceFileSystemRegion ~f:RegionName.to_value));
        ("SourceFileSystemArn",
          (Option.map x.sourceFileSystemArn ~f:FileSystemArn.to_value));
        ("OriginalSourceFileSystemArn",
          (Option.map x.originalSourceFileSystemArn ~f:FileSystemArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("Destinations",
          (Option.map x.destinations ~f:Destinations.to_value));
        ("SourceFileSystemOwnerId",
          (Option.map x.sourceFileSystemOwnerId ~f:AwsAccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceFileSystemOwnerId =
        (Option.map ~f:AwsAccountId.of_xml)
          (Xml.child xml_arg0 "SourceFileSystemOwnerId") in
      let destinations =
        (Option.map ~f:Destinations.of_xml)
          (Xml.child xml_arg0 "Destinations") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let originalSourceFileSystemArn =
        (Option.map ~f:FileSystemArn.of_xml)
          (Xml.child xml_arg0 "OriginalSourceFileSystemArn") in
      let sourceFileSystemArn =
        (Option.map ~f:FileSystemArn.of_xml)
          (Xml.child xml_arg0 "SourceFileSystemArn") in
      let sourceFileSystemRegion =
        (Option.map ~f:RegionName.of_xml)
          (Xml.child xml_arg0 "SourceFileSystemRegion") in
      let sourceFileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "SourceFileSystemId") in
      make ?sourceFileSystemOwnerId ?destinations ?creationTime
        ?originalSourceFileSystemArn ?sourceFileSystemArn
        ?sourceFileSystemRegion ?sourceFileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceFileSystemOwnerId =
        field_map json__ "SourceFileSystemOwnerId" AwsAccountId.of_json in
      let destinations = field_map json__ "Destinations" Destinations.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let originalSourceFileSystemArn =
        field_map json__ "OriginalSourceFileSystemArn" FileSystemArn.of_json in
      let sourceFileSystemArn =
        field_map json__ "SourceFileSystemArn" FileSystemArn.of_json in
      let sourceFileSystemRegion =
        field_map json__ "SourceFileSystemRegion" RegionName.of_json in
      let sourceFileSystemId =
        field_map json__ "SourceFileSystemId" FileSystemId.of_json in
      make ?sourceFileSystemOwnerId ?destinations ?creationTime
        ?originalSourceFileSystemArn ?sourceFileSystemArn
        ?sourceFileSystemRegion ?sourceFileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the replication configuration for a specific file system."]
module MountTargetDescription =
  struct
    type nonrec t =
      {
      ownerId: AwsAccountId.t option
        [@ocaml.doc "Amazon Web Services account ID that owns the resource."];
      mountTargetId: MountTargetId.t option
        [@ocaml.doc "System-assigned mount target ID."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "The ID of the file system for which the mount target is intended."];
      subnetId: SubnetId.t option
        [@ocaml.doc "The ID of the mount target's subnet."];
      lifeCycleState: LifeCycleState.t option
        [@ocaml.doc "Lifecycle state of the mount target."];
      ipAddress: IpAddress.t option
        [@ocaml.doc
          "Address at which the file system can be mounted by using the mount target."];
      ipv6Address: Ipv6Address.t option
        [@ocaml.doc "The IPv6 address for the mount target."];
      networkInterfaceId: NetworkInterfaceId.t option
        [@ocaml.doc
          "The ID of the network interface that Amazon EFS created when it created the mount target."];
      availabilityZoneId: AvailabilityZoneId.t option
        [@ocaml.doc
          "The unique and consistent identifier of the Availability Zone that the mount target resides in. For example, use1-az1 is an AZ ID for the us-east-1 Region and it has the same location in every Amazon Web Services account."];
      availabilityZoneName: AvailabilityZoneName.t option
        [@ocaml.doc
          "The name of the Availability Zone in which the mount target is located. Availability Zones are independently mapped to names for each Amazon Web Services account. For example, the Availability Zone us-east-1a for your Amazon Web Services account might not be the same location as us-east-1a for another Amazon Web Services account."];
      vpcId: VpcId.t option
        [@ocaml.doc
          "The virtual private cloud (VPC) ID that the mount target is configured in."]}
    type nonrec error =
      [ `AvailabilityZonesMismatch of AvailabilityZonesMismatch.t 
      | `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `IncorrectFileSystemLifeCycleState of
          IncorrectFileSystemLifeCycleState.t 
      | `InternalServerError of InternalServerError.t 
      | `IpAddressInUse of IpAddressInUse.t 
      | `MountTargetConflict of MountTargetConflict.t 
      | `NetworkInterfaceLimitExceeded of NetworkInterfaceLimitExceeded.t 
      | `NoFreeAddressesInSubnet of NoFreeAddressesInSubnet.t 
      | `SecurityGroupLimitExceeded of SecurityGroupLimitExceeded.t 
      | `SecurityGroupNotFound of SecurityGroupNotFound.t 
      | `SubnetNotFound of SubnetNotFound.t 
      | `UnsupportedAvailabilityZone of UnsupportedAvailabilityZone.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ownerId =
      fun ?mountTargetId ->
        fun ?fileSystemId ->
          fun ?subnetId ->
            fun ?lifeCycleState ->
              fun ?ipAddress ->
                fun ?ipv6Address ->
                  fun ?networkInterfaceId ->
                    fun ?availabilityZoneId ->
                      fun ?availabilityZoneName ->
                        fun ?vpcId ->
                          fun () ->
                            {
                              ownerId;
                              mountTargetId;
                              fileSystemId;
                              subnetId;
                              lifeCycleState;
                              ipAddress;
                              ipv6Address;
                              networkInterfaceId;
                              availabilityZoneId;
                              availabilityZoneName;
                              vpcId
                            }
    let error_of_json name json =
      match name with
      | "AvailabilityZonesMismatch" ->
          `AvailabilityZonesMismatch (AvailabilityZonesMismatch.of_json json)
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "IpAddressInUse" -> `IpAddressInUse (IpAddressInUse.of_json json)
      | "MountTargetConflict" ->
          `MountTargetConflict (MountTargetConflict.of_json json)
      | "NetworkInterfaceLimitExceeded" ->
          `NetworkInterfaceLimitExceeded
            (NetworkInterfaceLimitExceeded.of_json json)
      | "NoFreeAddressesInSubnet" ->
          `NoFreeAddressesInSubnet (NoFreeAddressesInSubnet.of_json json)
      | "SecurityGroupLimitExceeded" ->
          `SecurityGroupLimitExceeded
            (SecurityGroupLimitExceeded.of_json json)
      | "SecurityGroupNotFound" ->
          `SecurityGroupNotFound (SecurityGroupNotFound.of_json json)
      | "SubnetNotFound" -> `SubnetNotFound (SubnetNotFound.of_json json)
      | "UnsupportedAvailabilityZone" ->
          `UnsupportedAvailabilityZone
            (UnsupportedAvailabilityZone.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AvailabilityZonesMismatch" ->
          `AvailabilityZonesMismatch (AvailabilityZonesMismatch.of_xml xml)
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "IpAddressInUse" -> `IpAddressInUse (IpAddressInUse.of_xml xml)
      | "MountTargetConflict" ->
          `MountTargetConflict (MountTargetConflict.of_xml xml)
      | "NetworkInterfaceLimitExceeded" ->
          `NetworkInterfaceLimitExceeded
            (NetworkInterfaceLimitExceeded.of_xml xml)
      | "NoFreeAddressesInSubnet" ->
          `NoFreeAddressesInSubnet (NoFreeAddressesInSubnet.of_xml xml)
      | "SecurityGroupLimitExceeded" ->
          `SecurityGroupLimitExceeded (SecurityGroupLimitExceeded.of_xml xml)
      | "SecurityGroupNotFound" ->
          `SecurityGroupNotFound (SecurityGroupNotFound.of_xml xml)
      | "SubnetNotFound" -> `SubnetNotFound (SubnetNotFound.of_xml xml)
      | "UnsupportedAvailabilityZone" ->
          `UnsupportedAvailabilityZone
            (UnsupportedAvailabilityZone.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AvailabilityZonesMismatch e ->
          `Assoc
            [("error", (`String "AvailabilityZonesMismatch"));
            ("details", (AvailabilityZonesMismatch.to_json e))]
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `IncorrectFileSystemLifeCycleState e ->
          `Assoc
            [("error", (`String "IncorrectFileSystemLifeCycleState"));
            ("details", (IncorrectFileSystemLifeCycleState.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `IpAddressInUse e ->
          `Assoc
            [("error", (`String "IpAddressInUse"));
            ("details", (IpAddressInUse.to_json e))]
      | `MountTargetConflict e ->
          `Assoc
            [("error", (`String "MountTargetConflict"));
            ("details", (MountTargetConflict.to_json e))]
      | `NetworkInterfaceLimitExceeded e ->
          `Assoc
            [("error", (`String "NetworkInterfaceLimitExceeded"));
            ("details", (NetworkInterfaceLimitExceeded.to_json e))]
      | `NoFreeAddressesInSubnet e ->
          `Assoc
            [("error", (`String "NoFreeAddressesInSubnet"));
            ("details", (NoFreeAddressesInSubnet.to_json e))]
      | `SecurityGroupLimitExceeded e ->
          `Assoc
            [("error", (`String "SecurityGroupLimitExceeded"));
            ("details", (SecurityGroupLimitExceeded.to_json e))]
      | `SecurityGroupNotFound e ->
          `Assoc
            [("error", (`String "SecurityGroupNotFound"));
            ("details", (SecurityGroupNotFound.to_json e))]
      | `SubnetNotFound e ->
          `Assoc
            [("error", (`String "SubnetNotFound"));
            ("details", (SubnetNotFound.to_json e))]
      | `UnsupportedAvailabilityZone e ->
          `Assoc
            [("error", (`String "UnsupportedAvailabilityZone"));
            ("details", (UnsupportedAvailabilityZone.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
        [("OwnerId", (Option.map x.ownerId ~f:AwsAccountId.to_value));
        ("MountTargetId",
          (Option.map x.mountTargetId ~f:MountTargetId.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("SubnetId", (Option.map x.subnetId ~f:SubnetId.to_value));
        ("LifeCycleState",
          (Option.map x.lifeCycleState ~f:LifeCycleState.to_value));
        ("IpAddress", (Option.map x.ipAddress ~f:IpAddress.to_value));
        ("Ipv6Address", (Option.map x.ipv6Address ~f:Ipv6Address.to_value));
        ("NetworkInterfaceId",
          (Option.map x.networkInterfaceId ~f:NetworkInterfaceId.to_value));
        ("AvailabilityZoneId",
          (Option.map x.availabilityZoneId ~f:AvailabilityZoneId.to_value));
        ("AvailabilityZoneName",
          (Option.map x.availabilityZoneName ~f:AvailabilityZoneName.to_value));
        ("VpcId", (Option.map x.vpcId ~f:VpcId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let vpcId = (Option.map ~f:VpcId.of_xml) (Xml.child xml_arg0 "VpcId") in
      let availabilityZoneName =
        (Option.map ~f:AvailabilityZoneName.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneName") in
      let availabilityZoneId =
        (Option.map ~f:AvailabilityZoneId.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneId") in
      let networkInterfaceId =
        (Option.map ~f:NetworkInterfaceId.of_xml)
          (Xml.child xml_arg0 "NetworkInterfaceId") in
      let ipv6Address =
        (Option.map ~f:Ipv6Address.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      let ipAddress =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "IpAddress") in
      let lifeCycleState =
        (Option.map ~f:LifeCycleState.of_xml)
          (Xml.child xml_arg0 "LifeCycleState") in
      let subnetId =
        (Option.map ~f:SubnetId.of_xml) (Xml.child xml_arg0 "SubnetId") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let mountTargetId =
        (Option.map ~f:MountTargetId.of_xml)
          (Xml.child xml_arg0 "MountTargetId") in
      let ownerId =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      make ?vpcId ?availabilityZoneName ?availabilityZoneId
        ?networkInterfaceId ?ipv6Address ?ipAddress ?lifeCycleState ?subnetId
        ?fileSystemId ?mountTargetId ?ownerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let vpcId = field_map json__ "VpcId" VpcId.of_json in
      let availabilityZoneName =
        field_map json__ "AvailabilityZoneName" AvailabilityZoneName.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" AvailabilityZoneId.of_json in
      let networkInterfaceId =
        field_map json__ "NetworkInterfaceId" NetworkInterfaceId.of_json in
      let ipv6Address = field_map json__ "Ipv6Address" Ipv6Address.of_json in
      let ipAddress = field_map json__ "IpAddress" IpAddress.of_json in
      let lifeCycleState =
        field_map json__ "LifeCycleState" LifeCycleState.of_json in
      let subnetId = field_map json__ "SubnetId" SubnetId.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let mountTargetId =
        field_map json__ "MountTargetId" MountTargetId.of_json in
      let ownerId = field_map json__ "OwnerId" AwsAccountId.of_json in
      make ?vpcId ?availabilityZoneName ?availabilityZoneId
        ?networkInterfaceId ?ipv6Address ?ipAddress ?lifeCycleState ?subnetId
        ?fileSystemId ?mountTargetId ?ownerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides a description of a mount target."]
module FileSystemDescription =
  struct
    type nonrec t =
      {
      ownerId: AwsAccountId.t option
        [@ocaml.doc
          "The Amazon Web Services account that created the file system."];
      creationToken: CreationToken.t option
        [@ocaml.doc "The opaque string specified in the request."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc "The ID of the file system, assigned by Amazon EFS."];
      fileSystemArn: FileSystemArn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the EFS file system, in the format arn:aws:elasticfilesystem:region:account-id:file-system/file-system-id . Example with sample data: arn:aws:elasticfilesystem:us-west-2:1111333322228888:file-system/fs-01234567"];
      creationTime: Timestamp.t option
        [@ocaml.doc
          "The time that the file system was created, in seconds (since 1970-01-01T00:00:00Z)."];
      lifeCycleState: LifeCycleState.t option
        [@ocaml.doc "The lifecycle phase of the file system."];
      name: TagValue.t option
        [@ocaml.doc
          "You can add tags to a file system, including a Name tag. For more information, see CreateFileSystem. If the file system has a Name tag, Amazon EFS returns the value in this field."];
      numberOfMountTargets: MountTargetCount.t option
        [@ocaml.doc
          "The current number of mount targets that the file system has. For more information, see CreateMountTarget."];
      sizeInBytes: FileSystemSize.t option
        [@ocaml.doc
          "The latest known metered size (in bytes) of data stored in the file system, in its Value field, and the time at which that size was determined in its Timestamp field. The Timestamp value is the integer number of seconds since 1970-01-01T00:00:00Z. The SizeInBytes value doesn't represent the size of a consistent snapshot of the file system, but it is eventually consistent when there are no writes to the file system. That is, SizeInBytes represents actual size only if the file system is not modified for a period longer than a couple of hours. Otherwise, the value is not the exact size that the file system was at any point in time."];
      performanceMode: PerformanceMode.t option
        [@ocaml.doc "The performance mode of the file system."];
      encrypted: Encrypted.t option
        [@ocaml.doc
          "A Boolean value that, if true, indicates that the file system is encrypted."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "The ID of an KMS key used to protect the encrypted file system."];
      throughputMode: ThroughputMode.t option
        [@ocaml.doc
          "Displays the file system's throughput mode. For more information, see Throughput modes in the Amazon EFS User Guide."];
      provisionedThroughputInMibps: ProvisionedThroughputInMibps.t option
        [@ocaml.doc
          "The amount of provisioned throughput, measured in MiBps, for the file system. Valid for file systems using ThroughputMode set to provisioned."];
      availabilityZoneName: AvailabilityZoneName.t option
        [@ocaml.doc
          "Describes the Amazon Web Services Availability Zone in which the file system is located, and is valid only for One Zone file systems. For more information, see Using EFS storage classes in the Amazon EFS User Guide."];
      availabilityZoneId: AvailabilityZoneId.t option
        [@ocaml.doc
          "The unique and consistent identifier of the Availability Zone in which the file system is located, and is valid only for One Zone file systems. For example, use1-az1 is an Availability Zone ID for the us-east-1 Amazon Web Services Region, and it has the same location in every Amazon Web Services account."];
      tags: Tags.t option
        [@ocaml.doc
          "The tags associated with the file system, presented as an array of Tag objects."];
      fileSystemProtection: FileSystemProtectionDescription.t option
        [@ocaml.doc "Describes the protection on the file system."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemAlreadyExists of FileSystemAlreadyExists.t 
      | `FileSystemLimitExceeded of FileSystemLimitExceeded.t 
      | `InsufficientThroughputCapacity of InsufficientThroughputCapacity.t 
      | `InternalServerError of InternalServerError.t 
      | `ThroughputLimitExceeded of ThroughputLimitExceeded.t 
      | `UnsupportedAvailabilityZone of UnsupportedAvailabilityZone.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?ownerId =
      fun ?creationToken ->
        fun ?fileSystemId ->
          fun ?fileSystemArn ->
            fun ?creationTime ->
              fun ?lifeCycleState ->
                fun ?name ->
                  fun ?numberOfMountTargets ->
                    fun ?sizeInBytes ->
                      fun ?performanceMode ->
                        fun ?encrypted ->
                          fun ?kmsKeyId ->
                            fun ?throughputMode ->
                              fun ?provisionedThroughputInMibps ->
                                fun ?availabilityZoneName ->
                                  fun ?availabilityZoneId ->
                                    fun ?tags ->
                                      fun ?fileSystemProtection ->
                                        fun () ->
                                          {
                                            ownerId;
                                            creationToken;
                                            fileSystemId;
                                            fileSystemArn;
                                            creationTime;
                                            lifeCycleState;
                                            name;
                                            numberOfMountTargets;
                                            sizeInBytes;
                                            performanceMode;
                                            encrypted;
                                            kmsKeyId;
                                            throughputMode;
                                            provisionedThroughputInMibps;
                                            availabilityZoneName;
                                            availabilityZoneId;
                                            tags;
                                            fileSystemProtection
                                          }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemAlreadyExists" ->
          `FileSystemAlreadyExists (FileSystemAlreadyExists.of_json json)
      | "FileSystemLimitExceeded" ->
          `FileSystemLimitExceeded (FileSystemLimitExceeded.of_json json)
      | "InsufficientThroughputCapacity" ->
          `InsufficientThroughputCapacity
            (InsufficientThroughputCapacity.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThroughputLimitExceeded" ->
          `ThroughputLimitExceeded (ThroughputLimitExceeded.of_json json)
      | "UnsupportedAvailabilityZone" ->
          `UnsupportedAvailabilityZone
            (UnsupportedAvailabilityZone.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemAlreadyExists" ->
          `FileSystemAlreadyExists (FileSystemAlreadyExists.of_xml xml)
      | "FileSystemLimitExceeded" ->
          `FileSystemLimitExceeded (FileSystemLimitExceeded.of_xml xml)
      | "InsufficientThroughputCapacity" ->
          `InsufficientThroughputCapacity
            (InsufficientThroughputCapacity.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThroughputLimitExceeded" ->
          `ThroughputLimitExceeded (ThroughputLimitExceeded.of_xml xml)
      | "UnsupportedAvailabilityZone" ->
          `UnsupportedAvailabilityZone
            (UnsupportedAvailabilityZone.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemAlreadyExists e ->
          `Assoc
            [("error", (`String "FileSystemAlreadyExists"));
            ("details", (FileSystemAlreadyExists.to_json e))]
      | `FileSystemLimitExceeded e ->
          `Assoc
            [("error", (`String "FileSystemLimitExceeded"));
            ("details", (FileSystemLimitExceeded.to_json e))]
      | `InsufficientThroughputCapacity e ->
          `Assoc
            [("error", (`String "InsufficientThroughputCapacity"));
            ("details", (InsufficientThroughputCapacity.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThroughputLimitExceeded e ->
          `Assoc
            [("error", (`String "ThroughputLimitExceeded"));
            ("details", (ThroughputLimitExceeded.to_json e))]
      | `UnsupportedAvailabilityZone e ->
          `Assoc
            [("error", (`String "UnsupportedAvailabilityZone"));
            ("details", (UnsupportedAvailabilityZone.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
        [("OwnerId", (Option.map x.ownerId ~f:AwsAccountId.to_value));
        ("CreationToken",
          (Option.map x.creationToken ~f:CreationToken.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("FileSystemArn",
          (Option.map x.fileSystemArn ~f:FileSystemArn.to_value));
        ("CreationTime", (Option.map x.creationTime ~f:Timestamp.to_value));
        ("LifeCycleState",
          (Option.map x.lifeCycleState ~f:LifeCycleState.to_value));
        ("Name", (Option.map x.name ~f:TagValue.to_value));
        ("NumberOfMountTargets",
          (Option.map x.numberOfMountTargets ~f:MountTargetCount.to_value));
        ("SizeInBytes",
          (Option.map x.sizeInBytes ~f:FileSystemSize.to_value));
        ("PerformanceMode",
          (Option.map x.performanceMode ~f:PerformanceMode.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Encrypted.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("ThroughputMode",
          (Option.map x.throughputMode ~f:ThroughputMode.to_value));
        ("ProvisionedThroughputInMibps",
          (Option.map x.provisionedThroughputInMibps
             ~f:ProvisionedThroughputInMibps.to_value));
        ("AvailabilityZoneName",
          (Option.map x.availabilityZoneName ~f:AvailabilityZoneName.to_value));
        ("AvailabilityZoneId",
          (Option.map x.availabilityZoneId ~f:AvailabilityZoneId.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("FileSystemProtection",
          (Option.map x.fileSystemProtection
             ~f:FileSystemProtectionDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemProtection =
        (Option.map ~f:FileSystemProtectionDescription.of_xml)
          (Xml.child xml_arg0 "FileSystemProtection") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let availabilityZoneId =
        (Option.map ~f:AvailabilityZoneId.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneId") in
      let availabilityZoneName =
        (Option.map ~f:AvailabilityZoneName.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneName") in
      let provisionedThroughputInMibps =
        (Option.map ~f:ProvisionedThroughputInMibps.of_xml)
          (Xml.child xml_arg0 "ProvisionedThroughputInMibps") in
      let throughputMode =
        (Option.map ~f:ThroughputMode.of_xml)
          (Xml.child xml_arg0 "ThroughputMode") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let encrypted =
        (Option.map ~f:Encrypted.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let performanceMode =
        (Option.map ~f:PerformanceMode.of_xml)
          (Xml.child xml_arg0 "PerformanceMode") in
      let sizeInBytes =
        (Option.map ~f:FileSystemSize.of_xml)
          (Xml.child xml_arg0 "SizeInBytes") in
      let numberOfMountTargets =
        (Option.map ~f:MountTargetCount.of_xml)
          (Xml.child xml_arg0 "NumberOfMountTargets") in
      let name = (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Name") in
      let lifeCycleState =
        (Option.map ~f:LifeCycleState.of_xml)
          (Xml.child xml_arg0 "LifeCycleState") in
      let creationTime =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "CreationTime") in
      let fileSystemArn =
        (Option.map ~f:FileSystemArn.of_xml)
          (Xml.child xml_arg0 "FileSystemArn") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let creationToken =
        (Option.map ~f:CreationToken.of_xml)
          (Xml.child xml_arg0 "CreationToken") in
      let ownerId =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      make ?fileSystemProtection ?tags ?availabilityZoneId
        ?availabilityZoneName ?provisionedThroughputInMibps ?throughputMode
        ?kmsKeyId ?encrypted ?performanceMode ?sizeInBytes
        ?numberOfMountTargets ?name ?lifeCycleState ?creationTime
        ?fileSystemArn ?fileSystemId ?creationToken ?ownerId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemProtection =
        field_map json__ "FileSystemProtection"
          FileSystemProtectionDescription.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let availabilityZoneId =
        field_map json__ "AvailabilityZoneId" AvailabilityZoneId.of_json in
      let availabilityZoneName =
        field_map json__ "AvailabilityZoneName" AvailabilityZoneName.of_json in
      let provisionedThroughputInMibps =
        field_map json__ "ProvisionedThroughputInMibps"
          ProvisionedThroughputInMibps.of_json in
      let throughputMode =
        field_map json__ "ThroughputMode" ThroughputMode.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let encrypted = field_map json__ "Encrypted" Encrypted.of_json in
      let performanceMode =
        field_map json__ "PerformanceMode" PerformanceMode.of_json in
      let sizeInBytes = field_map json__ "SizeInBytes" FileSystemSize.of_json in
      let numberOfMountTargets =
        field_map json__ "NumberOfMountTargets" MountTargetCount.of_json in
      let name = field_map json__ "Name" TagValue.of_json in
      let lifeCycleState =
        field_map json__ "LifeCycleState" LifeCycleState.of_json in
      let creationTime = field_map json__ "CreationTime" Timestamp.of_json in
      let fileSystemArn =
        field_map json__ "FileSystemArn" FileSystemArn.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let creationToken =
        field_map json__ "CreationToken" CreationToken.of_json in
      let ownerId = field_map json__ "OwnerId" AwsAccountId.of_json in
      make ?fileSystemProtection ?tags ?availabilityZoneId
        ?availabilityZoneName ?provisionedThroughputInMibps ?throughputMode
        ?kmsKeyId ?encrypted ?performanceMode ?sizeInBytes
        ?numberOfMountTargets ?name ?lifeCycleState ?creationTime
        ?fileSystemArn ?fileSystemId ?creationToken ?ownerId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A description of the file system."]
module AccessPointDescription =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "The opaque string specified in the request to ensure idempotent creation."];
      name: Name.t option
        [@ocaml.doc
          "The name of the access point. This is the value of the Name tag."];
      tags: Tags.t option
        [@ocaml.doc
          "The tags associated with the access point, presented as an array of Tag objects."];
      accessPointId: AccessPointId.t option
        [@ocaml.doc "The ID of the access point, assigned by Amazon EFS."];
      accessPointArn: AccessPointArn.t option
        [@ocaml.doc
          "The unique Amazon Resource Name (ARN) associated with the access point."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "The ID of the EFS file system that the access point applies to."];
      posixUser: PosixUser.t option
        [@ocaml.doc
          "The full POSIX identity, including the user ID, group ID, and secondary group IDs on the access point that is used for all file operations by NFS clients using the access point."];
      rootDirectory: RootDirectory.t option
        [@ocaml.doc
          "The directory on the EFS file system that the access point exposes as the root directory to NFS clients using the access point."];
      ownerId: AwsAccountId.t option
        [@ocaml.doc
          "Identifies the Amazon Web Services account that owns the access point resource."];
      lifeCycleState: LifeCycleState.t option
        [@ocaml.doc "Identifies the lifecycle phase of the access point."]}
    type nonrec error =
      [ `AccessPointAlreadyExists of AccessPointAlreadyExists.t 
      | `AccessPointLimitExceeded of AccessPointLimitExceeded.t 
      | `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `IncorrectFileSystemLifeCycleState of
          IncorrectFileSystemLifeCycleState.t 
      | `InternalServerError of InternalServerError.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?clientToken =
      fun ?name ->
        fun ?tags ->
          fun ?accessPointId ->
            fun ?accessPointArn ->
              fun ?fileSystemId ->
                fun ?posixUser ->
                  fun ?rootDirectory ->
                    fun ?ownerId ->
                      fun ?lifeCycleState ->
                        fun () ->
                          {
                            clientToken;
                            name;
                            tags;
                            accessPointId;
                            accessPointArn;
                            fileSystemId;
                            posixUser;
                            rootDirectory;
                            ownerId;
                            lifeCycleState
                          }
    let error_of_json name json =
      match name with
      | "AccessPointAlreadyExists" ->
          `AccessPointAlreadyExists (AccessPointAlreadyExists.of_json json)
      | "AccessPointLimitExceeded" ->
          `AccessPointLimitExceeded (AccessPointLimitExceeded.of_json json)
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessPointAlreadyExists" ->
          `AccessPointAlreadyExists (AccessPointAlreadyExists.of_xml xml)
      | "AccessPointLimitExceeded" ->
          `AccessPointLimitExceeded (AccessPointLimitExceeded.of_xml xml)
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "IncorrectFileSystemLifeCycleState" ->
          `IncorrectFileSystemLifeCycleState
            (IncorrectFileSystemLifeCycleState.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessPointAlreadyExists e ->
          `Assoc
            [("error", (`String "AccessPointAlreadyExists"));
            ("details", (AccessPointAlreadyExists.to_json e))]
      | `AccessPointLimitExceeded e ->
          `Assoc
            [("error", (`String "AccessPointLimitExceeded"));
            ("details", (AccessPointLimitExceeded.to_json e))]
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `IncorrectFileSystemLifeCycleState e ->
          `Assoc
            [("error", (`String "IncorrectFileSystemLifeCycleState"));
            ("details", (IncorrectFileSystemLifeCycleState.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("ClientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("Name", (Option.map x.name ~f:Name.to_value));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("AccessPointId",
          (Option.map x.accessPointId ~f:AccessPointId.to_value));
        ("AccessPointArn",
          (Option.map x.accessPointArn ~f:AccessPointArn.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("PosixUser", (Option.map x.posixUser ~f:PosixUser.to_value));
        ("RootDirectory",
          (Option.map x.rootDirectory ~f:RootDirectory.to_value));
        ("OwnerId", (Option.map x.ownerId ~f:AwsAccountId.to_value));
        ("LifeCycleState",
          (Option.map x.lifeCycleState ~f:LifeCycleState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifeCycleState =
        (Option.map ~f:LifeCycleState.of_xml)
          (Xml.child xml_arg0 "LifeCycleState") in
      let ownerId =
        (Option.map ~f:AwsAccountId.of_xml) (Xml.child xml_arg0 "OwnerId") in
      let rootDirectory =
        (Option.map ~f:RootDirectory.of_xml)
          (Xml.child xml_arg0 "RootDirectory") in
      let posixUser =
        (Option.map ~f:PosixUser.of_xml) (Xml.child xml_arg0 "PosixUser") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let accessPointArn =
        (Option.map ~f:AccessPointArn.of_xml)
          (Xml.child xml_arg0 "AccessPointArn") in
      let accessPointId =
        (Option.map ~f:AccessPointId.of_xml)
          (Xml.child xml_arg0 "AccessPointId") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "Name") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "ClientToken") in
      make ?lifeCycleState ?ownerId ?rootDirectory ?posixUser ?fileSystemId
        ?accessPointArn ?accessPointId ?tags ?name ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifeCycleState =
        field_map json__ "LifeCycleState" LifeCycleState.of_json in
      let ownerId = field_map json__ "OwnerId" AwsAccountId.of_json in
      let rootDirectory =
        field_map json__ "RootDirectory" RootDirectory.of_json in
      let posixUser = field_map json__ "PosixUser" PosixUser.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let accessPointArn =
        field_map json__ "AccessPointArn" AccessPointArn.of_json in
      let accessPointId =
        field_map json__ "AccessPointId" AccessPointId.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let name = field_map json__ "Name" Name.of_json in
      let clientToken = field_map json__ "ClientToken" ClientToken.of_json in
      make ?lifeCycleState ?ownerId ?rootDirectory ?posixUser ?fileSystemId
        ?accessPointArn ?accessPointId ?tags ?name ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a description of an EFS file system access point."]
module DestinationToCreate =
  struct
    type nonrec t =
      {
      region: RegionName.t option
        [@ocaml.doc
          "To create a file system that uses Regional storage, specify the Amazon Web Services Region in which to create the destination file system. The Region must be enabled for the Amazon Web Services account that owns the source file system. For more information, see Managing Amazon Web Services Regions in the Amazon Web Services General Reference Reference Guide."];
      availabilityZoneName: AvailabilityZoneName.t option
        [@ocaml.doc
          "To create a file system that uses One Zone storage, specify the name of the Availability Zone in which to create the destination file system."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "Specify the Key Management Service (KMS) key that you want to use to encrypt the destination file system. If you do not specify a KMS key, Amazon EFS uses your default KMS key for Amazon EFS, /aws/elasticfilesystem. This ID can be in one of the following formats: Key ID - The unique identifier of the key, for example 1234abcd-12ab-34cd-56ef-1234567890ab. ARN - The ARN for the key, for example arn:aws:kms:us-west-2:111122223333:key/1234abcd-12ab-34cd-56ef-1234567890ab. Key alias - A previously created display name for a key, for example alias/projectKey1. Key alias ARN - The ARN for a key alias, for example arn:aws:kms:us-west-2:444455556666:alias/projectKey1."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "The ID or ARN of the file system to use for the destination. For cross-account replication, this must be an ARN. The file system's replication overwrite replication must be disabled. If no ID or ARN is specified, then a new file system is created. When you initially configure replication to an existing file system, Amazon EFS writes data to or removes existing data from the destination file system to match data in the source file system. If you don't want to change data in the destination file system, then you should replicate to a new file system instead. For more information, see https://docs.aws.amazon.com/efs/latest/ug/create-replication.html."];
      roleArn: RoleArn.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the IAM role in the source account that allows Amazon EFS to perform replication on its behalf. This is optional for same-account replication and required for cross-account replication."]}
    let make ?region =
      fun ?availabilityZoneName ->
        fun ?kmsKeyId ->
          fun ?fileSystemId ->
            fun ?roleArn ->
              fun () ->
                {
                  region;
                  availabilityZoneName;
                  kmsKeyId;
                  fileSystemId;
                  roleArn
                }
    let to_value x =
      structure_to_value
        [("Region", (Option.map x.region ~f:RegionName.to_value));
        ("AvailabilityZoneName",
          (Option.map x.availabilityZoneName ~f:AvailabilityZoneName.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:RoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:RoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let availabilityZoneName =
        (Option.map ~f:AvailabilityZoneName.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneName") in
      let region =
        (Option.map ~f:RegionName.of_xml) (Xml.child xml_arg0 "Region") in
      make ?roleArn ?fileSystemId ?kmsKeyId ?availabilityZoneName ?region ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "RoleArn" RoleArn.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let availabilityZoneName =
        field_map json__ "AvailabilityZoneName" AvailabilityZoneName.of_json in
      let region = field_map json__ "Region" RegionName.of_json in
      make ?roleArn ?fileSystemId ?kmsKeyId ?availabilityZoneName ?region ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the new or existing destination file system for the replication configuration. If you want to replicate to a new file system, do not specify the File System ID for the destination file system. Amazon EFS creates a new, empty file system. For One Zone storage, specify the Availability Zone to create the file system in. To use an Key Management Service key other than the default KMS key, then specify it. For more information, see Configuring replication to new Amazon EFS file system in the Amazon EFS User Guide. After the file system is created, you cannot change the KMS key or the performance mode. If you want to replicate to an existing file system that's in the same account as the source file system, then you need to provide the ID or Amazon Resource Name (ARN) of the file system to which to replicate. The file system's replication overwrite protection must be disabled. For more information, see Replicating to an existing file system in the Amazon EFS User Guide. If you are replicating the file system to a file system that's in a different account than the source file system (cross-account replication), you need to provide the ARN for the file system and the IAM role that allows Amazon EFS to perform replication on the destination account. The file system's replication overwrite protection must be disabled. For more information, see Replicating across Amazon Web Services accounts in the Amazon EFS User Guide."]
module ResourceId =
  struct
    type nonrec t = string
    let context_ = "ResourceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () ->
                check_pattern i
                  ~pattern:"^(arn:aws[-a-z]*:elasticfilesystem:[0-9a-z-:]+:(access-point/fsap|file-system/fs)-[0-9a-f]{8,40}|fs(ap)?-[0-9a-f]{8,40})$"));
        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:"ResourceId" j
    let to_json = simple_to_json to_value
  end
module TagKeys =
  struct
    type nonrec t = TagKey.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: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 LifecyclePolicies =
  struct
    type nonrec t = LifecyclePolicy.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:3); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:LifecyclePolicy.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:LifecyclePolicy.of_xml)
    let of_json j =
      list_of_json ~kind:"LifecyclePolicies" ~of_json:LifecyclePolicy.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module BypassPolicyLockoutSafetyCheck =
  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 Policy =
  struct
    type nonrec t = string
    let context_ = "Policy"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:20000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\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:"Policy" j
    let to_json = simple_to_json to_value
  end
module BackupPolicy =
  struct
    type nonrec t =
      {
      status: Status.t
        [@ocaml.doc
          "Describes the status of the file system's backup policy. ENABLED \226\128\147 EFS is automatically backing up the file system. ENABLING \226\128\147 EFS is turning on automatic backups for the file system. DISABLED \226\128\147 Automatic back ups are turned off for the file system. DISABLING \226\128\147 EFS is turning off automatic backups for the file system."]}
    let context_ = "BackupPolicy"
    let make ~status = fun () -> { status }
    let to_value x =
      structure_to_value [("Status", (Some (Status.to_value x.status)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        Status.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Status") in
      make ~status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map_exn json__ "Status" Status.of_json in
      make ~status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The backup policy for the file system used to create automatic daily backups. If status has a value of ENABLED, the file system is being automatically backed up. For more information, see Automatic backups."]
module ResourceIdPreference =
  struct
    type nonrec t =
      {
      resourceIdType: ResourceIdType.t option
        [@ocaml.doc
          "Identifies the EFS resource ID preference, either LONG_ID (17 characters) or SHORT_ID (8 characters)."];
      resources: Resources.t option
        [@ocaml.doc
          "Identifies the Amazon EFS resources to which the ID preference setting applies, FILE_SYSTEM and MOUNT_TARGET."]}
    let make ?resourceIdType =
      fun ?resources -> fun () -> { resourceIdType; resources }
    let to_value x =
      structure_to_value
        [("ResourceIdType",
           (Option.map x.resourceIdType ~f:ResourceIdType.to_value));
        ("Resources", (Option.map x.resources ~f:Resources.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resources =
        (Option.map ~f:Resources.of_xml) (Xml.child xml_arg0 "Resources") in
      let resourceIdType =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "ResourceIdType") in
      make ?resources ?resourceIdType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resources = field_map json__ "Resources" Resources.of_json in
      let resourceIdType =
        field_map json__ "ResourceIdType" ResourceIdType.of_json in
      make ?resources ?resourceIdType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the resource type and its ID preference for the user's Amazon Web Services account, in the current Amazon Web Services Region."]
module SecurityGroups =
  struct
    type nonrec t = SecurityGroup.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:100); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SecurityGroup.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:SecurityGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"SecurityGroups" ~of_json:SecurityGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessPointNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the specified AccessPointId value doesn't exist in the requester's Amazon Web Services account."]
module Token =
  struct
    type nonrec t = string[@@ocaml.doc "Token used for pagination."]
    let context_ = "Token"
    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:".+")));
        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:"Token" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Token used for pagination."]
module MaxResults =
  struct
    type nonrec t = int[@@ocaml.doc "Max results used for pagination."]
    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 MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Max results used for pagination."]
module InvalidPolicyException =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the FileSystemPolicy is malformed or contains an error such as a parameter value that is not valid or a missing required parameter. Returned in the case of a policy lockout safety check error."]
module PolicyNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if no backup is specified for a One Zone EFS file system."]
module Marker =
  struct
    type nonrec t = string
    let context_ = "Marker"
    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:".+")));
        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 MaxItems =
  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 MaxItems" 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 ReplicationConfigurationDescriptions =
  struct
    type nonrec t = ReplicationConfigurationDescription.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:ReplicationConfigurationDescription.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:ReplicationConfigurationDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplicationConfigurationDescriptions"
        ~of_json:ReplicationConfigurationDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module MountTargetDescriptions =
  struct
    type nonrec t = MountTargetDescription.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:MountTargetDescription.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:MountTargetDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"MountTargetDescriptions"
        ~of_json:MountTargetDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module MountTargetNotFound =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if there is no mount target with the specified ID found in the caller's Amazon Web Services account."]
module IncorrectMountTargetState =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returned if the mount target is not in the correct state for the operation."]
module FileSystemDescriptions =
  struct
    type nonrec t = FileSystemDescription.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:FileSystemDescription.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:FileSystemDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"FileSystemDescriptions"
        ~of_json:FileSystemDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessPointDescriptions =
  struct
    type nonrec t = AccessPointDescription.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:AccessPointDescription.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:AccessPointDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"AccessPointDescriptions"
        ~of_json:AccessPointDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeletionMode =
  struct
    type nonrec t =
      | ALL_CONFIGURATIONS 
      | LOCAL_CONFIGURATION_ONLY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL_CONFIGURATIONS -> "ALL_CONFIGURATIONS"
      | LOCAL_CONFIGURATION_ONLY -> "LOCAL_CONFIGURATION_ONLY"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL_CONFIGURATIONS" -> ALL_CONFIGURATIONS
      | "LOCAL_CONFIGURATION_ONLY" -> LOCAL_CONFIGURATION_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 DeletionMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DeletionMode" j)
    let to_json = simple_to_json to_value
  end
module DestinationsToCreate =
  struct
    type nonrec t = DestinationToCreate.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:DestinationToCreate.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:DestinationToCreate.of_xml)
    let of_json j =
      list_of_json ~kind:"DestinationsToCreate"
        ~of_json:DestinationToCreate.of_json j
    let to_json v = composed_to_json to_value v
  end
module IpAddressType =
  struct
    type nonrec t =
      | IPV4_ONLY 
      | IPV6_ONLY 
      | DUAL_STACK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IPV4_ONLY -> "IPV4_ONLY"
      | IPV6_ONLY -> "IPV6_ONLY"
      | DUAL_STACK -> "DUAL_STACK"
      | Non_static_id s -> s
    let of_string =
      function
      | "IPV4_ONLY" -> IPV4_ONLY
      | "IPV6_ONLY" -> IPV6_ONLY
      | "DUAL_STACK" -> DUAL_STACK
      | 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 IpAddressType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IpAddressType" j)
    let to_json = simple_to_json to_value
  end
module Backup =
  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 UpdateFileSystemRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc "The ID of the file system that you want to update."];
      throughputMode: ThroughputMode.t option
        [@ocaml.doc
          "(Optional) Updates the file system's throughput mode. If you're not updating your throughput mode, you don't need to provide this value in your request. If you are changing the ThroughputMode to provisioned, you must also set a value for ProvisionedThroughputInMibps."];
      provisionedThroughputInMibps: ProvisionedThroughputInMibps.t option
        [@ocaml.doc
          "(Optional) The throughput, measured in mebibytes per second (MiBps), that you want to provision for a file system that you're creating. Required if ThroughputMode is set to provisioned. Valid values are 1-3414 MiBps, with the upper limit depending on Region. To increase this limit, contact Amazon Web ServicesSupport. For more information, see Amazon EFS quotas that you can increase in the Amazon EFS User Guide."]}
    let context_ = "UpdateFileSystemRequest"
    let make ?throughputMode =
      fun ?provisionedThroughputInMibps ->
        fun ~fileSystemId ->
          fun () ->
            { throughputMode; provisionedThroughputInMibps; fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("ThroughputMode",
          (Option.map x.throughputMode ~f:ThroughputMode.to_value));
        ("ProvisionedThroughputInMibps",
          (Option.map x.provisionedThroughputInMibps
             ~f:ProvisionedThroughputInMibps.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let provisionedThroughputInMibps =
        (Option.map ~f:ProvisionedThroughputInMibps.of_xml)
          (Xml.child xml_arg0 "ProvisionedThroughputInMibps") in
      let throughputMode =
        (Option.map ~f:ThroughputMode.of_xml)
          (Xml.child xml_arg0 "ThroughputMode") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ?provisionedThroughputInMibps ?throughputMode ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let provisionedThroughputInMibps =
        field_map json__ "ProvisionedThroughputInMibps"
          ProvisionedThroughputInMibps.of_json in
      let throughputMode =
        field_map json__ "ThroughputMode" ThroughputMode.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ?provisionedThroughputInMibps ?throughputMode ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the throughput mode or the amount of provisioned throughput of an existing file system."]
module UpdateFileSystemProtectionRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc "The ID of the file system to update."];
      replicationOverwriteProtection: ReplicationOverwriteProtection.t option
        [@ocaml.doc
          "The status of the file system's replication overwrite protection. ENABLED \226\128\147 The file system cannot be used as the destination file system in a replication configuration. The file system is writeable. Replication overwrite protection is ENABLED by default. DISABLED \226\128\147 The file system can be used as the destination file system in a replication configuration. The file system is read-only and can only be modified by EFS replication. REPLICATING \226\128\147 The file system is being used as the destination file system in a replication configuration. The file system is read-only and is only modified only by EFS replication. If the replication configuration is deleted, the file system's replication overwrite protection is re-enabled and the file system becomes writeable."]}
    let context_ = "UpdateFileSystemProtectionRequest"
    let make ?replicationOverwriteProtection =
      fun ~fileSystemId ->
        fun () -> { replicationOverwriteProtection; fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("ReplicationOverwriteProtection",
          (Option.map x.replicationOverwriteProtection
             ~f:ReplicationOverwriteProtection.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let replicationOverwriteProtection =
        (Option.map ~f:ReplicationOverwriteProtection.of_xml)
          (Xml.child xml_arg0 "ReplicationOverwriteProtection") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ?replicationOverwriteProtection ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let replicationOverwriteProtection =
        field_map json__ "ReplicationOverwriteProtection"
          ReplicationOverwriteProtection.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ?replicationOverwriteProtection ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates protection on the file system. This operation requires permissions for the elasticfilesystem:UpdateFileSystemProtection action."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "Specifies the EFS resource that you want to remove tags from."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "The keys of the key-value tag pairs that you want to remove from the specified EFS resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceId = fun ~tagKeys -> fun () -> { resourceId; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("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 resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~tagKeys ~resourceId ()
    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 resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~tagKeys ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from an EFS resource. You can remove tags from EFS file systems and access points using this API operation. This operation requires permissions for the elasticfilesystem:UntagResource action."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "The ID specifying the EFS resource that you want to create a tag for."];
      tags: Tags.t
        [@ocaml.doc
          "An array of Tag objects to add. Each Tag object is a key-value pair."]}
    let context_ = "TagResourceRequest"
    let make ~resourceId = fun ~tags -> fun () -> { resourceId; tags }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("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 resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ~tags ~resourceId ()
    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 resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ~tags ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a tag for an EFS resource. You can create tags for EFS file systems and access points using this API operation. This operation requires permissions for the elasticfilesystem:TagResource action."]
module PutLifecycleConfigurationRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the file system for which you are creating the LifecycleConfiguration object (String)."];
      lifecyclePolicies: LifecyclePolicies.t
        [@ocaml.doc
          "An array of LifecyclePolicy objects that define the file system's LifecycleConfiguration object. A LifecycleConfiguration object informs lifecycle management of the following: TransitionToIA \226\128\147 When to move files in the file system from primary storage (Standard storage class) into the Infrequent Access (IA) storage. TransitionToArchive \226\128\147 When to move files in the file system from their current storage class (either IA or Standard storage) into the Archive storage. File systems cannot transition into Archive storage before transitioning into IA storage. Therefore, TransitionToArchive must either not be set or must be later than TransitionToIA. The Archive storage class is available only for file systems that use the Elastic throughput mode and the General Purpose performance mode. TransitionToPrimaryStorageClass \226\128\147 Whether to move files in the file system back to primary storage (Standard storage class) after they are accessed in IA or Archive storage. When using the put-lifecycle-configuration CLI command or the PutLifecycleConfiguration API action, Amazon EFS requires that each LifecyclePolicy object have only a single transition. This means that in a request body, LifecyclePolicies must be structured as an array of LifecyclePolicy objects, one object for each storage transition. See the example requests in the following section for more information."]}
    let context_ = "PutLifecycleConfigurationRequest"
    let make ~fileSystemId =
      fun ~lifecyclePolicies -> fun () -> { fileSystemId; lifecyclePolicies }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("LifecyclePolicies",
          (Some (LifecyclePolicies.to_value x.lifecyclePolicies)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecyclePolicies =
        LifecyclePolicies.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LifecyclePolicies") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~lifecyclePolicies ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecyclePolicies =
        field_map_exn json__ "LifecyclePolicies" LifecyclePolicies.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~lifecyclePolicies ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this action to manage storage for your file system. A LifecycleConfiguration consists of one or more LifecyclePolicy objects that define the following: TransitionToIA \226\128\147 When to move files in the file system from primary storage (Standard storage class) into the Infrequent Access (IA) storage. TransitionToArchive \226\128\147 When to move files in the file system from their current storage class (either IA or Standard storage) into the Archive storage. File systems cannot transition into Archive storage before transitioning into IA storage. Therefore, TransitionToArchive must either not be set or must be later than TransitionToIA. The Archive storage class is available only for file systems that use the Elastic throughput mode and the General Purpose performance mode. TransitionToPrimaryStorageClass \226\128\147 Whether to move files in the file system back to primary storage (Standard storage class) after they are accessed in IA or Archive storage. For more information, see Managing file system storage. Each Amazon EFS file system supports one lifecycle configuration, which applies to all files in the file system. If a LifecycleConfiguration object already exists for the specified file system, a PutLifecycleConfiguration call modifies the existing configuration. A PutLifecycleConfiguration call with an empty LifecyclePolicies array in the request body deletes any existing LifecycleConfiguration. In the request, specify the following: The ID for the file system for which you are enabling, disabling, or modifying lifecycle management. A LifecyclePolicies array of LifecyclePolicy objects that define when to move files to IA storage, to Archive storage, and back to primary storage. Amazon EFS requires that each LifecyclePolicy object have only have a single transition, so the LifecyclePolicies array needs to be structured with separate LifecyclePolicy objects. See the example requests in the following section for more information. This operation requires permissions for the elasticfilesystem:PutLifecycleConfiguration operation. To apply a LifecycleConfiguration object to an encrypted file system, you need the same Key Management Service permissions as when you created the encrypted file system."]
module PutFileSystemPolicyRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the EFS file system that you want to create or update the FileSystemPolicy for."];
      policy: Policy.t
        [@ocaml.doc
          "The FileSystemPolicy that you're creating. Accepts a JSON formatted policy definition. EFS file system policies have a 20,000 character limit. To find out more about the elements that make up a file system policy, see Resource-based policies within Amazon EFS."];
      bypassPolicyLockoutSafetyCheck: BypassPolicyLockoutSafetyCheck.t option
        [@ocaml.doc
          "(Optional) A boolean that specifies whether or not to bypass the FileSystemPolicy lockout safety check. The lockout safety check determines whether the policy in the request will lock out, or prevent, the IAM principal that is making the request from making future PutFileSystemPolicy requests on this file system. Set BypassPolicyLockoutSafetyCheck to True only when you intend to prevent the IAM principal that is making the request from making subsequent PutFileSystemPolicy requests on this file system. The default value is False."]}
    let context_ = "PutFileSystemPolicyRequest"
    let make ?bypassPolicyLockoutSafetyCheck =
      fun ~fileSystemId ->
        fun ~policy ->
          fun () -> { bypassPolicyLockoutSafetyCheck; fileSystemId; policy }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("Policy", (Some (Policy.to_value x.policy)));
        ("BypassPolicyLockoutSafetyCheck",
          (Option.map x.bypassPolicyLockoutSafetyCheck
             ~f:BypassPolicyLockoutSafetyCheck.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let bypassPolicyLockoutSafetyCheck =
        (Option.map ~f:BypassPolicyLockoutSafetyCheck.of_xml)
          (Xml.child xml_arg0 "BypassPolicyLockoutSafetyCheck") in
      let policy =
        Policy.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Policy") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ?bypassPolicyLockoutSafetyCheck ~policy ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let bypassPolicyLockoutSafetyCheck =
        field_map json__ "BypassPolicyLockoutSafetyCheck"
          BypassPolicyLockoutSafetyCheck.of_json in
      let policy = field_map_exn json__ "Policy" Policy.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ?bypassPolicyLockoutSafetyCheck ~policy ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Applies an Amazon EFS FileSystemPolicy to an Amazon EFS file system. A file system policy is an IAM resource-based policy and can contain multiple policy statements. A file system always has exactly one file system policy, which can be the default policy or an explicit policy set or updated using this API operation. EFS file system policies have a 20,000 character limit. When an explicit policy is set, it overrides the default policy. For more information about the default file system policy, see Default EFS file system policy. EFS file system policies have a 20,000 character limit. This operation requires permissions for the elasticfilesystem:PutFileSystemPolicy action."]
module PutBackupPolicyRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "Specifies which EFS file system to update the backup policy for."];
      backupPolicy: BackupPolicy.t
        [@ocaml.doc
          "The backup policy included in the PutBackupPolicy request."]}
    let context_ = "PutBackupPolicyRequest"
    let make ~fileSystemId =
      fun ~backupPolicy -> fun () -> { fileSystemId; backupPolicy }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("BackupPolicy", (Some (BackupPolicy.to_value x.backupPolicy)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let backupPolicy =
        BackupPolicy.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BackupPolicy") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~backupPolicy ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let backupPolicy =
        field_map_exn json__ "BackupPolicy" BackupPolicy.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~backupPolicy ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the file system's backup policy. Use this action to start or stop automatic backups of the file system."]
module PutAccountPreferencesResponse =
  struct
    type nonrec t = {
      resourceIdPreference: ResourceIdPreference.t option }
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceIdPreference = fun () -> { resourceIdPreference }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("ResourceIdPreference",
           (Option.map x.resourceIdPreference
              ~f:ResourceIdPreference.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdPreference =
        (Option.map ~f:ResourceIdPreference.of_xml)
          (Xml.child xml_arg0 "ResourceIdPreference") in
      make ?resourceIdPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdPreference =
        field_map json__ "ResourceIdPreference" ResourceIdPreference.of_json in
      make ?resourceIdPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this operation to set the account preference in the current Amazon Web Services Region to use long 17 character (63 bit) or short 8 character (32 bit) resource IDs for new EFS file system and mount target resources. All existing resource IDs are not affected by any changes you make. You can set the ID preference during the opt-in period as EFS transitions to long resource IDs. For more information, see Managing Amazon EFS resource IDs. Starting in October, 2021, you will receive an error if you try to set the account preference to use the short 8 character format resource ID. Contact Amazon Web Services support if you receive an error and must use short IDs for file system and mount target resources."]
module PutAccountPreferencesRequest =
  struct
    type nonrec t =
      {
      resourceIdType: ResourceIdType.t
        [@ocaml.doc
          "Specifies the EFS resource ID preference to set for the user's Amazon Web Services account, in the current Amazon Web Services Region, either LONG_ID (17 characters), or SHORT_ID (8 characters). Starting in October, 2021, you will receive an error when setting the account preference to SHORT_ID. Contact Amazon Web Services support if you receive an error and must use short IDs for file system and mount target resources."]}
    let context_ = "PutAccountPreferencesRequest"
    let make ~resourceIdType = fun () -> { resourceIdType }
    let to_value x =
      structure_to_value
        [("ResourceIdType",
           (Some (ResourceIdType.to_value x.resourceIdType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceIdType =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceIdType") in
      make ~resourceIdType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceIdType =
        field_map_exn json__ "ResourceIdType" ResourceIdType.of_json in
      make ~resourceIdType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Use this operation to set the account preference in the current Amazon Web Services Region to use long 17 character (63 bit) or short 8 character (32 bit) resource IDs for new EFS file system and mount target resources. All existing resource IDs are not affected by any changes you make. You can set the ID preference during the opt-in period as EFS transitions to long resource IDs. For more information, see Managing Amazon EFS resource IDs. Starting in October, 2021, you will receive an error if you try to set the account preference to use the short 8 character format resource ID. Contact Amazon Web Services support if you receive an error and must use short IDs for file system and mount target resources."]
module ModifyMountTargetSecurityGroupsRequest =
  struct
    type nonrec t =
      {
      mountTargetId: MountTargetId.t
        [@ocaml.doc
          "The ID of the mount target whose security groups you want to modify."];
      securityGroups: SecurityGroups.t option
        [@ocaml.doc "An array of VPC security group IDs."]}
    let context_ = "ModifyMountTargetSecurityGroupsRequest"
    let make ?securityGroups =
      fun ~mountTargetId -> fun () -> { securityGroups; mountTargetId }
    let to_value x =
      structure_to_value
        [("MountTargetId", (Some (MountTargetId.to_value x.mountTargetId)));
        ("SecurityGroups",
          (Option.map x.securityGroups ~f:SecurityGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroups =
        (Option.map ~f:SecurityGroups.of_xml)
          (Xml.child xml_arg0 "SecurityGroups") in
      let mountTargetId =
        MountTargetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MountTargetId") in
      make ?securityGroups ~mountTargetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroups =
        field_map json__ "SecurityGroups" SecurityGroups.of_json in
      let mountTargetId =
        field_map_exn json__ "MountTargetId" MountTargetId.of_json in
      make ?securityGroups ~mountTargetId ()
    let to_json v = composed_to_json to_value v
  end
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc "An array of the tags for the specified EFS resource."];
      nextToken: Token.t option
        [@ocaml.doc
          "NextToken is present if the response payload is paginated. You can use NextToken in a subsequent request to fetch the next page of access point descriptions."]}
    type nonrec error =
      [ `AccessPointNotFound of AccessPointNotFound.t 
      | `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "AccessPointNotFound" ->
          `AccessPointNotFound (AccessPointNotFound.of_json json)
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessPointNotFound" ->
          `AccessPointNotFound (AccessPointNotFound.of_xml xml)
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessPointNotFound e ->
          `Assoc
            [("error", (`String "AccessPointNotFound"));
            ("details", (AccessPointNotFound.to_json e))]
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all tags for a top-level EFS resource. You must provide the ID of the resource that you want to retrieve the tags for. This operation requires permissions for the elasticfilesystem:DescribeAccessPoints action."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceId.t
        [@ocaml.doc
          "Specifies the EFS resource you want to retrieve tags for. You can retrieve tags for EFS file systems and access points using this API endpoint."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "(Optional) Specifies the maximum number of tag objects to return in the response. The default value is 100."];
      nextToken: Token.t option
        [@ocaml.doc
          "(Optional) You can use NextToken in a subsequent request to fetch the next page of access point descriptions if the response payload was paginated."]}
    let context_ = "ListTagsForResourceRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~resourceId -> fun () -> { maxResults; nextToken; resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceId.to_value x.resourceId)));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let resourceId =
        ResourceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?nextToken ?maxResults ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let resourceId = field_map_exn json__ "ResourceId" ResourceId.of_json in
      make ?nextToken ?maxResults ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all tags for a top-level EFS resource. You must provide the ID of the resource that you want to retrieve the tags for. This operation requires permissions for the elasticfilesystem:DescribeAccessPoints action."]
module LifecycleConfigurationDescription =
  struct
    type nonrec t =
      {
      lifecyclePolicies: LifecyclePolicies.t option
        [@ocaml.doc
          "An array of lifecycle management policies. EFS supports a maximum of one policy per file system."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?lifecyclePolicies = fun () -> { lifecyclePolicies }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("LifecyclePolicies",
           (Option.map x.lifecyclePolicies ~f:LifecyclePolicies.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lifecyclePolicies =
        (Option.map ~f:LifecyclePolicies.of_xml)
          (Xml.child xml_arg0 "LifecyclePolicies") in
      make ?lifecyclePolicies ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lifecyclePolicies =
        field_map json__ "LifecyclePolicies" LifecyclePolicies.of_json in
      make ?lifecyclePolicies ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the current LifecycleConfiguration object for the specified EFS file system. Lifecycle management uses the LifecycleConfiguration object to identify when to move files between storage classes. For a file system without a LifecycleConfiguration object, the call returns an empty array in the response. This operation requires permissions for the elasticfilesystem:DescribeLifecycleConfiguration operation."]
module FileSystemPolicyDescription =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "Specifies the EFS file system to which the FileSystemPolicy applies."];
      policy: Policy.t option
        [@ocaml.doc
          "The JSON formatted FileSystemPolicy for the EFS file system."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `PolicyNotFound of PolicyNotFound.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileSystemId =
      fun ?policy -> fun () -> { fileSystemId; policy }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "PolicyNotFound" -> `PolicyNotFound (PolicyNotFound.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "PolicyNotFound" -> `PolicyNotFound (PolicyNotFound.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `PolicyNotFound e ->
          `Assoc
            [("error", (`String "PolicyNotFound"));
            ("details", (PolicyNotFound.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
        [("FileSystemId",
           (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("Policy", (Option.map x.policy ~f:Policy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let policy =
        (Option.map ~f:Policy.of_xml) (Xml.child xml_arg0 "Policy") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      make ?policy ?fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let policy = field_map json__ "Policy" Policy.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      make ?policy ?fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the FileSystemPolicy for the specified EFS file system. This operation requires permissions for the elasticfilesystem:DescribeFileSystemPolicy action."]
module FileSystemInUse =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned if a file system has mount targets."]
module DescribeTagsResponse =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc
          "If the request included a Marker, the response returns that value in this field."];
      tags: Tags.t option
        [@ocaml.doc
          "Returns tags associated with the file system as an array of Tag objects."];
      nextMarker: Marker.t option
        [@ocaml.doc
          "If a value is present, there are more tags to return. In a subsequent request, you can provide the value of NextMarker as the value of the Marker parameter in your next request to retrieve the next set of tags."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?marker =
      fun ?tags -> fun ?nextMarker -> fun () -> { marker; tags; nextMarker }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("NextMarker", (Option.map x.nextMarker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextMarker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "NextMarker") in
      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
      make ?nextMarker ?tags ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextMarker = field_map json__ "NextMarker" Marker.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?nextMarker ?tags ?marker ()
    let to_json v = composed_to_json to_value v
  end
module DescribeTagsRequest =
  struct
    type nonrec t =
      {
      maxItems: MaxItems.t option
        [@ocaml.doc
          "(Optional) The maximum number of file system tags to return in the response. Currently, this number is automatically set to 100, and other values are ignored. The response is paginated at 100 per page if you have more than 100 tags."];
      marker: Marker.t option
        [@ocaml.doc
          "(Optional) An opaque pagination token returned from a previous DescribeTags operation (String). If present, it specifies to continue the list from where the previous call left off."];
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the file system whose tag set you want to retrieve."]}
    let context_ = "DescribeTagsRequest"
    let make ?maxItems =
      fun ?marker ->
        fun ~fileSystemId -> fun () -> { maxItems; marker; fileSystemId }
    let to_value x =
      structure_to_value
        [("MaxItems", (Option.map x.maxItems ~f:MaxItems.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let maxItems =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "MaxItems") in
      make ~fileSystemId ?marker ?maxItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let maxItems = field_map json__ "MaxItems" MaxItems.of_json in
      make ~fileSystemId ?marker ?maxItems ()
    let to_json v = composed_to_json to_value v
  end
module DescribeReplicationConfigurationsResponse =
  struct
    type nonrec t =
      {
      replications: ReplicationConfigurationDescriptions.t option
        [@ocaml.doc
          "The collection of replication configurations that is returned."];
      nextToken: Token.t option
        [@ocaml.doc
          "You can use the NextToken from the previous response in a subsequent request to fetch the additional descriptions."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `ReplicationNotFound of ReplicationNotFound.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?replications =
      fun ?nextToken -> fun () -> { replications; nextToken }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "ReplicationNotFound" ->
          `ReplicationNotFound (ReplicationNotFound.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "ReplicationNotFound" ->
          `ReplicationNotFound (ReplicationNotFound.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `ReplicationNotFound e ->
          `Assoc
            [("error", (`String "ReplicationNotFound"));
            ("details", (ReplicationNotFound.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("Replications",
           (Option.map x.replications
              ~f:ReplicationConfigurationDescriptions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let replications =
        (Option.map ~f:ReplicationConfigurationDescriptions.of_xml)
          (Xml.child xml_arg0 "Replications") in
      make ?nextToken ?replications ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let replications =
        field_map json__ "Replications"
          ReplicationConfigurationDescriptions.of_json in
      make ?nextToken ?replications ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication configuration for a specific file system. If a file system is not specified, all of the replication configurations for the Amazon Web Services account in an Amazon Web Services Region are retrieved."]
module DescribeReplicationConfigurationsRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "You can retrieve the replication configuration for a specific file system by providing its file system ID. For cross-account,cross-region replication, an account can only describe the replication configuration for a file system in its own Region."];
      nextToken: Token.t option
        [@ocaml.doc
          "NextToken is present if the response is paginated. You can use NextToken in a subsequent request to fetch the next page of output."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "(Optional) To limit the number of objects returned in a response, you can specify the MaxItems parameter. The default value is 100."]}
    let make ?fileSystemId =
      fun ?nextToken ->
        fun ?maxResults -> fun () -> { fileSystemId; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("FileSystemId",
           (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      make ?maxResults ?nextToken ?fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      make ?maxResults ?nextToken ?fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the replication configuration for a specific file system. If a file system is not specified, all of the replication configurations for the Amazon Web Services account in an Amazon Web Services Region are retrieved."]
module DescribeMountTargetsResponse =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc
          "If the request included the Marker, the response returns that value in this field."];
      mountTargets: MountTargetDescriptions.t option
        [@ocaml.doc
          "Returns the file system's mount targets as an array of MountTargetDescription objects."];
      nextMarker: Marker.t option
        [@ocaml.doc
          "If a value is present, there are more mount targets to return. In a subsequent request, you can provide Marker in your request with this value to retrieve the next set of mount targets."]}
    type nonrec error =
      [ `AccessPointNotFound of AccessPointNotFound.t 
      | `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `MountTargetNotFound of MountTargetNotFound.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?marker =
      fun ?mountTargets ->
        fun ?nextMarker -> fun () -> { marker; mountTargets; nextMarker }
    let error_of_json name json =
      match name with
      | "AccessPointNotFound" ->
          `AccessPointNotFound (AccessPointNotFound.of_json json)
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "MountTargetNotFound" ->
          `MountTargetNotFound (MountTargetNotFound.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessPointNotFound" ->
          `AccessPointNotFound (AccessPointNotFound.of_xml xml)
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "MountTargetNotFound" ->
          `MountTargetNotFound (MountTargetNotFound.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessPointNotFound e ->
          `Assoc
            [("error", (`String "AccessPointNotFound"));
            ("details", (AccessPointNotFound.to_json e))]
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `MountTargetNotFound e ->
          `Assoc
            [("error", (`String "MountTargetNotFound"));
            ("details", (MountTargetNotFound.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));
        ("MountTargets",
          (Option.map x.mountTargets ~f:MountTargetDescriptions.to_value));
        ("NextMarker", (Option.map x.nextMarker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextMarker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "NextMarker") in
      let mountTargets =
        (Option.map ~f:MountTargetDescriptions.of_xml)
          (Xml.child xml_arg0 "MountTargets") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?nextMarker ?mountTargets ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextMarker = field_map json__ "NextMarker" Marker.of_json in
      let mountTargets =
        field_map json__ "MountTargets" MountTargetDescriptions.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?nextMarker ?mountTargets ?marker ()
    let to_json v = composed_to_json to_value v
  end
module DescribeMountTargetsRequest =
  struct
    type nonrec t =
      {
      maxItems: MaxItems.t option
        [@ocaml.doc
          "(Optional) Maximum number of mount targets to return in the response. Currently, this number is automatically set to 10, and other values are ignored. The response is paginated at 100 per page if you have more than 100 mount targets."];
      marker: Marker.t option
        [@ocaml.doc
          "(Optional) Opaque pagination token returned from a previous DescribeMountTargets operation (String). If present, it specifies to continue the list from where the previous returning call left off."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "(Optional) ID of the file system whose mount targets you want to list (String). It must be included in your request if an AccessPointId or MountTargetId is not included. Accepts either a file system ID or ARN as input."];
      mountTargetId: MountTargetId.t option
        [@ocaml.doc
          "(Optional) ID of the mount target that you want to have described (String). It must be included in your request if FileSystemId is not included. Accepts either a mount target ID or ARN as input."];
      accessPointId: AccessPointId.t option
        [@ocaml.doc
          "(Optional) The ID of the access point whose mount targets that you want to list. It must be included in your request if a FileSystemId or MountTargetId is not included in your request. Accepts either an access point ID or ARN as input."]}
    let make ?maxItems =
      fun ?marker ->
        fun ?fileSystemId ->
          fun ?mountTargetId ->
            fun ?accessPointId ->
              fun () ->
                {
                  maxItems;
                  marker;
                  fileSystemId;
                  mountTargetId;
                  accessPointId
                }
    let to_value x =
      structure_to_value
        [("MaxItems", (Option.map x.maxItems ~f:MaxItems.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value));
        ("MountTargetId",
          (Option.map x.mountTargetId ~f:MountTargetId.to_value));
        ("AccessPointId",
          (Option.map x.accessPointId ~f:AccessPointId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPointId =
        (Option.map ~f:AccessPointId.of_xml)
          (Xml.child xml_arg0 "AccessPointId") in
      let mountTargetId =
        (Option.map ~f:MountTargetId.of_xml)
          (Xml.child xml_arg0 "MountTargetId") in
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let maxItems =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "MaxItems") in
      make ?accessPointId ?mountTargetId ?fileSystemId ?marker ?maxItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPointId =
        field_map json__ "AccessPointId" AccessPointId.of_json in
      let mountTargetId =
        field_map json__ "MountTargetId" MountTargetId.of_json in
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let maxItems = field_map json__ "MaxItems" MaxItems.of_json in
      make ?accessPointId ?mountTargetId ?fileSystemId ?marker ?maxItems ()
    let to_json v = composed_to_json to_value v
  end
module DescribeMountTargetSecurityGroupsResponse =
  struct
    type nonrec t =
      {
      securityGroups: SecurityGroups.t option
        [@ocaml.doc "An array of security groups."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `IncorrectMountTargetState of IncorrectMountTargetState.t 
      | `InternalServerError of InternalServerError.t 
      | `MountTargetNotFound of MountTargetNotFound.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?securityGroups = fun () -> { securityGroups }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "IncorrectMountTargetState" ->
          `IncorrectMountTargetState (IncorrectMountTargetState.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "MountTargetNotFound" ->
          `MountTargetNotFound (MountTargetNotFound.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "IncorrectMountTargetState" ->
          `IncorrectMountTargetState (IncorrectMountTargetState.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "MountTargetNotFound" ->
          `MountTargetNotFound (MountTargetNotFound.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `IncorrectMountTargetState e ->
          `Assoc
            [("error", (`String "IncorrectMountTargetState"));
            ("details", (IncorrectMountTargetState.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `MountTargetNotFound e ->
          `Assoc
            [("error", (`String "MountTargetNotFound"));
            ("details", (MountTargetNotFound.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
        [("SecurityGroups",
           (Option.map x.securityGroups ~f:SecurityGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroups =
        (Option.map ~f:SecurityGroups.of_xml)
          (Xml.child xml_arg0 "SecurityGroups") in
      make ?securityGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroups =
        field_map json__ "SecurityGroups" SecurityGroups.of_json in
      make ?securityGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the security groups currently in effect for a mount target. This operation requires that the network interface of the mount target has been created and the lifecycle state of the mount target is not deleted. This operation requires permissions for the following actions: elasticfilesystem:DescribeMountTargetSecurityGroups action on the mount target's file system. ec2:DescribeNetworkInterfaceAttribute action on the mount target's network interface."]
module DescribeMountTargetSecurityGroupsRequest =
  struct
    type nonrec t =
      {
      mountTargetId: MountTargetId.t
        [@ocaml.doc
          "The ID of the mount target whose security groups you want to retrieve."]}
    let context_ = "DescribeMountTargetSecurityGroupsRequest"
    let make ~mountTargetId = fun () -> { mountTargetId }
    let to_value x =
      structure_to_value
        [("MountTargetId", (Some (MountTargetId.to_value x.mountTargetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mountTargetId =
        MountTargetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MountTargetId") in
      make ~mountTargetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mountTargetId =
        field_map_exn json__ "MountTargetId" MountTargetId.of_json in
      make ~mountTargetId ()
    let to_json v = composed_to_json to_value v
  end
module DescribeLifecycleConfigurationRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the file system whose LifecycleConfiguration object you want to retrieve (String)."]}
    let context_ = "DescribeLifecycleConfigurationRequest"
    let make ~fileSystemId = fun () -> { fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the current LifecycleConfiguration object for the specified EFS file system. Lifecycle management uses the LifecycleConfiguration object to identify when to move files between storage classes. For a file system without a LifecycleConfiguration object, the call returns an empty array in the response. This operation requires permissions for the elasticfilesystem:DescribeLifecycleConfiguration operation."]
module DescribeFileSystemsResponse =
  struct
    type nonrec t =
      {
      marker: Marker.t option
        [@ocaml.doc "Present if provided by caller in the request (String)."];
      fileSystems: FileSystemDescriptions.t option
        [@ocaml.doc "An array of file system descriptions."];
      nextMarker: Marker.t option
        [@ocaml.doc
          "Present if there are more file systems than returned in the response (String). You can use the NextMarker in the subsequent request to fetch the descriptions."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?marker =
      fun ?fileSystems ->
        fun ?nextMarker -> fun () -> { marker; fileSystems; nextMarker }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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));
        ("FileSystems",
          (Option.map x.fileSystems ~f:FileSystemDescriptions.to_value));
        ("NextMarker", (Option.map x.nextMarker ~f:Marker.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextMarker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "NextMarker") in
      let fileSystems =
        (Option.map ~f:FileSystemDescriptions.of_xml)
          (Xml.child xml_arg0 "FileSystems") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      make ?nextMarker ?fileSystems ?marker ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextMarker = field_map json__ "NextMarker" Marker.of_json in
      let fileSystems =
        field_map json__ "FileSystems" FileSystemDescriptions.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      make ?nextMarker ?fileSystems ?marker ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of a specific Amazon EFS file system if either the file system CreationToken or the FileSystemId is provided. Otherwise, it returns descriptions of all file systems owned by the caller's Amazon Web Services account in the Amazon Web Services Region of the endpoint that you're calling. When retrieving all file system descriptions, you can optionally specify the MaxItems parameter to limit the number of descriptions in a response. This number is automatically set to 100. If more file system descriptions remain, Amazon EFS returns a NextMarker, an opaque token, in the response. In this case, you should send a subsequent request with the Marker request parameter set to the value of NextMarker. To retrieve a list of your file system descriptions, this operation is used in an iterative process, where DescribeFileSystems is called first without the Marker and then the operation continues to call it with the Marker parameter set to the value of the NextMarker from the previous response until the response has no NextMarker. The order of file systems returned in the response of one DescribeFileSystems call and the order of file systems returned across the responses of a multi-call iteration is unspecified. This operation requires permissions for the elasticfilesystem:DescribeFileSystems action."]
module DescribeFileSystemsRequest =
  struct
    type nonrec t =
      {
      maxItems: MaxItems.t option
        [@ocaml.doc
          "(Optional) Specifies the maximum number of file systems to return in the response (integer). This number is automatically set to 100. The response is paginated at 100 per page if you have more than 100 file systems."];
      marker: Marker.t option
        [@ocaml.doc
          "(Optional) Opaque pagination token returned from a previous DescribeFileSystems operation (String). If present, specifies to continue the list from where the returning call had left off."];
      creationToken: CreationToken.t option
        [@ocaml.doc
          "(Optional) Restricts the list to the file system with this creation token (String). You specify a creation token when you create an Amazon EFS file system."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "(Optional) ID of the file system whose description you want to retrieve (String)."]}
    let make ?maxItems =
      fun ?marker ->
        fun ?creationToken ->
          fun ?fileSystemId ->
            fun () -> { maxItems; marker; creationToken; fileSystemId }
    let to_value x =
      structure_to_value
        [("MaxItems", (Option.map x.maxItems ~f:MaxItems.to_value));
        ("Marker", (Option.map x.marker ~f:Marker.to_value));
        ("CreationToken",
          (Option.map x.creationToken ~f:CreationToken.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let creationToken =
        (Option.map ~f:CreationToken.of_xml)
          (Xml.child xml_arg0 "CreationToken") in
      let marker =
        (Option.map ~f:Marker.of_xml) (Xml.child xml_arg0 "Marker") in
      let maxItems =
        (Option.map ~f:MaxItems.of_xml) (Xml.child xml_arg0 "MaxItems") in
      make ?fileSystemId ?creationToken ?marker ?maxItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let creationToken =
        field_map json__ "CreationToken" CreationToken.of_json in
      let marker = field_map json__ "Marker" Marker.of_json in
      let maxItems = field_map json__ "MaxItems" MaxItems.of_json in
      make ?fileSystemId ?creationToken ?marker ?maxItems ()
    let to_json v = composed_to_json to_value v
  end
module DescribeFileSystemPolicyRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "Specifies which EFS file system to retrieve the FileSystemPolicy for."]}
    let context_ = "DescribeFileSystemPolicyRequest"
    let make ~fileSystemId = fun () -> { fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the FileSystemPolicy for the specified EFS file system. This operation requires permissions for the elasticfilesystem:DescribeFileSystemPolicy action."]
module DescribeBackupPolicyRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "Specifies which EFS file system for which to retrieve the BackupPolicy."]}
    let context_ = "DescribeBackupPolicyRequest"
    let make ~fileSystemId = fun () -> { fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the backup policy for the specified EFS file system."]
module DescribeAccountPreferencesResponse =
  struct
    type nonrec t =
      {
      resourceIdPreference: ResourceIdPreference.t option
        [@ocaml.doc
          "Describes the resource ID preference setting for the Amazon Web Services account associated with the user making the request, in the current Amazon Web Services Region."];
      nextToken: Token.t option
        [@ocaml.doc
          "Present if there are more records than returned in the response. You can use the NextToken in the subsequent request to fetch the additional descriptions."]}
    type nonrec error =
      [ `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceIdPreference =
      fun ?nextToken -> fun () -> { resourceIdPreference; nextToken }
    let error_of_json name json =
      match name with
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.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)
      | 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))]
      | `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
        [("ResourceIdPreference",
           (Option.map x.resourceIdPreference
              ~f:ResourceIdPreference.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let resourceIdPreference =
        (Option.map ~f:ResourceIdPreference.of_xml)
          (Xml.child xml_arg0 "ResourceIdPreference") in
      make ?nextToken ?resourceIdPreference ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let resourceIdPreference =
        field_map json__ "ResourceIdPreference" ResourceIdPreference.of_json in
      make ?nextToken ?resourceIdPreference ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the account preferences settings for the Amazon Web Services account associated with the user making the request, in the current Amazon Web Services Region."]
module DescribeAccountPreferencesRequest =
  struct
    type nonrec t =
      {
      nextToken: Token.t option
        [@ocaml.doc
          "(Optional) You can use NextToken in a subsequent request to fetch the next page of Amazon Web Services account preferences if the response payload was paginated."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "(Optional) When retrieving account preferences, you can optionally specify the MaxItems parameter to limit the number of objects returned in a response. The default value is 100."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the account preferences settings for the Amazon Web Services account associated with the user making the request, in the current Amazon Web Services Region."]
module DescribeAccessPointsResponse =
  struct
    type nonrec t =
      {
      accessPoints: AccessPointDescriptions.t option
        [@ocaml.doc "An array of access point descriptions."];
      nextToken: Token.t option
        [@ocaml.doc
          "Present if there are more access points than returned in the response. You can use the NextMarker in the subsequent request to fetch the additional descriptions."]}
    type nonrec error =
      [ `AccessPointNotFound of AccessPointNotFound.t 
      | `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?accessPoints =
      fun ?nextToken -> fun () -> { accessPoints; nextToken }
    let error_of_json name json =
      match name with
      | "AccessPointNotFound" ->
          `AccessPointNotFound (AccessPointNotFound.of_json json)
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessPointNotFound" ->
          `AccessPointNotFound (AccessPointNotFound.of_xml xml)
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessPointNotFound e ->
          `Assoc
            [("error", (`String "AccessPointNotFound"));
            ("details", (AccessPointNotFound.to_json e))]
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.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
        [("AccessPoints",
           (Option.map x.accessPoints ~f:AccessPointDescriptions.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let accessPoints =
        (Option.map ~f:AccessPointDescriptions.of_xml)
          (Xml.child xml_arg0 "AccessPoints") in
      make ?nextToken ?accessPoints ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let accessPoints =
        field_map json__ "AccessPoints" AccessPointDescriptions.of_json in
      make ?nextToken ?accessPoints ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of a specific Amazon EFS access point if the AccessPointId is provided. If you provide an EFS FileSystemId, it returns descriptions of all access points for that file system. You can provide either an AccessPointId or a FileSystemId in the request, but not both. This operation requires permissions for the elasticfilesystem:DescribeAccessPoints action."]
module DescribeAccessPointsRequest =
  struct
    type nonrec t =
      {
      maxResults: MaxResults.t option
        [@ocaml.doc
          "(Optional) When retrieving all access points for a file system, you can optionally specify the MaxItems parameter to limit the number of objects returned in a response. The default value is 100."];
      nextToken: Token.t option
        [@ocaml.doc
          "NextToken is present if the response is paginated. You can use NextMarker in the subsequent request to fetch the next page of access point descriptions."];
      accessPointId: AccessPointId.t option
        [@ocaml.doc
          "(Optional) Specifies an EFS access point to describe in the response; mutually exclusive with FileSystemId."];
      fileSystemId: FileSystemId.t option
        [@ocaml.doc
          "(Optional) If you provide a FileSystemId, EFS returns all access points for that file system; mutually exclusive with AccessPointId."]}
    let make ?maxResults =
      fun ?nextToken ->
        fun ?accessPointId ->
          fun ?fileSystemId ->
            fun () -> { maxResults; nextToken; accessPointId; fileSystemId }
    let to_value x =
      structure_to_value
        [("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("NextToken", (Option.map x.nextToken ~f:Token.to_value));
        ("AccessPointId",
          (Option.map x.accessPointId ~f:AccessPointId.to_value));
        ("FileSystemId",
          (Option.map x.fileSystemId ~f:FileSystemId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        (Option.map ~f:FileSystemId.of_xml)
          (Xml.child xml_arg0 "FileSystemId") in
      let accessPointId =
        (Option.map ~f:AccessPointId.of_xml)
          (Xml.child xml_arg0 "AccessPointId") in
      let nextToken =
        (Option.map ~f:Token.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      make ?fileSystemId ?accessPointId ?nextToken ?maxResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId = field_map json__ "FileSystemId" FileSystemId.of_json in
      let accessPointId =
        field_map json__ "AccessPointId" AccessPointId.of_json in
      let nextToken = field_map json__ "NextToken" Token.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      make ?fileSystemId ?accessPointId ?nextToken ?maxResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the description of a specific Amazon EFS access point if the AccessPointId is provided. If you provide an EFS FileSystemId, it returns descriptions of all access points for that file system. You can provide either an AccessPointId or a FileSystemId in the request, but not both. This operation requires permissions for the elasticfilesystem:DescribeAccessPoints action."]
module DependencyTimeout =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option ;
      message: ErrorMessage.t option }
    let make ?errorCode = fun ?message -> fun () -> { errorCode; message }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("Message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?message ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?message ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The service timed out trying to fulfill the request, and the client should try the call again."]
module DeleteTagsRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the file system whose tags you want to delete (String)."];
      tagKeys: TagKeys.t [@ocaml.doc "A list of tag keys to delete."]}
    let context_ = "DeleteTagsRequest"
    let make ~fileSystemId =
      fun ~tagKeys -> fun () -> { fileSystemId; tagKeys }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("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 fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~tagKeys ~fileSystemId ()
    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 fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~tagKeys ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end
module DeleteReplicationConfigurationRequest =
  struct
    type nonrec t =
      {
      sourceFileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the source file system in the replication configuration."];
      deletionMode: DeletionMode.t option
        [@ocaml.doc
          "When replicating across Amazon Web Services accounts or across Amazon Web Services Regions, Amazon EFS deletes the replication configuration from both the source and destination account or Region (ALL_CONFIGURATIONS) by default. If there's a configuration or permissions issue that prevents Amazon EFS from deleting the replication configuration from both sides, you can use the LOCAL_CONFIGURATION_ONLY mode to delete the replication configuration from only the local side (the account or Region from which the delete is performed). Only use the LOCAL_CONFIGURATION_ONLY mode in the case that Amazon EFS is unable to delete the replication configuration in both the source and destination account or Region. Deleting the local configuration leaves the configuration in the other account or Region unrecoverable. Additionally, do not use this mode for same-account, same-region replication as doing so results in a BadRequest exception error."]}
    let context_ = "DeleteReplicationConfigurationRequest"
    let make ?deletionMode =
      fun ~sourceFileSystemId ->
        fun () -> { deletionMode; sourceFileSystemId }
    let to_value x =
      structure_to_value
        [("SourceFileSystemId",
           (Some (FileSystemId.to_value x.sourceFileSystemId)));
        ("deletionMode",
          (Option.map x.deletionMode ~f:DeletionMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletionMode =
        (Option.map ~f:DeletionMode.of_xml)
          (Xml.child xml_arg0 "deletionMode") in
      let sourceFileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceFileSystemId") in
      make ?deletionMode ~sourceFileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletionMode = field_map json__ "DeletionMode" DeletionMode.of_json in
      let sourceFileSystemId =
        field_map_exn json__ "SourceFileSystemId" FileSystemId.of_json in
      make ?deletionMode ~sourceFileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a replication configuration. Deleting a replication configuration ends the replication process. After a replication configuration is deleted, the destination file system becomes Writeable and its replication overwrite protection is re-enabled. For more information, see Delete a replication configuration. This operation requires permissions for the elasticfilesystem:DeleteReplicationConfiguration action."]
module DeleteMountTargetRequest =
  struct
    type nonrec t =
      {
      mountTargetId: MountTargetId.t
        [@ocaml.doc "The ID of the mount target to delete (String)."]}
    let context_ = "DeleteMountTargetRequest"
    let make ~mountTargetId = fun () -> { mountTargetId }
    let to_value x =
      structure_to_value
        [("MountTargetId", (Some (MountTargetId.to_value x.mountTargetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mountTargetId =
        MountTargetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "MountTargetId") in
      make ~mountTargetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mountTargetId =
        field_map_exn json__ "MountTargetId" MountTargetId.of_json in
      make ~mountTargetId ()
    let to_json v = composed_to_json to_value v
  end
module DeleteFileSystemRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc "The ID of the file system you want to delete."]}
    let context_ = "DeleteFileSystemRequest"
    let make ~fileSystemId = fun () -> { fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end
module DeleteFileSystemPolicyRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "Specifies the EFS file system for which to delete the FileSystemPolicy."]}
    let context_ = "DeleteFileSystemPolicyRequest"
    let make ~fileSystemId = fun () -> { fileSystemId }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the FileSystemPolicy for the specified file system. The default FileSystemPolicy goes into effect once the existing policy is deleted. For more information about the default file system policy, see Using Resource-based Policies with EFS. This operation requires permissions for the elasticfilesystem:DeleteFileSystemPolicy action."]
module DeleteAccessPointRequest =
  struct
    type nonrec t =
      {
      accessPointId: AccessPointId.t
        [@ocaml.doc "The ID of the access point that you want to delete."]}
    let context_ = "DeleteAccessPointRequest"
    let make ~accessPointId = fun () -> { accessPointId }
    let to_value x =
      structure_to_value
        [("AccessPointId", (Some (AccessPointId.to_value x.accessPointId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let accessPointId =
        AccessPointId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AccessPointId") in
      make ~accessPointId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let accessPointId =
        field_map_exn json__ "AccessPointId" AccessPointId.of_json in
      make ~accessPointId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified access point. After deletion is complete, new clients can no longer connect to the access points. Clients connected to the access point at the time of deletion will continue to function until they terminate their connection. This operation requires permissions for the elasticfilesystem:DeleteAccessPoint action."]
module CreateTagsRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the file system whose tags you want to modify (String). This operation modifies the tags only, not the file system."];
      tags: Tags.t
        [@ocaml.doc
          "An array of Tag objects to add. Each Tag object is a key-value pair."]}
    let context_ = "CreateTagsRequest"
    let make ~fileSystemId = fun ~tags -> fun () -> { fileSystemId; tags }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("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 fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ~tags ~fileSystemId ()
    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 fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ~tags ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end
module CreateReplicationConfigurationRequest =
  struct
    type nonrec t =
      {
      sourceFileSystemId: FileSystemId.t
        [@ocaml.doc
          "Specifies the Amazon EFS file system that you want to replicate. This file system cannot already be a source or destination file system in another replication configuration."];
      destinations: DestinationsToCreate.t
        [@ocaml.doc
          "An array of destination configuration objects. Only one destination configuration object is supported."]}
    let context_ = "CreateReplicationConfigurationRequest"
    let make ~sourceFileSystemId =
      fun ~destinations -> fun () -> { sourceFileSystemId; destinations }
    let to_value x =
      structure_to_value
        [("SourceFileSystemId",
           (Some (FileSystemId.to_value x.sourceFileSystemId)));
        ("Destinations",
          (Some (DestinationsToCreate.to_value x.destinations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinations =
        DestinationsToCreate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Destinations") in
      let sourceFileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SourceFileSystemId") in
      make ~destinations ~sourceFileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinations =
        field_map_exn json__ "Destinations" DestinationsToCreate.of_json in
      let sourceFileSystemId =
        field_map_exn json__ "SourceFileSystemId" FileSystemId.of_json in
      make ~destinations ~sourceFileSystemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a replication con\239\172\129guration to either a new or existing EFS file system. For more information, see Amazon EFS replication in the Amazon EFS User Guide. The replication configuration specifies the following: Source file system \226\128\147 The EFS file system that you want to replicate. Destination file system \226\128\147 The destination file system to which the source file system is replicated. There can only be one destination file system in a replication configuration. A file system can be part of only one replication configuration. The destination parameters for the replication configuration depend on whether you are replicating to a new file system or to an existing file system, and if you are replicating across Amazon Web Services accounts. See DestinationToCreate for more information. This operation requires permissions for the elasticfilesystem:CreateReplicationConfiguration action. Additionally, other permissions are required depending on how you are replicating file systems. For more information, see Required permissions for replication in the Amazon EFS User Guide."]
module CreateMountTargetRequest =
  struct
    type nonrec t =
      {
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the file system for which to create the mount target."];
      subnetId: SubnetId.t
        [@ocaml.doc
          "The ID of the subnet to add the mount target in. For One Zone file systems, use the subnet that is associated with the file system's Availability Zone."];
      ipAddress: IpAddress.t option
        [@ocaml.doc
          "If the IP address type for the mount target is IPv4, then specify the IPv4 address within the address range of the specified subnet."];
      ipv6Address: Ipv6Address.t option
        [@ocaml.doc
          "If the IP address type for the mount target is IPv6, then specify the IPv6 address within the address range of the specified subnet."];
      ipAddressType: IpAddressType.t option
        [@ocaml.doc
          "Specify the type of IP address of the mount target you are creating. Options are IPv4, dual stack, or IPv6. If you don\226\128\153t specify an IpAddressType, then IPv4 is used. IPV4_ONLY \226\128\147 Create mount target with IPv4 only subnet or dual-stack subnet. DUAL_STACK \226\128\147 Create mount target with dual-stack subnet. IPV6_ONLY \226\128\147 Create mount target with IPv6 only subnet. Creating IPv6 mount target only ENI in dual-stack subnet is not supported."];
      securityGroups: SecurityGroups.t option
        [@ocaml.doc
          "VPC security group IDs, of the form sg-xxxxxxxx. These must be for the same VPC as the subnet specified. The maximum number of security groups depends on account quota. For more information, see Amazon VPC Quotas in the Amazon VPC User Guide (see the Security Groups table)."]}
    let context_ = "CreateMountTargetRequest"
    let make ?ipAddress =
      fun ?ipv6Address ->
        fun ?ipAddressType ->
          fun ?securityGroups ->
            fun ~fileSystemId ->
              fun ~subnetId ->
                fun () ->
                  {
                    ipAddress;
                    ipv6Address;
                    ipAddressType;
                    securityGroups;
                    fileSystemId;
                    subnetId
                  }
    let to_value x =
      structure_to_value
        [("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("SubnetId", (Some (SubnetId.to_value x.subnetId)));
        ("IpAddress", (Option.map x.ipAddress ~f:IpAddress.to_value));
        ("Ipv6Address", (Option.map x.ipv6Address ~f:Ipv6Address.to_value));
        ("IpAddressType",
          (Option.map x.ipAddressType ~f:IpAddressType.to_value));
        ("SecurityGroups",
          (Option.map x.securityGroups ~f:SecurityGroups.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let securityGroups =
        (Option.map ~f:SecurityGroups.of_xml)
          (Xml.child xml_arg0 "SecurityGroups") in
      let ipAddressType =
        (Option.map ~f:IpAddressType.of_xml)
          (Xml.child xml_arg0 "IpAddressType") in
      let ipv6Address =
        (Option.map ~f:Ipv6Address.of_xml) (Xml.child xml_arg0 "Ipv6Address") in
      let ipAddress =
        (Option.map ~f:IpAddress.of_xml) (Xml.child xml_arg0 "IpAddress") in
      let subnetId =
        SubnetId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SubnetId") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      make ?securityGroups ?ipAddressType ?ipv6Address ?ipAddress ~subnetId
        ~fileSystemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let securityGroups =
        field_map json__ "SecurityGroups" SecurityGroups.of_json in
      let ipAddressType =
        field_map json__ "IpAddressType" IpAddressType.of_json in
      let ipv6Address = field_map json__ "Ipv6Address" Ipv6Address.of_json in
      let ipAddress = field_map json__ "IpAddress" IpAddress.of_json in
      let subnetId = field_map_exn json__ "SubnetId" SubnetId.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      make ?securityGroups ?ipAddressType ?ipv6Address ?ipAddress ~subnetId
        ~fileSystemId ()
    let to_json v = composed_to_json to_value v
  end
module CreateFileSystemRequest =
  struct
    type nonrec t =
      {
      creationToken: CreationToken.t
        [@ocaml.doc
          "A string of up to 64 ASCII characters. Amazon EFS uses this to ensure idempotent creation."];
      performanceMode: PerformanceMode.t option
        [@ocaml.doc
          "The performance mode of the file system. We recommend generalPurpose performance mode for all file systems. File systems using the maxIO performance mode can scale to higher levels of aggregate throughput and operations per second with a tradeoff of slightly higher latencies for most file operations. The performance mode can't be changed after the file system has been created. The maxIO mode is not supported on One Zone file systems. Due to the higher per-operation latencies with Max I/O, we recommend using General Purpose performance mode for all file systems. Default is generalPurpose."];
      encrypted: Encrypted.t option
        [@ocaml.doc
          "A Boolean value that, if true, creates an encrypted file system. When creating an encrypted file system, you have the option of specifying an existing Key Management Service key (KMS key). If you don't specify a KMS key, then the default KMS key for Amazon EFS, /aws/elasticfilesystem, is used to protect the encrypted file system."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "The ID of the KMS key that you want to use to protect the encrypted file system. This parameter is required only if you want to use a non-default KMS key. If this parameter is not specified, the default KMS key for Amazon EFS is used. You can specify a KMS key ID using the following formats: Key ID - A unique identifier of the key, for example 1234abcd-12ab-34cd-56ef-1234567890ab. ARN - An Amazon Resource Name (ARN) for the key, for example arn:aws:kms:us-west-2:111122223333:key/1234abcd-12ab-34cd-56ef-1234567890ab. Key alias - A previously created display name for a key, for example alias/projectKey1. Key alias ARN - An ARN for a key alias, for example arn:aws:kms:us-west-2:444455556666:alias/projectKey1. If you use KmsKeyId, you must set the CreateFileSystemRequest$Encrypted parameter to true. EFS accepts only symmetric KMS keys. You cannot use asymmetric KMS keys with Amazon EFS file systems."];
      throughputMode: ThroughputMode.t option
        [@ocaml.doc
          "Specifies the throughput mode for the file system. The mode can be bursting, provisioned, or elastic. If you set ThroughputMode to provisioned, you must also set a value for ProvisionedThroughputInMibps. After you create the file system, you can decrease your file system's Provisioned throughput or change between the throughput modes, with certain time restrictions. For more information, see Specifying throughput with provisioned mode in the Amazon EFS User Guide. Default is bursting."];
      provisionedThroughputInMibps: ProvisionedThroughputInMibps.t option
        [@ocaml.doc
          "The throughput, measured in mebibytes per second (MiBps), that you want to provision for a file system that you're creating. Required if ThroughputMode is set to provisioned. Valid values are 1-3414 MiBps, with the upper limit depending on Region. To increase this limit, contact Amazon Web ServicesSupport. For more information, see Amazon EFS quotas that you can increase in the Amazon EFS User Guide."];
      availabilityZoneName: AvailabilityZoneName.t option
        [@ocaml.doc
          "For One Zone file systems, specify the Amazon Web Services Availability Zone in which to create the file system. Use the format us-east-1a to specify the Availability Zone. For more information about One Zone file systems, see EFS file system types in the Amazon EFS User Guide. One Zone file systems are not available in all Availability Zones in Amazon Web Services Regions where Amazon EFS is available."];
      backup: Backup.t option
        [@ocaml.doc
          "Specifies whether automatic backups are enabled on the file system that you are creating. Set the value to true to enable automatic backups. If you are creating a One Zone file system, automatic backups are enabled by default. For more information, see Automatic backups in the Amazon EFS User Guide. Default is false. However, if you specify an AvailabilityZoneName, the default is true. Backup is not available in all Amazon Web Services Regions where Amazon EFS is available."];
      tags: Tags.t option
        [@ocaml.doc
          "Use to create one or more tags associated with the file system. Each tag is a user-defined key-value pair. Name your file system on creation by including a \"Key\":\"Name\",\"Value\":\"\\{value\\}\" key-value pair. Each key must be unique. For more information, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference Guide."]}
    let context_ = "CreateFileSystemRequest"
    let make ?performanceMode =
      fun ?encrypted ->
        fun ?kmsKeyId ->
          fun ?throughputMode ->
            fun ?provisionedThroughputInMibps ->
              fun ?availabilityZoneName ->
                fun ?backup ->
                  fun ?tags ->
                    fun ~creationToken ->
                      fun () ->
                        {
                          performanceMode;
                          encrypted;
                          kmsKeyId;
                          throughputMode;
                          provisionedThroughputInMibps;
                          availabilityZoneName;
                          backup;
                          tags;
                          creationToken
                        }
    let to_value x =
      structure_to_value
        [("CreationToken", (Some (CreationToken.to_value x.creationToken)));
        ("PerformanceMode",
          (Option.map x.performanceMode ~f:PerformanceMode.to_value));
        ("Encrypted", (Option.map x.encrypted ~f:Encrypted.to_value));
        ("KmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("ThroughputMode",
          (Option.map x.throughputMode ~f:ThroughputMode.to_value));
        ("ProvisionedThroughputInMibps",
          (Option.map x.provisionedThroughputInMibps
             ~f:ProvisionedThroughputInMibps.to_value));
        ("AvailabilityZoneName",
          (Option.map x.availabilityZoneName ~f:AvailabilityZoneName.to_value));
        ("Backup", (Option.map x.backup ~f:Backup.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 backup =
        (Option.map ~f:Backup.of_xml) (Xml.child xml_arg0 "Backup") in
      let availabilityZoneName =
        (Option.map ~f:AvailabilityZoneName.of_xml)
          (Xml.child xml_arg0 "AvailabilityZoneName") in
      let provisionedThroughputInMibps =
        (Option.map ~f:ProvisionedThroughputInMibps.of_xml)
          (Xml.child xml_arg0 "ProvisionedThroughputInMibps") in
      let throughputMode =
        (Option.map ~f:ThroughputMode.of_xml)
          (Xml.child xml_arg0 "ThroughputMode") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "KmsKeyId") in
      let encrypted =
        (Option.map ~f:Encrypted.of_xml) (Xml.child xml_arg0 "Encrypted") in
      let performanceMode =
        (Option.map ~f:PerformanceMode.of_xml)
          (Xml.child xml_arg0 "PerformanceMode") in
      let creationToken =
        CreationToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreationToken") in
      make ?tags ?backup ?availabilityZoneName ?provisionedThroughputInMibps
        ?throughputMode ?kmsKeyId ?encrypted ?performanceMode ~creationToken
        ()
    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 backup = field_map json__ "Backup" Backup.of_json in
      let availabilityZoneName =
        field_map json__ "AvailabilityZoneName" AvailabilityZoneName.of_json in
      let provisionedThroughputInMibps =
        field_map json__ "ProvisionedThroughputInMibps"
          ProvisionedThroughputInMibps.of_json in
      let throughputMode =
        field_map json__ "ThroughputMode" ThroughputMode.of_json in
      let kmsKeyId = field_map json__ "KmsKeyId" KmsKeyId.of_json in
      let encrypted = field_map json__ "Encrypted" Encrypted.of_json in
      let performanceMode =
        field_map json__ "PerformanceMode" PerformanceMode.of_json in
      let creationToken =
        field_map_exn json__ "CreationToken" CreationToken.of_json in
      make ?tags ?backup ?availabilityZoneName ?provisionedThroughputInMibps
        ?throughputMode ?kmsKeyId ?encrypted ?performanceMode ~creationToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new, empty file system. The operation requires a creation token in the request that Amazon EFS uses to ensure idempotent creation (calling the operation with same creation token has no effect). If a file system does not currently exist that is owned by the caller's Amazon Web Services account with the specified creation token, this operation does the following: Creates a new, empty file system. The file system will have an Amazon EFS assigned ID, and an initial lifecycle state creating. Returns with the description of the created file system. Otherwise, this operation returns a FileSystemAlreadyExists error with the ID of the existing file system. For basic use cases, you can use a randomly generated UUID for the creation token. The idempotent operation allows you to retry a CreateFileSystem call without risk of creating an extra file system. This can happen when an initial call fails in a way that leaves it uncertain whether or not a file system was actually created. An example might be that a transport level timeout occurred or your connection was reset. As long as you use the same creation token, if the initial call had succeeded in creating a file system, the client can learn of its existence from the FileSystemAlreadyExists error. For more information, see Creating a file system in the Amazon EFS User Guide. The CreateFileSystem call returns while the file system's lifecycle state is still creating. You can check the file system creation status by calling the DescribeFileSystems operation, which among other things returns the file system state. This operation accepts an optional PerformanceMode parameter that you choose for your file system. We recommend generalPurpose PerformanceMode for all file systems. The maxIO mode is a previous generation performance type that is designed for highly parallelized workloads that can tolerate higher latencies than the generalPurpose mode. MaxIO mode is not supported for One Zone file systems or file systems that use Elastic throughput. The PerformanceMode can't be changed after the file system has been created. For more information, see Amazon EFS performance modes. You can set the throughput mode for the file system using the ThroughputMode parameter. After the file system is fully created, Amazon EFS sets its lifecycle state to available, at which point you can create one or more mount targets for the file system in your VPC. For more information, see CreateMountTarget. You mount your Amazon EFS file system on an EC2 instances in your VPC by using the mount target. For more information, see Amazon EFS: How it Works. This operation requires permissions for the elasticfilesystem:CreateFileSystem action. File systems can be tagged on creation. If tags are specified in the creation action, IAM performs additional authorization on the elasticfilesystem:TagResource action to verify if users have permissions to create tags. Therefore, you must grant explicit permissions to use the elasticfilesystem:TagResource action. For more information, see Granting permissions to tag resources during creation."]
module CreateAccessPointRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t
        [@ocaml.doc
          "A string of up to 64 ASCII characters that Amazon EFS uses to ensure idempotent creation."];
      tags: Tags.t option
        [@ocaml.doc
          "Creates tags associated with the access point. Each tag is a key-value pair, each key must be unique. For more information, see Tagging Amazon Web Services resources in the Amazon Web Services General Reference Guide."];
      fileSystemId: FileSystemId.t
        [@ocaml.doc
          "The ID of the EFS file system that the access point provides access to."];
      posixUser: PosixUser.t option
        [@ocaml.doc
          "The operating system user and group applied to all file system requests made using the access point."];
      rootDirectory: RootDirectory.t option
        [@ocaml.doc
          "Specifies the directory on the EFS file system that the access point exposes as the root directory of your file system to NFS clients using the access point. The clients using the access point can only access the root directory and below. If the RootDirectory > Path specified does not exist, Amazon EFS creates it and applies the CreationInfo settings when a client connects to an access point. When specifying a RootDirectory, you must provide the Path, and the CreationInfo. Amazon EFS creates a root directory only if you have provided the CreationInfo: OwnUid, OwnGID, and permissions for the directory. If you do not provide this information, Amazon EFS does not create the root directory. If the root directory does not exist, attempts to mount using the access point will fail."]}
    let context_ = "CreateAccessPointRequest"
    let make ?tags =
      fun ?posixUser ->
        fun ?rootDirectory ->
          fun ~clientToken ->
            fun ~fileSystemId ->
              fun () ->
                { tags; posixUser; rootDirectory; clientToken; fileSystemId }
    let to_value x =
      structure_to_value
        [("ClientToken", (Some (ClientToken.to_value x.clientToken)));
        ("Tags", (Option.map x.tags ~f:Tags.to_value));
        ("FileSystemId", (Some (FileSystemId.to_value x.fileSystemId)));
        ("PosixUser", (Option.map x.posixUser ~f:PosixUser.to_value));
        ("RootDirectory",
          (Option.map x.rootDirectory ~f:RootDirectory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rootDirectory =
        (Option.map ~f:RootDirectory.of_xml)
          (Xml.child xml_arg0 "RootDirectory") in
      let posixUser =
        (Option.map ~f:PosixUser.of_xml) (Xml.child xml_arg0 "PosixUser") in
      let fileSystemId =
        FileSystemId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FileSystemId") in
      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
      make ?rootDirectory ?posixUser ~fileSystemId ?tags ~clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rootDirectory =
        field_map json__ "RootDirectory" RootDirectory.of_json in
      let posixUser = field_map json__ "PosixUser" PosixUser.of_json in
      let fileSystemId =
        field_map_exn json__ "FileSystemId" FileSystemId.of_json in
      let tags = field_map json__ "Tags" Tags.of_json in
      let clientToken =
        field_map_exn json__ "ClientToken" ClientToken.of_json in
      make ?rootDirectory ?posixUser ~fileSystemId ?tags ~clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an EFS access point. An access point is an application-specific view into an EFS file system that applies an operating system user and group, and a file system path, to any file system request made through the access point. The operating system user and group override any identity information provided by the NFS client. The file system path is exposed as the access point's root directory. Applications using the access point can only access data in the application's own directory and any subdirectories. A file system can have a maximum of 10,000 access points unless you request an increase. To learn more, see Mounting a file system using EFS access points. If multiple requests to create access points on the same file system are sent in quick succession, and the file system is near the limit of access points, you may experience a throttling response for these requests. This is to ensure that the file system does not exceed the stated access point limit. This operation requires permissions for the elasticfilesystem:CreateAccessPoint action. Access points can be tagged on creation. If tags are specified in the creation action, IAM performs additional authorization on the elasticfilesystem:TagResource action to verify if users have permissions to create tags. Therefore, you must grant explicit permissions to use the elasticfilesystem:TagResource action. For more information, see Granting permissions to tag resources during creation."]
module BackupPolicyDescription =
  struct
    type nonrec t =
      {
      backupPolicy: BackupPolicy.t option
        [@ocaml.doc
          "Describes the file system's backup policy, indicating whether automatic backups are turned on or off."]}
    type nonrec error =
      [ `BadRequest of BadRequest.t 
      | `FileSystemNotFound of FileSystemNotFound.t 
      | `InternalServerError of InternalServerError.t 
      | `PolicyNotFound of PolicyNotFound.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?backupPolicy = fun () -> { backupPolicy }
    let error_of_json name json =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_json json)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_json json)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_json json)
      | "PolicyNotFound" -> `PolicyNotFound (PolicyNotFound.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequest" -> `BadRequest (BadRequest.of_xml xml)
      | "FileSystemNotFound" ->
          `FileSystemNotFound (FileSystemNotFound.of_xml xml)
      | "InternalServerError" ->
          `InternalServerError (InternalServerError.of_xml xml)
      | "PolicyNotFound" -> `PolicyNotFound (PolicyNotFound.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequest e ->
          `Assoc
            [("error", (`String "BadRequest"));
            ("details", (BadRequest.to_json e))]
      | `FileSystemNotFound e ->
          `Assoc
            [("error", (`String "FileSystemNotFound"));
            ("details", (FileSystemNotFound.to_json e))]
      | `InternalServerError e ->
          `Assoc
            [("error", (`String "InternalServerError"));
            ("details", (InternalServerError.to_json e))]
      | `PolicyNotFound e ->
          `Assoc
            [("error", (`String "PolicyNotFound"));
            ("details", (PolicyNotFound.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.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
        [("BackupPolicy",
           (Option.map x.backupPolicy ~f:BackupPolicy.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let backupPolicy =
        (Option.map ~f:BackupPolicy.of_xml)
          (Xml.child xml_arg0 "BackupPolicy") in
      make ?backupPolicy ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let backupPolicy = field_map json__ "BackupPolicy" BackupPolicy.of_json in
      make ?backupPolicy ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the backup policy for the specified EFS file system."]