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.service_quotas
let apiVersion = "2019-06-24"
let endpointPrefix = "servicequotas"
let serviceFullName = "Service Quotas"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let targetPrefix = "ServiceQuotasV20190624"
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 MetricDimensionName =
  struct
    type nonrec t = string
    let context_ = "MetricDimensionName"
    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:"MetricDimensionName" j
    let to_json = simple_to_json to_value
  end
module MetricDimensionValue =
  struct
    type nonrec t = string
    let context_ = "MetricDimensionValue"
    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:"MetricDimensionValue" j
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t =
      | DEPENDENCY_ACCESS_DENIED_ERROR 
      | DEPENDENCY_THROTTLING_ERROR 
      | DEPENDENCY_SERVICE_ERROR 
      | SERVICE_QUOTA_NOT_AVAILABLE_ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DEPENDENCY_ACCESS_DENIED_ERROR -> "DEPENDENCY_ACCESS_DENIED_ERROR"
      | DEPENDENCY_THROTTLING_ERROR -> "DEPENDENCY_THROTTLING_ERROR"
      | DEPENDENCY_SERVICE_ERROR -> "DEPENDENCY_SERVICE_ERROR"
      | SERVICE_QUOTA_NOT_AVAILABLE_ERROR ->
          "SERVICE_QUOTA_NOT_AVAILABLE_ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "DEPENDENCY_ACCESS_DENIED_ERROR" -> DEPENDENCY_ACCESS_DENIED_ERROR
      | "DEPENDENCY_THROTTLING_ERROR" -> DEPENDENCY_THROTTLING_ERROR
      | "DEPENDENCY_SERVICE_ERROR" -> DEPENDENCY_SERVICE_ERROR
      | "SERVICE_QUOTA_NOT_AVAILABLE_ERROR" ->
          SERVICE_QUOTA_NOT_AVAILABLE_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 ErrorCode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCode" j)
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    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
module MetricDimensionsMapDefinition =
  struct
    type nonrec t = (MetricDimensionName.t * MetricDimensionValue.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((MetricDimensionName.of_string chopped),
                              (MetricDimensionValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (MetricDimensionName.to_value x) |>
                    (fun x ->
                       (MetricDimensionValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:MetricDimensionName.of_string
        ~of_json:MetricDimensionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module QuotaMetricName =
  struct
    type nonrec t = string
    let context_ = "QuotaMetricName"
    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:"QuotaMetricName" j
    let to_json = simple_to_json to_value
  end
module QuotaMetricNamespace =
  struct
    type nonrec t = string
    let context_ = "QuotaMetricNamespace"
    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:"QuotaMetricNamespace" j
    let to_json = simple_to_json to_value
  end
module Statistic =
  struct
    type nonrec t = string
    let context_ = "Statistic"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"(Sum|Maximum)")));
        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:"Statistic" j
    let to_json = simple_to_json to_value
  end
module QuotaContextId =
  struct
    type nonrec t = string
    let context_ = "QuotaContextId"
    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:"QuotaContextId" j
    let to_json = simple_to_json to_value
  end
module QuotaContextScope =
  struct
    type nonrec t =
      | RESOURCE 
      | ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RESOURCE -> "RESOURCE"
      | ACCOUNT -> "ACCOUNT"
      | Non_static_id s -> s
    let of_string =
      function
      | "RESOURCE" -> RESOURCE
      | "ACCOUNT" -> ACCOUNT
      | 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 QuotaContextScope" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"QuotaContextScope" j)
    let to_json = simple_to_json to_value
  end
module QuotaContextScopeType =
  struct
    type nonrec t = string
    let context_ = "QuotaContextScopeType"
    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:"QuotaContextScopeType" j
    let to_json = simple_to_json to_value
  end
module PeriodUnit =
  struct
    type nonrec t =
      | MICROSECOND 
      | MILLISECOND 
      | SECOND 
      | MINUTE 
      | HOUR 
      | DAY 
      | WEEK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | MICROSECOND -> "MICROSECOND"
      | MILLISECOND -> "MILLISECOND"
      | SECOND -> "SECOND"
      | MINUTE -> "MINUTE"
      | HOUR -> "HOUR"
      | DAY -> "DAY"
      | WEEK -> "WEEK"
      | Non_static_id s -> s
    let of_string =
      function
      | "MICROSECOND" -> MICROSECOND
      | "MILLISECOND" -> MILLISECOND
      | "SECOND" -> SECOND
      | "MINUTE" -> MINUTE
      | "HOUR" -> HOUR
      | "DAY" -> DAY
      | "WEEK" -> WEEK
      | 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 PeriodUnit" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PeriodUnit" j)
    let to_json = simple_to_json to_value
  end
module PeriodValue =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for PeriodValue" 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 QuotaCode =
  struct
    type nonrec t = string
    let context_ = "QuotaCode"
    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:"[a-zA-Z][a-zA-Z0-9-]{1,128}")));
        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:"QuotaCode" j
    let to_json = simple_to_json to_value
  end
module QuotaName =
  struct
    type nonrec t = string
    let context_ = "QuotaName"
    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:"QuotaName" j
    let to_json = simple_to_json to_value
  end
module ExcludedLimit =
  struct
    type nonrec t = string
    let context_ = "ExcludedLimit"
    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:"[A-Za-z0-9-_ /]{1,128}")));
        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:"ExcludedLimit" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (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 ServiceCode =
  struct
    type nonrec t = string
    let context_ = "ServiceCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z][a-zA-Z0-9-]{1,63}")));
        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:"ServiceCode" j
    let to_json = simple_to_json to_value
  end
module ServiceName =
  struct
    type nonrec t = string
    let context_ = "ServiceName"
    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:"ServiceName" j
    let to_json = simple_to_json to_value
  end
module AppliedLevelEnum =
  struct
    type nonrec t =
      | ACCOUNT 
      | RESOURCE 
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACCOUNT -> "ACCOUNT"
      | RESOURCE -> "RESOURCE"
      | ALL -> "ALL"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACCOUNT" -> ACCOUNT
      | "RESOURCE" -> RESOURCE
      | "ALL" -> ALL
      | 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 AppliedLevelEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AppliedLevelEnum" j)
    let to_json = simple_to_json to_value
  end
module ErrorReason =
  struct
    type nonrec t =
      {
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "Service Quotas returns the following error values: DEPENDENCY_ACCESS_DENIED_ERROR - The caller does not have the required permissions to complete the action. To resolve the error, you must have permission to access the Amazon Web Services service or quota. DEPENDENCY_THROTTLING_ERROR - The Amazon Web Services service is throttling Service Quotas. DEPENDENCY_SERVICE_ERROR - The Amazon Web Services service is not available. SERVICE_QUOTA_NOT_AVAILABLE_ERROR - There was an error in Service Quotas."];
      errorMessage: ErrorMessage.t option [@ocaml.doc "The error message."]}
    let make ?errorCode =
      fun ?errorMessage -> fun () -> { errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("ErrorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "ErrorCode") in
      make ?errorMessage ?errorCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "ErrorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ErrorCode.of_json in
      make ?errorMessage ?errorCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An error that explains why an action did not succeed."]
module GlobalQuota =
  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 MetricInfo =
  struct
    type nonrec t =
      {
      metricNamespace: QuotaMetricNamespace.t option
        [@ocaml.doc "The namespace of the metric."];
      metricName: QuotaMetricName.t option
        [@ocaml.doc "The name of the metric."];
      metricDimensions: MetricDimensionsMapDefinition.t option
        [@ocaml.doc
          "The metric dimension. This is a name/value pair that is part of the identity of a metric."];
      metricStatisticRecommendation: Statistic.t option
        [@ocaml.doc
          "The metric statistic that we recommend you use when determining quota usage."]}
    let make ?metricNamespace =
      fun ?metricName ->
        fun ?metricDimensions ->
          fun ?metricStatisticRecommendation ->
            fun () ->
              {
                metricNamespace;
                metricName;
                metricDimensions;
                metricStatisticRecommendation
              }
    let to_value x =
      structure_to_value
        [("MetricNamespace",
           (Option.map x.metricNamespace ~f:QuotaMetricNamespace.to_value));
        ("MetricName", (Option.map x.metricName ~f:QuotaMetricName.to_value));
        ("MetricDimensions",
          (Option.map x.metricDimensions
             ~f:MetricDimensionsMapDefinition.to_value));
        ("MetricStatisticRecommendation",
          (Option.map x.metricStatisticRecommendation ~f:Statistic.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metricStatisticRecommendation =
        (Option.map ~f:Statistic.of_xml)
          (Xml.child xml_arg0 "MetricStatisticRecommendation") in
      let metricDimensions =
        (Option.map ~f:MetricDimensionsMapDefinition.of_xml)
          (Xml.child xml_arg0 "MetricDimensions") in
      let metricName =
        (Option.map ~f:QuotaMetricName.of_xml)
          (Xml.child xml_arg0 "MetricName") in
      let metricNamespace =
        (Option.map ~f:QuotaMetricNamespace.of_xml)
          (Xml.child xml_arg0 "MetricNamespace") in
      make ?metricStatisticRecommendation ?metricDimensions ?metricName
        ?metricNamespace ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metricStatisticRecommendation =
        field_map json__ "MetricStatisticRecommendation" Statistic.of_json in
      let metricDimensions =
        field_map json__ "MetricDimensions"
          MetricDimensionsMapDefinition.of_json in
      let metricName = field_map json__ "MetricName" QuotaMetricName.of_json in
      let metricNamespace =
        field_map json__ "MetricNamespace" QuotaMetricNamespace.of_json in
      make ?metricStatisticRecommendation ?metricDimensions ?metricName
        ?metricNamespace ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the CloudWatch metric that reflects quota usage."]
module QuotaAdjustable =
  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 QuotaArn =
  struct
    type nonrec t = string
    let context_ = "QuotaArn"
    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:"QuotaArn" j
    let to_json = simple_to_json to_value
  end
module QuotaContextInfo =
  struct
    type nonrec t =
      {
      contextScope: QuotaContextScope.t option
        [@ocaml.doc
          "Specifies the scope to which the quota value is applied. If the scope is RESOURCE, the quota value is applied to each resource in the Amazon Web Services account. If the scope is ACCOUNT, the quota value is applied to the Amazon Web Services account."];
      contextScopeType: QuotaContextScopeType.t option
        [@ocaml.doc
          "Specifies the resource type to which the quota can be applied."];
      contextId: QuotaContextId.t option
        [@ocaml.doc
          "Specifies the resource, or resources, to which the quota applies. The value for this field is either an Amazon Resource Name (ARN) or *. If the value is an ARN, the quota value applies to that resource. If the value is *, then the quota value applies to all resources listed in the ContextScopeType field. The quota value applies to all resources for which you haven\226\128\153t previously applied a quota value, and any new resources you create in your Amazon Web Services account."]}
    let make ?contextScope =
      fun ?contextScopeType ->
        fun ?contextId ->
          fun () -> { contextScope; contextScopeType; contextId }
    let to_value x =
      structure_to_value
        [("ContextScope",
           (Option.map x.contextScope ~f:QuotaContextScope.to_value));
        ("ContextScopeType",
          (Option.map x.contextScopeType ~f:QuotaContextScopeType.to_value));
        ("ContextId", (Option.map x.contextId ~f:QuotaContextId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contextId =
        (Option.map ~f:QuotaContextId.of_xml)
          (Xml.child xml_arg0 "ContextId") in
      let contextScopeType =
        (Option.map ~f:QuotaContextScopeType.of_xml)
          (Xml.child xml_arg0 "ContextScopeType") in
      let contextScope =
        (Option.map ~f:QuotaContextScope.of_xml)
          (Xml.child xml_arg0 "ContextScope") in
      make ?contextId ?contextScopeType ?contextScope ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contextId = field_map json__ "ContextId" QuotaContextId.of_json in
      let contextScopeType =
        field_map json__ "ContextScopeType" QuotaContextScopeType.of_json in
      let contextScope =
        field_map json__ "ContextScope" QuotaContextScope.of_json in
      make ?contextId ?contextScopeType ?contextScope ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A structure that describes the context for a resource-level quota. For resource-level quotas, such as Instances per OpenSearch Service Domain, you can apply the quota value at the resource-level for each OpenSearch Service Domain in your Amazon Web Services account. Together the attributes of this structure help you understand how the quota is implemented by Amazon Web Services and how you can manage it. For quotas such as Amazon OpenSearch Service Domains which can be managed at the account-level for each Amazon Web Services Region, the QuotaContext field is absent. See the attribute descriptions below to further understand how to use them."]
module QuotaDescription =
  struct
    type nonrec t = string
    let context_ = "QuotaDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:350) >>=
                  (fun () -> check_pattern i ~pattern:"^.{0,350}$")));
        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:"QuotaDescription" j
    let to_json = simple_to_json to_value
  end
module QuotaPeriod =
  struct
    type nonrec t =
      {
      periodValue: PeriodValue.t option
        [@ocaml.doc "The value associated with the reported PeriodUnit."];
      periodUnit: PeriodUnit.t option [@ocaml.doc "The time unit."]}
    let make ?periodValue =
      fun ?periodUnit -> fun () -> { periodValue; periodUnit }
    let to_value x =
      structure_to_value
        [("PeriodValue", (Option.map x.periodValue ~f:PeriodValue.to_value));
        ("PeriodUnit", (Option.map x.periodUnit ~f:PeriodUnit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let periodUnit =
        (Option.map ~f:PeriodUnit.of_xml) (Xml.child xml_arg0 "PeriodUnit") in
      let periodValue =
        (Option.map ~f:PeriodValue.of_xml) (Xml.child xml_arg0 "PeriodValue") in
      make ?periodUnit ?periodValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let periodUnit = field_map json__ "PeriodUnit" PeriodUnit.of_json in
      let periodValue = field_map json__ "PeriodValue" PeriodValue.of_json in
      make ?periodUnit ?periodValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the quota period."]
module QuotaUnit =
  struct
    type nonrec t = string
    let context_ = "QuotaUnit"
    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:"QuotaUnit" j
    let to_json = simple_to_json to_value
  end
module QuotaValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:10000000000.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module AwsRegion =
  struct
    type nonrec t = string
    let context_ = "AwsRegion"
    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-zA-Z][a-zA-Z0-9-]{1,128}")));
        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:"AwsRegion" j
    let to_json = simple_to_json to_value
  end
module CustomerServiceEngagementId =
  struct
    type nonrec t = string
    let context_ = "CustomerServiceEngagementId"
    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:"CustomerServiceEngagementId" j
    let to_json = simple_to_json to_value
  end
module DateTime =
  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 RequestId =
  struct
    type nonrec t = string
    let context_ = "RequestId"
    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:"[0-9a-zA-Z][a-zA-Z0-9-]{1,128}")));
        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:"RequestId" j
    let to_json = simple_to_json to_value
  end
module RequestStatus =
  struct
    type nonrec t =
      | PENDING 
      | CASE_OPENED 
      | APPROVED 
      | DENIED 
      | CASE_CLOSED 
      | NOT_APPROVED 
      | INVALID_REQUEST 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | CASE_OPENED -> "CASE_OPENED"
      | APPROVED -> "APPROVED"
      | DENIED -> "DENIED"
      | CASE_CLOSED -> "CASE_CLOSED"
      | NOT_APPROVED -> "NOT_APPROVED"
      | INVALID_REQUEST -> "INVALID_REQUEST"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "CASE_OPENED" -> CASE_OPENED
      | "APPROVED" -> APPROVED
      | "DENIED" -> DENIED
      | "CASE_CLOSED" -> CASE_CLOSED
      | "NOT_APPROVED" -> NOT_APPROVED
      | "INVALID_REQUEST" -> INVALID_REQUEST
      | 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 RequestStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RequestStatus" j)
    let to_json = simple_to_json to_value
  end
module RequestType =
  struct
    type nonrec t =
      | AutomaticManagement 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AutomaticManagement -> "AutomaticManagement"
      | Non_static_id s -> s
    let of_string =
      function
      | "AutomaticManagement" -> AutomaticManagement
      | 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 RequestType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RequestType" j)
    let to_json = simple_to_json to_value
  end
module Requester =
  struct
    type nonrec t = string
    let context_ = "Requester"
    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:"Requester" j
    let to_json = simple_to_json to_value
  end
module AppliedValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:10000000000.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module DefaultValue =
  struct
    type nonrec t = float
    let make i =
      let open Result in
        ok_or_failwith
          ((check_float_min i ~min:10000000000.) >>=
             (fun () -> check_float_min i ~min:0.));
        i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module UtilizationPct =
  struct
    type nonrec t = float
    let make i = i
    let of_string = Float.of_string
    let to_value x = `Double x
    let to_query v = to_query to_value v
    let to_header x = Stdlib.Float.to_string x
    let of_xml xml_arg0 =
      Float.of_string (string_of_xml ~kind:"a double" xml_arg0)
    let of_json j = float_of_json ~kind:"a double" j
    let to_json = simple_to_json to_value
  end
module QuotaInfo =
  struct
    type nonrec t =
      {
      quotaCode: QuotaCode.t option
        [@ocaml.doc
          "The Service Quotas code for the Amazon Web Services service monitored with Automatic Management."];
      quotaName: QuotaName.t option
        [@ocaml.doc
          "The Service Quotas name for the Amazon Web Services service monitored with Automatic Management."]}
    let make ?quotaCode =
      fun ?quotaName -> fun () -> { quotaCode; quotaName }
    let to_value x =
      structure_to_value
        [("QuotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("QuotaName", (Option.map x.quotaName ~f:QuotaName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaName =
        (Option.map ~f:QuotaName.of_xml) (Xml.child xml_arg0 "QuotaName") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      make ?quotaName ?quotaCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaName = field_map json__ "QuotaName" QuotaName.of_json in
      let quotaCode = field_map json__ "QuotaCode" QuotaCode.of_json in
      make ?quotaName ?quotaCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information on your Service Quotas for Service Quotas Automatic Management. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module ExcludedQuotaList =
  struct
    type nonrec t = ExcludedLimit.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:ExcludedLimit.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:ExcludedLimit.of_xml)
    let of_json j =
      list_of_json ~kind:"ExcludedQuotaList" ~of_json:ExcludedLimit.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExcludedService =
  struct
    type nonrec t = string
    let context_ = "ExcludedService"
    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:"[A-Za-z0-9-_ /]{1,128}")));
        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:"ExcludedService" j
    let to_json = simple_to_json to_value
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t
        [@ocaml.doc
          "A string that contains a tag key. The string length should be between 1 and 128 characters. Valid characters include a-z, A-Z, 0-9, space, and the special characters _ - . : / = + \\@."];
      value: TagValue.t
        [@ocaml.doc
          "A string that contains an optional tag value. The string length should be between 0 and 256 characters. Valid characters include a-z, A-Z, 0-9, space, and the special characters _ - . : / = + \\@."]}
    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 complex data type that contains a tag key and tag value."]
module ServiceInfo =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      serviceName: ServiceName.t option
        [@ocaml.doc "Specifies the service name."]}
    let make ?serviceCode =
      fun ?serviceName -> fun () -> { serviceCode; serviceName }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      make ?serviceName ?serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      make ?serviceName ?serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about an Amazon Web Services service."]
module ServiceQuota =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      serviceName: ServiceName.t option
        [@ocaml.doc "Specifies the service name."];
      quotaArn: QuotaArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the quota."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      quotaName: QuotaName.t option [@ocaml.doc "Specifies the quota name."];
      value: QuotaValue.t option [@ocaml.doc "The quota value."];
      unit: QuotaUnit.t option [@ocaml.doc "The unit of measurement."];
      adjustable: QuotaAdjustable.t option
        [@ocaml.doc "Indicates whether the quota value can be increased."];
      globalQuota: GlobalQuota.t option
        [@ocaml.doc "Indicates whether the quota is global."];
      usageMetric: MetricInfo.t option
        [@ocaml.doc "Information about the measurement."];
      period: QuotaPeriod.t option [@ocaml.doc "The period of time."];
      errorReason: ErrorReason.t option
        [@ocaml.doc "The error code and error reason."];
      quotaAppliedAtLevel: AppliedLevelEnum.t option
        [@ocaml.doc
          "Filters the response to return applied quota values for the ACCOUNT, RESOURCE, or ALL levels. ACCOUNT is the default."];
      quotaContext: QuotaContextInfo.t option
        [@ocaml.doc "The context for this service quota."];
      description: QuotaDescription.t option
        [@ocaml.doc "The quota description."]}
    let make ?serviceCode =
      fun ?serviceName ->
        fun ?quotaArn ->
          fun ?quotaCode ->
            fun ?quotaName ->
              fun ?value ->
                fun ?unit ->
                  fun ?adjustable ->
                    fun ?globalQuota ->
                      fun ?usageMetric ->
                        fun ?period ->
                          fun ?errorReason ->
                            fun ?quotaAppliedAtLevel ->
                              fun ?quotaContext ->
                                fun ?description ->
                                  fun () ->
                                    {
                                      serviceCode;
                                      serviceName;
                                      quotaArn;
                                      quotaCode;
                                      quotaName;
                                      value;
                                      unit;
                                      adjustable;
                                      globalQuota;
                                      usageMetric;
                                      period;
                                      errorReason;
                                      quotaAppliedAtLevel;
                                      quotaContext;
                                      description
                                    }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("QuotaArn", (Option.map x.quotaArn ~f:QuotaArn.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("QuotaName", (Option.map x.quotaName ~f:QuotaName.to_value));
        ("Value", (Option.map x.value ~f:QuotaValue.to_value));
        ("Unit", (Option.map x.unit ~f:QuotaUnit.to_value));
        ("Adjustable", (Option.map x.adjustable ~f:QuotaAdjustable.to_value));
        ("GlobalQuota", (Option.map x.globalQuota ~f:GlobalQuota.to_value));
        ("UsageMetric", (Option.map x.usageMetric ~f:MetricInfo.to_value));
        ("Period", (Option.map x.period ~f:QuotaPeriod.to_value));
        ("ErrorReason", (Option.map x.errorReason ~f:ErrorReason.to_value));
        ("QuotaAppliedAtLevel",
          (Option.map x.quotaAppliedAtLevel ~f:AppliedLevelEnum.to_value));
        ("QuotaContext",
          (Option.map x.quotaContext ~f:QuotaContextInfo.to_value));
        ("Description",
          (Option.map x.description ~f:QuotaDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        (Option.map ~f:QuotaDescription.of_xml)
          (Xml.child xml_arg0 "Description") in
      let quotaContext =
        (Option.map ~f:QuotaContextInfo.of_xml)
          (Xml.child xml_arg0 "QuotaContext") in
      let quotaAppliedAtLevel =
        (Option.map ~f:AppliedLevelEnum.of_xml)
          (Xml.child xml_arg0 "QuotaAppliedAtLevel") in
      let errorReason =
        (Option.map ~f:ErrorReason.of_xml) (Xml.child xml_arg0 "ErrorReason") in
      let period =
        (Option.map ~f:QuotaPeriod.of_xml) (Xml.child xml_arg0 "Period") in
      let usageMetric =
        (Option.map ~f:MetricInfo.of_xml) (Xml.child xml_arg0 "UsageMetric") in
      let globalQuota =
        (Option.map ~f:GlobalQuota.of_xml) (Xml.child xml_arg0 "GlobalQuota") in
      let adjustable =
        (Option.map ~f:QuotaAdjustable.of_xml)
          (Xml.child xml_arg0 "Adjustable") in
      let unit = (Option.map ~f:QuotaUnit.of_xml) (Xml.child xml_arg0 "Unit") in
      let value =
        (Option.map ~f:QuotaValue.of_xml) (Xml.child xml_arg0 "Value") in
      let quotaName =
        (Option.map ~f:QuotaName.of_xml) (Xml.child xml_arg0 "QuotaName") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let quotaArn =
        (Option.map ~f:QuotaArn.of_xml) (Xml.child xml_arg0 "QuotaArn") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      make ?description ?quotaContext ?quotaAppliedAtLevel ?errorReason
        ?period ?usageMetric ?globalQuota ?adjustable ?unit ?value ?quotaName
        ?quotaCode ?quotaArn ?serviceName ?serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map json__ "Description" QuotaDescription.of_json in
      let quotaContext =
        field_map json__ "QuotaContext" QuotaContextInfo.of_json in
      let quotaAppliedAtLevel =
        field_map json__ "QuotaAppliedAtLevel" AppliedLevelEnum.of_json in
      let errorReason = field_map json__ "ErrorReason" ErrorReason.of_json in
      let period = field_map json__ "Period" QuotaPeriod.of_json in
      let usageMetric = field_map json__ "UsageMetric" MetricInfo.of_json in
      let globalQuota = field_map json__ "GlobalQuota" GlobalQuota.of_json in
      let adjustable = field_map json__ "Adjustable" QuotaAdjustable.of_json in
      let unit = field_map json__ "Unit" QuotaUnit.of_json in
      let value = field_map json__ "Value" QuotaValue.of_json in
      let quotaName = field_map json__ "QuotaName" QuotaName.of_json in
      let quotaCode = field_map json__ "QuotaCode" QuotaCode.of_json in
      let quotaArn = field_map json__ "QuotaArn" QuotaArn.of_json in
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      make ?description ?quotaContext ?quotaAppliedAtLevel ?errorReason
        ?period ?usageMetric ?globalQuota ?adjustable ?unit ?value ?quotaName
        ?quotaCode ?quotaArn ?serviceName ?serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a quota."]
module ServiceQuotaIncreaseRequestInTemplate =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      serviceName: ServiceName.t option
        [@ocaml.doc "Specifies the service name."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      quotaName: QuotaName.t option [@ocaml.doc "Specifies the quota name."];
      desiredValue: QuotaValue.t option
        [@ocaml.doc "The new, increased value of the quota."];
      awsRegion: AwsRegion.t option
        [@ocaml.doc "The Amazon Web Services Region."];
      unit: QuotaUnit.t option [@ocaml.doc "The unit of measurement."];
      globalQuota: GlobalQuota.t option
        [@ocaml.doc "Indicates whether the quota is global."]}
    let make ?serviceCode =
      fun ?serviceName ->
        fun ?quotaCode ->
          fun ?quotaName ->
            fun ?desiredValue ->
              fun ?awsRegion ->
                fun ?unit ->
                  fun ?globalQuota ->
                    fun () ->
                      {
                        serviceCode;
                        serviceName;
                        quotaCode;
                        quotaName;
                        desiredValue;
                        awsRegion;
                        unit;
                        globalQuota
                      }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("QuotaName", (Option.map x.quotaName ~f:QuotaName.to_value));
        ("DesiredValue", (Option.map x.desiredValue ~f:QuotaValue.to_value));
        ("AwsRegion", (Option.map x.awsRegion ~f:AwsRegion.to_value));
        ("Unit", (Option.map x.unit ~f:QuotaUnit.to_value));
        ("GlobalQuota", (Option.map x.globalQuota ~f:GlobalQuota.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let globalQuota =
        (Option.map ~f:GlobalQuota.of_xml) (Xml.child xml_arg0 "GlobalQuota") in
      let unit = (Option.map ~f:QuotaUnit.of_xml) (Xml.child xml_arg0 "Unit") in
      let awsRegion =
        (Option.map ~f:AwsRegion.of_xml) (Xml.child xml_arg0 "AwsRegion") in
      let desiredValue =
        (Option.map ~f:QuotaValue.of_xml) (Xml.child xml_arg0 "DesiredValue") in
      let quotaName =
        (Option.map ~f:QuotaName.of_xml) (Xml.child xml_arg0 "QuotaName") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      make ?globalQuota ?unit ?awsRegion ?desiredValue ?quotaName ?quotaCode
        ?serviceName ?serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let globalQuota = field_map json__ "GlobalQuota" GlobalQuota.of_json in
      let unit = field_map json__ "Unit" QuotaUnit.of_json in
      let awsRegion = field_map json__ "AwsRegion" AwsRegion.of_json in
      let desiredValue = field_map json__ "DesiredValue" QuotaValue.of_json in
      let quotaName = field_map json__ "QuotaName" QuotaName.of_json in
      let quotaCode = field_map json__ "QuotaCode" QuotaCode.of_json in
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      make ?globalQuota ?unit ?awsRegion ?desiredValue ?quotaName ?quotaCode
        ?serviceName ?serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a quota increase request."]
module RequestedServiceQuotaChange =
  struct
    type nonrec t =
      {
      id: RequestId.t option [@ocaml.doc "The unique identifier."];
      requestType: RequestType.t option
        [@ocaml.doc
          "The type of quota increase request. Possible values include: AutomaticManagement - The request was automatically created by Service Quotas Automatic Management when quota utilization approached the limit. If this field is not present, the request was manually created by a user."];
      caseId: CustomerServiceEngagementId.t option
        [@ocaml.doc "The case ID."];
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      serviceName: ServiceName.t option
        [@ocaml.doc "Specifies the service name."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      quotaName: QuotaName.t option [@ocaml.doc "Specifies the quota name."];
      desiredValue: QuotaValue.t option
        [@ocaml.doc "The new, increased value for the quota."];
      status: RequestStatus.t option
        [@ocaml.doc
          "The state of the quota increase request. PENDING: The quota increase request is under review by Amazon Web Services. CASE_OPENED: Service Quotas opened a support case to process the quota increase request. Follow-up on the support case for more information. APPROVED: The quota increase request is approved. DENIED: The quota increase request can't be approved by Service Quotas. Contact Amazon Web Services Support for more details. NOT APPROVED: The quota increase request can't be approved by Service Quotas. Contact Amazon Web Services Support for more details. CASE_CLOSED: The support case associated with this quota increase request was closed. Check the support case correspondence for the outcome of your quota request. INVALID_REQUEST: Service Quotas couldn't process your resource-level quota increase request because the Amazon Resource Name (ARN) specified as part of the ContextId is invalid."];
      created: DateTime.t option
        [@ocaml.doc
          "The date and time when the quota increase request was received and the case ID was created."];
      lastUpdated: DateTime.t option
        [@ocaml.doc "The date and time of the most recent change."];
      requester: Requester.t option
        [@ocaml.doc "The IAM identity of the requester."];
      quotaArn: QuotaArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the quota."];
      globalQuota: GlobalQuota.t option
        [@ocaml.doc "Indicates whether the quota is global."];
      unit: QuotaUnit.t option [@ocaml.doc "The unit of measurement."];
      quotaRequestedAtLevel: AppliedLevelEnum.t option
        [@ocaml.doc
          "Filters the response to return quota requests for the ACCOUNT, RESOURCE, or ALL levels. ACCOUNT is the default."];
      quotaContext: QuotaContextInfo.t option
        [@ocaml.doc "The context for this service quota."]}
    let make ?id =
      fun ?requestType ->
        fun ?caseId ->
          fun ?serviceCode ->
            fun ?serviceName ->
              fun ?quotaCode ->
                fun ?quotaName ->
                  fun ?desiredValue ->
                    fun ?status ->
                      fun ?created ->
                        fun ?lastUpdated ->
                          fun ?requester ->
                            fun ?quotaArn ->
                              fun ?globalQuota ->
                                fun ?unit ->
                                  fun ?quotaRequestedAtLevel ->
                                    fun ?quotaContext ->
                                      fun () ->
                                        {
                                          id;
                                          requestType;
                                          caseId;
                                          serviceCode;
                                          serviceName;
                                          quotaCode;
                                          quotaName;
                                          desiredValue;
                                          status;
                                          created;
                                          lastUpdated;
                                          requester;
                                          quotaArn;
                                          globalQuota;
                                          unit;
                                          quotaRequestedAtLevel;
                                          quotaContext
                                        }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:RequestId.to_value));
        ("RequestType", (Option.map x.requestType ~f:RequestType.to_value));
        ("CaseId",
          (Option.map x.caseId ~f:CustomerServiceEngagementId.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("QuotaName", (Option.map x.quotaName ~f:QuotaName.to_value));
        ("DesiredValue", (Option.map x.desiredValue ~f:QuotaValue.to_value));
        ("Status", (Option.map x.status ~f:RequestStatus.to_value));
        ("Created", (Option.map x.created ~f:DateTime.to_value));
        ("LastUpdated", (Option.map x.lastUpdated ~f:DateTime.to_value));
        ("Requester", (Option.map x.requester ~f:Requester.to_value));
        ("QuotaArn", (Option.map x.quotaArn ~f:QuotaArn.to_value));
        ("GlobalQuota", (Option.map x.globalQuota ~f:GlobalQuota.to_value));
        ("Unit", (Option.map x.unit ~f:QuotaUnit.to_value));
        ("QuotaRequestedAtLevel",
          (Option.map x.quotaRequestedAtLevel ~f:AppliedLevelEnum.to_value));
        ("QuotaContext",
          (Option.map x.quotaContext ~f:QuotaContextInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaContext =
        (Option.map ~f:QuotaContextInfo.of_xml)
          (Xml.child xml_arg0 "QuotaContext") in
      let quotaRequestedAtLevel =
        (Option.map ~f:AppliedLevelEnum.of_xml)
          (Xml.child xml_arg0 "QuotaRequestedAtLevel") in
      let unit = (Option.map ~f:QuotaUnit.of_xml) (Xml.child xml_arg0 "Unit") in
      let globalQuota =
        (Option.map ~f:GlobalQuota.of_xml) (Xml.child xml_arg0 "GlobalQuota") in
      let quotaArn =
        (Option.map ~f:QuotaArn.of_xml) (Xml.child xml_arg0 "QuotaArn") in
      let requester =
        (Option.map ~f:Requester.of_xml) (Xml.child xml_arg0 "Requester") in
      let lastUpdated =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "LastUpdated") in
      let created =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "Created") in
      let status =
        (Option.map ~f:RequestStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let desiredValue =
        (Option.map ~f:QuotaValue.of_xml) (Xml.child xml_arg0 "DesiredValue") in
      let quotaName =
        (Option.map ~f:QuotaName.of_xml) (Xml.child xml_arg0 "QuotaName") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      let caseId =
        (Option.map ~f:CustomerServiceEngagementId.of_xml)
          (Xml.child xml_arg0 "CaseId") in
      let requestType =
        (Option.map ~f:RequestType.of_xml) (Xml.child xml_arg0 "RequestType") in
      let id = (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "Id") in
      make ?quotaContext ?quotaRequestedAtLevel ?unit ?globalQuota ?quotaArn
        ?requester ?lastUpdated ?created ?status ?desiredValue ?quotaName
        ?quotaCode ?serviceName ?serviceCode ?caseId ?requestType ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaContext =
        field_map json__ "QuotaContext" QuotaContextInfo.of_json in
      let quotaRequestedAtLevel =
        field_map json__ "QuotaRequestedAtLevel" AppliedLevelEnum.of_json in
      let unit = field_map json__ "Unit" QuotaUnit.of_json in
      let globalQuota = field_map json__ "GlobalQuota" GlobalQuota.of_json in
      let quotaArn = field_map json__ "QuotaArn" QuotaArn.of_json in
      let requester = field_map json__ "Requester" Requester.of_json in
      let lastUpdated = field_map json__ "LastUpdated" DateTime.of_json in
      let created = field_map json__ "Created" DateTime.of_json in
      let status = field_map json__ "Status" RequestStatus.of_json in
      let desiredValue = field_map json__ "DesiredValue" QuotaValue.of_json in
      let quotaName = field_map json__ "QuotaName" QuotaName.of_json in
      let quotaCode = field_map json__ "QuotaCode" QuotaCode.of_json in
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      let caseId =
        field_map json__ "CaseId" CustomerServiceEngagementId.of_json in
      let requestType = field_map json__ "RequestType" RequestType.of_json in
      let id = field_map json__ "Id" RequestId.of_json in
      make ?quotaContext ?quotaRequestedAtLevel ?unit ?globalQuota ?quotaArn
        ?requester ?lastUpdated ?created ?status ?desiredValue ?quotaName
        ?quotaCode ?serviceName ?serviceCode ?caseId ?requestType ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a quota increase request."]
module QuotaUtilizationInfo =
  struct
    type nonrec t =
      {
      quotaCode: QuotaCode.t option [@ocaml.doc "The quota identifier."];
      serviceCode: ServiceCode.t option
        [@ocaml.doc "The service identifier."];
      quotaName: QuotaName.t option [@ocaml.doc "The quota name."];
      namespace: QuotaMetricNamespace.t option
        [@ocaml.doc "The namespace of the metric used to track quota usage."];
      utilization: UtilizationPct.t option
        [@ocaml.doc
          "The utilization percentage of the quota, calculated as (current usage / applied value) \195\151 100. Values range from 0.0 to 100.0 or higher if usage exceeds the quota limit."];
      defaultValue: DefaultValue.t option
        [@ocaml.doc "The default value of the quota."];
      appliedValue: AppliedValue.t option
        [@ocaml.doc
          "The applied value of the quota, which may be higher than the default value if a quota increase has been requested and approved."];
      serviceName: ServiceName.t option [@ocaml.doc "The service name."];
      adjustable: QuotaAdjustable.t option
        [@ocaml.doc "Indicates whether the quota value can be increased."]}
    let make ?quotaCode =
      fun ?serviceCode ->
        fun ?quotaName ->
          fun ?namespace ->
            fun ?utilization ->
              fun ?defaultValue ->
                fun ?appliedValue ->
                  fun ?serviceName ->
                    fun ?adjustable ->
                      fun () ->
                        {
                          quotaCode;
                          serviceCode;
                          quotaName;
                          namespace;
                          utilization;
                          defaultValue;
                          appliedValue;
                          serviceName;
                          adjustable
                        }
    let to_value x =
      structure_to_value
        [("QuotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("QuotaName", (Option.map x.quotaName ~f:QuotaName.to_value));
        ("Namespace",
          (Option.map x.namespace ~f:QuotaMetricNamespace.to_value));
        ("Utilization",
          (Option.map x.utilization ~f:UtilizationPct.to_value));
        ("DefaultValue",
          (Option.map x.defaultValue ~f:DefaultValue.to_value));
        ("AppliedValue",
          (Option.map x.appliedValue ~f:AppliedValue.to_value));
        ("ServiceName", (Option.map x.serviceName ~f:ServiceName.to_value));
        ("Adjustable", (Option.map x.adjustable ~f:QuotaAdjustable.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let adjustable =
        (Option.map ~f:QuotaAdjustable.of_xml)
          (Xml.child xml_arg0 "Adjustable") in
      let serviceName =
        (Option.map ~f:ServiceName.of_xml) (Xml.child xml_arg0 "ServiceName") in
      let appliedValue =
        (Option.map ~f:AppliedValue.of_xml)
          (Xml.child xml_arg0 "AppliedValue") in
      let defaultValue =
        (Option.map ~f:DefaultValue.of_xml)
          (Xml.child xml_arg0 "DefaultValue") in
      let utilization =
        (Option.map ~f:UtilizationPct.of_xml)
          (Xml.child xml_arg0 "Utilization") in
      let namespace =
        (Option.map ~f:QuotaMetricNamespace.of_xml)
          (Xml.child xml_arg0 "Namespace") in
      let quotaName =
        (Option.map ~f:QuotaName.of_xml) (Xml.child xml_arg0 "QuotaName") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      make ?adjustable ?serviceName ?appliedValue ?defaultValue ?utilization
        ?namespace ?quotaName ?serviceCode ?quotaCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let adjustable = field_map json__ "Adjustable" QuotaAdjustable.of_json in
      let serviceName = field_map json__ "ServiceName" ServiceName.of_json in
      let appliedValue = field_map json__ "AppliedValue" AppliedValue.of_json in
      let defaultValue = field_map json__ "DefaultValue" DefaultValue.of_json in
      let utilization = field_map json__ "Utilization" UtilizationPct.of_json in
      let namespace =
        field_map json__ "Namespace" QuotaMetricNamespace.of_json in
      let quotaName = field_map json__ "QuotaName" QuotaName.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      let quotaCode = field_map json__ "QuotaCode" QuotaCode.of_json in
      make ?adjustable ?serviceName ?appliedValue ?defaultValue ?utilization
        ?namespace ?quotaName ?serviceCode ?quotaCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a quota's utilization, including the quota code, service information, current usage, and applied limits."]
module QuotaInfoList =
  struct
    type nonrec t = QuotaInfo.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:QuotaInfo.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:QuotaInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"QuotaInfoList" ~of_json:QuotaInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient permission to perform this action."]
module IllegalArgumentException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invalid input was provided."]
module NoSuchResourceException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource does not exist."]
module ServiceException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Something went wrong."]
module TooManyRequestsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Due to throttling, the request was denied. Slow down the rate of request calls, or request an increase for this quota."]
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1011) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws(-[\\w]+)*:*:.+:[0-9]{12}:.+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module ExclusionList =
  struct
    type nonrec t = (ExcludedService.t * ExcludedQuotaList.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types ExcludedService ExcludedQuotaList"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ExcludedService.to_value x) |>
                    (fun x ->
                       (ExcludedQuotaList.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ExcludedService.of_string
        ~of_json:ExcludedQuotaList.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptInType =
  struct
    type nonrec t =
      | NotifyOnly 
      | NotifyAndAdjust 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NotifyOnly -> "NotifyOnly"
      | NotifyAndAdjust -> "NotifyAndAdjust"
      | Non_static_id s -> s
    let of_string =
      function
      | "NotifyOnly" -> NotifyOnly
      | "NotifyAndAdjust" -> NotifyAndAdjust
      | 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 OptInType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OptInType" j)
    let to_json = simple_to_json to_value
  end
module InputTagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j =
      list_of_json ~kind:"InputTagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagPolicyViolationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified tag is a reserved word and cannot be used."]
module TooManyTagsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've exceeded the number of tags allowed for a resource. For more information, see Tag restrictions in the Service Quotas User Guide."]
module InputTags =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in ok_or_failwith (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: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:"InputTags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidPaginationTokenException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Invalid input was provided."]
module ReportId =
  struct
    type nonrec t = string
    let context_ = "ReportId"
    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:"[0-9a-zA-Z][a-zA-Z0-9-]{1,128}")));
        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:"ReportId" j
    let to_json = simple_to_json to_value
  end
module ReportMessage =
  struct
    type nonrec t = string
    let context_ = "ReportMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:350) >>=
                  (fun () -> check_pattern i ~pattern:"^.{0,350}$")));
        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:"ReportMessage" j
    let to_json = simple_to_json to_value
  end
module ReportStatus =
  struct
    type nonrec t =
      | PENDING 
      | IN_PROGRESS 
      | COMPLETED 
      | FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | IN_PROGRESS -> "IN_PROGRESS"
      | COMPLETED -> "COMPLETED"
      | FAILED -> "FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "IN_PROGRESS" -> IN_PROGRESS
      | "COMPLETED" -> COMPLETED
      | "FAILED" -> FAILED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ReportStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReportStatus" j)
    let to_json = simple_to_json to_value
  end
module OptInLevel =
  struct
    type nonrec t =
      | ACCOUNT 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ACCOUNT -> "ACCOUNT" | Non_static_id s -> s
    let of_string = function | "ACCOUNT" -> ACCOUNT | 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 OptInLevel" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OptInLevel" j)
    let to_json = simple_to_json to_value
  end
module DependencyAccessDeniedException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You can't perform this action because a dependency does not have access."]
module InvalidResourceStateException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource is in an invalid state."]
module QuotaExceededException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You have exceeded your service quota. To perform the requested action, remove some of the relevant resources, or use Service Quotas to request a service quota increase."]
module ResourceAlreadyExistsException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified resource already exists."]
module SupportCaseAllowed =
  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 AWSServiceAccessNotEnabledException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The action you attempted is not allowed unless Service Access with Service Quotas is enabled in your organization."]
module NoAvailableOrganizationException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services account making this call is not a member of an organization."]
module TemplatesNotAvailableInRegionException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Service Quotas template is not available in this Amazon Web Services Region."]
module OutputTags =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:200); 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:"OutputTags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9/+]*={0,2}$"));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ServiceInfoListDefinition =
  struct
    type nonrec t = ServiceInfo.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:ServiceInfo.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:ServiceInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceInfoListDefinition"
        ~of_json:ServiceInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module ServiceQuotaListDefinition =
  struct
    type nonrec t = ServiceQuota.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:ServiceQuota.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:ServiceQuota.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceQuotaListDefinition"
        ~of_json:ServiceQuota.of_json j
    let to_json v = composed_to_json to_value v
  end
module ServiceQuotaIncreaseRequestInTemplateList =
  struct
    type nonrec t = ServiceQuotaIncreaseRequestInTemplate.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:ServiceQuotaIncreaseRequestInTemplate.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:ServiceQuotaIncreaseRequestInTemplate.of_xml)
    let of_json j =
      list_of_json ~kind:"ServiceQuotaIncreaseRequestInTemplateList"
        ~of_json:ServiceQuotaIncreaseRequestInTemplate.of_json j
    let to_json v = composed_to_json to_value v
  end
module RequestedServiceQuotaChangeHistoryListDefinition =
  struct
    type nonrec t = RequestedServiceQuotaChange.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:RequestedServiceQuotaChange.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:RequestedServiceQuotaChange.of_xml)
    let of_json j =
      list_of_json ~kind:"RequestedServiceQuotaChangeHistoryListDefinition"
        ~of_json:RequestedServiceQuotaChange.of_json j
    let to_json v = composed_to_json to_value v
  end
module QuotaUtilizationInfoList =
  struct
    type nonrec t = QuotaUtilizationInfo.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:1000); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:QuotaUtilizationInfo.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:QuotaUtilizationInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"QuotaUtilizationInfoList"
        ~of_json:QuotaUtilizationInfo.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReportErrorCode =
  struct
    type nonrec t = string
    let context_ = "ReportErrorCode"
    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:"[a-zA-Z][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:"ReportErrorCode" j
    let to_json = simple_to_json to_value
  end
module ReportErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ReportErrorMessage"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"^.*$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ReportErrorMessage" j
    let to_json = simple_to_json to_value
  end
module TotalCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2147483647) >>=
             (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for TotalCount" 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 MaxResultsUtilization =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:1000) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResultsUtilization" 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 ExclusionQuotaList =
  struct
    type nonrec t = (ExcludedService.t * QuotaInfoList.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types ExcludedService QuotaInfoList"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ExcludedService.to_value x) |>
                    (fun x -> (QuotaInfoList.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ExcludedService.of_string
        ~of_json:QuotaInfoList.of_json j
    let to_json v = composed_to_json to_value v
  end
module OptInStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | 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 OptInStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OptInStatus" j)
    let to_json = simple_to_json to_value
  end
module ServiceQuotaTemplateAssociationStatus =
  struct
    type nonrec t =
      | ASSOCIATED 
      | DISASSOCIATED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASSOCIATED -> "ASSOCIATED"
      | DISASSOCIATED -> "DISASSOCIATED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASSOCIATED" -> ASSOCIATED
      | "DISASSOCIATED" -> DISASSOCIATED
      | 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 ServiceQuotaTemplateAssociationStatus" xml_arg0)
    let of_json j =
      of_string
        (string_of_json ~kind:"ServiceQuotaTemplateAssociationStatus" j)
    let to_json = simple_to_json to_value
  end
module ServiceQuotaTemplateNotInUseException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The quota request template is not associated with your organization."]
module OrganizationNotInAllFeaturesModeException =
  struct
    type nonrec t = {
      message: ExceptionMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The organization that your Amazon Web Services account belongs to is not in All Features mode."]
module UpdateAutoManagementResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates your Service Quotas Automatic Management configuration, including notification preferences and excluded quotas. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module UpdateAutoManagementRequest =
  struct
    type nonrec t =
      {
      optInType: OptInType.t option
        [@ocaml.doc
          "Information on the opt-in type for your Automatic Management configuration. There are two modes: Notify only and Notify and Auto-Adjust. Currently, only NotifyOnly is available."];
      notificationArn: AmazonResourceName.t option
        [@ocaml.doc
          "The User Notifications Amazon Resource Name (ARN) for Automatic Management notifications you want to update."];
      exclusionList: ExclusionList.t option
        [@ocaml.doc
          "List of Amazon Web Services services you want to exclude from Automatic Management. You won't be notified of Service Quotas utilization for Amazon Web Services services added to the Automatic Management exclusion list."]}
    let make ?optInType =
      fun ?notificationArn ->
        fun ?exclusionList ->
          fun () -> { optInType; notificationArn; exclusionList }
    let to_value x =
      structure_to_value
        [("OptInType", (Option.map x.optInType ~f:OptInType.to_value));
        ("NotificationArn",
          (Option.map x.notificationArn ~f:AmazonResourceName.to_value));
        ("ExclusionList",
          (Option.map x.exclusionList ~f:ExclusionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclusionList =
        (Option.map ~f:ExclusionList.of_xml)
          (Xml.child xml_arg0 "ExclusionList") in
      let notificationArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "NotificationArn") in
      let optInType =
        (Option.map ~f:OptInType.of_xml) (Xml.child xml_arg0 "OptInType") in
      make ?exclusionList ?notificationArn ?optInType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclusionList =
        field_map json__ "ExclusionList" ExclusionList.of_json in
      let notificationArn =
        field_map json__ "NotificationArn" AmazonResourceName.of_json in
      let optInType = field_map json__ "OptInType" OptInType.of_json in
      make ?exclusionList ?notificationArn ?optInType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates your Service Quotas Automatic Management configuration, including notification preferences and excluded quotas. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from the specified applied quota. You can specify one or more tags to remove."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the applied quota that you want to untag. You can get this information by using the Service Quotas console, or by listing the quotas using the list-service-quotas CLI command or the ListServiceQuotas Amazon Web Services API operation."];
      tagKeys: InputTagKeys.t
        [@ocaml.doc
          "The keys of the tags that you want to remove from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("TagKeys", (Some (InputTagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        InputTagKeys.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TagKeys") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "TagKeys" InputTagKeys.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags from the specified applied quota. You can specify one or more tags to remove."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TagPolicyViolationException of TagPolicyViolationException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TagPolicyViolationException" ->
          `TagPolicyViolationException
            (TagPolicyViolationException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TagPolicyViolationException" ->
          `TagPolicyViolationException
            (TagPolicyViolationException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TagPolicyViolationException e ->
          `Assoc
            [("error", (`String "TagPolicyViolationException"));
            ("details", (TagPolicyViolationException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds tags to the specified applied quota. You can include one or more tags to add to the quota."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the applied quota. You can get this information by using the Service Quotas console, or by listing the quotas using the list-service-quotas CLI command or the ListServiceQuotas Amazon Web Services API operation."];
      tags: InputTags.t
        [@ocaml.doc "The tags that you want to add to the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("Tags", (Some (InputTags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        InputTags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Tags") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "Tags" InputTags.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds tags to the specified applied quota. You can include one or more tags to add to the quota."]
module StopAutoManagementResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops Service Quotas Automatic Management for an Amazon Web Services account and removes all associated configurations. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module StopAutoManagementRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops Service Quotas Automatic Management for an Amazon Web Services account and removes all associated configurations. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module StartQuotaUtilizationReportResponse =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option
        [@ocaml.doc
          "A unique identifier for the quota utilization report. Use this identifier with the GetQuotaUtilizationReport operation to retrieve the report results."];
      status: ReportStatus.t option
        [@ocaml.doc
          "The current status of the report generation. The status will be PENDING when the report is first initiated."];
      message: ReportMessage.t option
        [@ocaml.doc
          "An optional message providing additional information about the report generation status. This field may contain details about the report initiation or indicate if an existing recent report is being reused."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId =
      fun ?status -> fun ?message -> fun () -> { reportId; status; message }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("ReportId", (Option.map x.reportId ~f:ReportId.to_value));
        ("Status", (Option.map x.status ~f:ReportStatus.to_value));
        ("Message", (Option.map x.message ~f:ReportMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ReportMessage.of_xml) (Xml.child xml_arg0 "Message") in
      let status =
        (Option.map ~f:ReportStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "ReportId") in
      make ?message ?status ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ReportMessage.of_json in
      let status = field_map json__ "Status" ReportStatus.of_json in
      let reportId = field_map json__ "ReportId" ReportId.of_json in
      make ?message ?status ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates the generation of a quota utilization report for your Amazon Web Services account. This asynchronous operation analyzes your quota usage across all Amazon Web Services services and returns a unique report identifier that you can use to retrieve the results. The report generation process may take several seconds to complete, depending on the number of quotas in your account. Use the GetQuotaUtilizationReport operation to check the status and retrieve the results when the report is ready."]
module StartQuotaUtilizationReportRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates the generation of a quota utilization report for your Amazon Web Services account. This asynchronous operation analyzes your quota usage across all Amazon Web Services services and returns a unique report identifier that you can use to retrieve the results. The report generation process may take several seconds to complete, depending on the number of quotas in your account. Use the GetQuotaUtilizationReport operation to check the status and retrieve the results when the report is ready."]
module StartAutoManagementResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts Service Quotas Automatic Management for an Amazon Web Services account, including notification preferences and excluded quotas configurations. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module StartAutoManagementRequest =
  struct
    type nonrec t =
      {
      optInLevel: OptInLevel.t
        [@ocaml.doc
          "Sets the opt-in level for Automatic Management. Only Amazon Web Services account level is supported."];
      optInType: OptInType.t
        [@ocaml.doc
          "Sets the opt-in type for Automatic Management. There are two modes: Notify only and Notify and Auto-Adjust. Currently, only NotifyOnly is available."];
      notificationArn: AmazonResourceName.t option
        [@ocaml.doc
          "The User Notifications Amazon Resource Name (ARN) for Automatic Management notifications."];
      exclusionList: ExclusionList.t option
        [@ocaml.doc
          "List of Amazon Web Services services excluded from Automatic Management. You won't be notified of Service Quotas utilization for Amazon Web Services services added to the Automatic Management exclusion list."]}
    let context_ = "StartAutoManagementRequest"
    let make ?notificationArn =
      fun ?exclusionList ->
        fun ~optInLevel ->
          fun ~optInType ->
            fun () ->
              { notificationArn; exclusionList; optInLevel; optInType }
    let to_value x =
      structure_to_value
        [("OptInLevel", (Some (OptInLevel.to_value x.optInLevel)));
        ("OptInType", (Some (OptInType.to_value x.optInType)));
        ("NotificationArn",
          (Option.map x.notificationArn ~f:AmazonResourceName.to_value));
        ("ExclusionList",
          (Option.map x.exclusionList ~f:ExclusionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclusionList =
        (Option.map ~f:ExclusionList.of_xml)
          (Xml.child xml_arg0 "ExclusionList") in
      let notificationArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "NotificationArn") in
      let optInType =
        OptInType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptInType") in
      let optInLevel =
        OptInLevel.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OptInLevel") in
      make ?exclusionList ?notificationArn ~optInType ~optInLevel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclusionList =
        field_map json__ "ExclusionList" ExclusionList.of_json in
      let notificationArn =
        field_map json__ "NotificationArn" AmazonResourceName.of_json in
      let optInType = field_map_exn json__ "OptInType" OptInType.of_json in
      let optInLevel = field_map_exn json__ "OptInLevel" OptInLevel.of_json in
      make ?exclusionList ?notificationArn ~optInType ~optInLevel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts Service Quotas Automatic Management for an Amazon Web Services account, including notification preferences and excluded quotas configurations. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module RequestServiceQuotaIncreaseResponse =
  struct
    type nonrec t =
      {
      requestedQuota: RequestedServiceQuotaChange.t option
        [@ocaml.doc "Information about the quota increase request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `QuotaExceededException of QuotaExceededException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?requestedQuota = fun () -> { requestedQuota }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "QuotaExceededException" ->
          `QuotaExceededException (QuotaExceededException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "QuotaExceededException" ->
          `QuotaExceededException (QuotaExceededException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `QuotaExceededException e ->
          `Assoc
            [("error", (`String "QuotaExceededException"));
            ("details", (QuotaExceededException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("RequestedQuota",
           (Option.map x.requestedQuota
              ~f:RequestedServiceQuotaChange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestedQuota =
        (Option.map ~f:RequestedServiceQuotaChange.of_xml)
          (Xml.child xml_arg0 "RequestedQuota") in
      make ?requestedQuota ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestedQuota =
        field_map json__ "RequestedQuota" RequestedServiceQuotaChange.of_json in
      make ?requestedQuota ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Submits a quota increase request for the specified quota at the account or resource level."]
module RequestServiceQuotaIncreaseRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      desiredValue: QuotaValue.t
        [@ocaml.doc "Specifies the new, increased value for the quota."];
      contextId: QuotaContextId.t option
        [@ocaml.doc
          "Specifies the resource with an Amazon Resource Name (ARN)."];
      supportCaseAllowed: SupportCaseAllowed.t option
        [@ocaml.doc
          "Specifies if an Amazon Web Services Support case can be opened for the quota increase request. This parameter is optional. By default, this flag is set to True and Amazon Web Services may create a support case for some quota increase requests. You can set this flag to False if you do not want a support case created when you request a quota increase. If you set the flag to False, Amazon Web Services does not open a support case and updates the request status to Not approved."]}
    let context_ = "RequestServiceQuotaIncreaseRequest"
    let make ?contextId =
      fun ?supportCaseAllowed ->
        fun ~serviceCode ->
          fun ~quotaCode ->
            fun ~desiredValue ->
              fun () ->
                {
                  contextId;
                  supportCaseAllowed;
                  serviceCode;
                  quotaCode;
                  desiredValue
                }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)));
        ("DesiredValue", (Some (QuotaValue.to_value x.desiredValue)));
        ("ContextId", (Option.map x.contextId ~f:QuotaContextId.to_value));
        ("SupportCaseAllowed",
          (Option.map x.supportCaseAllowed ~f:SupportCaseAllowed.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let supportCaseAllowed =
        (Option.map ~f:SupportCaseAllowed.of_xml)
          (Xml.child xml_arg0 "SupportCaseAllowed") in
      let contextId =
        (Option.map ~f:QuotaContextId.of_xml)
          (Xml.child xml_arg0 "ContextId") in
      let desiredValue =
        QuotaValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DesiredValue") in
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ?supportCaseAllowed ?contextId ~desiredValue ~quotaCode
        ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let supportCaseAllowed =
        field_map json__ "SupportCaseAllowed" SupportCaseAllowed.of_json in
      let contextId = field_map json__ "ContextId" QuotaContextId.of_json in
      let desiredValue =
        field_map_exn json__ "DesiredValue" QuotaValue.of_json in
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ?supportCaseAllowed ?contextId ~desiredValue ~quotaCode
        ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Submits a quota increase request for the specified quota at the account or resource level."]
module PutServiceQuotaIncreaseRequestIntoTemplateResponse =
  struct
    type nonrec t =
      {
      serviceQuotaIncreaseRequestInTemplate:
        ServiceQuotaIncreaseRequestInTemplate.t option
        [@ocaml.doc "Information about the quota increase request."]}
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `QuotaExceededException of QuotaExceededException.t 
      | `ServiceException of ServiceException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceQuotaIncreaseRequestInTemplate =
      fun () -> { serviceQuotaIncreaseRequestInTemplate }
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "QuotaExceededException" ->
          `QuotaExceededException (QuotaExceededException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "QuotaExceededException" ->
          `QuotaExceededException (QuotaExceededException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `QuotaExceededException e ->
          `Assoc
            [("error", (`String "QuotaExceededException"));
            ("details", (QuotaExceededException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("ServiceQuotaIncreaseRequestInTemplate",
           (Option.map x.serviceQuotaIncreaseRequestInTemplate
              ~f:ServiceQuotaIncreaseRequestInTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceQuotaIncreaseRequestInTemplate =
        (Option.map ~f:ServiceQuotaIncreaseRequestInTemplate.of_xml)
          (Xml.child xml_arg0 "ServiceQuotaIncreaseRequestInTemplate") in
      make ?serviceQuotaIncreaseRequestInTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceQuotaIncreaseRequestInTemplate =
        field_map json__ "ServiceQuotaIncreaseRequestInTemplate"
          ServiceQuotaIncreaseRequestInTemplate.of_json in
      make ?serviceQuotaIncreaseRequestInTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a quota increase request to your quota request template."]
module PutServiceQuotaIncreaseRequestIntoTemplateRequest =
  struct
    type nonrec t =
      {
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      awsRegion: AwsRegion.t
        [@ocaml.doc
          "Specifies the Amazon Web Services Region to which the template applies."];
      desiredValue: QuotaValue.t
        [@ocaml.doc "Specifies the new, increased value for the quota."]}
    let context_ = "PutServiceQuotaIncreaseRequestIntoTemplateRequest"
    let make ~quotaCode =
      fun ~serviceCode ->
        fun ~awsRegion ->
          fun ~desiredValue ->
            fun () -> { quotaCode; serviceCode; awsRegion; desiredValue }
    let to_value x =
      structure_to_value
        [("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)));
        ("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("AwsRegion", (Some (AwsRegion.to_value x.awsRegion)));
        ("DesiredValue", (Some (QuotaValue.to_value x.desiredValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let desiredValue =
        QuotaValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DesiredValue") in
      let awsRegion =
        AwsRegion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AwsRegion") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      make ~desiredValue ~awsRegion ~serviceCode ~quotaCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let desiredValue =
        field_map_exn json__ "DesiredValue" QuotaValue.of_json in
      let awsRegion = field_map_exn json__ "AwsRegion" AwsRegion.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      make ~desiredValue ~awsRegion ~serviceCode ~quotaCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a quota increase request to your quota request template."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: OutputTags.t option
        [@ocaml.doc
          "A complex data type that contains zero or more tag elements."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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:OutputTags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        (Option.map ~f:OutputTags.of_xml) (Xml.child xml_arg0 "Tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "Tags" OutputTags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the tags assigned to the specified applied quota."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the applied quota for which you want to list tags. You can get this information by using the Service Quotas console, or by listing the quotas using the list-service-quotas CLI command or the ListServiceQuotas Amazon Web Services API operation."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (AmazonResourceName.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN =
        field_map_exn json__ "ResourceARN" AmazonResourceName.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the tags assigned to the specified applied quota."]
module ListServicesResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null."];
      services: ServiceInfoListDefinition.t option
        [@ocaml.doc
          "The list of the Amazon Web Services service names and service codes."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?services -> fun () -> { nextToken; services }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Services",
          (Option.map x.services ~f:ServiceInfoListDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let services =
        (Option.map ~f:ServiceInfoListDefinition.of_xml)
          (Xml.child xml_arg0 "Services") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?services ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let services =
        field_map json__ "Services" ServiceInfoListDefinition.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?services ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the names and codes for the Amazon Web Services services integrated with Service Quotas."]
module ListServicesRequest =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies a value for receiving additional results after you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the names and codes for the Amazon Web Services services integrated with Service Quotas."]
module ListServiceQuotasResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null."];
      quotas: ServiceQuotaListDefinition.t option
        [@ocaml.doc "Information about the quotas."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?quotas -> fun () -> { nextToken; quotas }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Quotas",
          (Option.map x.quotas ~f:ServiceQuotaListDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotas =
        (Option.map ~f:ServiceQuotaListDefinition.of_xml)
          (Xml.child xml_arg0 "Quotas") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?quotas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotas =
        field_map json__ "Quotas" ServiceQuotaListDefinition.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?quotas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the applied quota values for the specified Amazon Web Services service. For some quotas, only the default values are available. If the applied quota value is not available for a quota, the quota is not retrieved. Filter responses to return applied quota values at either the account level, resource level, or all levels."]
module ListServiceQuotasRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies a value for receiving additional results after you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      quotaCode: QuotaCode.t option
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      quotaAppliedAtLevel: AppliedLevelEnum.t option
        [@ocaml.doc
          "Filters the response to return applied quota values for the ACCOUNT, RESOURCE, or ALL levels. ACCOUNT is the default."]}
    let context_ = "ListServiceQuotasRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ?quotaCode ->
          fun ?quotaAppliedAtLevel ->
            fun ~serviceCode ->
              fun () ->
                {
                  nextToken;
                  maxResults;
                  quotaCode;
                  quotaAppliedAtLevel;
                  serviceCode
                }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("QuotaCode", (Option.map x.quotaCode ~f:QuotaCode.to_value));
        ("QuotaAppliedAtLevel",
          (Option.map x.quotaAppliedAtLevel ~f:AppliedLevelEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaAppliedAtLevel =
        (Option.map ~f:AppliedLevelEnum.of_xml)
          (Xml.child xml_arg0 "QuotaAppliedAtLevel") in
      let quotaCode =
        (Option.map ~f:QuotaCode.of_xml) (Xml.child xml_arg0 "QuotaCode") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ?quotaAppliedAtLevel ?quotaCode ?maxResults ?nextToken
        ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaAppliedAtLevel =
        field_map json__ "QuotaAppliedAtLevel" AppliedLevelEnum.of_json in
      let quotaCode = field_map json__ "QuotaCode" QuotaCode.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ?quotaAppliedAtLevel ?quotaCode ?maxResults ?nextToken
        ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the applied quota values for the specified Amazon Web Services service. For some quotas, only the default values are available. If the applied quota value is not available for a quota, the quota is not retrieved. Filter responses to return applied quota values at either the account level, resource level, or all levels."]
module ListServiceQuotaIncreaseRequestsInTemplateResponse =
  struct
    type nonrec t =
      {
      serviceQuotaIncreaseRequestInTemplateList:
        ServiceQuotaIncreaseRequestInTemplateList.t option
        [@ocaml.doc "Information about the quota increase requests."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null."]}
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `ServiceException of ServiceException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceQuotaIncreaseRequestInTemplateList =
      fun ?nextToken ->
        fun () -> { serviceQuotaIncreaseRequestInTemplateList; nextToken }
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("ServiceQuotaIncreaseRequestInTemplateList",
           (Option.map x.serviceQuotaIncreaseRequestInTemplateList
              ~f:ServiceQuotaIncreaseRequestInTemplateList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let serviceQuotaIncreaseRequestInTemplateList =
        (Option.map ~f:ServiceQuotaIncreaseRequestInTemplateList.of_xml)
          (Xml.child xml_arg0 "ServiceQuotaIncreaseRequestInTemplateList") in
      make ?nextToken ?serviceQuotaIncreaseRequestInTemplateList ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let serviceQuotaIncreaseRequestInTemplateList =
        field_map json__ "ServiceQuotaIncreaseRequestInTemplateList"
          ServiceQuotaIncreaseRequestInTemplateList.of_json in
      make ?nextToken ?serviceQuotaIncreaseRequestInTemplateList ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the quota increase requests in the specified quota request template."]
module ListServiceQuotaIncreaseRequestsInTemplateRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      awsRegion: AwsRegion.t option
        [@ocaml.doc
          "Specifies the Amazon Web Services Region for which you made the request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies a value for receiving additional results after you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."]}
    let make ?serviceCode =
      fun ?awsRegion ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun () -> { serviceCode; awsRegion; nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("AwsRegion", (Option.map x.awsRegion ~f:AwsRegion.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let awsRegion =
        (Option.map ~f:AwsRegion.of_xml) (Xml.child xml_arg0 "AwsRegion") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      make ?maxResults ?nextToken ?awsRegion ?serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let awsRegion = field_map json__ "AwsRegion" AwsRegion.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      make ?maxResults ?nextToken ?awsRegion ?serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the quota increase requests in the specified quota request template."]
module ListRequestedServiceQuotaChangeHistoryResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null."];
      requestedQuotas:
        RequestedServiceQuotaChangeHistoryListDefinition.t option
        [@ocaml.doc "Information about the quota increase requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?requestedQuotas -> fun () -> { nextToken; requestedQuotas }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("RequestedQuotas",
          (Option.map x.requestedQuotas
             ~f:RequestedServiceQuotaChangeHistoryListDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestedQuotas =
        (Option.map
           ~f:RequestedServiceQuotaChangeHistoryListDefinition.of_xml)
          (Xml.child xml_arg0 "RequestedQuotas") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?requestedQuotas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestedQuotas =
        field_map json__ "RequestedQuotas"
          RequestedServiceQuotaChangeHistoryListDefinition.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?requestedQuotas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the quota increase requests for the specified Amazon Web Services service. Filter responses to return quota requests at either the account level, resource level, or all levels. Responses include any open or closed requests within 90 days."]
module ListRequestedServiceQuotaChangeHistoryRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t option
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      status: RequestStatus.t option
        [@ocaml.doc
          "Specifies that you want to filter the results to only the requests with the matching status."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies a value for receiving additional results after you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      quotaRequestedAtLevel: AppliedLevelEnum.t option
        [@ocaml.doc
          "Filters the response to return quota requests for the ACCOUNT, RESOURCE, or ALL levels. ACCOUNT is the default."]}
    let make ?serviceCode =
      fun ?status ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ?quotaRequestedAtLevel ->
              fun () ->
                {
                  serviceCode;
                  status;
                  nextToken;
                  maxResults;
                  quotaRequestedAtLevel
                }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Option.map x.serviceCode ~f:ServiceCode.to_value));
        ("Status", (Option.map x.status ~f:RequestStatus.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("QuotaRequestedAtLevel",
          (Option.map x.quotaRequestedAtLevel ~f:AppliedLevelEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaRequestedAtLevel =
        (Option.map ~f:AppliedLevelEnum.of_xml)
          (Xml.child xml_arg0 "QuotaRequestedAtLevel") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let status =
        (Option.map ~f:RequestStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let serviceCode =
        (Option.map ~f:ServiceCode.of_xml) (Xml.child xml_arg0 "ServiceCode") in
      make ?quotaRequestedAtLevel ?maxResults ?nextToken ?status ?serviceCode
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaRequestedAtLevel =
        field_map json__ "QuotaRequestedAtLevel" AppliedLevelEnum.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let status = field_map json__ "Status" RequestStatus.of_json in
      let serviceCode = field_map json__ "ServiceCode" ServiceCode.of_json in
      make ?quotaRequestedAtLevel ?maxResults ?nextToken ?status ?serviceCode
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the quota increase requests for the specified Amazon Web Services service. Filter responses to return quota requests at either the account level, resource level, or all levels. Responses include any open or closed requests within 90 days."]
module ListRequestedServiceQuotaChangeHistoryByQuotaResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null."];
      requestedQuotas:
        RequestedServiceQuotaChangeHistoryListDefinition.t option
        [@ocaml.doc "Information about the quota increase requests."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?requestedQuotas -> fun () -> { nextToken; requestedQuotas }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("RequestedQuotas",
          (Option.map x.requestedQuotas
             ~f:RequestedServiceQuotaChangeHistoryListDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestedQuotas =
        (Option.map
           ~f:RequestedServiceQuotaChangeHistoryListDefinition.of_xml)
          (Xml.child xml_arg0 "RequestedQuotas") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?requestedQuotas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestedQuotas =
        field_map json__ "RequestedQuotas"
          RequestedServiceQuotaChangeHistoryListDefinition.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?requestedQuotas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the quota increase requests for the specified quota. Filter responses to return quota requests at either the account level, resource level, or all levels."]
module ListRequestedServiceQuotaChangeHistoryByQuotaRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      status: RequestStatus.t option
        [@ocaml.doc
          "Specifies that you want to filter the results to only the requests with the matching status."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies a value for receiving additional results after you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."];
      quotaRequestedAtLevel: AppliedLevelEnum.t option
        [@ocaml.doc
          "Filters the response to return quota requests for the ACCOUNT, RESOURCE, or ALL levels. ACCOUNT is the default."]}
    let context_ = "ListRequestedServiceQuotaChangeHistoryByQuotaRequest"
    let make ?status =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?quotaRequestedAtLevel ->
            fun ~serviceCode ->
              fun ~quotaCode ->
                fun () ->
                  {
                    status;
                    nextToken;
                    maxResults;
                    quotaRequestedAtLevel;
                    serviceCode;
                    quotaCode
                  }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)));
        ("Status", (Option.map x.status ~f:RequestStatus.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("QuotaRequestedAtLevel",
          (Option.map x.quotaRequestedAtLevel ~f:AppliedLevelEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaRequestedAtLevel =
        (Option.map ~f:AppliedLevelEnum.of_xml)
          (Xml.child xml_arg0 "QuotaRequestedAtLevel") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let status =
        (Option.map ~f:RequestStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ?quotaRequestedAtLevel ?maxResults ?nextToken ?status ~quotaCode
        ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaRequestedAtLevel =
        field_map json__ "QuotaRequestedAtLevel" AppliedLevelEnum.of_json in
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let status = field_map json__ "Status" RequestStatus.of_json in
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ?quotaRequestedAtLevel ?maxResults ?nextToken ?status ~quotaCode
        ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the quota increase requests for the specified quota. Filter responses to return quota requests at either the account level, resource level, or all levels."]
module ListAWSDefaultServiceQuotasResponse =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "If present, indicates that more output is available than is included in the current response. Use this value in the NextToken request parameter in a subsequent call to the operation to get the next part of the output. You should repeat this until the NextToken response element comes back as null."];
      quotas: ServiceQuotaListDefinition.t option
        [@ocaml.doc "Information about the quotas."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidPaginationTokenException of InvalidPaginationTokenException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken = fun ?quotas -> fun () -> { nextToken; quotas }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidPaginationTokenException" ->
          `InvalidPaginationTokenException
            (InvalidPaginationTokenException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidPaginationTokenException e ->
          `Assoc
            [("error", (`String "InvalidPaginationTokenException"));
            ("details", (InvalidPaginationTokenException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("Quotas",
          (Option.map x.quotas ~f:ServiceQuotaListDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotas =
        (Option.map ~f:ServiceQuotaListDefinition.of_xml)
          (Xml.child xml_arg0 "Quotas") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      make ?quotas ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotas =
        field_map json__ "Quotas" ServiceQuotaListDefinition.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      make ?quotas ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the default values for the quotas for the specified Amazon Web Services service. A default value does not reflect any quota increases."]
module ListAWSDefaultServiceQuotasRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Specifies a value for receiving additional results after you receive a NextToken response in a previous request. A NextToken response indicates that more output is available. Set this parameter to the value of the previous call's NextToken response to indicate where the output should continue from."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of results that you want included on each page of the response. If you do not include this parameter, it defaults to a value appropriate to the operation. If additional items exist beyond those included in the current response, the NextToken response element is present and has a value (is not null). Include that value as the NextToken request parameter in the next call to the operation to get the next part of the results. An API operation can return fewer results than the maximum even when there are more results available. You should check NextToken after every operation to ensure that you receive all of the results."]}
    let context_ = "ListAWSDefaultServiceQuotasRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~serviceCode -> fun () -> { nextToken; maxResults; serviceCode }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ?maxResults ?nextToken ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" MaxResults.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ?maxResults ?nextToken ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the default values for the quotas for the specified Amazon Web Services service. A default value does not reflect any quota increases."]
module GetServiceQuotaResponse =
  struct
    type nonrec t =
      {
      quota: ServiceQuota.t option
        [@ocaml.doc "Information about the quota."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?quota = fun () -> { quota }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("Quota", (Option.map x.quota ~f:ServiceQuota.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quota =
        (Option.map ~f:ServiceQuota.of_xml) (Xml.child xml_arg0 "Quota") in
      make ?quota ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quota = field_map json__ "Quota" ServiceQuota.of_json in
      make ?quota ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the applied quota value for the specified account-level or resource-level quota. For some quotas, only the default values are available. If the applied quota value is not available for a quota, the quota is not retrieved."]
module GetServiceQuotaRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      contextId: QuotaContextId.t option
        [@ocaml.doc
          "Specifies the resource with an Amazon Resource Name (ARN)."]}
    let context_ = "GetServiceQuotaRequest"
    let make ?contextId =
      fun ~serviceCode ->
        fun ~quotaCode -> fun () -> { contextId; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)));
        ("ContextId", (Option.map x.contextId ~f:QuotaContextId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contextId =
        (Option.map ~f:QuotaContextId.of_xml)
          (Xml.child xml_arg0 "ContextId") in
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ?contextId ~quotaCode ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contextId = field_map json__ "ContextId" QuotaContextId.of_json in
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ?contextId ~quotaCode ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the applied quota value for the specified account-level or resource-level quota. For some quotas, only the default values are available. If the applied quota value is not available for a quota, the quota is not retrieved."]
module GetServiceQuotaIncreaseRequestFromTemplateResponse =
  struct
    type nonrec t =
      {
      serviceQuotaIncreaseRequestInTemplate:
        ServiceQuotaIncreaseRequestInTemplate.t option
        [@ocaml.doc "Information about the quota increase request."]}
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceQuotaIncreaseRequestInTemplate =
      fun () -> { serviceQuotaIncreaseRequestInTemplate }
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("ServiceQuotaIncreaseRequestInTemplate",
           (Option.map x.serviceQuotaIncreaseRequestInTemplate
              ~f:ServiceQuotaIncreaseRequestInTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceQuotaIncreaseRequestInTemplate =
        (Option.map ~f:ServiceQuotaIncreaseRequestInTemplate.of_xml)
          (Xml.child xml_arg0 "ServiceQuotaIncreaseRequestInTemplate") in
      make ?serviceQuotaIncreaseRequestInTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceQuotaIncreaseRequestInTemplate =
        field_map json__ "ServiceQuotaIncreaseRequestInTemplate"
          ServiceQuotaIncreaseRequestInTemplate.of_json in
      make ?serviceQuotaIncreaseRequestInTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified quota increase request in your quota request template."]
module GetServiceQuotaIncreaseRequestFromTemplateRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      awsRegion: AwsRegion.t
        [@ocaml.doc
          "Specifies the Amazon Web Services Region for which you made the request."]}
    let context_ = "GetServiceQuotaIncreaseRequestFromTemplateRequest"
    let make ~serviceCode =
      fun ~quotaCode ->
        fun ~awsRegion -> fun () -> { serviceCode; quotaCode; awsRegion }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)));
        ("AwsRegion", (Some (AwsRegion.to_value x.awsRegion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsRegion =
        AwsRegion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AwsRegion") in
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ~awsRegion ~quotaCode ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsRegion = field_map_exn json__ "AwsRegion" AwsRegion.of_json in
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ~awsRegion ~quotaCode ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified quota increase request in your quota request template."]
module GetRequestedServiceQuotaChangeResponse =
  struct
    type nonrec t =
      {
      requestedQuota: RequestedServiceQuotaChange.t option
        [@ocaml.doc "Information about the quota increase request."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?requestedQuota = fun () -> { requestedQuota }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("RequestedQuota",
           (Option.map x.requestedQuota
              ~f:RequestedServiceQuotaChange.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestedQuota =
        (Option.map ~f:RequestedServiceQuotaChange.of_xml)
          (Xml.child xml_arg0 "RequestedQuota") in
      make ?requestedQuota ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestedQuota =
        field_map json__ "RequestedQuota" RequestedServiceQuotaChange.of_json in
      make ?requestedQuota ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified quota increase request."]
module GetRequestedServiceQuotaChangeRequest =
  struct
    type nonrec t =
      {
      requestId: RequestId.t
        [@ocaml.doc "Specifies the ID of the quota increase request."]}
    let context_ = "GetRequestedServiceQuotaChangeRequest"
    let make ~requestId = fun () -> { requestId }
    let to_value x =
      structure_to_value
        [("RequestId", (Some (RequestId.to_value x.requestId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        RequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RequestId") in
      make ~requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map_exn json__ "RequestId" RequestId.of_json in
      make ~requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about the specified quota increase request."]
module GetQuotaUtilizationReportResponse =
  struct
    type nonrec t =
      {
      reportId: ReportId.t option
        [@ocaml.doc
          "The unique identifier for the quota utilization report."];
      status: ReportStatus.t option
        [@ocaml.doc
          "The current status of the report generation. Possible values are: PENDING - The report generation is in progress. Retry this operation after a few seconds. IN_PROGRESS - The report is being processed. Continue polling until the status changes to COMPLETED. COMPLETED - The report is ready and quota utilization data is available in the response. FAILED - The report generation failed. Check the ErrorCode and ErrorMessage fields for details."];
      generatedAt: DateTime.t option
        [@ocaml.doc
          "The timestamp when the report was generated, in ISO 8601 format."];
      totalCount: TotalCount.t option
        [@ocaml.doc
          "The total number of quotas included in the report across all pages."];
      quotas: QuotaUtilizationInfoList.t option
        [@ocaml.doc
          "A list of quota utilization records, sorted by utilization percentage in descending order. Each record includes the quota code, service code, service name, quota name, namespace, utilization percentage, default value, applied value, and whether the quota is adjustable. Up to 1,000 records are returned per page."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates more results are available. Include this token in the next request to retrieve the next page of results. If this field is not present, you have retrieved all available results."];
      errorCode: ReportErrorCode.t option
        [@ocaml.doc
          "An error code indicating the reason for failure when the report status is FAILED. This field is only present when the status is FAILED."];
      errorMessage: ReportErrorMessage.t option
        [@ocaml.doc
          "A detailed error message describing the failure when the report status is FAILED. This field is only present when the status is FAILED."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reportId =
      fun ?status ->
        fun ?generatedAt ->
          fun ?totalCount ->
            fun ?quotas ->
              fun ?nextToken ->
                fun ?errorCode ->
                  fun ?errorMessage ->
                    fun () ->
                      {
                        reportId;
                        status;
                        generatedAt;
                        totalCount;
                        quotas;
                        nextToken;
                        errorCode;
                        errorMessage
                      }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("ReportId", (Option.map x.reportId ~f:ReportId.to_value));
        ("Status", (Option.map x.status ~f:ReportStatus.to_value));
        ("GeneratedAt", (Option.map x.generatedAt ~f:DateTime.to_value));
        ("TotalCount", (Option.map x.totalCount ~f:TotalCount.to_value));
        ("Quotas",
          (Option.map x.quotas ~f:QuotaUtilizationInfoList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("ErrorCode", (Option.map x.errorCode ~f:ReportErrorCode.to_value));
        ("ErrorMessage",
          (Option.map x.errorMessage ~f:ReportErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ReportErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage") in
      let errorCode =
        (Option.map ~f:ReportErrorCode.of_xml)
          (Xml.child xml_arg0 "ErrorCode") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let quotas =
        (Option.map ~f:QuotaUtilizationInfoList.of_xml)
          (Xml.child xml_arg0 "Quotas") in
      let totalCount =
        (Option.map ~f:TotalCount.of_xml) (Xml.child xml_arg0 "TotalCount") in
      let generatedAt =
        (Option.map ~f:DateTime.of_xml) (Xml.child xml_arg0 "GeneratedAt") in
      let status =
        (Option.map ~f:ReportStatus.of_xml) (Xml.child xml_arg0 "Status") in
      let reportId =
        (Option.map ~f:ReportId.of_xml) (Xml.child xml_arg0 "ReportId") in
      make ?errorMessage ?errorCode ?nextToken ?quotas ?totalCount
        ?generatedAt ?status ?reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage =
        field_map json__ "ErrorMessage" ReportErrorMessage.of_json in
      let errorCode = field_map json__ "ErrorCode" ReportErrorCode.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let quotas = field_map json__ "Quotas" QuotaUtilizationInfoList.of_json in
      let totalCount = field_map json__ "TotalCount" TotalCount.of_json in
      let generatedAt = field_map json__ "GeneratedAt" DateTime.of_json in
      let status = field_map json__ "Status" ReportStatus.of_json in
      let reportId = field_map json__ "ReportId" ReportId.of_json in
      make ?errorMessage ?errorCode ?nextToken ?quotas ?totalCount
        ?generatedAt ?status ?reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the quota utilization report for your Amazon Web Services account. This operation returns paginated results showing your quota usage across all Amazon Web Services services, sorted by utilization percentage in descending order (highest utilization first). You must first initiate a report using the StartQuotaUtilizationReport operation. The report generation process is asynchronous and may take several seconds to complete. Poll this operation periodically to check the status and retrieve results when the report is ready. Each report contains up to 1,000 quota records per page. Use the NextToken parameter to retrieve additional pages of results. Reports are automatically deleted after 15 minutes."]
module GetQuotaUtilizationReportRequest =
  struct
    type nonrec t =
      {
      reportId: ReportId.t
        [@ocaml.doc
          "The unique identifier for the quota utilization report. This identifier is returned by the StartQuotaUtilizationReport operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "A token that indicates the next page of results to retrieve. This token is returned in the response when there are more results available. Omit this parameter for the first request."];
      maxResults: MaxResultsUtilization.t option
        [@ocaml.doc
          "The maximum number of results to return per page. The default value is 1,000 and the maximum allowed value is 1,000."]}
    let context_ = "GetQuotaUtilizationReportRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~reportId -> fun () -> { nextToken; maxResults; reportId }
    let to_value x =
      structure_to_value
        [("ReportId", (Some (ReportId.to_value x.reportId)));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("MaxResults",
          (Option.map x.maxResults ~f:MaxResultsUtilization.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResultsUtilization.of_xml)
          (Xml.child xml_arg0 "MaxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let reportId =
        ReportId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ReportId") in
      make ?maxResults ?nextToken ~reportId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults =
        field_map json__ "MaxResults" MaxResultsUtilization.of_json in
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let reportId = field_map_exn json__ "ReportId" ReportId.of_json in
      make ?maxResults ?nextToken ~reportId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the quota utilization report for your Amazon Web Services account. This operation returns paginated results showing your quota usage across all Amazon Web Services services, sorted by utilization percentage in descending order (highest utilization first). You must first initiate a report using the StartQuotaUtilizationReport operation. The report generation process is asynchronous and may take several seconds to complete. Poll this operation periodically to check the status and retrieve results when the report is ready. Each report contains up to 1,000 quota records per page. Use the NextToken parameter to retrieve additional pages of results. Reports are automatically deleted after 15 minutes."]
module GetAutoManagementConfigurationResponse =
  struct
    type nonrec t =
      {
      optInLevel: OptInLevel.t option
        [@ocaml.doc
          "Information on the opt-in level for Automatic Management. Only Amazon Web Services account level is supported."];
      optInType: OptInType.t option
        [@ocaml.doc
          "Information on the opt-in type for Automatic Management. There are two modes: Notify only and Notify and Auto-Adjust. Currently, only NotifyOnly is available."];
      notificationArn: AmazonResourceName.t option
        [@ocaml.doc
          "The User Notifications Amazon Resource Name (ARN) for Automatic Management notifications."];
      optInStatus: OptInStatus.t option
        [@ocaml.doc
          "Status on whether Automatic Management is started or stopped."];
      exclusionList: ExclusionQuotaList.t option
        [@ocaml.doc
          "List of Amazon Web Services services excluded from Automatic Management. You won't be notified of Service Quotas utilization for Amazon Web Services services added to the Automatic Management exclusion list."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?optInLevel =
      fun ?optInType ->
        fun ?notificationArn ->
          fun ?optInStatus ->
            fun ?exclusionList ->
              fun () ->
                {
                  optInLevel;
                  optInType;
                  notificationArn;
                  optInStatus;
                  exclusionList
                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("OptInLevel", (Option.map x.optInLevel ~f:OptInLevel.to_value));
        ("OptInType", (Option.map x.optInType ~f:OptInType.to_value));
        ("NotificationArn",
          (Option.map x.notificationArn ~f:AmazonResourceName.to_value));
        ("OptInStatus", (Option.map x.optInStatus ~f:OptInStatus.to_value));
        ("ExclusionList",
          (Option.map x.exclusionList ~f:ExclusionQuotaList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclusionList =
        (Option.map ~f:ExclusionQuotaList.of_xml)
          (Xml.child xml_arg0 "ExclusionList") in
      let optInStatus =
        (Option.map ~f:OptInStatus.of_xml) (Xml.child xml_arg0 "OptInStatus") in
      let notificationArn =
        (Option.map ~f:AmazonResourceName.of_xml)
          (Xml.child xml_arg0 "NotificationArn") in
      let optInType =
        (Option.map ~f:OptInType.of_xml) (Xml.child xml_arg0 "OptInType") in
      let optInLevel =
        (Option.map ~f:OptInLevel.of_xml) (Xml.child xml_arg0 "OptInLevel") in
      make ?exclusionList ?optInStatus ?notificationArn ?optInType
        ?optInLevel ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclusionList =
        field_map json__ "ExclusionList" ExclusionQuotaList.of_json in
      let optInStatus = field_map json__ "OptInStatus" OptInStatus.of_json in
      let notificationArn =
        field_map json__ "NotificationArn" AmazonResourceName.of_json in
      let optInType = field_map json__ "OptInType" OptInType.of_json in
      let optInLevel = field_map json__ "OptInLevel" OptInLevel.of_json in
      make ?exclusionList ?optInStatus ?notificationArn ?optInType
        ?optInLevel ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about your Service Quotas Automatic Management configuration. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module GetAutoManagementConfigurationRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves information about your Service Quotas Automatic Management configuration. Automatic Management monitors your Service Quotas utilization and notifies you before you run out of your allocated quotas."]
module GetAssociationForServiceQuotaTemplateResponse =
  struct
    type nonrec t =
      {
      serviceQuotaTemplateAssociationStatus:
        ServiceQuotaTemplateAssociationStatus.t option
        [@ocaml.doc
          "The association status. If the status is ASSOCIATED, the quota increase requests in the template are automatically applied to new Amazon Web Services accounts in your organization."]}
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `ServiceException of ServiceException.t 
      | `ServiceQuotaTemplateNotInUseException of
          ServiceQuotaTemplateNotInUseException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?serviceQuotaTemplateAssociationStatus =
      fun () -> { serviceQuotaTemplateAssociationStatus }
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "ServiceQuotaTemplateNotInUseException" ->
          `ServiceQuotaTemplateNotInUseException
            (ServiceQuotaTemplateNotInUseException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "ServiceQuotaTemplateNotInUseException" ->
          `ServiceQuotaTemplateNotInUseException
            (ServiceQuotaTemplateNotInUseException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `ServiceQuotaTemplateNotInUseException e ->
          `Assoc
            [("error", (`String "ServiceQuotaTemplateNotInUseException"));
            ("details", (ServiceQuotaTemplateNotInUseException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("ServiceQuotaTemplateAssociationStatus",
           (Option.map x.serviceQuotaTemplateAssociationStatus
              ~f:ServiceQuotaTemplateAssociationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let serviceQuotaTemplateAssociationStatus =
        (Option.map ~f:ServiceQuotaTemplateAssociationStatus.of_xml)
          (Xml.child xml_arg0 "ServiceQuotaTemplateAssociationStatus") in
      make ?serviceQuotaTemplateAssociationStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let serviceQuotaTemplateAssociationStatus =
        field_map json__ "ServiceQuotaTemplateAssociationStatus"
          ServiceQuotaTemplateAssociationStatus.of_json in
      make ?serviceQuotaTemplateAssociationStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of the association for the quota request template."]
module GetAssociationForServiceQuotaTemplateRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the status of the association for the quota request template."]
module GetAWSDefaultServiceQuotaResponse =
  struct
    type nonrec t =
      {
      quota: ServiceQuota.t option
        [@ocaml.doc "Information about the quota."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?quota = fun () -> { quota }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("Quota", (Option.map x.quota ~f:ServiceQuota.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quota =
        (Option.map ~f:ServiceQuota.of_xml) (Xml.child xml_arg0 "Quota") in
      make ?quota ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quota = field_map json__ "Quota" ServiceQuota.of_json in
      make ?quota ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the default value for the specified quota. The default value does not reflect any quota increases."]
module GetAWSDefaultServiceQuotaRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."]}
    let context_ = "GetAWSDefaultServiceQuotaRequest"
    let make ~serviceCode =
      fun ~quotaCode -> fun () -> { serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ~quotaCode ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ~quotaCode ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the default value for the specified quota. The default value does not reflect any quota increases."]
module DisassociateServiceQuotaTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `ServiceException of ServiceException.t 
      | `ServiceQuotaTemplateNotInUseException of
          ServiceQuotaTemplateNotInUseException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "ServiceQuotaTemplateNotInUseException" ->
          `ServiceQuotaTemplateNotInUseException
            (ServiceQuotaTemplateNotInUseException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "ServiceQuotaTemplateNotInUseException" ->
          `ServiceQuotaTemplateNotInUseException
            (ServiceQuotaTemplateNotInUseException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `ServiceQuotaTemplateNotInUseException e ->
          `Assoc
            [("error", (`String "ServiceQuotaTemplateNotInUseException"));
            ("details", (ServiceQuotaTemplateNotInUseException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables your quota request template. After a template is disabled, the quota increase requests in the template are not applied to new Amazon Web Services accounts in your organization. Disabling a quota request template does not apply its quota increase requests."]
module DisassociateServiceQuotaTemplateRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disables your quota request template. After a template is disabled, the quota increase requests in the template are not applied to new Amazon Web Services accounts in your organization. Disabling a quota request template does not apply its quota increase requests."]
module DeleteServiceQuotaIncreaseRequestFromTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ServiceException of ServiceException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the quota increase request for the specified quota from your quota request template."]
module DeleteServiceQuotaIncreaseRequestFromTemplateRequest =
  struct
    type nonrec t =
      {
      serviceCode: ServiceCode.t
        [@ocaml.doc
          "Specifies the service identifier. To find the service code value for an Amazon Web Services service, use the ListServices operation."];
      quotaCode: QuotaCode.t
        [@ocaml.doc
          "Specifies the quota identifier. To find the quota code for a specific quota, use the ListServiceQuotas operation, and look for the QuotaCode response in the output for the quota you want."];
      awsRegion: AwsRegion.t
        [@ocaml.doc
          "Specifies the Amazon Web Services Region for which the request was made."]}
    let context_ = "DeleteServiceQuotaIncreaseRequestFromTemplateRequest"
    let make ~serviceCode =
      fun ~quotaCode ->
        fun ~awsRegion -> fun () -> { serviceCode; quotaCode; awsRegion }
    let to_value x =
      structure_to_value
        [("ServiceCode", (Some (ServiceCode.to_value x.serviceCode)));
        ("QuotaCode", (Some (QuotaCode.to_value x.quotaCode)));
        ("AwsRegion", (Some (AwsRegion.to_value x.awsRegion)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let awsRegion =
        AwsRegion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "AwsRegion") in
      let quotaCode =
        QuotaCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "QuotaCode") in
      let serviceCode =
        ServiceCode.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ServiceCode") in
      make ~awsRegion ~quotaCode ~serviceCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let awsRegion = field_map_exn json__ "AwsRegion" AwsRegion.of_json in
      let quotaCode = field_map_exn json__ "QuotaCode" QuotaCode.of_json in
      let serviceCode =
        field_map_exn json__ "ServiceCode" ServiceCode.of_json in
      make ~awsRegion ~quotaCode ~serviceCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the quota increase request for the specified quota from your quota request template."]
module CreateSupportCaseResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `IllegalArgumentException of IllegalArgumentException.t 
      | `InvalidResourceStateException of InvalidResourceStateException.t 
      | `NoSuchResourceException of NoSuchResourceException.t 
      | `ResourceAlreadyExistsException of ResourceAlreadyExistsException.t 
      | `ServiceException of ServiceException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_json json)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_json json)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_json json)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "IllegalArgumentException" ->
          `IllegalArgumentException (IllegalArgumentException.of_xml xml)
      | "InvalidResourceStateException" ->
          `InvalidResourceStateException
            (InvalidResourceStateException.of_xml xml)
      | "NoSuchResourceException" ->
          `NoSuchResourceException (NoSuchResourceException.of_xml xml)
      | "ResourceAlreadyExistsException" ->
          `ResourceAlreadyExistsException
            (ResourceAlreadyExistsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `IllegalArgumentException e ->
          `Assoc
            [("error", (`String "IllegalArgumentException"));
            ("details", (IllegalArgumentException.to_json e))]
      | `InvalidResourceStateException e ->
          `Assoc
            [("error", (`String "InvalidResourceStateException"));
            ("details", (InvalidResourceStateException.to_json e))]
      | `NoSuchResourceException e ->
          `Assoc
            [("error", (`String "NoSuchResourceException"));
            ("details", (NoSuchResourceException.to_json e))]
      | `ResourceAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyExistsException"));
            ("details", (ResourceAlreadyExistsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Support case for an existing quota increase request. This call only creates a Support case if the request has a Pending status."]
module CreateSupportCaseRequest =
  struct
    type nonrec t =
      {
      requestId: RequestId.t
        [@ocaml.doc
          "The ID of the pending quota increase request for which you want to open a Support case."]}
    let context_ = "CreateSupportCaseRequest"
    let make ~requestId = fun () -> { requestId }
    let to_value x =
      structure_to_value
        [("RequestId", (Some (RequestId.to_value x.requestId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requestId =
        RequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RequestId") in
      make ~requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requestId = field_map_exn json__ "RequestId" RequestId.of_json in
      make ~requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a Support case for an existing quota increase request. This call only creates a Support case if the request has a Pending status."]
module AssociateServiceQuotaTemplateResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `AWSServiceAccessNotEnabledException of
          AWSServiceAccessNotEnabledException.t 
      | `AccessDeniedException of AccessDeniedException.t 
      | `DependencyAccessDeniedException of DependencyAccessDeniedException.t 
      | `NoAvailableOrganizationException of
          NoAvailableOrganizationException.t 
      | `OrganizationNotInAllFeaturesModeException of
          OrganizationNotInAllFeaturesModeException.t 
      | `ServiceException of ServiceException.t 
      | `TemplatesNotAvailableInRegionException of
          TemplatesNotAvailableInRegionException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_json json)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_json json)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_json json)
      | "OrganizationNotInAllFeaturesModeException" ->
          `OrganizationNotInAllFeaturesModeException
            (OrganizationNotInAllFeaturesModeException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AWSServiceAccessNotEnabledException" ->
          `AWSServiceAccessNotEnabledException
            (AWSServiceAccessNotEnabledException.of_xml xml)
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "DependencyAccessDeniedException" ->
          `DependencyAccessDeniedException
            (DependencyAccessDeniedException.of_xml xml)
      | "NoAvailableOrganizationException" ->
          `NoAvailableOrganizationException
            (NoAvailableOrganizationException.of_xml xml)
      | "OrganizationNotInAllFeaturesModeException" ->
          `OrganizationNotInAllFeaturesModeException
            (OrganizationNotInAllFeaturesModeException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "TemplatesNotAvailableInRegionException" ->
          `TemplatesNotAvailableInRegionException
            (TemplatesNotAvailableInRegionException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AWSServiceAccessNotEnabledException e ->
          `Assoc
            [("error", (`String "AWSServiceAccessNotEnabledException"));
            ("details", (AWSServiceAccessNotEnabledException.to_json e))]
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `DependencyAccessDeniedException e ->
          `Assoc
            [("error", (`String "DependencyAccessDeniedException"));
            ("details", (DependencyAccessDeniedException.to_json e))]
      | `NoAvailableOrganizationException e ->
          `Assoc
            [("error", (`String "NoAvailableOrganizationException"));
            ("details", (NoAvailableOrganizationException.to_json e))]
      | `OrganizationNotInAllFeaturesModeException e ->
          `Assoc
            [("error", (`String "OrganizationNotInAllFeaturesModeException"));
            ("details",
              (OrganizationNotInAllFeaturesModeException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `TemplatesNotAvailableInRegionException e ->
          `Assoc
            [("error", (`String "TemplatesNotAvailableInRegionException"));
            ("details", (TemplatesNotAvailableInRegionException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates your quota request template with your organization. When a new Amazon Web Services account is created in your organization, the quota increase requests in the template are automatically applied to the account. You can add a quota increase request for any adjustable quota to your template."]
module AssociateServiceQuotaTemplateRequest =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates your quota request template with your organization. When a new Amazon Web Services account is created in your organization, the quota increase requests in the template are automatically applied to the account. You can add a quota increase request for any adjustable quota to your template."]